diff --git a/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc b/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc index 91486e4..56c305c 100644 --- a/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc +++ b/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc @@ -48,7 +48,7 @@ # # TC BANKCALL # CADR E/BKCALL -# CADR ROUTINE # WHERE TO WANT TO GO IN FIXED. +# CADR ROUTINE # WHERE YOU WANT TO GO IN FIXED. # RETURN HERE FROM DISPLAY TERMINATE, BAD STALL OR TC Q. # RETURN HERE FROM DISPLAY PROCEED OR GOOD RETURN FROM STALL. # RETURN HERE FROM DISPLAY ENTER OR RECYCLE. @@ -68,7 +68,7 @@ E/BKCALL DXCH BUF2 # SAVE A,L AND GET DP RETURN. CA 0 -1 # GET CADR OF ROUTINE. TC SWCALL # GO TO ROUTINE, SETTING Q TO SWRETURN # AND RESTORING A + L. - TC +4 # TX Q, V34, OR BADD STALL RETURN. + TC +4 # TX Q, V34, OR BAD STALL RETURN. TC +2 # PROCEED OR GOOD STALL RETURN. INCR EBUF2 # ENTER OR RECYCLE RETURN. INCR EBUF2 @@ -82,7 +82,7 @@ E/SWITCH DXCH EBUF2 # # RTB # E/CALL -# CADR ROUTINE # THE INTERPRETIVE SUBROUTINE YOU WANT +# CADR ROUTINE # THE INTERPRETIVE SUBROUTINE YOU WANT. # # RETURNS HERE IN INTERPRETIVE. E/CALL LXCH LOC # ADRES -1 OF CADR. @@ -96,22 +96,25 @@ E/CALL LXCH LOC # ADRES -1 OF CADR. EBUF2 # INDIRECTLY EXECUTE ROUTING. IT MUST EXIT # LEAVE VIA RVQ OR EQUIVALENT. LXCH EBUF2 +1 # PICK UP RETURN. - TCF INTPRET +2 # SET LOC AND RETURN TO CALLER. + TCF INTPRET +2 # SET LOC AND RETURB TO CALLER # Page 422 # E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS. # # THIS ROUTINE MUST BE CALLED IN INTERRUPT OR WITH INTERRUPTS INHIBITED. # -# THE CALLING SEQUENCE IS +# THE CALLING SEQUENCE IS: # # INHINT -# ... +# . +# . # CA WAKEADR # ADDRESS OF SLEEPING JOB # TC IBNKCALL # CADR E/JOBWAK -# ... # RETURNS HERE -# RELINT # IF YOU DID AND INHINT +# . # RETURNS HERE +# . +# . +# RELINT # IF YOU DID AN INHINT. BANK 33 SETLOC E/PROG