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
# Page 895
# HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
# THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE
# LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
# LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA
# ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
# BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
# RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
# MEASUREMENTS AND THE JOB TERMINATES.
# HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
# THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE
# LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
# LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA
# ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
# BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
# RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
# MEASUREMENTS AND THE JOB TERMINATES.
HIGATJOB TC BANKCALL # START LRPOS2 JOB
CADR LRPOS2
@ -1648,7 +1648,7 @@ HIGATJOB TC BANKCALL # START LRPOS2 JOB
POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS.
TC PRIOCHNG
TC SETPOS2 # LR IN POS2 -- SET UP TRANSFORMATIONS
TC SETPOS2 # LR IN POS2 - SET UP TRANSFORMATIONS
TC DOWNFLAG
ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING
@ -1658,7 +1658,7 @@ POSALARM CA OCT523
TC BANKCALL
CADR PRIOLARM # FLASH ALARM CODE
TCF GOTOPOOH # TERMINATE
TCF +3 # PROCEED -- TRY AGAIN
TCF +3 # PROCEED - TRY AGAIN
TCF ENDOFJOB # V 32 E TERMINATE R12
TC ENDOFJOB
@ -1669,18 +1669,17 @@ POSALARM CA OCT523
BZF POSGOOD # POS2 ACHIEVED SET UP ANTENNA BEAMS
TCF POSALARM # STILL DIDN'T MAKE IT REALARM
OCT523 OCT 00523
OCT523 OCT 523
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
TS STILBADH # 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
TS LRLCTR # SET L,M,R, ANS S TO ZERO
TS LRMCTR
@ -1688,11 +1687,12 @@ SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
TS LRSCTR
TS VSELECT # INITIALIZE VSELECT
TC SETPOS # CONTINUE WITH COMPUTATIONS.
TC SETPOS # CONTINUE WITH COMPUTATIONS
CA LRADRET1
TC BANKJUMP # RETURN TO CALLER
SETPOS2 CA TWO # INDEX FOR POS2
SETPOS XCH Q # SAVE INDEX IN Q
TS LRADRET # SAVE RETURN