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

Poof read and fixed minor typos

Browse source
This commit is contained in:
Chyanne Haugen 2020-10-05 12:58:30 -07:00
parent 9de167ee9e
commit b4ed0f993e
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
Luminary099/RESTARTS_ROUTINE.agc
View file

@ -49,7 +49,7 @@ RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
CCS A CCS A
TCF ITSATBL # NO, IT'S A TABLE RESTART TCF ITSATBL # NO, ITS A TABLE RESTART
CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START
TC FINDVAC # THE DISPLAY RESTART JOB TC FINDVAC # THE DISPLAY RESTART JOB
@ -67,17 +67,17 @@ ITSAVAR MASK OCT1400 # IS IT TYPE B ?
DCA PHSNAME1 DCA PHSNAME1
DXCH GOLOC DXCH GOLOC
CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCALL CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCAL
MASK OCT7 MASK OCT7
AD MINUS2 AD MINUS2
CCS A CCS A
TCF ITSLNGCL # IT'S A LONGCALL TCF ITSLNGCL # ITS A LONGCALL
RTRNCADR TC SWRETURN # CAN'T GET HERE. RTRNCADR TC SWRETURN # CANT GET HERE
# Page 1304 # Page 1304
TCF ITSAWAIT TCF ITSAWAIT
TCF ITSAJOB # IT'S A JOB TCF ITSAJOB # ITS A JOB
ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL
TS GOLOC -1 TS GOLOC -1
@ -152,12 +152,12 @@ ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
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 IT'S CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF ITS
EXTEND # A FINDVAC OR A NOVAC EXTEND # A FINDVAC OR A NOVAC
BZMF ITSNOVAC BZMF ITSNOVAC
CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL. CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL.
XCH GOLOC -1 # PICK UP PRIO XCH GOLOC -1 # PICK UP PRIO,
TC GOLOC -1 # AND GO TC GOLOC -1 # AND GO
ITSNOVAC CAF NOVACADR # NEGATIVE, ITSNOVAC CAF NOVACADR # NEGATIVE,
@ -192,7 +192,7 @@ CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE
TCF ITSAJOB2 TCF ITSAJOB2
INCR A # MUST BE EITHER A WAITLIST OR LONGCALL INCR A # MUST BE EITHER A WAITLIST OR LONGCALL
TS GOLOC # LET'S STORE THE CORRECT CADR TS GOLOC # LET-S STORE THE CORRECT CADR
CA WTLTCADR # SET UP OUR EXIT TO WAITLIST CA WTLTCADR # SET UP OUR EXIT TO WAITLIST
TS GOLOC -1 TS GOLOC -1
@ -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
@ -303,7 +303,7 @@ PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF
ADS POINTER # THE TABLE ADS POINTER # THE TABLE
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