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

Fix YaYUL Fatal Errors in Comanche055 (#664)

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

32
Comanche055/P20-P25.agc
View File

@ -209,7 +209,7 @@ PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0
CAF V06N45B
TC BANKCALL
CADR GOFLASHR
TC GOTOP00H # TERM P22
TC GOTOPOOH # TERM P22
TC PROG22A # PROC
TC -5 # ENTER
CAF THREE
@ -299,7 +299,7 @@ P22SUBRB STQ EXIT # GET LAT/LONG/ALT FROM ASTRO
CAF V06N89B
TC BANKCALL
CADR GOFLASH
TC GOTOP00H # TERMINATE
TC GOTOPOOH # TERMINATE
TC +2 # PROCEED
TC -5 # ENTER OR RECYCLE
TC INTPRET
@ -327,7 +327,7 @@ S22N7071 STORE 8KK # 8KK=V05N71,V05N70 8KK+1=0 N71, NOT 0 N70
S22DSPPA CA 8KK # V05N70 OR V05N71
TC BANKCALL
CADR GOFLASHR
TC GOTOP00H # V34E TERMINATE
TC GOTOPOOH # V34E TERMINATE
TC +5 # V33E PROCEED
TC -5 # V32E RECYCLE
CAF FIVE # IMMEDIATE RETURN BLANK OUT R1,R3
@ -451,7 +451,7 @@ R57A TC UPFLAG # SET V59FLAG (BIT 12 FLAG 5 TO INDICATE
CAF V59NB
TC BANKCALL
CADR GOMARKFR
TC GOTOP00H # TERMINATE
TC GOTOPOOH # TERMINATE
TC ENDR57
TC ENDR57
CAF SEVEN
@ -462,7 +462,7 @@ R57A TC UPFLAG # SET V59FLAG (BIT 12 FLAG 5 TO INDICATE
MARKDISP CAF V06N87NB
TC BANKCALL
CADR GOMARKFR
TC GOTOP00H # TERMINATE
TC GOTOPOOH # TERMINATE
TC R57B # PROCEED
TC R57A # ENTER (RECYCLE)
CAF FIVE
@ -2197,7 +2197,7 @@ S2INCP1 INCORP1
CAF V06N49EE
TC BANKCALL
CADR GOFLASHR
TC GOTOP00H # V34E TERMINATE
TC GOTOPOOH # V34E TERMINATE
TC +5 # INCORPORATE CHANGES
TC S22EXEX # V32E RECYCLE
CAF BIT3
@ -2325,11 +2325,11 @@ S22EXEX TC INTPRET # WITHOUT CONVERTING W
GOTO
S22RTNEX
S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H
S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOPOOH
CALL
9DWTO6DW
EXIT
TC GOTOP00H
TC GOTOPOOH
S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
0D
CSMPOS # RC B-29 EARTH, B-27 MOON
@ -2828,7 +2828,7 @@ P23.05 CLEAR EXIT
P23.06 CAF V05N70
TC BANKCALL # IDENTIFICATION: STAR, HOR IDENT.
CADR GOFLASH
TC GOTOP00H # TERMINATE
TC GOTOPOOH # TERMINATE
TC P23.15
TC -5 # REDISPLAY
P23.15 CA LANDMARK # IF C=2, LUNAFLAG=1. IF C=1, LUNAFLAG=0
@ -2912,7 +2912,7 @@ P23.31 BON EXIT
CAF V50N25P
TC BANKCALL
CADR GOPERF1 # GOPERF1 BLANKS OUT R2 AND R3
TC GOTOP00H
TC GOTOPOOH
TC V94ENTER # PROCEED. AUTOCONTROL CMC
P23.55 TC INTPRET
GOTO
@ -2980,7 +2980,7 @@ P23.60 EXIT
CAF V05N71
TC BANKCALL
CADR GOFLASH
TC GOTOP00H # TERMINATE
TC GOTOPOOH # TERMINATE
TC P23.65 # STORE DATA
TC -5 # REDISPLAY
P23.65 TC INTPRET
@ -3136,9 +3136,9 @@ R23.53 STORE N49DISP
R23.6 CAF V6N49
TC BANKCALL
CADR GOFLASHR
TC GOTOP00H
TC GOTOPOOH
TC R23.7 # INCORPORATE DATA
TC GOTOP00H
TC GOTOPOOH
CAF BIT3 # BLAN OUT R3
TC BLANKET
TC PHASCHNG
@ -3149,7 +3149,7 @@ R23.8 SET CALL
VEHUPFLG
INCORP2
EXIT
R23.END TC GOTOP00H
R23.END TC GOTOPOOH
# Page 627
R23.10 TC FALTON
@ -3393,7 +3393,7 @@ LDPLANET EXIT # KEEP THIS OPEN SUBROUTINE IN EBANK=5
CAF VNPLAN23 # BECAUSE STAR IS EBANK=5
TC BANKCALL # LDPLANET ALLOWS VECTOR TO PLANET TO BE
CADR GOFLASH # STORED IN STARSAV2 IF STORED STARS ARE
TC GOTOP00H # NOT VISIBLE
TC GOTOPOOH # NOT VISIBLE
TC +2
TC -5
TC INTPRET
@ -3408,7 +3408,7 @@ VNPLAN23 VN 0688
BLOCK 02
GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
# Page 632
DCA VB56CADR # GOTOP00H
DCA VB56CADR # GOTOPOOH
TCF SUPDXCHZ
EBANK= WHOCARES
VB56CADR 2CADR TRACKTRM