Proof BURN_BABY_BURN--MASTER_IGNITION_ROUTINE
Ransom Pate
parent
0c6136893e
commit
3c949b5df9
|
|
@ -199,13 +199,13 @@ P41SPOT TC INTPRET # (5)
|
|||
VATT1
|
||||
REFSMMAT
|
||||
VSR1
|
||||
STOVL V(CSM) # CSM VELOCITY -- M/CS*2(7)
|
||||
STOVL V(CSM) # CSM VELOCITY - M/CS*2(7)
|
||||
RATT1
|
||||
VSL4 MXV
|
||||
REFSMMAT
|
||||
STCALL R(CSM) # CSM POSITION -- M*2(24)
|
||||
STCALL R(CSM) # CSM POSITION - M*2(24)
|
||||
MUNGRAV
|
||||
STODL G(CSM) # CSM GRAVITY VEC. -- M/CS*2(7)
|
||||
STODL G(CSM) # CSM GRAVITY VEC. - M/CS*2(7)
|
||||
TAT
|
||||
STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV.
|
||||
GOMIDAV CALRB
|
||||
|
|
@ -296,8 +296,8 @@ TIG-30 CAF S24.9SEC
|
|||
CS CNTDNDEX # START UP CLOKTASK AGAIN
|
||||
TS DISPDEX
|
||||
|
||||
INDEX WHICH # PICK UP APPROPRIATE ULLAGE -- ON TIME
|
||||
CA 6 # Was CAF --- RSB 2009.
|
||||
INDEX WHICH # PICK UP APPROPRIATE ULLAGE-ON TIME
|
||||
CAF 6
|
||||
EXTEND
|
||||
BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
|
||||
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.
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
TC IBNKCALL # COMMAND ENGINE OFF
|
||||
CADR ENGINOF4
|
||||
|
|
@ -681,7 +681,7 @@ STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
|
|||
EXTEND
|
||||
DCS TIME2
|
||||
# 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
|
||||
CAF 1SEC # 45 SECOND CHECK.
|
||||
TS Q
|
||||
|
|
@ -760,8 +760,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
|
||||
# Was CAF --- RSB 2009
|
||||
CA 0 # INTERVALS. IT IS NORMALLY OPERATED
|
||||
CAF 0 # INTERVALS. IT IS NORMALLY OPERATED
|
||||
TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
|
||||
CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB
|
||||
|
||||
|
|
@ -772,8 +771,7 @@ V99RECYC EQUALS
|
|||
-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.
|
||||
CAF 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 GOTOPOOH TURNS OFF ULLAGE.
|
||||
|
|
@ -911,12 +909,12 @@ P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
|
|||
MASK FLGWRD10
|
||||
CCS A
|
||||
TCF GOBACK # RETURN
|
||||
CAF BIT5 # YES, CHECK FOR AUTO-THROTTLE MODE
|
||||
CAF BIT5 # YES, CHECK FOR AUTOTHROTTLE MODE
|
||||
EXTEND
|
||||
RAND CHAN30
|
||||
EXTEND
|
||||
BZF GOBACK # IN AUTO-THROTTLE MODE -- RETURN
|
||||
TURNITON CAF P40A/PMD # DISPLAYS V50N25 R1=203 PLEASE PERFORM
|
||||
BZF GOBACK # IN AUTOTHROTTLE MODE -- RETURN
|
||||
TURNITON CAF P40A/PMD # DISPLAY V50N25 R1=203 PLEASE PERFORM
|
||||
TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
|
||||
CADR GOPERF1
|
||||
TCF GOTOPOOH # V34E TERMINATE
|
||||
|
|
@ -970,7 +968,7 @@ V06N61 VN 0661
|
|||
#
|
||||
# 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
|
||||
# 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
|
||||
|
|
@ -982,7 +980,7 @@ V06N61 VN 0661
|
|||
#
|
||||
# EXIT MODE: AT L+2 OF CALLING SEQUENCE.
|
||||
#
|
||||
# ERASABLE INITIALIZATION: NONE.
|
||||
# ERASABLE INITIALIZATION= NONE.
|
||||
#
|
||||
# OUTPUT: 2CADR OF NULLTASK IN LST2
|
||||
#
|
||||
|
|
@ -1034,7 +1032,7 @@ ADRSCAN INDEX L
|
|||
LETITLIV CS LSTLIM
|
||||
AD L
|
||||
EXTEND # ARE WE DONE?
|
||||
BZF DEAD # YES -- DONE, SO RETURN
|
||||
BZF DEAD # YES - DONE, SO RETURN
|
||||
INCR L
|
||||
INCR L
|
||||
TCF ADRSCAN # CONTINUE LOOP.
|
||||
|
|
@ -1048,8 +1046,8 @@ TSTFBANK CS LOW10
|
|||
EXTEND
|
||||
SU ITEMP3
|
||||
EXTEND
|
||||
BZF KILLDEAD # MATCH -- KILL IT.
|
||||
TCF LETITLIV # NO MATCH -- CONTINUE.
|
||||
BZF KILLDEAD # MATCH - KILL IT.
|
||||
TCF LETITLIV # NO MATCH - CONTINUE.
|
||||
|
||||
KILLDEAD CA TCTSKOVR
|
||||
INDEX L
|
||||
|
|
|
|||
Loading…
Reference in New Issue