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

116
Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
View File

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