proof(luminary099): SERVICE_ROUTINES.agc (#695)
This commit is contained in:
parent
8056927e8c
commit
ca5dd7b7f9
@ -108,7 +108,7 @@ DEBIT AD ONE # CET DE BITS
|
|||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# Page 1377
|
# Page 1377
|
||||||
# DELAYJOB -- A GENERAL ROUTINE TO DELAY A JOB A SPECIFIC AMOUNT OF TIME BEFORE PICKING UP AGAIN.
|
# DELAYJOB- A GENERAL ROUTINE TO DELAY A JOB A SPECIFIC AMOUNT OF TIME BEFORE PICKING UP AGAIN.
|
||||||
#
|
#
|
||||||
# ENTRANCE REQUIREMENTS...
|
# ENTRANCE REQUIREMENTS...
|
||||||
# CAF DT # DELAY JOB FOR DT CENTISECS
|
# CAF DT # DELAY JOB FOR DT CENTISECS
|
||||||
@ -119,7 +119,7 @@ DEBIT AD ONE # CET DE BITS
|
|||||||
SETLOC DLAYJOB
|
SETLOC DLAYJOB
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
# THIS MUST REMAIN IN BANK 0 ****************************************
|
# THIS MUST REMAIN IN BANK 0 *****************************************
|
||||||
|
|
||||||
COUNT* $$/DELAY
|
COUNT* $$/DELAY
|
||||||
DELAYJOB INHINT
|
DELAYJOB INHINT
|
||||||
@ -167,12 +167,12 @@ TCSLEEP GENADR TCGETCAD -2
|
|||||||
WAKECAD GENADR WAKER
|
WAKECAD GENADR WAKER
|
||||||
|
|
||||||
# Page 1379
|
# Page 1379
|
||||||
# GENTRAN, A BLOCK TRANSFER ROUTINE
|
# GENTRAN, A BLOCK TRANSFER ROUTINE.
|
||||||
# WRITTEN BY D. EYLES
|
# WRITTEN BY D. EYLES
|
||||||
# MOD 1 BY KERNAN UTILITYM REV 17 11/18/67
|
# MOD 1 BY KERNAN UTILITYM REV 17 11/18/67
|
||||||
# MOD 2 BY SCHULENBERG (REMOVE RELINT) SKIPPER REV 4 2/28/68
|
# MOD 2 BY SCHULENBERG (REMOVE RELINT) SKIPPER REV 4 2/28/68
|
||||||
#
|
#
|
||||||
# THIS ROUTINE IS USEFUL FOR TRANSFERING N CONSECUTIVE ERASABLE OR FIXED QUANTITIES TO SOME OTHER N
|
# THIS ROUTINE IS USEFULL FOR TRANSFERING N CONSECUTIVE ERASABLE OR FIXED QUANTITIES TO SOME OTHER N
|
||||||
# CONSECUTIVE ERASABLE LOCATIONS. IF BOTH BLOCKS OF DATA ARE IN SWITCHABLE EBANKS, THEY MUST BE IN THE SAME ONE.
|
# CONSECUTIVE ERASABLE LOCATIONS. IF BOTH BLOCKS OF DATA ARE IN SWITCHABLE EBANKS, THEY MUST BE IN THE SAME ONE.
|
||||||
#
|
#
|
||||||
# GENTRAN IS CALLABLE IN A JOB AS WELL AS A RUPT. THE CALLING SEQUENCE IS:
|
# GENTRAN IS CALLABLE IN A JOB AS WELL AS A RUPT. THE CALLING SEQUENCE IS:
|
||||||
@ -194,7 +194,7 @@ WAKECAD GENADR WAKER
|
|||||||
COUNT* $$/TRAN
|
COUNT* $$/TRAN
|
||||||
|
|
||||||
GENTRAN INHINT
|
GENTRAN INHINT
|
||||||
TS ITEMP1 # SAVE N-1
|
TS ITEMP1 # SAVE N-1.
|
||||||
INDEX Q # C(Q) = ADRES L.
|
INDEX Q # C(Q) = ADRES L.
|
||||||
AD 0 # ADRES (L + N - 1).
|
AD 0 # ADRES (L + N - 1).
|
||||||
INDEX A
|
INDEX A
|
||||||
@ -210,7 +210,7 @@ GENTRAN INHINT
|
|||||||
TCF Q+2 # RETURN TO CALLER.
|
TCF Q+2 # RETURN TO CALLER.
|
||||||
|
|
||||||
# Page 1380
|
# Page 1380
|
||||||
# B5OFF ZERO BIT 5 OF EXTVBACK, WHICH IS SET BY TESTXACT.
|
# B5OFF ZERO BIT 5 OF EXTVBACT, WHICH IS SET BY TESTXACT.
|
||||||
# MAY BE USED AS NEEDED BY ANY EXTENDED VERB WHICH HAS DONE TESTXACT
|
# MAY BE USED AS NEEDED BY ANY EXTENDED VERB WHICH HAS DONE TESTXACT
|
||||||
|
|
||||||
COUNT* $$/EXTVB
|
COUNT* $$/EXTVB
|
||||||
@ -219,6 +219,3 @@ B5OFF CS BIT5
|
|||||||
MASK EXTVBACT
|
MASK EXTVBACT
|
||||||
TS EXTVBACT
|
TS EXTVBACT
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user