mirrors
/
Apollo-11
mirror of https://github.com/chrislgarry/Apollo-11.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Proof SYSTEM_TEST_STANDARD_LEAD_INS (fix #261) (#298) 

* Proof SYSTEM_TEST_STANDARD_LEAD_INS (fix #261)

* Apply requested fixes
pull/299/head
Chris Warrick 2017-06-19 13:00:14 +02:00 committed by James Harris
parent 2de03037bf
commit f3b822593c
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc
View File

@ -48,7 +48,7 @@
# #
# TC BANKCALL # TC BANKCALL
# CADR E/BKCALL # 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 TERMINATE, BAD STALL OR TC Q.
# RETURN HERE FROM DISPLAY PROCEED OR GOOD RETURN FROM STALL. # RETURN HERE FROM DISPLAY PROCEED OR GOOD RETURN FROM STALL.
# RETURN HERE FROM DISPLAY ENTER OR RECYCLE. # 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. CA 0 -1 # GET CADR OF ROUTINE.
TC SWCALL # GO TO ROUTINE, SETTING Q TO SWRETURN TC SWCALL # GO TO ROUTINE, SETTING Q TO SWRETURN
# AND RESTORING A + L. # 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. TC +2 # PROCEED OR GOOD STALL RETURN.
INCR EBUF2 # ENTER OR RECYCLE RETURN. INCR EBUF2 # ENTER OR RECYCLE RETURN.
INCR EBUF2 INCR EBUF2
@ -82,7 +82,7 @@ E/SWITCH DXCH EBUF2
# #
# RTB # RTB
# E/CALL # E/CALL
# CADR ROUTINE # THE INTERPRETIVE SUBROUTINE YOU WANT # CADR ROUTINE # THE INTERPRETIVE SUBROUTINE YOU WANT.
# # RETURNS HERE IN INTERPRETIVE. # # RETURNS HERE IN INTERPRETIVE.
E/CALL LXCH LOC # ADRES -1 OF CADR. 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 EBUF2 # INDIRECTLY EXECUTE ROUTING. IT MUST
EXIT # LEAVE VIA RVQ OR EQUIVALENT. EXIT # LEAVE VIA RVQ OR EQUIVALENT.
LXCH EBUF2 +1 # PICK UP RETURN. 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 # Page 422
# E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS. # E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS.
# #
# THIS ROUTINE MUST BE CALLED IN INTERRUPT OR WITH INTERRUPTS INHIBITED. # THIS ROUTINE MUST BE CALLED IN INTERRUPT OR WITH INTERRUPTS INHIBITED.
# #
# THE CALLING SEQUENCE IS # THE CALLING SEQUENCE IS:
# #
# INHINT # INHINT
# ... # .
# .
# CA WAKEADR # ADDRESS OF SLEEPING JOB # CA WAKEADR # ADDRESS OF SLEEPING JOB
# TC IBNKCALL # TC IBNKCALL
# CADR E/JOBWAK # CADR E/JOBWAK
# ... # RETURNS HERE # . # RETURNS HERE
# RELINT # IF YOU DID AND INHINT # .
# .
# RELINT # IF YOU DID AN INHINT.
BANK 33 BANK 33
SETLOC E/PROG SETLOC E/PROG