ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed all changes from EXECUTIVE.agc

Browse Source
This commit is contained in:
Murtaza Hatim Rangwala 2020-10-27 17:32:47 +08:00 committed by GitHub
parent aa5cd1cb7a
commit 8088831802
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 46 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
Luminary099/EXECUTIVE.agc
View File

@ -47,7 +47,7 @@ NOVAC INHINT
TS EXECTEM1 TS EXECTEM1
TCF NOVAC2 # ENTER EXECUTIVE BANK. 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 REQUIREING A VAC AREA -- E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
FINDVAC INHINT FINDVAC INHINT
TS NEWPRIO TS NEWPRIO
@ -60,7 +60,6 @@ SPVACIN DXCH NEWLOC
TCF FINDVAC2 # OFF TO EXECUTIVE SWITCHED-BANK. TCF FINDVAC2 # OFF TO EXECUTIVE SWITCHED-BANK.
# TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L: # TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
# USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO. # USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO.
SPVAC XCH Q SPVAC XCH Q
@ -78,7 +77,7 @@ CHANG1 LXCH Q
# TO SUSPEND AN INTERPRETIVE JOB: # TO SUSPEND AN INTERPRETIVE JOB:
CHANG2 CS LOC # NEGATIVE LOC SHOWS JOB = INTERPRETIVE. CHANG2 CS LOC # NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
# ITRACE (4) REFERS TO "CHANG2". # ITRACE (4) REFERS TO "CHANG2"
TS L TS L
# Page 1104 # Page 1104
+2 CAF EXECBANK +2 CAF EXECBANK
@ -127,7 +126,7 @@ EXECBANK CADR FINDVAC2
FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET) FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET)
# Page 1106 # Page 1106
# LOCATE AN AVAILABLE VAC AREA. # LOCATE AN AVAILABLE VAC AREA
BANK 01 BANK 01
COUNT* $$/EXEC COUNT* $$/EXEC
@ -159,7 +158,7 @@ NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET.
NOVAC3 TS EXECTEM2 NOVAC3 TS EXECTEM2
INDEX LOCCTR INDEX LOCCTR
CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF
TCF NEXTCORE # THE CORRESPONDING CORE SET IS AVAILABLE. TCF NEXTCORE # THE CORESPONDING CORE SET IS AVAILABLE.
NO.CORES DEC 7 NO.CORES DEC 7
TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY
# BUT A DORMANT JOB'S PRIORITY IS NEGATIVE # BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
@ -168,9 +167,9 @@ NO.CORES DEC 7
CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE
INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE
TS PRIORITY # JOB'S PUSH-DOWN POINTER AT THE BEGINNING 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 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 CCS LOCCTR # IF CORE SET ZERO IS BEING LOADED, SET UP
TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY. TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY.
@ -179,7 +178,7 @@ CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE
TS FIXLOC TS FIXLOC
SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE). SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE).
TCF SETLOC # MUST BE AWAKENED BUT UNCHANGED JOB. TCF SETLOC # MUST BE AWAKENED OUT UNCHANGED JOB.
TC CCSHOLE TC CCSHOLE
TC CCSHOLE TC CCSHOLE
TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET. TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET.
@ -274,7 +273,7 @@ ENDPRCHG RELINT
# Page 1110 # Page 1110
COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
AD ONE AD ONE
TS LOC # RESUME. TS LOC # RESUME
TCF INTRSM TCF INTRSM
# COMPLETE JOBSLEEP PREPARATIONS. # COMPLETE JOBSLEEP PREPARATIONS.
@ -288,10 +287,10 @@ JOBSLP1 INHINT
ROR SUPERBNK # SAVE OLD SUPERBANK VALUE. ROR SUPERBNK # SAVE OLD SUPERBANK VALUE.
TS BANKSET TS BANKSET
CS ZERO CS ZERO
JOBSLP2 TS BUF +1 # HOLDS - HIGHEST PRIORITY. JOBSLP2 TS BUF +1 # HOLDS -- HIGHEST PRIORITY.
TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB. TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
NUCHANG2 INHINT # QUICK... DONT LET NEWJOB CHANGE TO +0 . NUCHANG2 INHINT # QUICK... DON'T LET NEWJOB CHANGE TO +0.
CCS NEWJOB CCS NEWJOB
TCF +3 # NEWJOB STILL PNZ TCF +3 # NEWJOB STILL PNZ
RELINT # NEW JOB HAS CHANGED TO +0. WAKE UP JOB RELINT # NEW JOB HAS CHANGED TO +0. WAKE UP JOB
@ -301,7 +300,7 @@ NUCHANG2 INHINT # QUICK... DONT LET NEWJOB CHANGE TO +0 .
EXTEND EXTEND
WOR DSALMOUT # TURN ON ACTIVITY LIGHT WOR DSALMOUT # TURN ON ACTIVITY LIGHT
DXCH LOC # AND SAVE ADDRESS INFO FOR BENEFIT OF DXCH LOC # AND SAVE ADDRESS INFO FOR BENEFIT OF
TCF CHANJOB +4 # POSSIBLE SLEEPING JOB. TCF CHANJOB +4 # POSSIBLE SLEEPINT JOB.
# Page 1111 # Page 1111
# TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE # TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE
@ -309,21 +308,21 @@ NUCHANG2 INHINT # QUICK... DONT LET NEWJOB CHANGE TO +0 .
# LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE. # LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
JOBWAKE2 TS EXECTEM1 JOBWAKE2 TS EXECTEM1
CAF ZERO # BEGIN CORE SET SCAN. CAF ZERO # BEGIN CORE SET SCAN
TS LOCCTR TS LOCCTR
CAF NO.CORES CAF NO.CORES
JOBWAKE4 TS EXECTEM2 JOBWAKE4 TS EXECTEM2
INDEX LOCCTR INDEX LOCCTR
CCS PRIORITY 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. 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 JOBWAKE3 CAF COREINC
ADS LOCCTR ADS LOCCTR
CCS EXECTEM2 CCS EXECTEM2
TCF JOBWAKE4 TCF JOBWAKE4
CS ONE # EXIT IF SLEEPING JOB NOT FOUND. CS ONE # EXIT IF SLEEPIN JOB NOT FOUND.
TS LOCCTR TS LOCCTR
TCF ENDFIND TCF ENDFIND
@ -468,10 +467,10 @@ DUMMYJOB CS ZERO # SET NEWJOB TO -0 FOR IDLING.
CS TWO # TURN OFF THE ACTIVITY LIGHT. CS TWO # TURN OFF THE ACTIVITY LIGHT.
EXTEND EXTEND
WAND DSALMOUT WAND DSALMOUT
ADVAN CCS NEWJOB # IS A NEWJOB ACTIVE ? ADVAN CCS NEWJOB # IS THE NEWJOB ACTIVE?
TCF NUCHANG2 # YES... ONE REQUIRING A CHANGE JOB. TCF NUCHANG2 # YES... ONE REQUIRING A CHANGE JOB.
CAF TWO # NEW JOB ALREADY IN POSITION FOR CAF TWO # NEW JOB ALREADY IN POSITION FOR
TCF NUDIRECT # EXECUTION. TCF NUDIRECT # EXECUTION
CA SELFRET CA SELFRET
TS L # PUT RETURN ADDRESS IN L. TS L # PUT RETURN ADDRESS IN L.
@ -490,7 +489,7 @@ NUDIRECT EXTEND # TURN THE GREEN LIGHT BACK ON.
COUNT* $$/EXEC COUNT* $$/EXEC
# SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK. # SUPDXCHZ -- ROUTINE TO TRANSFER TO SUPEBANK.
# CALLING SEQUENCE: # CALLING SEQUENCE:
# TCF SUPDXCHZ # WITH 2CADR OF DESIRED LOCATION IN A + L. # TCF SUPDXCHZ # WITH 2CADR OF DESIRED LOCATION IN A + L.
@ -501,3 +500,4 @@ SUPDXCHZ XCH L # BASIC.
TC L TC L
NEG100 OCT 77677 NEG100 OCT 77677