; The Twins 3
; Sergio Monesi
;

displacement   EQU 1141
displplussixt  EQU -1125       ; - (displacement - 16)
bombsnumber    EQU 21
startloc       EQU 4130

a      DAT -2294
b      DAT 2339
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 #bombsnumber    loocnt
loop   MOV bomb            @file
lcont  MOV bomb            <file2
ladd   ADD #1              file
       DJN loop            loocnt
       MOV #15             cnt
       MOV #displacement   loc
       ADD #displplussixt  loop
       ADD #displplussixt  lcont
       ADD #displplussixt  ladd
l2     MOV <cnt            <loc
       JMN l2              cnt
       ADD #1              loc
       JMP @loc
file2  DAT #-17
file   DAT #3
loocnt DAT #0

       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 progb1   <a
       SPL @a
       MOV ac1      <b
       SUB #1       b
       MOV progc4   <b
       MOV progc3   <b
       MOV progc1   <b
       SPL @b
bomb   DAT #0

progb1 SUB #125     ab1
progb3 MOV bomb     @ab1
progb4 JMP progB1
       DAT #0
ab1    DAT #-3034

progc1 ADD #125     ac1
progc3 MOV bomb     @ac1
progc4 JMP progc1
       DAT #0
ac1    DAT #397

       DAT #0
       DAT #0
       DAT #0
parab  SPL 0
imp    MOV 0 1
       DAT #0
       DAT #315
       DAT #789
       DAT #156
       DAT #189
       DAT #158
       DAT #284
       DAT #234
       DAT #423
