* Proof SYSTEM_TEST_STANDARD_LEAD_INS (fix #261) * Apply requested fixes
This commit is contained in:
parent
2de03037bf
commit
f3b822593c
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user