; The Crazy Mutant 1
; Sergio Monesi
;

move        EQU 3520
moveplussix EQU -3504       ; -(move - 16)
bombnumber  EQU 12
startloc    EQU 1724   

A      dat 4097
START  spl COPY
       jmp L2
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
LOC    DAT #startloc 
CNT    DAT #17
       mov #bombnumber,LOOCNT
LOOP   mov BOMB,@FILE
LCONT  mov BOMB,<FILE2
LADD   ADD #3,FILE
       DJN LOOP,LOOCNT
       mov #15,CNT
       mov #move,LOC
       ADD #moveplussix,LOOP
       ADD #moveplussix,LCONT
       ADD #moveplussix,LADD
L2     mov <CNT,<LOC
       JMN L2,CNT
       ADD #1,LOC
       JMP @LOC
FILE2  DAT #-17
FILE   DAT #150
LOOCNT DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0      
COPY   mov PROGB6,<A
       mov PROGB5,<A
       mov PROGB4,<A
       mov PROGB3,<A
       mov PROGB2,<A
       mov PROGB1,<A
       add #1,A
       SPL @A
BOMB1  DAT #41

PROGB1 dat #21
PROGB2 sub #125,PROGB1
PROGB3 jmz PROGB2,@PROGB1
PROGB4 mov PROGB6,@PROGB1
PROGB5 jmp PROGB2
PROGB6 dat #200

BOMB2  DAT #42
AB1    DAT #-3034
PROGC1 ADD #125,AC1
PROGC3 mov -2282,@AC1    ; BOMB2
PROGC4 JMP PROGC1
       DAT #0
AC1    DAT #397
       DAT #0
BOMB   DAT #0
       DAT #0
PARAB  SPL 0
