mirrors
/
Apollo-11
mirror of https://github.com/chrislgarry/Apollo-11.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

First Proofing Finished 

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
pull/698/head
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

30
Luminary099/SERVICER.agc
View File

@ -1630,14 +1630,14 @@ RDGIMS EXTEND
EBANK= DVCNTR EBANK= DVCNTR
# Page 895 # Page 895
# HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING # HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
# THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE # THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE
# LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE # LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
# LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA # LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA
# ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY # ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
# BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH # BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
# RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR # RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
# MEASUREMENTS AND THE JOB TERMINATES. # MEASUREMENTS AND THE JOB TERMINATES.
HIGATJOB TC BANKCALL # START LRPOS2 JOB HIGATJOB TC BANKCALL # START LRPOS2 JOB
CADR LRPOS2 CADR LRPOS2
@ -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,18 +1669,17 @@ 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
TS LRADRET1 # SAVE RETURN CADR. SINCE BUP2 CLOBBERED TS LRADRET1 # SAVE RETURN CADR. SINCE BUP2 CLOBBERED
CAF TWO CAF TWO
TS STILBADH # INITIALIZE STILBAD TS STILBADH # INITIALIZE STILBAD
TS STILBADV # INITIALIZE STILBAD TS STILBADV # INITIALIZE STILBAD
CA ZERO # INDEX FOR LRALPHA, LRBETA IN POS 1. CA ZERO # INDEX FOR LRALPHA,LRBETA IN POS 1.
# Page 896 # Page 896
TS LRLCTR # SET L,M,R, ANS S TO ZERO TS LRLCTR # SET L,M,R, ANS S TO ZERO
TS LRMCTR TS LRMCTR
@ -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