Proof BURN_BABY_BURN--MASTER_IGNITION_ROUTINE
This commit is contained in:
Ransom Pate
parent
0c6136893e
commit
3c949b5df9
@ -164,7 +164,7 @@ BURNBABY TC PHASCHNG # GROUP 4 RESTARTS HERE
|
||||
TS DVTOTAL +1
|
||||
|
||||
TC BANKCALL # P40AUTO MUST BE BANKCALLED EVEN FROM ITS
|
||||
CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY
|
||||
CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY
|
||||
|
||||
B*RNB*B* EXTEND
|
||||
DCA TIG # STORE NOMINAL TIG FOR OBLATENESS COMP.
|
||||
@ -180,11 +180,11 @@ B*RNB*B* EXTEND
|
||||
|
||||
P42SPOT = P40SPOT # (5)
|
||||
P12SPOT = P40SPOT # (5)
|
||||
P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING
|
||||
P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING
|
||||
P40SPOT CS CNTDNDEX # (5)
|
||||
# Page 734
|
||||
TC BANKCALL # MUST BE BANKCALLED FOR GENERALIZED
|
||||
CADR STCLOK2 # RETURN
|
||||
CADR STCLOK2 # RETURN
|
||||
P41SPOT TC INTPRET # (5)
|
||||
DLOAD DSU
|
||||
TIG
|
||||
@ -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
|
||||
@ -334,13 +334,13 @@ ULLGNOT EXTEND # (1)
|
||||
REDO2.17 EXTEND
|
||||
# Page 737
|
||||
DCA NEG0 # CLEAR OUT GROUP 2 SO LAMBERT CAN START
|
||||
DXCH -PHASE2 # IF NEEDED.
|
||||
DXCH -PHASE2 # IF NEEDED.
|
||||
|
||||
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
|
||||
|
||||
# *********************************
|
||||
|
||||
@ -360,7 +360,7 @@ TIG-5 EXTEND
|
||||
ADRES TIG-0
|
||||
|
||||
TC DOWNFLAG # RESET IGNFLAG AND ASINFLAG
|
||||
ADRES IGNFLAG # FOR LIGHT-UP LOGIC.
|
||||
ADRES IGNFLAG # FOR LIGHT-UP LOGIC.
|
||||
TC DOWNFLAG
|
||||
ADRES ASTNFLAG
|
||||
|
||||
@ -392,7 +392,7 @@ TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED
|
||||
ADS FLAGWRD7
|
||||
|
||||
TC CHECKMM # IN P63 CASE, THROTTLE-UP IS ZOOMTIME
|
||||
DEC 63 # AFTER NOMINAL IGNITION, NOT ACTUAL
|
||||
DEC 63 # AFTER NOMINAL IGNITION, NOT ACTUAL
|
||||
TCF IGNYET?
|
||||
CA ZOOMTIME
|
||||
TC WAITLIST
|
||||
@ -406,7 +406,7 @@ TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED
|
||||
OCT 77777
|
||||
|
||||
IGNYET? CAF ASTNBIT # CHECK ASTNFLAG: HAS ASTRONAUT RESPONDED
|
||||
MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST?
|
||||
MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST?
|
||||
EXTEND
|
||||
INDEX WHICH
|
||||
BZF 12 # BRANCH IF HE HAS NOT RESPONDED YET
|
||||
@ -439,7 +439,7 @@ IGNITION CS FLAGWRD5 # INSURE ENGONFLG IS SET.
|
||||
INDEX WHICH
|
||||
TCF 13
|
||||
|
||||
P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
|
||||
P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
|
||||
DCA DSP2CADR
|
||||
DXCH AVGEXIT
|
||||
|
||||
@ -455,7 +455,7 @@ P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
|
||||
ADS FLAGWRD7
|
||||
|
||||
CS PULSES # MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE
|
||||
MASK DAPBOOLS # MODE, IN CASE OF SWITCH TO P66
|
||||
MASK DAPBOOLS # MODE, IN CASE OF SWITCH TO P66
|
||||
TS DAPBOOLS
|
||||
|
||||
EXTEND # INITIALIZE TIG FOR P70 AND P71.
|
||||
@ -480,7 +480,7 @@ P40IGN CS FLAGWRD5 # (13)
|
||||
|
||||
P63IGN1 TC 2PHSCHNG
|
||||
OCT 40033 # 3.3SPOT FOR ZOOM RESTART.
|
||||
OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY
|
||||
OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY
|
||||
OCT 77777
|
||||
|
||||
# Page 740
|
||||
@ -490,7 +490,7 @@ P12IGN CAF EBANK6
|
||||
EBANK= AOSQ
|
||||
|
||||
CA IGNAOSQ # INITIALIZE DAP BIAS ACCELERATION
|
||||
TS AOSQ # ESTIMATES AT P12 IGNITION.
|
||||
TS AOSQ # ESTIMATES AT P12 IGNITION.
|
||||
CA IGNAOSR
|
||||
TS AOSR
|
||||
|
||||
@ -510,7 +510,7 @@ ABRTIGN CA Z # (13) KILL CLOKTASK
|
||||
ADS FLAGWRD7
|
||||
|
||||
P42IGN CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING
|
||||
MASK DAPBOOLS # CURVES ARE USED.
|
||||
MASK DAPBOOLS # CURVES ARE USED.
|
||||
TS DAPBOOLS
|
||||
CAF IMPULBIT # EXAMINE IMPULSE SWITCH
|
||||
MASK FLAGWRD2
|
||||
@ -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
|
||||
@ -611,8 +611,8 @@ COMFAIL TC UPFLAG # (15)
|
||||
COMFAIL1 INDEX WHICH
|
||||
TCF 2
|
||||
|
||||
COMFAIL3 CA Z # (15) KILL CLOKTASK USING Z
|
||||
TCF +2
|
||||
COMFAIL3 CA Z # (15) KILL CLOKTASK USING Z
|
||||
TCF +2
|
||||
|
||||
COMFAIL4 CS CNTDNDEX
|
||||
TS DISPDEX
|
||||
@ -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
|
||||
@ -672,7 +672,7 @@ ONULLAGE CS DAPBOOLS # TURN ON ULLAGE. MUST BE CALLED IN
|
||||
# ***********************************
|
||||
|
||||
STCLOK1 CA ZERO # THIS ROUTINE STARTS THE COUNT-DOWN
|
||||
STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING
|
||||
STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING
|
||||
STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
|
||||
TS TBASE4 # RETURN SAVE (NOT FOR RESTARTS).
|
||||
EXTEND
|
||||
@ -681,9 +681,9 @@ 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.
|
||||
CAF 1SEC # 45 SECOND CHECK.
|
||||
TS Q
|
||||
DXCH MPAC
|
||||
MASK LOW5 # RESTRICT MAGNITUDE OF NUMBER IN A
|
||||
@ -736,13 +736,13 @@ CLOKJOB EXTEND
|
||||
COM # INDEX.
|
||||
RELINT # ***** DISPDEX MUST NEVER B -0 *****
|
||||
INDEX A
|
||||
TCF DISPNOT -1 # (-1 DUE TO EFFECT OF CCS)
|
||||
TCF DISPNOT -1 # ( -1 DUE TO EFFECT OF CCS )
|
||||
|
||||
VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
|
||||
|
||||
-35 CS ZERO # INDICATE VERB 97 PASTE
|
||||
TS NVWORD1
|
||||
CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
|
||||
CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
|
||||
TC BANKCALL
|
||||
CADR CLOCPLAY
|
||||
TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO POOH
|
||||
@ -757,11 +757,10 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
|
||||
TCF ASTNRETN
|
||||
TCF -6
|
||||
|
||||
CNTDNDEX = LOW4 # OCT17: NEGATIVE 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,11 +771,10 @@ 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.
|
||||
TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
|
||||
TCF *PROCEED
|
||||
TCF *ENTER
|
||||
|
||||
@ -788,15 +786,15 @@ BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
|
||||
DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
|
||||
|
||||
STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
|
||||
TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
|
||||
TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
|
||||
|
||||
NULLCLOK INHINT
|
||||
EXTEND
|
||||
QXCH P40/RET
|
||||
TC NOULLAGE # TURN OFF ULLAGE ...
|
||||
TC KILLTASK # DON'T LET IT COME ON, EITHER ...
|
||||
TC NOULLAGE # TURN OFF ULLAGE...
|
||||
TC KILLTASK # DON'T LET IT COME ON, EITHER...
|
||||
CADR ULLGTASK
|
||||
TC PHASCHNG # NOT EVEN IF THERE'S A RESTART.
|
||||
TC PHASCHNG # NOT EVEN IF THERE'S A RESTART.
|
||||
OCT 1
|
||||
CA Z # KILL CLOKTASK
|
||||
TS DISPDEX
|
||||
@ -822,7 +820,7 @@ ASTNRETN TC PHASCHNG
|
||||
INDEX WHICH
|
||||
TCF 3
|
||||
|
||||
GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB
|
||||
GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB
|
||||
TC FINDVAC
|
||||
EBANK= TTOGO
|
||||
2CADR POSTBURN
|
||||
@ -886,9 +884,9 @@ REP40ALM CAF V05N09 # (14)
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
|
||||
TCF GOTOPOOH # V34E TERMINATE
|
||||
TCF +2 # PROCEED CHECK FOR P42
|
||||
TCF REP40ALM # V32E REDISPLAY ALARM
|
||||
TCF GOTOPOOH # V34E TERMINATE
|
||||
TCF +2 # PROCEED CHECK FOR P42
|
||||
TCF REP40ALM # V32E REDISPLAY ALARM
|
||||
|
||||
INDEX WHICH # FOR P42, ALLOW CREW TO PROCEED EVEN
|
||||
TCF 14 # THOUGH VEHICLE IS UNSTAGED.
|
||||
@ -905,21 +903,21 @@ P40AUTO TC MAKECADR # HELLO THERE.
|
||||
TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS.
|
||||
P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
|
||||
CADR G+N,AUTO # AND AUTO STABILIZATION MODES
|
||||
CCS A # +0 INDICATES IN PGNCS, IN AUTO
|
||||
CCS A # +0 INDICATES IN PGNCS, IN AUTO
|
||||
TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO
|
||||
CAF APSFLBIT # ARE WE ON THE DESCENT STAGE?
|
||||
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
|
||||
TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
|
||||
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
|
||||
TCF GOTOPOOH # V34E TERMINATE
|
||||
TCF P40A/P # RECYCLE
|
||||
GOBACK CA TEMPR60
|
||||
TC BANKJUMP # GOODBYE. COME AGAIN SOON.
|
||||
@ -937,7 +935,7 @@ P40A/PMD OCT 00203
|
||||
# CONSTANTS FOR THE IGNITION ROUTINE
|
||||
# **********************************
|
||||
|
||||
SERVCADR = P63TABLE +7
|
||||
SERVCADR = P63TABLE +7
|
||||
|
||||
P40ADRES ADRES P40TABLE
|
||||
|
||||
@ -964,16 +962,16 @@ OCT20 = BIT5
|
||||
V06N61 VN 0661
|
||||
|
||||
# Page 750
|
||||
# KILLTASK
|
||||
# KILLTASK
|
||||
# MOD NO: NEW PROGRAM
|
||||
# MOD BY: COVELLI
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION:
|
||||
#
|
||||
# KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING A NULL 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
|
||||
# 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
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L TC KILLTASK # IN FIXED-FIXED
|
||||
@ -982,11 +980,11 @@ V06N61 VN 0661
|
||||
#
|
||||
# EXIT MODE: AT L+2 OF CALLING SEQUENCE.
|
||||
#
|
||||
# ERASABLE INITIALIZATION: NONE.
|
||||
# ERASABLE INITIALIZATION= NONE.
|
||||
#
|
||||
# OUTPUT: 2CADR OF NULLTASK IN LST2
|
||||
#
|
||||
# DEBRIS: ITEMP1 - ITEMP4, A, L, Q.
|
||||
# DEBRIS: ITEMP1 - ITEMP4, A,L,Q.
|
||||
|
||||
EBANK= LST2
|
||||
BLOCK 3 # KILLTASK MUST BE IN FIXED-FIXED.
|
||||
@ -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.
|
||||
@ -1044,12 +1042,12 @@ DEAD DXCH ITEMP1
|
||||
|
||||
TSTFBANK CS LOW10
|
||||
INDEX L
|
||||
MASK LST2 +1 # COMPARE FBANKS ONLY.
|
||||
MASK LST2 +1 # COMPARE FBANKS ONLY.
|
||||
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
Block a user