; The Twins 1
; Sergio Monesi
;
A      DAT -2168
B      DAT 2342
START  SPL COPY
       JMP L2
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
LOC    DAT #4192
CNT    DAT #12
       MOV #256,OBB
       MOV #16,LOOCNT
LOOP   MOV PARAB,@OBB
       ADD #128,OBB
       DJN LOOP,LOOCNT
       MOV #12,CNT
       MOV #-580,LOC
L2     MOV <CNT,<LOC
       JMN L2,CNT
       ADD #1,LOC
       JMP @LOC
OBB    DAT #256
LOOCNT DAT #15
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0
       DAT #0      
COPY   MOV AB1,<A
       SUB #1,A
       MOV PROGB4,<A
       MOV PROGB3,<A
       MOV PROGB2,<A
       MOV PROGB1,<A
       SPL @A
       MOV AC1,<B
       SUB #1,B
       MOV PROGC4,<B
       MOV PROGC3,<B
       MOV PROGC2,<B
       MOV PROGC1,<B
       SPL @B
BOMB   DAT #0
PROGB1 SUB #125,AB1
PROGB2 JMZ PROGB1,@AB1
PROGB3 MOV BOMB,@AB1
PROGB4 JMP PROGB1
       DAT #0
AB1    DAT #-3160
PROGC1 ADD #125,AC1
PROGC2 JMZ PROGC1,@AC1
PROGC3 MOV BOMB,@AC1
PROGC4 JMP PROGC1
       DAT #0
AC1    DAT #394
       DAT #0
       DAT #0
PARAB  SPL 0
       DAT #0
