SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-13 16:24:37 +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

68
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
@ -1763,8 +1763,8 @@ ADDGRAV TC BANKCALL
VLOAD UNIT VLOAD UNIT
GACC GACC
STCALL STAR STCALL STAR
CDUTRIG # TRANSFORM IN NB COOR AND STORE CDUTRIG # TRANSFORM IN NB COOR AND STORE
CALL # IN OUTPUT CALL # IN OUTPUT
*SMNB* *SMNB*
STORE GOUT STORE GOUT
EXIT EXIT
@ -1781,25 +1781,24 @@ 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
# VEHICLES ATTITUDE REMAINS STATIONARY DURING ITS OPERATION. # VEHICLES ATTITUDE REMAINS STATIONARY DURING ITS OPERATION.
# #
# CALL CALL # CALL CALL
# GYROTRIM # GYROTRIM
# #
# 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
@ -1908,7 +1907,7 @@ DOALIGN CALL
FREEFLAG FREEFLAG
P57POST # ASTRO DOES NOT LIKE DATA TEST RESULTS P57POST # ASTRO DOES NOT LIKE DATA TEST RESULTS
INITBY CALL INITBY CALL
AXISGEN # GET DESIRED ORIENT WRT PRES. XDC,YDC,ZDC AXISGEN # GET DESIRED ORIENT WRT PRES.XDC,YDC,ZDC
CALL CALL
CALCGTA # GET GYRO TORQ ANGLES, OGC,IGC,MGC CALCGTA # GET GYRO TORQ ANGLES, OGC,IGC,MGC
EXIT EXIT
@ -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,21 +1963,21 @@ 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
VLOAD CALL # USE GNB VLOAD CALL # USE GNB
GSAV GSAV
CDU*NBSM # GO TO SM COORDS CDU*NBSM # GO TO SM COORDS
VXM SET # ON MOON SO SET LUNAFLAG VXM SET # ON MOON SO SET LUNAFLAG
REFSMMAT # G(REF) = (REFSMMAT)T (NBSM)GNB REFSMMAT # G(REF) = (REFSMMAT)T (NBSM)GNB
LUNAFLAG LUNAFLAG
PDVL ABVAL PDVL ABVAL
RLS RLS
@ -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