mirror of
https://github.com/chrislgarry/Apollo-11.git
synced 2025-02-18 18:00:29 +00:00
Review changes
This commit is contained in:
James Harris
parent
35b8b188f3
commit
309ad063a9
1 changed files with 17 additions and 19 deletions
|
|
@ -45,7 +45,7 @@ RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
|
|||
CA TEMPPHS
|
||||
MASK OCT1400
|
||||
CCS A # IS IT A VARIABLE OR TABLE RESTART
|
||||
TCF ITSAVAR # IT'S A VARIABLE RESTART
|
||||
TCF ITSAVAR # IT:S A VARIABLE RESTART
|
||||
|
||||
GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
|
||||
CCS A
|
||||
|
|
@ -60,9 +60,9 @@ GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
|
|||
|
||||
ITSAVAR MASK OCT1400 # IS IT TYPE B ?
|
||||
CCS A
|
||||
TCF ITSLIKEB # YES, IT IS TYPE B
|
||||
TCF ITSLIKEB # YES,IT IS TYPE B
|
||||
|
||||
EXTEND # STORES THE JOB (OR TASK) 2CADR FOR EXIT
|
||||
EXTEND # STORE THE JOB (OR TASK) 2CADR FOR EXIT
|
||||
NDX TEMP2G
|
||||
DCA PHSNAME1
|
||||
DXCH GOLOC
|
||||
|
|
@ -135,7 +135,7 @@ FINDTIME COM # MAKE NEGITIVE SINCE IT WILL BE SUBTRACTD
|
|||
TCF +1
|
||||
IMEDIATE AD ONE
|
||||
TC GOLOC -1
|
||||
ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
|
||||
ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
|
||||
TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE
|
||||
|
||||
CA PRT2CADR # SET UP EXIT TO GET TABLE PART OF THIS
|
||||
|
|
@ -146,11 +146,11 @@ ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
|
|||
TS TEMPPHS
|
||||
|
||||
EXTEND
|
||||
NDX TEMP2G # OBTAIN THE JOB'S 2CADR
|
||||
NDX TEMP2G # OBTAIN THE JOB:S 2CADR
|
||||
DCA PHSNAME1
|
||||
DXCH GOLOC
|
||||
|
||||
ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET'S GO
|
||||
ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET:S GO
|
||||
CA PHSPRDT1
|
||||
CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF ITS
|
||||
EXTEND # A FINDVAC OR A NOVAC
|
||||
|
|
@ -167,7 +167,7 @@ ITSNOVAC CAF NOVACADR # NEGATIVE,
|
|||
|
||||
ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN
|
||||
CCS CYR
|
||||
TCF +1 # IT'S EVEN
|
||||
TCF +1 # IT:S EVEN
|
||||
TCF ITSEVEN
|
||||
|
||||
CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A
|
||||
|
|
@ -181,13 +181,13 @@ ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN
|
|||
AD SIZETAB +1
|
||||
TS POINTER
|
||||
|
||||
CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE
|
||||
CONTBL2 EXTEND # FIND OUT WHAT:S IN THE TABLE
|
||||
NDX POINTER
|
||||
DCA CADRTAB # GET THE 2CADR
|
||||
|
||||
LXCH GOLOC +1 # STORE THE BB INFORMATION
|
||||
|
||||
CCS A # IS IT A JOB OR IS IT TIMED
|
||||
CCS A # IS IT A JOB OR IS IT TIMED
|
||||
INCR A # POSITIVE. MUST BE A JOB
|
||||
TCF ITSAJOB2
|
||||
|
||||
|
|
@ -201,7 +201,7 @@ CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE
|
|||
MASK BIT10 # THIS SHOULD BE ONE IF WE HAVE -BB
|
||||
CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
|
||||
# 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
|
||||
# IN IMPORTANCE ANYWAY. BIT 4
|
||||
# IN IMPORTANCE ANYWAY. BIT 4
|
||||
TCF ITSWTLST # IT IS A WAITLIST CALL
|
||||
|
||||
NDX POINTER # OBTAIN THE ORIGINAL DELTA T
|
||||
|
|
@ -228,9 +228,9 @@ ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK
|
|||
LXCH BB # RESTORE THE TASKS E AND F BANKS
|
||||
LXCH GOLOC +1 # AND PRESERVE OUR L
|
||||
# Page 1307
|
||||
TCF ITSLGCL2 # NOT LET'S PROCESS THIS LONGCALL
|
||||
TCF ITSLGCL2 # NOT LET:S PROCESS THIS LONGCALL
|
||||
|
||||
# ***** YOU MAY RETURN TO SWITCHED FIXED *****
|
||||
# ***** YOU MAY RETURN TO SWITCHED FIXED *****
|
||||
|
||||
BANK 01
|
||||
SETLOC RESTART
|
||||
|
|
@ -252,7 +252,7 @@ ITSLGCL2 DXCH LONGTIME
|
|||
TCF IMEDIATE -3
|
||||
CCS LONGTIME +1
|
||||
TCF LONGCLCL
|
||||
NOOP # CAN'T GET HERE *********
|
||||
NOOP # CAN:T GET HERE *********
|
||||
TCF IMEDIATE -3
|
||||
TCF IMEDIATE
|
||||
|
||||
|
|
@ -282,17 +282,17 @@ ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION
|
|||
# Page 1308
|
||||
ITSAJOB2 XCH GOLOC # STORE THE CADR
|
||||
|
||||
NDX POINTER # ADD THE PRIORITY AND LET'S GO
|
||||
NDX POINTER # ADD THE PRIORITY AND LET:S GO
|
||||
CA PRDTTAB
|
||||
|
||||
TCF CHKNOVAC
|
||||
|
||||
ITSEVEN CA TEMPSWCH # SET FOR EITHER THE SECOND PART OF THE
|
||||
ITSEVEN CA TEMPSWCH # SET UP FOR EITHER THE SECOND PART OF THE
|
||||
TS GOLOC +2 # TABLE, OR A RETURN FOR THE NEXT GROUP
|
||||
|
||||
NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN
|
||||
CA SIZETAB # THE TABLE
|
||||
AD TEMPPHS # THIS MAY LOOK BAD BUT LET'S SEE YOU DO
|
||||
AD TEMPPHS # THIS MAY LOOK BAD BUT LET:S SEE YOU DO
|
||||
AD TEMPPHS # BETTER IN TIME OR NUMBERR OF LOCATIONS
|
||||
AD TEMPPHS
|
||||
TS POINTER
|
||||
|
|
@ -305,7 +305,7 @@ PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF
|
|||
CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE
|
||||
TS GOLOC +2 # EVEN TABLE , SO AFTER IT GET THE NEXT
|
||||
# GROUP
|
||||
TCF CONTBL2 # SO LET'S GET THE SECOND ENTRY IN THE TBL
|
||||
TCF CONTBL2 # SO LET:S GET THE SECOND ENTRY IN THE TBL
|
||||
|
||||
TEMPPHS EQUALS MPAC
|
||||
TEMP2G EQUALS MPAC +1
|
||||
|
|
@ -321,5 +321,3 @@ LGCLCADR GENADR LONGCALL
|
|||
FVACCADR GENADR FINDVAC
|
||||
WTLTCADR GENADR WAITLIST
|
||||
NOVACADR GENADR NOVAC
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue