finished P51-53

pull/841/head
serialhex 2021-10-27 11:09:35 -04:00
parent 60d9cea338
commit 15a0e14d96
1 changed files with 18 additions and 19 deletions

View File

@ -2090,7 +2090,7 @@ P57AA CAF V06N34* # DISPLAY TALIGN, TALIGN : DSPTEM1
DSPTEM1 DSPTEM1
# Page 976 # Page 976
BZE PDDL BZE PDDL
P57C # IF KEY IN TIME ZERO - TALIGN=CURRENT TIME P57C # IF KEY IN TIME ZERO-TALIGN=CURRENT TIME
DSU BPL # NOT ZERO SO EXCHANGE PD WITH DSPTEM1 DSU BPL # NOT ZERO SO EXCHANGE PD WITH DSPTEM1
DSPTEM1 DSPTEM1
P57C P57C
@ -2114,27 +2114,27 @@ PACKOPTN CAF ZERO # PACK FLAG BITS FOR OPTION DISPLAY
MASK FLAGWRD3 # REFSMFLG MASK FLAGWRD3 # REFSMFLG
CCS A CCS A
CAF BIT7 # SET CAF BIT7 # SET
ADS OPTION1 +2 # CLEAR -- JUST ZERO ADS OPTION1 +2 # CLEAR-JUST ZERO
CAF ATTFLBIT CAF ATTFLBIT
MASK FLAGWRD6 # ATTFLG MASK FLAGWRD6 # ATTFLG
CCS A CCS A
CAF BIT4 # SET CAF BIT4 # SET
ADS OPTION1 +2 # CLEAR -- ZERO IN A ADS OPTION1 +2 # CLEAR-ZERO IN A
CAF BIT4 CAF BIT4
TS OPTION1 # JAM 00010 IN OPTION1 FOR CHECK LIST TS OPTION1 # JAM 00010 IN OPTION1 FOR CHECK LIST
DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOPOOH # VB34 -- TERMINATE TCF GOTOPOOH # VB34-TERMINATE
TCF +2 # V33 -- PROCEED TCF +2 # V33-PROCEED
TCF DSPOPTN # V32 -- RECYCLE TCF DSPOPTN # V32-RECYCLE
CAF REFSMBIT CAF REFSMBIT
MASK FLAGWRD3 MASK FLAGWRD3
CCS A CCS A
TCF GETLMATT # SET, GO COMPUTE LM ATTITUDE TCF GETLMATT # SET, GO COMPUTE LM ATTITUDE
CAF ATTFLBIT # CLEAR -- CHECK ATTFLAG FOR STORED ATTITUDE. CAF ATTFLBIT # CLEAR-CHECK ATTFLAG FOR STORED ATTITUDE.
MASK FLAGWRD6 MASK FLAGWRD6
CCS A CCS A
TCF BYLMATT # ALLFLG SET, CHK OPTION FOR GRAVITY COMP TCF BYLMATT # ALLFLG SET, CHK OPTION FOR GRAVITY COMP
@ -2142,15 +2142,15 @@ DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS
# Page 977 # Page 977
MASK OPTION2 MASK OPTION2
CCS A CCS A
TCF BYLMATT # OPTION 2 OR 3 BUT DON'T HAVE ATTITUDE TCF BYLMATT # OPTION 2 OR 3 BUT DONT HAVE ATTITUDE
TC ALARM # OPTION INCONSISTENT WITH FLAGS -- ALARM 701 TC ALARM # OPTION INCONSISTANT WITH FLAGS-ALARM 701
OCT 701 OCT 701
CAF VB05N09 # DISPLAY ALARM FOR ACTION CAF VB05N09 # DISPLAY ALARM FOR ACTION
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOPOOH # VB34 -- TERMINATE TCF GOTOPOOH # VB34-TERMINATE
TCF DSPOPTN # V33 -- PROCEED *********TEMPORARY TCF DSPOPTN # V33-PROCEED ********TEMPORARY
TCF DSPOPTN # VB32 -- RECYCLE TO OPTION DISPLAY V 05N06 TCF DSPOPTN # VB32-RECYCLE TO OPTION DISPLAY V 05N06
# Page 978 # Page 978
# TRANSFORM VEC1,2 FROM MOON FIXED TO REF AND JAM BACK IN VEC1,2 # TRANSFORM VEC1,2 FROM MOON FIXED TO REF AND JAM BACK IN VEC1,2
@ -2178,7 +2178,7 @@ MFREF STQ SETPD
# Page 979 # Page 979
# COMPUTE LM ATTITUDE IN MOON FIXED COORDINATES USING REFSMMAT AND # COMPUTE LM ATTITUDE IN MOON FIXED COORDINATES USING REFSMMAT AND
# STORE IN YNBSAV AND ZNBSAV. # STORE IN YNBSAV AND ZNBSAV
REFMF STQ CALL REFMF STQ CALL
QMAJ QMAJ
@ -2190,7 +2190,7 @@ REFMF STQ CALL
CALCSMSC # GET YNB IN SM CALCSMSC # GET YNB IN SM
VLOAD VXM VLOAD VXM
YNB YNB
REFSMMAT # YNB TO REF REFSMMAT # YNB TO REF
UNIT PDDL UNIT PDDL
TSIGHT TSIGHT
PUSH CALL PUSH CALL
@ -2213,7 +2213,7 @@ REFMF STQ CALL
GETLMATT TC INTPRET GETLMATT TC INTPRET
CALL CALL
REFMF # GO TRANSFORM TO MF IN YNBSAV, ZNBSAV REFMF # GO TRANSFORM TO MF IN YNBSAV,ZNBSAV
EXIT EXIT
BYLMATT TC UPFLAG # SET INITIAL ALIGN FLAG BYLMATT TC UPFLAG # SET INITIAL ALIGN FLAG
@ -2233,7 +2233,7 @@ ATTCHK TC PHASCHNG
P57JUMP TC PHASCHNG P57JUMP TC PHASCHNG
OCT 04024 OCT 04024
TC DOWNFLAG # ATTFLG CLEAR -- RESET INTALIGN FLAG TC DOWNFLAG # ATTFLG CLEAR-RESET INTALIGN FLAG
ADRES INITALGN ADRES INITALGN
CAF THREE CAF THREE
MASK OPTION2 # BRANCH ON OPTION CODE MASK OPTION2 # BRANCH ON OPTION CODE
@ -2300,12 +2300,12 @@ P57OPT3 TC INTPRET
STCALL STARSAV1 STCALL STARSAV1
MFREF # STARSAV2 IS STORED AS 2ND OBSERVED STAR MFREF # STARSAV2 IS STORED AS 2ND OBSERVED STAR
EXIT EXIT
TCF 1STAR # 1STAR GET VEC2, STARSAV2 GOES TO SURFLINE. TCF 1STAR # 1STAR GET VEC2,STARSAV2,GOES TO SURFLINE
VB05N06 VN 506 VB05N06 VN 506
# Page 983 # Page 983
# CHECK IMODES30 TO VERIFY IMU IS ON # CHECK IMODES30 TO VARIFY IMU IS ON
IMUCHK CS IMODES30 IMUCHK CS IMODES30
MASK BIT9 MASK BIT9
@ -2338,4 +2338,3 @@ LSORIENT STQ VLOAD
XSMD XSMD
STCALL YSMD STCALL YSMD
QMAJ QMAJ