10 *= 19861
12 .S
14 .P
16 .D ML.DINAMITE2
18 JMP L100
20 ALIVE .BYTE 0
22 ADRL .BYTE 0
24 ADRH .BYTE 255
26 UNDR .BYTE 0
28 STEP .BYTE 0
30 CNT .BYTE 0
32 TEMP .BYTE 0 0
100 L100 CMP #0:BEQ CONT
110 CMP #1:BEQ NEW
120 JMP CANCEL
130 NEW LDA ALIVE:CMP #0:BEQ L150
140 LDA #1:RTS
150 L150 STX ADRL:STX 2:STY ADRH:STY 3
160 LDA #122:STA STEP
170 LDA #1:STA ALIVE
172 LDA #0:STA 54279:LDA #100:STA 54280:LDA #97:STA 54284:LDA #40:STA 54285
174 LDA #129:STA 54283
190 LDY #0:LDA (2),Y:STA UNDR:LDA STEP:STA (2),Y:LDA #10:STA CNT
200 LDA #0:JMP L100
210 CONT LDX ALIVE:CPX #1:BEQ L215:CPX #2:BEQ CANCEL2:CPX #0:BNE L215:JMP DONE
215 L215 LDX CNT:DEX:STX CNT:CPX #0:BEQ L230
220 JMP DONE
230 L230 LDX STEP:INX:STX STEP:LDA #10:STA CNT
240 CPX #127:BNE L260
250 JMP BLOW
260 L260 LDY #0:LDA ADRL:STA 2:LDA ADRH:STA 3:TXA:STA (2),Y
270 JMP DONE
290 CANCEL LDA #0:STA 54283:STA 54276
300 CANCEL2 LDA #0:STA ALIVE
310 LDA ADRL:STA 2:LDA ADRH:STA 3:LDY #0:LDA UNDR:STA (2),Y:LDA #0:STA 49267
320 JMP DONE
400 BLOW LDA #1:STA 49267
410 LDA #2:STA ALIVE
412 LDA #128:STA 54283:LDA #0:STA 54272:LDA #20:STA 54273:LDA #17:STA 54277
414 LDA #249:STA 54278:LDA #129:STA 54276:LDA #128:STA 54276
420 LDA #0:JSR 17664
422 LDA ADRL:STA 2:LDA ADRH:SEC:SBC #1:STA 3
424 JMP L600
500 DONE LDA #0:STA 49267:JSR 17664:LDA #0:RTS
510 CHECK LDA (2),Y
512 CMP #128:BEQ L550
514 CMP #129:BEQ L550
516 CMP #130:BEQ L550
518 CMP #131:BEQ L550
520 CMP #132:BEQ L550
522 CMP #133:BEQ L550
524 CMP #134:BEQ L550
526 CMP #140:BEQ L550
528 CMP #141:BEQ L550
530 CMP #144:BEQ L550
532 CMP #147:BEQ L550
534 CMP #148:BEQ L550
536 CMP #149:BEQ L550
546 CMP #189:BEQ L550
548 CMP #208:BEQ L550
549 JMP L552
550 L550 JMP DESTROY
552 L552 CMP #209:BEQ L550
554 CMP #210:BEQ L550
556 CMP #211:BEQ L550
557 CMP #212:BEQ L550
558 CMP #213:BEQ L550
559 CMP #214:BEQ L550
560 CMP #215:BEQ L550
561 CMP #216:BEQ L550
562 CMP #217:BEQ L550
563 CMP #218:BEQ L550
564 CMP #219:BEQ L550
565 CMP #220:BEQ L550
566 CMP #221:BEQ L550
569 LDA #0:RTS
570 DESTROY LDA #1:RTS
600 L600 LDX #0
601 L601 LDY #0
602 L602 JSR CHECK:CMP #1:BNE L606
604 LDA #32:STA (2),Y
606 L606 INY:CPY #3:BNE L602
610 LDA 2:CLC:ADC #255:STA 2:LDA 3:ADC #0:STA 3
612 INX:CPX #3:BNE L601
614 LDA #0:JSR 17664:LDA #32:STA UNDR:RTS
999 .END TX.DINAMITE2