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

Proof P51-P53 pages 976-983, continuation of issue #617 #841

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

Proof P51-P53 pages 976-983, continuation of issue #617 #841

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
37 changes: 18 additions & 19 deletions Luminary099/P51-P53.agc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2090,7 +2090,7 @@ P57AA CAF V06N34* # DISPLAY TALIGN, TALIGN : DSPTEM1
DSPTEM1
# Page 976
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
DSPTEM1
P57C
Expand All @@ -2114,43 +2114,43 @@ PACKOPTN CAF ZERO # PACK FLAG BITS FOR OPTION DISPLAY
MASK FLAGWRD3 # REFSMFLG
CCS A
CAF BIT7 # SET
ADS OPTION1 +2 # CLEAR -- JUST ZERO
ADS OPTION1 +2 # CLEAR-JUST ZERO
CAF ATTFLBIT
MASK FLAGWRD6 # ATTFLG
CCS A
CAF BIT4 # SET
ADS OPTION1 +2 # CLEAR -- ZERO IN A
ADS OPTION1 +2 # CLEAR-ZERO IN A
CAF BIT4
TS OPTION1 # JAM 00010 IN OPTION1 FOR CHECK LIST

DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS
TC BANKCALL
CADR GOFLASH
TCF GOTOPOOH # VB34 -- TERMINATE
TCF +2 # V33 -- PROCEED
TCF DSPOPTN # V32 -- RECYCLE
TCF GOTOPOOH # VB34-TERMINATE
TCF +2 # V33-PROCEED
TCF DSPOPTN # V32-RECYCLE

CAF REFSMBIT
MASK FLAGWRD3
CCS A
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
CCS A
TCF BYLMATT # ALLFLG SET, CHK OPTION FOR GRAVITY COMP
CAF BIT2 # SEE IF OPTION 2 OR 3
# Page 977
MASK OPTION2
CCS A
TCF BYLMATT # OPTION 2 OR 3 BUT DON'T HAVE ATTITUDE
TC ALARM # OPTION INCONSISTENT WITH FLAGS -- ALARM 701
TCF BYLMATT # OPTION 2 OR 3 BUT DONT HAVE ATTITUDE
TC ALARM # OPTION INCONSISTANT WITH FLAGS-ALARM 701
OCT 701
CAF VB05N09 # DISPLAY ALARM FOR ACTION
TC BANKCALL
CADR GOFLASH
TCF GOTOPOOH # VB34 -- TERMINATE
TCF DSPOPTN # V33 -- PROCEED *********TEMPORARY
TCF DSPOPTN # VB32 -- RECYCLE TO OPTION DISPLAY V 05N06
TCF GOTOPOOH # VB34-TERMINATE
TCF DSPOPTN # V33-PROCEED ********TEMPORARY
TCF DSPOPTN # VB32-RECYCLE TO OPTION DISPLAY V 05N06

# Page 978
# TRANSFORM VEC1,2 FROM MOON FIXED TO REF AND JAM BACK IN VEC1,2
Expand Down Expand Up @@ -2178,7 +2178,7 @@ MFREF STQ SETPD

# Page 979
# COMPUTE LM ATTITUDE IN MOON FIXED COORDINATES USING REFSMMAT AND
# STORE IN YNBSAV AND ZNBSAV.
# STORE IN YNBSAV AND ZNBSAV

REFMF STQ CALL
QMAJ
Expand All @@ -2190,7 +2190,7 @@ REFMF STQ CALL
CALCSMSC # GET YNB IN SM
VLOAD VXM
YNB
REFSMMAT # YNB TO REF
REFSMMAT # YNB TO REF
UNIT PDDL
TSIGHT
PUSH CALL
Expand All @@ -2213,7 +2213,7 @@ REFMF STQ CALL

GETLMATT TC INTPRET
CALL
REFMF # GO TRANSFORM TO MF IN YNBSAV, ZNBSAV
REFMF # GO TRANSFORM TO MF IN YNBSAV,ZNBSAV
EXIT

BYLMATT TC UPFLAG # SET INITIAL ALIGN FLAG
Expand All @@ -2233,7 +2233,7 @@ ATTCHK TC PHASCHNG
P57JUMP TC PHASCHNG
OCT 04024

TC DOWNFLAG # ATTFLG CLEAR -- RESET INTALIGN FLAG
TC DOWNFLAG # ATTFLG CLEAR-RESET INTALIGN FLAG
ADRES INITALGN
CAF THREE
MASK OPTION2 # BRANCH ON OPTION CODE
Expand Down Expand Up @@ -2300,12 +2300,12 @@ P57OPT3 TC INTPRET
STCALL STARSAV1
MFREF # STARSAV2 IS STORED AS 2ND OBSERVED STAR
EXIT
TCF 1STAR # 1STAR GET VEC2, STARSAV2 GOES TO SURFLINE.
TCF 1STAR # 1STAR GET VEC2,STARSAV2,GOES TO SURFLINE

VB05N06 VN 506

# Page 983
# CHECK IMODES30 TO VERIFY IMU IS ON
# CHECK IMODES30 TO VARIFY IMU IS ON

IMUCHK CS IMODES30
MASK BIT9
Expand Down Expand Up @@ -2338,4 +2338,3 @@ LSORIENT STQ VLOAD
XSMD
STCALL YSMD
QMAJ