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

finished pgs 966-975

Browse source
This commit is contained in:
serialhex 2021-10-27 10:49:12 -04:00
parent 60d9cea338
commit 20709c05b9
1 changed files with 33 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
Luminary099/P51-P53.agc
View file

@ -1730,10 +1730,10 @@ LUNG STQ VLOAD
TC PHASCHNG TC PHASCHNG
OCT 04024 OCT 04024
TC BANKCALL # DON'T NEED TO INHINT. THIS USED TO TC BANKCALL # DONT NEED TO INHINY THIS USED TO
CADR PIPSRINE # INITIALIZE PIPAS. DON'T USE DATA CADR PIPSRINE # INITIALIZE PIPAS DONT USE DATA
TC INTPRET TC INTPRET
GREED EXIT # = MASK 7776 IN BASIC SO DON'T CARE GREED EXIT # = MASK 7776 IN BASIC SO DONT CARE
CAF 2SECS CAF 2SECS
TC TWIDDLE # SET UP 2 SEC TASK TO READ PIPAS TC TWIDDLE # SET UP 2 SEC TASK TO READ PIPAS
ADRES GRABGRAV ADRES GRABGRAV
@ -1781,7 +1781,7 @@ DISGRVER VN 0604
35DEG OCT 06211 35DEG OCT 06211
# Page 968 # Page 968
# NAME -- GYROTRIM # NAME GYROTRIM
# #
# THIS PROGRAM COMPUTES AND SENDS GYRO COMMANDS WHICH CAUSE THE CDUS # THIS PROGRAM COMPUTES AND SENDS GYRO COMMANDS WHICH CAUSE THE CDUS
# TO ATTAIN A PRESCRIBED SET OF ANGLES. THIS ROUTINE ASSUMES THE # TO ATTAIN A PRESCRIBED SET OF ANGLES. THIS ROUTINE ASSUMES THE
@ -1793,13 +1793,12 @@ DISGRVER VN 0604
# INPUT THETAD,+1,+2 = DESIRED CDU ANGLES # INPUT THETAD,+1,+2 = DESIRED CDU ANGLES
# CDUX,CDUY,CDUZ # CDUX,CDUY,CDUZ
# #
# OUTPUT GYRO TORQUE PULSES # OUTPUT - GYRO TORQUE PULSES
# #
# SUBROUTINES TRG*NBSM, *NBSM*, CDUTRIG, AXISGEN, CALCGTA, IMUFINE # SUBROUTINES- TRG*NBSM,*NBSM*,CDUTRIG,AXISGEN,CALCGTA,IMUFINE
# IMPULSE,IMUSTALL # IMPULSE,IMUSTALL
# _______ ______ ______ * * ___ # - - - * * -
# DEBRIS CDUSPOT, SINCDU, COSCDU, STARAD, VAC, XDC, OGC # DEBRIS - CDUSPOT ,SINCDU ,COSCDU , STARAD ,VAC , XDC, OGC
COUNT* $$/P57 COUNT* $$/P57
GYROTRIM STQ DLOAD GYROTRIM STQ DLOAD
QMIN QMIN
@ -1856,7 +1855,7 @@ GYRCDR ECADR OGC
TC PHASCHNG TC PHASCHNG
OCT 04024 OCT 04024
TCF R59 # GO DO STAR ACQUIRE AND AOTMARK TCF R59 # GO DO STAR AQUIRE AND AOTMARK
R59RET CA STARIND # BACK FROM SURFACE MARKING R59RET CA STARIND # BACK FROM SURFACE MARKING
EXTEND EXTEND
@ -1919,9 +1918,9 @@ INITBY CALL
CAF DISPGYRO # DISPLAY GYRO TORQ ANGLES V 06N93 CAF DISPGYRO # DISPLAY GYRO TORQ ANGLES V 06N93
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOPOOH # V34 -- TERMINATE TC GOTOPOOH # V34-TERMINATE
TCF 5DEGTEST # VB33 -- PROCEED TO COARSE OR FINE TCF 5DEGTEST # VB33-PROCEED TO COARSE OR FINE
TCF P57POST +1 # VB32 -- RECYCLE, MAYBE RE-ALIGN TCF P57POST +1 # VB32-RECYCLE, MAYBE RE-ALIGN
5DEGTEST TC INTPRET # IF ANGLES GREATER THAN 5 DEGS, DO COARSE 5DEGTEST TC INTPRET # IF ANGLES GREATER THAN 5 DEGS, DO COARSE
VLOAD BOV VLOAD BOV
@ -1935,7 +1934,7 @@ SURFSUP STORE OGCT
QMIN QMIN
SURFDISP SURFDISP
# Page 972 # Page 972
JUSTTRIM # ANGLES LESS THAN 5 DEG, DO GYRO TORQ JUSTTRIM # ANGLES LESS THAN 5DEG. DO GYRO TORQ
SURFDISP EXIT SURFDISP EXIT
TC PHASCHNG TC PHASCHNG
@ -1956,7 +1955,7 @@ SURFDISP EXIT
B2F8 CAF INITABIT # IF INITIAL FLAG SET, RE-CYCLE. B2F8 CAF INITABIT # IF INITIAL FLAG SET, RE-CYCLE.
MASK FLAGWRD8 MASK FLAGWRD8
CCS A CCS A
TCF P57JUMP # IT'S SET TCF P57JUMP # ITS SET
TC INTPRET TC INTPRET
CALL CALL
REFMF # GO GET ATTITUDE VEC IN MF(YNBSAV,XNBSAV) REFMF # GO GET ATTITUDE VEC IN MF(YNBSAV,XNBSAV)
@ -1964,13 +1963,13 @@ P57POST EXIT
CAF OCT14 # DISPLAY V50N25 CHK CODE 14 CAF OCT14 # DISPLAY V50N25 CHK CODE 14
TC BANKCALL TC BANKCALL
CADR GOPERF1 CADR GOPERF1
TCF GOTOPOOH # VB34 -- TERMINATE TCF GOTOPOOH # VB34-TERMINATE
TCF P57JUMP # VB33 -- PROCEED TO RE-ALIGN TCF P57JUMP # VB33-PROCEED TO RE-ALIGN
CS BIT2 # TEST TO SEE IF ALIGNED BY OPTION 2 CS BIT2 # TEST TO SEE IF ALIGNED BY OPTION 2
AD OPTION2 AD OPTION2
EXTEND EXTEND
BZF +2 # YES -- GO CALCULATE LANDING SITE BZF +2 # YES-GO CALCULATE LANDING SITE
TCF GOTOPOOH # NO -- EXIT P57 TCF GOTOPOOH # NO-EXIT P57
TC PHASCHNG # RESTART PLACE TC PHASCHNG # RESTART PLACE
OCT 04024 OCT 04024
TC INTPRET TC INTPRET
@ -2040,7 +2039,7 @@ DISPGYRO VN 0693
# Page 975 # Page 975
# LUNAR SURFACE IMU ALIGNMENT PROGRAM # LUNAR SURFACE IMU ALIGNMENT PROGRAM
P57 TC BANKCALL # IS ISS ON -- IF NOT, IMUCHK WILL SEND P57 TC BANKCALL # IS ISS ON - IF NOT, IMUCHK WILL SEND
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOPOOH CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOPOOH
CAF THREE # JAM REFSMMAT OPTION 3 FOR INITIAL DISP. CAF THREE # JAM REFSMMAT OPTION 3 FOR INITIAL DISP.
@ -2080,9 +2079,9 @@ P57A STORE DSPTEM1
P57AA CAF V06N34* # DISPLAY TALIGN, TALIGN : DSPTEM1 P57AA CAF V06N34* # DISPLAY TALIGN, TALIGN : DSPTEM1
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOPOOH # V34 -- TERMINATE TCF GOTOPOOH # V34-TERMINATE
TCF +2 TCF +2
TCF P57AA # VB32 -- RECYCLE TCF P57AA # VB32-RECYCLE
TC INTPRET TC INTPRET
RTB PDDL RTB PDDL
@ -2338,4 +2337,3 @@ LSORIENT STQ VLOAD
XSMD XSMD
STCALL YSMD STCALL YSMD
QMAJ QMAJ