ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix YaYUL Fatal Errors in Luminary099 (#665)

Browse Source
This commit is contained in:
James Harris
2020-03-04 17:17:16 +00:00
committed by GitHub
parent 8b2fca34e6
commit fe25f9d905
35 changed files with 136 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
Luminary099/P51-P53.agc
View File

@@ -139,7 +139,7 @@ P52A CAF BIT1
P52B CAF BIT1
TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
CADR GOPERF4R # FLASH V04N06
TC GOTOP00H
TC GOTOPOOH
TCF +5 # V33 -- PROCEED
TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
TC PHASCHNG # DISPLAY RETURN
@@ -167,7 +167,7 @@ P52T EXTEND
CAF V06N34*
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC +2
TC -5
DXCH DSPTEM1
@@ -197,7 +197,7 @@ P52D CALL # READ VEHICLE ATTITUDE AND
CAF V06N22
TC BANKCALL # DISPLAY GIMBAL ANGLES
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TCF COARSTYP # V33 -- PROCEED, SEE IF GYRO TORQUE COARSE
P52H TC INTPRET
GOTO
@@ -211,7 +211,7 @@ COARSRET SET CLEAR
P52F CALL
R51
P52OUT EXIT
TC GOTOP00H
TC GOTOPOOH
VB05N09 = V05N09
V06N34* VN 634
@@ -221,7 +221,7 @@ V06N34* VN 634
COARSTYP CAF OCT13
TC BANKCALL # DISPLAY V 50N25 WITH COARSE ALIGN OPTION
CADR GOPERF1
TCF GOTOP00H # V34 -- TERMIN&OE
TCF GOTOPOOH # V34 -- TERMIN&OE
TCF REGCOARS # V33 -- NORMAL COARSE
TC INTPRET # V32 -- GYRO TORQUE COARSE
VLOAD MXV
@@ -290,7 +290,7 @@ N89DISP STQ
LSDISP CAF V06N89* # DISPLAY LAT,LONG/2,ALT
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # V34 -- TERMINATE -- EXIT P57
TCF GOTOPOOH # V34 -- TERMINATE -- EXIT P57
TCF +2 # V33 -- PROCEED -- ACCEPT LS DATA
TCF LSDISP # V32 OR E -- LOOK AGAIN AND/OR LOAD NEW LS
@@ -637,7 +637,7 @@ R51.1 EXIT
R51C CAF OCT15
TC BANKCALL
CADR GOPERF1
TC GOTOP00H
TC GOTOPOOH
TC +2 # V33E
TC R51E # ENTER
TC INTPRET
@@ -656,7 +656,7 @@ R51I TC ALARM
CAF VB05N09
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC R51E
TC R51C
R51E CAF ZERO
@@ -715,7 +715,7 @@ R51K EXIT
R51P63 CAF OCT14
TC BANKCALL
CADR GOPERF1
TC GOTOP00H
TC GOTOPOOH
TC R51C
TC INTPRET
GOTO
@@ -790,7 +790,7 @@ PULSEM EXIT
R55.1 CAF V06N93
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC R55.2
TC R55RET
R55.2 TC PHASCHNG
@@ -873,7 +873,7 @@ CHKSD DLOAD DSU
CAF VB6N5
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H
TCF GOTOPOOH
TC CHKSDA # PROCEED
TC INTPRET
CLEAR GOTO
@@ -1008,12 +1008,12 @@ RDCDUS INHINT # READ CDUS
COUNT* $$/P51
# Page 950
P51 TC BANKCALL # IS ISS ON - IF NOT, IMUCHK WILL SEND
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOP00H.
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOPOOH.
CAF OCT15
TC BANKCALL
CADR GOPERF1
TC GOTOP00H # TERM.
TC GOTOPOOH # TERM.
TCF P51B # V33
TC PHASCHNG
OCT 04024
@@ -1107,7 +1107,7 @@ P51G CALL
MATMOVE
SET EXIT
REFSMFLG
TC GOTOP00H # FINIS
TC GOTOPOOH # FINIS
# Page 952
V41K VN 4100
COARSE EXIT
@@ -1232,7 +1232,7 @@ R52 STQ EXIT
R52A CAF V01N70
TC BANKCALL
CADR GOFLASH # DISPLAY STARCODE AND WAIT FOR RESPONSE
TC GOTOP00H # V34 -- TERMINATE
TC GOTOPOOH # V34 -- TERMINATE
TCF R52B # V33 -- PROCEED TO ORIENT LEM
TCF R52A # ENTER -- SELECT NEW STARCODE -- RECYCLE
@@ -1268,7 +1268,7 @@ R52B TC DOWNFLAG
GETAZEL CAF V06N87 # CODE 0 OR 7, GET AZ AND EL KEY IN
TC BANKCALL
CADR GOFLASH
TC GOTOP00H # V34 -- TERMINATE
TC GOTOPOOH # V34 -- TERMINATE
TCF +2 # PROCEED -- CALC OPTIC AXIS
TCF GETAZEL # ENTER -- RECYCLE
@@ -1319,7 +1319,7 @@ R59 CS FLAGWRD3
CAF V01N70* # SELECT STAR CODE FOR ACQUISITION
TC BANKCALL
CADR GOFLASH
TC GOTOP00H # V34 -- TERMINATE
TC GOTOPOOH # V34 -- TERMINATE
TCF R59A # V33 -- PROCEED
TCF R59 # V32 -- RECYCLE
@@ -1449,14 +1449,14 @@ R59ALM TC ALARM # THIS STAR CAN'T BE LOCATED IN AOT FIELD
CAF VB05N09 # DISPLAY ALARM
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # VB34 -- TERMINATE
TCF GOTOPOOH # VB34 -- TERMINATE
TCF R59OUT # VB33 -- PROCEED, GO WITHOUT ACQUIRE
TCF R59 # VB32 -- RECYCLE AND TRY ANOTHER STAR
79DISP CAF V06N79 # DISPLAY CURSOR, SPIRAL AND POS CODE
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # V34 -- TERMINATE
TCF GOTOPOOH # V34 -- TERMINATE
# Page 960
TCF R59E # V33 -- PROCEED TO MARK ROUTINE
TCF R59 # V32 -- RECYCLE TO TOP OF R59 AGAIN
@@ -1683,7 +1683,7 @@ GRAVEL VLOAD* CALL
CA DISGRVER
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TCF PROGRAV # VB33 -- PROCEED
TC UPFLAG # VB32 -- RECYCLE -- STORE GRAV AND DO IT AGAIN
ADRES FREEFLAG # AND SET FREEFLAG TO SHOW RECYCLE
@@ -1919,7 +1919,7 @@ INITBY CALL
CAF DISPGYRO # DISPLAY GYRO TORQ ANGLES V 06N93
TC BANKCALL
CADR GOFLASH
TC GOTOP00H # V34 -- TERMINATE
TC GOTOPOOH # V34 -- TERMINATE
TCF 5DEGTEST # VB33 -- PROCEED TO COARSE OR FINE
TCF P57POST +1 # VB32 -- RECYCLE, MAYBE RE-ALIGN
@@ -1964,13 +1964,13 @@ P57POST EXIT
CAF OCT14 # DISPLAY V50N25 CHK CODE 14
TC BANKCALL
CADR GOPERF1
TCF GOTOP00H # VB34 -- TERMINATE
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 GOTOP00H # NO -- EXIT P57
TCF GOTOPOOH # NO -- EXIT P57
TC PHASCHNG # RESTART PLACE
OCT 04024
TC INTPRET
@@ -1998,7 +1998,7 @@ P57POST EXIT
R-TO-RP
STORE RLS # RLS IN MOON-FIXED COORDS
EXIT
TCF GOTOP00H # EXIT P57
TCF GOTOPOOH # EXIT P57
# Page 974
# COARSE AND FINE ALIGN IMU
@@ -2020,7 +2020,7 @@ COATRIM AXC,1 AXC,2
CAF V06N22 # THAN 5 DEGREES
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TCF +2
TCF -5
TC PHASCHNG
@@ -2041,14 +2041,14 @@ DISPGYRO VN 0693
# LUNAR SURFACE IMU ALIGNMENT PROGRAM
P57 TC BANKCALL # IS ISS ON -- IF NOT, IMUCHK WILL SEND
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOP00H
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOPOOH
CAF THREE # JAM REFSMMAT OPTION 3 FOR INITIAL DISP.
TS OPTION2
P57OPT CAF BIT1
TC BANKCALL
CADR GOPERF4R # FLASH V04N06 FOR ALIGNMENT CODE
TC GOTOP00H # V34 TERMINATE
TC GOTOPOOH # V34 TERMINATE
TCF ALIGNOPT # V33 PROCEED
TCF P57OPT # V32 RECYCLE
@@ -2080,7 +2080,7 @@ P57A STORE DSPTEM1
P57AA CAF V06N34* # DISPLAY TALIGN, TALIGN : DSPTEM1
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # V34 -- TERMINATE
TCF GOTOPOOH # V34 -- TERMINATE
TCF +2
TCF P57AA # VB32 -- RECYCLE
@@ -2126,7 +2126,7 @@ PACKOPTN CAF ZERO # PACK FLAG BITS FOR OPTION DISPLAY
DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # VB34 -- TERMINATE
TCF GOTOPOOH # VB34 -- TERMINATE
TCF +2 # V33 -- PROCEED
TCF DSPOPTN # V32 -- RECYCLE
@@ -2148,7 +2148,7 @@ DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS
CAF VB05N09 # DISPLAY ALARM FOR ACTION
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # VB34 -- TERMINATE
TCF GOTOPOOH # VB34 -- TERMINATE
TCF DSPOPTN # V33 -- PROCEED *********TEMPORARY
TCF DSPOPTN # VB32 -- RECYCLE TO OPTION DISPLAY V 05N06
@@ -2314,7 +2314,7 @@ IMUCHK CS IMODES30
TC ALARM # NO, SEND ALARM AND EXIT
OCT 210
TC GOTOP00H
TC GOTOPOOH
TC UPFLAG
ADRES IMUSE # SET IMUSE FLAG