From 20709c05b909eb9a75bf4cd680e9155d48b6afc6 Mon Sep 17 00:00:00 2001 From: serialhex Date: Wed, 27 Oct 2021 10:49:12 -0400 Subject: [PATCH] finished pgs 966-975 --- Luminary099/P51-P53.agc | 68 ++++++++++++++++++++--------------------- 1 file changed, 33 insertions(+), 35 deletions(-) diff --git a/Luminary099/P51-P53.agc b/Luminary099/P51-P53.agc index 3721df9..a52f0c4 100644 --- a/Luminary099/P51-P53.agc +++ b/Luminary099/P51-P53.agc @@ -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 -