; Destroyer3
; Sergio Monesi
;
A      DAT -4096
COUNTO DAT #5
COUNT  DAT #5
START  MOV <COPY,<A
       DJN START,LOCAT
       SPL @A
LOOP1  ADD #200,B2
       DJN DISTR3,COUNT
       SUB #200,B2
       MOV #5,COUNT
LOOP2  MOV @PR2,B3
       SPL @B3
       JMN LOOP2,<PR2
       MOV #0,PR2
       DJN LOOP1,COUNTO
       JMP 0
DISTR3 MOV POINT2,<B2
       MOV P6,<B2
       MOV P4,<B2
       MOV P3,<B2
       MOV P2,<B2
       MOV P1B,<B2
       MOV P1,<B2
       MOV POINT1,<B2
       ADD #1,B2
       ADD #1,PR2
       MOV B2,@PR2
       JMP LOOP1
POINT1 DAT 0
P1     MOV BOMB,@POINT1
P1B    SUB #3,POINT1
P2     MOV BOMB,@POINT2
P3     ADD #3,POINT2
P4     DJN P1,P6
P6     DAT #30
POINT2 DAT 0
LOOP   JMN DISTR2,@B0
       SUB #13,B0
       JMP LOOP
DISTR2 MOV BOMB,@B0
       MOV B0,PROV
SEARCH ADD #1,B0
       JMN SEARCH,@B0
SEA2   ADD #1,B0
       JMN SEARCH,@B0
SEA3   ADD #1,B0
       JMN SEARCH,@B0
       ADD #3,B0
       MOV PB4,<B0
       MOV PB3,<B0
       MOV PB2,<B0
       MOV PB1,<B0
       MOV POINB1,<B0
       ADD #1,B0
       SPL @B0
       MOV PROV,B0
SEARC2 JMN SEARC2,<B0
SEARC3 JMN SEARC2,<B0
SEARC4 JMN SEARC2,<B0
SEARC5 JMN SEARC2,<B0
       ADD #5,B0
       MOV POINC1,<B0
       MOV PC5,<B0
       MOV PC4,<B0
       MOV PC3,<B0
       MOV PC2,<B0
       MOV PC1,<B0
       SPL @B0
       SUB #10,B0
       JMP LOOP
POINB1 DAT -1
PB1    MOV BOMB,@POINB1
PB2    JMN PB1,<POINB1
PB3    JMN PB1,<POINB1
PB4    JMN PB1,<POINB1
PC1    MOV BOMB,@POINC1
PC2    ADD #1,POINC1 
PC3    JMN PC1,@POINC1 
PC4    ADD #1,POINC1
PC5    JMN PC1,@POINC1
POINC1 DAT 1
B0     DAT -60
BOMB   DAT 0
PARA   SPL 0
LOCAT  DAT #49
COPY   DAT COPY
B2     DAT -4140
B3     DAT 0
PROV   DAT #0
IMP    MOV 0,1
PR2    DAT 0
