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

12
Luminary099/AOTMARK.agc
View File

@@ -38,7 +38,7 @@ AOTMARK INHINT
CCS MARKSTAT # SEE IF AOTMARK BUSY
TC +2 # MARK SYSTEM BUSY -- DO ALARM
TC EXTVBCHK
TC P00DOO
TC POODOO
OCT 00105
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
@@ -94,7 +94,7 @@ MKRELEAS CAF ZERO
# Page 246
KILLAOT CAF ZERO
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB
TC GOTOP00H
TC GOTOPOOH
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
MASK BIT12 # BIT12 RESET AT GETMARK
ADS MARKSTAT
@@ -103,7 +103,7 @@ GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
TC BANKCALL
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE
@@ -126,7 +126,7 @@ CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF +2 # PROCEED
TCF CODE7 # ON ENTER, RECYCLE
EXTEND
@@ -326,7 +326,7 @@ GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
PASTIT TC BANKCALL
CADR GOMARK4
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
TCF GETDAT # ENTER -- RECYCLE TO V01N71
@@ -660,7 +660,7 @@ DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
TC BANKCALL
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF SURFEND # V33 -- PROCEED, END MARKING
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO