diff --git a/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc b/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc index dcb1f8d..65e1085 100644 --- a/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc +++ b/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc @@ -42,7 +42,7 @@ # THIS ROUTINE IS CALLABLE FROM ERASABLE OR FIXED. LIKE BANKCALL, HOWEVER, SWITCHING BETWEEN S3 AND S4 # IS NOT POSSIBLE. # -# THE CALLING SEQUENCE IS +# THE CALLING SEQUENCE IS: # # TC BANKCALL # CADR E/BKCALL @@ -56,7 +56,7 @@ # # A + L ARE PRESERVED THROUGH BANKCALL AND E/BKCALL. -E/BKCALL DXCH BUF2 # SAVE A,L AND GET DP RETURN +E/BKCALL DXCH BUF2 # SAVE A,L AND GET DP RETURN. DXCH EBUF2 # SAVE DP RETURN. INCR EBUF2 # RETURN +1 BECAUSE DOUBLE CADR. CA BBANK @@ -68,7 +68,7 @@ E/BKCALL DXCH BUF2 # SAVE A,L AND GET DP RETURN # AND RESTORING A + L. TC +4 # TX Q, V34, OR BAD STALL RETURN. TC +2 # PROCEED OR GOOD STALL RETURN. - INCR EBUF2 # ENTER OR RECYCLE RETURN + INCR EBUF2 # ENTER OR RECYCLE RETURN. INCR EBUF2 E/SWITCH DXCH EBUF2 DTCB @@ -80,7 +80,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. @@ -91,17 +91,17 @@ E/CALL LXCH LOC # ADRES -1 OF CADR. DXCH EBUF2 # STORE CADR AND RETURN TC INTPRET CALL - EBUF2 # INDIRECTLY EXECUTE ROUTING. IT MUST + EBUF2 # INDIRECTLY EXECUTE ROUTINE. IT MUST EXIT # LEAVE VIA RVQ OR EQUIVALENT. - LXCH EBUF2 +1 # PICK UP RETURN. - TCF INTPRET +2 # SET LOC AND RETURN TO CALLER. + LXCH EBUF2 +1 # PICK UP RETURN. + TCF INTPRET +2 # SET LOC AND RETURN TO CALLER. # Page 372 # 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 # ... @@ -109,7 +109,7 @@ E/CALL LXCH LOC # ADRES -1 OF CADR. # TC IBNKCALL # CADR E/JOBWAK # ... # RETURNS HERE -# RELINT # IF YOU DID AND INHINT +# RELINT # IF YOU DID AND INHINT. BANK 33 SETLOC E/PROG @@ -117,7 +117,7 @@ E/CALL LXCH LOC # ADRES -1 OF CADR. COUNT* $$/P07 -E/JOBWAK TC JOBWAKE # ARRIVE WITH ADRES IN A. +E/JOBWAK TC JOBWAKE # ARRIVE IWTH ADRES IN A. CS BIT11 NDX LOCCTR ADS LOC # KNOCK FIXED MEMORY BIT OUT OF ADRES.