Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Proof P51-P53 pages 966-975, continuation of issue #617 #840

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Proof P51-P53 pages 966-975, continuation of issue #617 #840

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
68 changes: 33 additions & 35 deletions Luminary099/P51-P53.agc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand All @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand All @@ -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
Expand All @@ -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
Expand All @@ -1956,29 +1955,29 @@ 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)
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
Expand Down Expand Up @@ -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.
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -2338,4 +2337,3 @@ LSORIENT STQ VLOAD
XSMD
STCALL YSMD
QMAJ