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

22
Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
View File

@@ -602,7 +602,7 @@ COMFAIL TC UPFLAG # (15)
TCF +3 # YES
TC BANKCALL # OTHERWISE, START IT UP
CADR STCLOK1
+3 CS VB97DEX
+3 CS VB97DEX
TS DISPDEX
TC PHASCHNG # TURN OFF GROUP 4.
OCT 00004
@@ -740,7 +740,7 @@ CLOKJOB EXTEND
VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
-35 CS ZERO # INDICATE VERB 97 PASTE
-35 CS ZERO # INDICATE VERB 97 PASTE
TS NVWORD1
CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
TC BANKCALL
@@ -750,7 +750,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
TCF COMFAIL2
# THIS DISPLAY IS CALLED VIA ASTNCLOK
-25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
-25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
TC BANKCALL # TO RESET HIS EVENT TIMER TO AGREE WITH
CADR REFLASH # TIG.
TCF STOPCLOK
@@ -759,7 +759,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
CNTDNDEX = LOW4 # OCT17: NEGATIVE PROPER FOR DISPDEX
-17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
-17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
# Was CAF --- RSB 2009
CA 0 # INTERVALS. IT IS NORMALLY OPERATED
TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
@@ -769,26 +769,26 @@ VB99DEX = ELEVEN # OCT13: NEGATIVE PROPER FOR DISPDEX
V99RECYC EQUALS
-13 CS BIT9 # INDICATE VERB 99 PASTE
-13 CS BIT9 # INDICATE VERB 99 PASTE
TS NVWORD1
INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
# Was CAF --- RSB 2004
CA 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS
CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
TCF STOPCLOK # TERMINATE GOTOP00H TURNS OFF ULLAGE.
TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
TCF *PROCEED
TCF *ENTER
# Page 746
BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
-2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
-2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT
DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
TCF GOTOP00H # WAY TO P00 (GOTOP00H RELINTS)
TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
NULLCLOK INHINT
EXTEND
@@ -886,7 +886,7 @@ REP40ALM CAF V05N09 # (14)
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # V34E TERMINATE
TCF GOTOPOOH # V34E TERMINATE
TCF +2 # PROCEED CHECK FOR P42
TCF REP40ALM # V32E REDISPLAY ALARM
@@ -919,7 +919,7 @@ P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
TURNITON CAF P40A/PMD # DISPLAYS V50N25 R1=203 PLEASE PERFORM
TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
CADR GOPERF1
TCF GOTOP00H # V34E TERMINATE
TCF GOTOPOOH # V34E TERMINATE
TCF P40A/P # RECYCLE
GOBACK CA TEMPR60
TC BANKJUMP # GOODBYE. COME AGAIN SOON.
@@ -951,7 +951,7 @@ DSP2CADR 2CADR P63DISPS -2
EBANK= DVCNTR
ATMAGADR 2CADR ATMAG
? = GOTOP00H
? = GOTOPOOH
D29.9SEC 2DEC 2990