; Mad Mystery
; Sergio Monesi
;
A      DAT -2173
B      DAT 2348
START  SPL COPY
       JMP LOOP
LOC    DAT #504
CNT    DAT #13
       MOV #1664,OBB
       MOV #8,LOOCNT
LOOP   JMZ NOBOMB,@OBB
       MOV BOMB,@OBB
NOBOMB ADD #128,OBB
       DJN LOOP,LOOCNT
       MOV #13,CNT
       MOV #1177,LOC
L2     MOV <CNT,<LOC
       JMN L2,CNT
       ADD #1,LOC
       JMP @LOC
OBB    DAT #156
LOOCNT DAT #100         
COPY   MOV AA1,<A
       MOV PROGB4,<A
       MOV PROGB3,<A
       MOV PROGB2,<A
       MOV PROGB1,<A
       ADD #2,A
       SPL @A
       MOV AB1,<B
       MOV PROGC4,<B
       MOV PROGC3,<B
       MOV PROGC2,<B
       MOV PROGC1,<B
       ADD #2,B
       SPL @B
BOMB   DAT #0
PROGB1 SUB #123,AA1
PROGB2 JMZ PROGB1,@AA1
PROGB3 MOV BOMB,@AA1
PROGB4 JMP PROGB1
AA1    DAT #467
PROGC1 ADD #123,AB1
PROGC2 JMZ PROGC1,@AB1
PROGC3 MOV BOMB,@AB1
PROGC4 JMP PROGC1
AB1    DAT #258
PARAB  SPL 0
