mirror of
https://github.com/chrislgarry/Apollo-11.git
synced 2025-02-13 16:24:37 +00:00
finished pgs 966-975
This commit is contained in:
serialhex
parent
60d9cea338
commit
20709c05b9
1 changed files with 33 additions and 35 deletions
|
|
@ -1730,10 +1730,10 @@ LUNG STQ VLOAD
|
|||
TC PHASCHNG
|
||||
OCT 04024
|
||||
|
||||
TC BANKCALL # DON'T NEED TO INHINT. THIS USED TO
|
||||
CADR PIPSRINE # INITIALIZE PIPAS. DON'T USE DATA
|
||||
TC BANKCALL # DONT NEED TO INHINY THIS USED TO
|
||||
CADR PIPSRINE # INITIALIZE PIPAS DONT USE DATA
|
||||
TC INTPRET
|
||||
GREED EXIT # = MASK 7776 IN BASIC SO DON'T CARE
|
||||
GREED EXIT # = MASK 7776 IN BASIC SO DONT CARE
|
||||
CAF 2SECS
|
||||
TC TWIDDLE # SET UP 2 SEC TASK TO READ PIPAS
|
||||
ADRES GRABGRAV
|
||||
|
|
@ -1763,8 +1763,8 @@ ADDGRAV TC BANKCALL
|
|||
VLOAD UNIT
|
||||
GACC
|
||||
STCALL STAR
|
||||
CDUTRIG # TRANSFORM IN NB COOR AND STORE
|
||||
CALL # IN OUTPUT
|
||||
CDUTRIG # TRANSFORM IN NB COOR AND STORE
|
||||
CALL # IN OUTPUT
|
||||
*SMNB*
|
||||
STORE GOUT
|
||||
EXIT
|
||||
|
|
@ -1781,25 +1781,24 @@ DISGRVER VN 0604
|
|||
35DEG OCT 06211
|
||||
|
||||
# Page 968
|
||||
# NAME -- GYROTRIM
|
||||
# NAME GYROTRIM
|
||||
#
|
||||
# THIS PROGRAM COMPUTES AND SENDS GYRO COMMANDS WHICH CAUSE THE CDUS
|
||||
# TO ATTAIN A PRESCRIBED SET OF ANGLES. THIS ROUTINE ASSUMES THE
|
||||
# VEHICLES ATTITUDE REMAINS STATIONARY DURING ITS OPERATION.
|
||||
# TO ATTAIN A PRESCRIBED SET OF ANGLES. THIS ROUTINE ASSUMES THE
|
||||
# VEHICLES ATTITUDE REMAINS STATIONARY DURING ITS OPERATION.
|
||||
#
|
||||
# CALL CALL
|
||||
# GYROTRIM
|
||||
# CALL CALL
|
||||
# GYROTRIM
|
||||
#
|
||||
# INPUT THETAD,+1,+2 = DESIRED CDU ANGLES
|
||||
# CDUX,CDUY,CDUZ
|
||||
# INPUT THETAD,+1,+2 = DESIRED CDU ANGLES
|
||||
# CDUX,CDUY,CDUZ
|
||||
#
|
||||
# OUTPUT GYRO TORQUE PULSES
|
||||
# OUTPUT - GYRO TORQUE PULSES
|
||||
#
|
||||
# SUBROUTINES TRG*NBSM, *NBSM*, CDUTRIG, AXISGEN, CALCGTA, IMUFINE
|
||||
# IMPULSE, IMUSTALL
|
||||
# _______ ______ ______ * * ___
|
||||
# DEBRIS CDUSPOT, SINCDU, COSCDU, STARAD, VAC, XDC, OGC
|
||||
|
||||
# SUBROUTINES- TRG*NBSM,*NBSM*,CDUTRIG,AXISGEN,CALCGTA,IMUFINE
|
||||
# IMPULSE,IMUSTALL
|
||||
# - - - * * -
|
||||
# DEBRIS - CDUSPOT ,SINCDU ,COSCDU , STARAD ,VAC , XDC, OGC
|
||||
COUNT* $$/P57
|
||||
GYROTRIM STQ DLOAD
|
||||
QMIN
|
||||
|
|
@ -1856,7 +1855,7 @@ GYRCDR ECADR OGC
|
|||
TC PHASCHNG
|
||||
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
|
||||
EXTEND
|
||||
|
|
@ -1908,7 +1907,7 @@ DOALIGN CALL
|
|||
FREEFLAG
|
||||
P57POST # ASTRO DOES NOT LIKE DATA TEST RESULTS
|
||||
INITBY CALL
|
||||
AXISGEN # GET DESIRED ORIENT WRT PRES. XDC,YDC,ZDC
|
||||
AXISGEN # GET DESIRED ORIENT WRT PRES.XDC,YDC,ZDC
|
||||
CALL
|
||||
CALCGTA # GET GYRO TORQ ANGLES, OGC,IGC,MGC
|
||||
EXIT
|
||||
|
|
@ -1919,9 +1918,9 @@ INITBY CALL
|
|||
CAF DISPGYRO # DISPLAY GYRO TORQ ANGLES V 06N93
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOPOOH # V34 -- TERMINATE
|
||||
TCF 5DEGTEST # VB33 -- PROCEED TO COARSE OR FINE
|
||||
TCF P57POST +1 # VB32 -- RECYCLE, MAYBE RE-ALIGN
|
||||
TC GOTOPOOH # V34-TERMINATE
|
||||
TCF 5DEGTEST # VB33-PROCEED TO COARSE OR FINE
|
||||
TCF P57POST +1 # VB32-RECYCLE, MAYBE RE-ALIGN
|
||||
|
||||
5DEGTEST TC INTPRET # IF ANGLES GREATER THAN 5 DEGS, DO COARSE
|
||||
VLOAD BOV
|
||||
|
|
@ -1935,7 +1934,7 @@ SURFSUP STORE OGCT
|
|||
QMIN
|
||||
SURFDISP
|
||||
# Page 972
|
||||
JUSTTRIM # ANGLES LESS THAN 5 DEG, DO GYRO TORQ
|
||||
JUSTTRIM # ANGLES LESS THAN 5DEG. DO GYRO TORQ
|
||||
|
||||
SURFDISP EXIT
|
||||
TC PHASCHNG
|
||||
|
|
@ -1956,7 +1955,7 @@ SURFDISP EXIT
|
|||
B2F8 CAF INITABIT # IF INITIAL FLAG SET, RE-CYCLE.
|
||||
MASK FLAGWRD8
|
||||
CCS A
|
||||
TCF P57JUMP # IT'S SET
|
||||
TCF P57JUMP # ITS SET
|
||||
TC INTPRET
|
||||
CALL
|
||||
REFMF # GO GET ATTITUDE VEC IN MF(YNBSAV,XNBSAV)
|
||||
|
|
@ -1964,21 +1963,21 @@ P57POST EXIT
|
|||
CAF OCT14 # DISPLAY V50N25 CHK CODE 14
|
||||
TC BANKCALL
|
||||
CADR GOPERF1
|
||||
TCF GOTOPOOH # VB34 -- TERMINATE
|
||||
TCF P57JUMP # VB33 -- PROCEED TO RE-ALIGN
|
||||
TCF GOTOPOOH # VB34-TERMINATE
|
||||
TCF P57JUMP # VB33-PROCEED TO RE-ALIGN
|
||||
CS BIT2 # TEST TO SEE IF ALIGNED BY OPTION 2
|
||||
AD OPTION2
|
||||
EXTEND
|
||||
BZF +2 # YES -- GO CALCULATE LANDING SITE
|
||||
TCF GOTOPOOH # NO -- EXIT P57
|
||||
BZF +2 # YES-GO CALCULATE LANDING SITE
|
||||
TCF GOTOPOOH # NO-EXIT P57
|
||||
TC PHASCHNG # RESTART PLACE
|
||||
OCT 04024
|
||||
TC INTPRET
|
||||
VLOAD CALL # USE GNB
|
||||
GSAV
|
||||
CDU*NBSM # GO TO SM COORDS
|
||||
VXM SET # ON MOON SO SET LUNAFLAG
|
||||
REFSMMAT # G(REF) = (REFSMMAT)T (NBSM)GNB
|
||||
VXM SET # ON MOON SO SET LUNAFLAG
|
||||
REFSMMAT # G(REF) = (REFSMMAT)T (NBSM)GNB
|
||||
LUNAFLAG
|
||||
PDVL ABVAL
|
||||
RLS
|
||||
|
|
@ -2040,7 +2039,7 @@ DISPGYRO VN 0693
|
|||
# Page 975
|
||||
# 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
|
||||
|
||||
CAF THREE # JAM REFSMMAT OPTION 3 FOR INITIAL DISP.
|
||||
|
|
@ -2080,9 +2079,9 @@ P57A STORE DSPTEM1
|
|||
P57AA CAF V06N34* # DISPLAY TALIGN, TALIGN : DSPTEM1
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOPOOH # V34 -- TERMINATE
|
||||
TCF GOTOPOOH # V34-TERMINATE
|
||||
TCF +2
|
||||
TCF P57AA # VB32 -- RECYCLE
|
||||
TCF P57AA # VB32-RECYCLE
|
||||
|
||||
TC INTPRET
|
||||
RTB PDDL
|
||||
|
|
@ -2338,4 +2337,3 @@ LSORIENT STQ VLOAD
|
|||
XSMD
|
||||
STCALL YSMD
|
||||
QMAJ
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue