* Proof EXECUTIVE #354 * Use full stop.
This commit is contained in:
cai
James Harris
parent
c1638c369c
commit
2bcb943ee9
@ -47,7 +47,7 @@ NOVAC INHINT
|
||||
TS EXECTEM1
|
||||
TCF NOVAC2 # ENTER EXECUTIVE BANK.
|
||||
|
||||
# TO ENTER A JOB REQUEST REQUIRING A VAC AREA -- E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
|
||||
# TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
|
||||
|
||||
FINDVAC INHINT
|
||||
TS NEWPRIO
|
||||
@ -77,7 +77,7 @@ CHANG1 LXCH Q
|
||||
# TO SUSPEND AN INTERPRETIVE JOB:
|
||||
|
||||
CHANG2 CS LOC # NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
|
||||
# ITRACE (4) REFERS TO "CHANG2"
|
||||
# ITRACE (4) REFERS TO "CHANG2".
|
||||
# Page 1209
|
||||
TS L
|
||||
+2 CAF EXECBANK
|
||||
@ -126,7 +126,7 @@ EXECBANK CADR FINDVAC2
|
||||
FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET)
|
||||
|
||||
# Page 1211
|
||||
# LOCATE AN AVAILABLE VAC AREA
|
||||
# LOCATE AN AVAILABLE VAC AREA.
|
||||
|
||||
BANK 01
|
||||
COUNT 01/EXEC
|
||||
@ -166,9 +166,9 @@ NO.CORES DEC 6
|
||||
CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE
|
||||
INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE
|
||||
TS PRIORITY # JOB'S PUSH-DOWN POINTER AT THE BEGINNING
|
||||
MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR.
|
||||
MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR
|
||||
INDEX LOCCTR
|
||||
TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS.
|
||||
TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
|
||||
|
||||
CCS LOCCTR # IF CORE SET ZERO IS BEING LOADED, SET UP
|
||||
TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY.
|
||||
@ -177,7 +177,7 @@ CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE
|
||||
TS FIXLOC
|
||||
|
||||
SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE).
|
||||
TCF SETLOC # MUST BE AWAKENED OUT UNCHANGED JOB.
|
||||
TCF SETLOC # MUST BE AWAKENED BUT UNCHANGED JOB.
|
||||
TC CCSHOLE
|
||||
TC CCSHOLE
|
||||
TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET.
|
||||
@ -270,7 +270,7 @@ ENDPRCHG RELINT
|
||||
# Page 1215
|
||||
COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
|
||||
AD ONE
|
||||
TS LOC # RESUME
|
||||
TS LOC # RESUME.
|
||||
TCF INTRSM
|
||||
|
||||
# COMPLETE JOBSLEEP PREPARATIONS.
|
||||
@ -284,10 +284,10 @@ JOBSLP1 INHINT
|
||||
ROR SUPERBNK # SAVE OLD SUPERBANK VALUE.
|
||||
TS BANKSET
|
||||
CS ZERO
|
||||
JOBSLP2 TS BUF +1 # HOLDS -- HIGHEST PRIORITY.
|
||||
JOBSLP2 TS BUF +1 # HOLDS - HIGHEST PRIORITY.
|
||||
TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
|
||||
|
||||
NUCHANG2 INHINT # QUICK... DON'T LET NEWJOB CHANGE TO +0.
|
||||
NUCHANG2 INHINT # QUICK... DONT LET NEWJOB CHANGE TO +0 .
|
||||
CCS NEWJOB
|
||||
TCF +3 # NEWJOB STILL PNZ
|
||||
RELINT # NEWJOB HAS CHANGED TO +0. WAKE UP JOB
|
||||
@ -305,15 +305,15 @@ NUCHANG2 INHINT # QUICK... DON'T LET NEWJOB CHANGE TO +0.
|
||||
# LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
|
||||
|
||||
JOBWAKE2 TS EXECTEM1
|
||||
CAF ZERO # BEGIN CORE SET SCAN
|
||||
CAF ZERO # BEGIN CORE SET SCAN.
|
||||
TS LOCCTR
|
||||
CAF NO.CORES
|
||||
JOBWAKE4 TS EXECTEM2
|
||||
INDEX LOCCTR
|
||||
CCS PRIORITY
|
||||
TCF JOBWAKE3 # ACTIVE JOB -- CHECK NEXT CORE SET.
|
||||
TCF JOBWAKE3 # ACTIVE JOB - CHECK NEXT CORE SET.
|
||||
COREINC DEC 12 # 12 REGISTERS PER CORE SET.
|
||||
TCF WAKETEST # SLEEPING JOB -- SEE IF CADR MATCHES.
|
||||
TCF WAKETEST # SLEEPING JOB - SEE IF CADR MATCHES.
|
||||
|
||||
JOBWAKE3 CAF COREINC
|
||||
ADS LOCCTR
|
||||
@ -336,7 +336,7 @@ WAKETEST CS NEWLOC
|
||||
INDEX LOCCTR
|
||||
TS PRIORITY
|
||||
|
||||
CS FBANKMSK # MASK UP THE 2CADR OF THE WAKE ADDRESS
|
||||
CS FBANKMSK # MAKE UP THE 2CADR OF THE WAKE ADDRESS
|
||||
MASK NEWLOC # USING THE CADR IN NEWLOC AND THE EBANK
|
||||
AD 2K # HALF OF BBANK SAVED IN BANKSET.
|
||||
XCH NEWLOC
|
||||
@ -421,13 +421,12 @@ EJSCAN CCS PRIORITY +12D
|
||||
|
||||
TCF +2
|
||||
TCF DUMMYJOB
|
||||
CCS BUF # BUF IS ZERO IS THIS IS A PRIOCHNG AND
|
||||
CCS BUF # BUF IS ZERO IF THIS IS A PRIOCHNG AND
|
||||
TCF +2 # CHANGED PRIORITY IS STILL HIGHEST.
|
||||
TCF ENDPRCHG -1
|
||||
|
||||
INDEX A # OTHERWISE, SET NEWJOB TO THE RELATIVE
|
||||
# Was CAF --- RSB 2004
|
||||
CA 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET.
|
||||
CAF 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET.
|
||||
AD -CCSPR
|
||||
TS NEWJOB
|
||||
TCF CHANJOB -2
|
||||
@ -459,10 +458,10 @@ DUMMYJOB CS ZERO # SET NEWJOB TO -0 FOR IDLING.
|
||||
CS TWO # TURN OFF THE ACTIVITY LIGHT.
|
||||
EXTEND
|
||||
WAND DSALMOUT
|
||||
ADVAN CCS NEWJOB # IS THE NEWJOB ACTIVE?
|
||||
ADVAN CCS NEWJOB # IS A NEWJOB ACTIVE ?
|
||||
TCF NUCHANG2 # YES... ONE REQUIRING A CHANGE JOB.
|
||||
CAF TWO # NEW JOB ALREADY IN POSITION FOR
|
||||
TCF NUDIRECT # EXECUTION
|
||||
TCF NUDIRECT # EXECUTION.
|
||||
|
||||
CA SELFRET
|
||||
TS L # PUT RETURN ADDRESS IN L.
|
||||
@ -481,9 +480,9 @@ NUDIRECT EXTEND # TURN THE GREEN LIGHT BACK ON.
|
||||
|
||||
COUNT 02/EXEC
|
||||
|
||||
# SUPDXCHZ -- ROUTINE TO TRANSFER TO SUPERBANK.
|
||||
# CALLING SEQUENCE:
|
||||
# TCF SUPDXCHZ # WITH 2CADR OF DESIRED LOCATION IN A + l.
|
||||
# SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK.
|
||||
# CALLING SEQUENCE
|
||||
# TCF SUPDXCHZ # WITH 2CADR OF DESIRED LOCATION IN A + L.
|
||||
|
||||
SUPDXCHZ XCH L # BASIC.
|
||||
+1 EXTEND
|
||||
|
||||
Loading…
Reference in New Issue
Block a user