diff --git a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc index 1baf1ca..443d872 100644 --- a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc +++ b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc @@ -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