SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-22 11:31:05 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Review changes

Browse source
This commit is contained in:
James Harris 2020-10-13 20:11:10 +01:00
parent 35b8b188f3
commit 309ad063a9
1 changed files with 17 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
Luminary099/RESTARTS_ROUTINE.agc
View file

@ -45,7 +45,7 @@ RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
CA TEMPPHS CA TEMPPHS
MASK OCT1400 MASK OCT1400
CCS A # IS IT A VARIABLE OR TABLE RESTART 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 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
CCS A CCS A
@ -60,9 +60,9 @@ GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
ITSAVAR MASK OCT1400 # IS IT TYPE B ? ITSAVAR MASK OCT1400 # IS IT TYPE B ?
CCS A 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 NDX TEMP2G
DCA PHSNAME1 DCA PHSNAME1
DXCH GOLOC DXCH GOLOC
@ -135,7 +135,7 @@ FINDTIME COM # MAKE NEGITIVE SINCE IT WILL BE SUBTRACTD
TCF +1 TCF +1
IMEDIATE AD ONE IMEDIATE AD ONE
TC GOLOC -1 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 TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE
CA PRT2CADR # SET UP EXIT TO GET TABLE PART OF THIS 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 TS TEMPPHS
EXTEND EXTEND
NDX TEMP2G # OBTAIN THE JOB'S 2CADR NDX TEMP2G # OBTAIN THE JOB:S 2CADR
DCA PHSNAME1 DCA PHSNAME1
DXCH GOLOC 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 CA PHSPRDT1
CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF ITS CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF ITS
EXTEND # A FINDVAC OR A NOVAC 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 ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN
CCS CYR CCS CYR
TCF +1 # IT'S EVEN TCF +1 # IT:S EVEN
TCF ITSEVEN TCF ITSEVEN
CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A 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 AD SIZETAB +1
TS POINTER TS POINTER
CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE CONTBL2 EXTEND # FIND OUT WHAT:S IN THE TABLE
NDX POINTER NDX POINTER
DCA CADRTAB # GET THE 2CADR DCA CADRTAB # GET THE 2CADR
LXCH GOLOC +1 # STORE THE BB INFORMATION 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 INCR A # POSITIVE. MUST BE A JOB
TCF ITSAJOB2 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 MASK BIT10 # THIS SHOULD BE ONE IF WE HAVE -BB
CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7, CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
# 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT # 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 TCF ITSWTLST # IT IS A WAITLIST CALL
NDX POINTER # OBTAIN THE ORIGINAL DELTA T 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 BB # RESTORE THE TASKS E AND F BANKS
LXCH GOLOC +1 # AND PRESERVE OUR L LXCH GOLOC +1 # AND PRESERVE OUR L
# Page 1307 # 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 BANK 01
SETLOC RESTART SETLOC RESTART
@ -252,7 +252,7 @@ ITSLGCL2 DXCH LONGTIME
TCF IMEDIATE -3 TCF IMEDIATE -3
CCS LONGTIME +1 CCS LONGTIME +1
TCF LONGCLCL TCF LONGCLCL
NOOP # CAN'T GET HERE ********* NOOP # CAN:T GET HERE *********
TCF IMEDIATE -3 TCF IMEDIATE -3
TCF IMEDIATE TCF IMEDIATE
@ -282,17 +282,17 @@ ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION
# Page 1308 # Page 1308
ITSAJOB2 XCH GOLOC # STORE THE CADR 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 CA PRDTTAB
TCF CHKNOVAC 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 TS GOLOC +2 # TABLE, OR A RETURN FOR THE NEXT GROUP
NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN
CA SIZETAB # THE TABLE 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 # BETTER IN TIME OR NUMBERR OF LOCATIONS
AD TEMPPHS AD TEMPPHS
TS POINTER 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 CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE
TS GOLOC +2 # EVEN TABLE , SO AFTER IT GET THE NEXT TS GOLOC +2 # EVEN TABLE , SO AFTER IT GET THE NEXT
# GROUP # 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 TEMPPHS EQUALS MPAC
TEMP2G EQUALS MPAC +1 TEMP2G EQUALS MPAC +1
@ -321,5 +321,3 @@ LGCLCADR GENADR LONGCALL
FVACCADR GENADR FINDVAC FVACCADR GENADR FINDVAC
WTLTCADR GENADR WAITLIST WTLTCADR GENADR WAITLIST
NOVACADR GENADR NOVAC NOVACADR GENADR NOVAC