mirrors
/
Apollo-11
mirror of https://github.com/chrislgarry/Apollo-11.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Proof BURN_BABY_BURN--MASTER_IGNITION_ROUTINE

pull/785/head
Ransom Pate 2020-10-25 20:47:45 -04:00
parent 0c6136893e
commit 3c949b5df9
1 changed files with 57 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
View File

@ -199,13 +199,13 @@ P41SPOT TC INTPRET # (5)
VATT1 VATT1
REFSMMAT REFSMMAT
VSR1 VSR1
STOVL V(CSM) # CSM VELOCITY -- M/CS*2(7) STOVL V(CSM) # CSM VELOCITY - M/CS*2(7)
RATT1 RATT1
VSL4 MXV VSL4 MXV
REFSMMAT REFSMMAT
STCALL R(CSM) # CSM POSITION -- M*2(24) STCALL R(CSM) # CSM POSITION - M*2(24)
MUNGRAV MUNGRAV
STODL G(CSM) # CSM GRAVITY VEC. -- M/CS*2(7) STODL G(CSM) # CSM GRAVITY VEC. - M/CS*2(7)
TAT TAT
STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV. STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV.
GOMIDAV CALRB GOMIDAV CALRB
@ -296,8 +296,8 @@ TIG-30 CAF S24.9SEC
CS CNTDNDEX # START UP CLOKTASK AGAIN CS CNTDNDEX # START UP CLOKTASK AGAIN
TS DISPDEX TS DISPDEX
INDEX WHICH # PICK UP APPROPRIATE ULLAGE -- ON TIME INDEX WHICH # PICK UP APPROPRIATE ULLAGE-ON TIME
CA 6 # Was CAF --- RSB 2009. CAF 6
EXTEND EXTEND
BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
TS SAVET-30 # SAVE DELTA-T FOR RESTART TS SAVET-30 # SAVE DELTA-T FOR RESTART
@ -340,7 +340,7 @@ REDO4.2 CCS PHASE5 # IF SERVICER GOING?
TCF TASKOVER # YES, DON'T START IT UP AGAIN. TCF TASKOVER # YES, DON'T START IT UP AGAIN.
TC POSTJUMP TC POSTJUMP
CADR PREREAD # PREREAD END THIS TASK CADR PREREAD # PREREAD ENDS THIS TASK
# ********************************* # *********************************
@ -627,7 +627,7 @@ COMFAIL2 TC PHASCHNG # KILL ZOOM RESTART PROTECTION
OCT 00003 OCT 00003
INHINT INHINT
TC KILLTASK # KILL ZOOM IN CASE IT'S STILL TO COME TC KILLTASK # KILL ZOOM, IN CASE IT'S STILL TO COME
CADR ZOOM CADR ZOOM
TC IBNKCALL # COMMAND ENGINE OFF TC IBNKCALL # COMMAND ENGINE OFF
CADR ENGINOF4 CADR ENGINOF4
@ -681,7 +681,7 @@ STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
EXTEND EXTEND
DCS TIME2 DCS TIME2
# Page 744 # Page 744
DAS MPAC # HAVE TIG -- TIME2, UNDOUBTEDLY A + NUMBER DAS MPAC # HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
TC TPAGREE # POSITIVE, SINCE WE PASSED THE TC TPAGREE # POSITIVE, SINCE WE PASSED THE
CAF 1SEC # 45 SECOND CHECK. CAF 1SEC # 45 SECOND CHECK.
TS Q TS Q
@ -760,8 +760,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
CNTDNDEX = LOW4 # OCT17: NEGATIVE 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 CAF 0 # INTERVALS. IT IS NORMALLY OPERATED
CA 0 # INTERVALS. IT IS NORMALLY OPERATED
TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB
@ -772,8 +771,7 @@ V99RECYC EQUALS
-13 CS BIT9 # INDICATE VERB 99 PASTE -13 CS BIT9 # INDICATE VERB 99 PASTE
TS NVWORD1 TS NVWORD1
INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE" INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
# Was CAF --- RSB 2004 CAF 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
CA 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS
CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE. TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
@ -911,12 +909,12 @@ P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
MASK FLGWRD10 MASK FLGWRD10
CCS A CCS A
TCF GOBACK # RETURN TCF GOBACK # RETURN
CAF BIT5 # YES, CHECK FOR AUTO-THROTTLE MODE CAF BIT5 # YES, CHECK FOR AUTOTHROTTLE MODE
EXTEND EXTEND
RAND CHAN30 RAND CHAN30
EXTEND EXTEND
BZF GOBACK # IN AUTO-THROTTLE MODE -- RETURN BZF GOBACK # IN AUTOTHROTTLE MODE -- RETURN
TURNITON CAF P40A/PMD # DISPLAYS V50N25 R1=203 PLEASE PERFORM TURNITON CAF P40A/PMD # DISPLAY V50N25 R1=203 PLEASE PERFORM
TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC. TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
CADR GOPERF1 CADR GOPERF1
TCF GOTOPOOH # V34E TERMINATE TCF GOTOPOOH # V34E TERMINATE
@ -970,7 +968,7 @@ V06N61 VN 0661
# #
# FUNCTIONAL DESCRIPTION: # FUNCTIONAL DESCRIPTION:
# #
# KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING A NULL TASK CALLED `NULLTASK' (OF COURSE), # KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING ANULL TASK CALLED 'NULLTASK' (OF COURSE),
# WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR # WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
# FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK # FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
# LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT # LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT
@ -982,7 +980,7 @@ V06N61 VN 0661
# #
# EXIT MODE: AT L+2 OF CALLING SEQUENCE. # EXIT MODE: AT L+2 OF CALLING SEQUENCE.
# #
# ERASABLE INITIALIZATION: NONE. # ERASABLE INITIALIZATION= NONE.
# #
# OUTPUT: 2CADR OF NULLTASK IN LST2 # OUTPUT: 2CADR OF NULLTASK IN LST2
# #
@ -1034,7 +1032,7 @@ ADRSCAN INDEX L
LETITLIV CS LSTLIM LETITLIV CS LSTLIM
AD L AD L
EXTEND # ARE WE DONE? EXTEND # ARE WE DONE?
BZF DEAD # YES -- DONE, SO RETURN BZF DEAD # YES - DONE, SO RETURN
INCR L INCR L
INCR L INCR L
TCF ADRSCAN # CONTINUE LOOP. TCF ADRSCAN # CONTINUE LOOP.
@ -1048,8 +1046,8 @@ TSTFBANK CS LOW10
EXTEND EXTEND
SU ITEMP3 SU ITEMP3
EXTEND EXTEND
BZF KILLDEAD # MATCH -- KILL IT. BZF KILLDEAD # MATCH - KILL IT.
TCF LETITLIV # NO MATCH -- CONTINUE. TCF LETITLIV # NO MATCH - CONTINUE.
KILLDEAD CA TCTSKOVR KILLDEAD CA TCTSKOVR
INDEX L INDEX L