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

First Proofing Finished

Browse Source 
I just want to go back and have a cursory second look at what I've done just to make sure it's not foolish.
-KS
This commit is contained in:
Kourosh Simpkins 2020-12-27 01:01:17 +00:00
parent ad85914089
commit d6d6c500c6
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Luminary099/SERVICER.agc
View File

@ -1648,7 +1648,7 @@ HIGATJOB TC BANKCALL # START LRPOS2 JOB
POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS. POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS.
TC PRIOCHNG TC PRIOCHNG
TC SETPOS2 # LR IN POS2 -- SET UP TRANSFORMATIONS TC SETPOS2 # LR IN POS2 - SET UP TRANSFORMATIONS
TC DOWNFLAG TC DOWNFLAG
ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING
@ -1658,7 +1658,7 @@ POSALARM CA OCT523
TC BANKCALL TC BANKCALL
CADR PRIOLARM # FLASH ALARM CODE CADR PRIOLARM # FLASH ALARM CODE
TCF GOTOPOOH # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +3 # PROCEED -- TRY AGAIN TCF +3 # PROCEED - TRY AGAIN
TCF ENDOFJOB # V 32 E TERMINATE R12 TCF ENDOFJOB # V 32 E TERMINATE R12
TC ENDOFJOB TC ENDOFJOB
@ -1669,8 +1669,7 @@ POSALARM CA OCT523
BZF POSGOOD # POS2 ACHIEVED SET UP ANTENNA BEAMS BZF POSGOOD # POS2 ACHIEVED SET UP ANTENNA BEAMS
TCF POSALARM # STILL DIDN'T MAKE IT REALARM TCF POSALARM # STILL DIDN'T MAKE IT REALARM
OCT523 OCT 00523 OCT523 OCT 523
SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
@ -1688,11 +1687,12 @@ SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
TS LRSCTR TS LRSCTR
TS VSELECT # INITIALIZE VSELECT TS VSELECT # INITIALIZE VSELECT
TC SETPOS # CONTINUE WITH COMPUTATIONS. TC SETPOS # CONTINUE WITH COMPUTATIONS
CA LRADRET1 CA LRADRET1
TC BANKJUMP # RETURN TO CALLER TC BANKJUMP # RETURN TO CALLER
SETPOS2 CA TWO # INDEX FOR POS2 SETPOS2 CA TWO # INDEX FOR POS2
SETPOS XCH Q # SAVE INDEX IN Q SETPOS XCH Q # SAVE INDEX IN Q
TS LRADRET # SAVE RETURN TS LRADRET # SAVE RETURN