Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape31b_acorn_eu_1992_january.wav » Arena2

Arena2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape31b_acorn_eu_1992_january.wav
Filename: Arena2
Read OK:
File size: 1E10 bytes
Load address: FFFF3000
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10Dead=&1100
   20AL=&1101
   30YX=&1102
   40YY=&1103
   50AC=&1104
   60C=&1105
   70MCry=&1106
   80CCry=&1107
   90Rf=&1108
  100FireNu=&1109
  110Rapid=&110A
  120OYD=&110B
  130OXD=&110C
  140Pow=&110D
  150CT=&110E
  160MT=&110F
  170B=&1110
  180A=&1140
  190BX=&1241
  200BY=&1242
  210BXD=&1243
  220BYD=&1244
  230seed=&1245
  240F=&1249
  250KeyFlag=&126F
  260KF2=&126E 
  270 
  280REM (c) 8-6-90.
  290
  300DATA-1,2,4,-2,2,7,21,184,1,78,1,2
  310DATA-1,2,4,-2,2,7,21,184,1,78,1,2
  320DATA-2,1,4,-4,2,7,21,181,1,76,2,4
  330DATA-3,1,4,-6,0,7,21,178,1,76,3,6
  340
  350FORi%=0TO1 
  360FORI%=0TO2STEP2
  370P%=&1270:[OPTI%
  380.MoveRan
  390LDA #0:STA I:.l2010
  400LDX I
  410LDA A+7,X:BPL isok
  420JMP notok:.isok
  430LDA A+2,X:TAY:STA Y
  440LDA A+1,X:TAX:STA X
  450LDA #2
  460JSR &2E00
  470LDX I
  480CLC:LDA A+3,X:ADC X:STA NX
  490CLC:LDA A+4,X:ADC Y:STA NY
  500LDA NX:CMP #0:BEQ yep
  510LDA NX:CMP #76:BEQ yep
  520LDA NY:CMP #19:BEQ yep
  530LDA NY:CMP #181:BEQ yep
  540JSR Rnd:AND #63:CMP #63:BCS yep
  550LDA NX:STA A+1,X
  560LDA NY:STA A+2,X
  570JMP Notyep
  580.yep JSR Change
  590.Notyep
  600DEC A+5,X:LDA A+5,X:CMP #0:BNE Notyet
  610LDA A+0,X:EOR #1:STA A+0,X:LDA A+6,X:STA A+5,X
  620.Notyet
  630LDA A+0,X:PHA
  640LDA A+2,X:TAY
  650LDA A+1,X:TAX
  660PLA
  670JSR &2E00
  680.notok
  690CLC:LDA I:ADC #8:STA I:CMP #0:BEQ Nl2010:JMP l2010:.Nl2010
  700RTS
  710.Change
  720.l1 JSR Rnd:AND #3:BEQ l1:SEC:SBC #2:LDX I:STA A+3,X
  730.l2 JSR Rnd:AND #3:BEQ l2:TAY:LDA Uptab-1,Y:LDX I:STA A+4,X
  740RTS
  750.Change2
  760.l12 JSR Rnd:AND #3:BEQ l12:SEC:SBC #2:STA BXD
  770.l22 JSR Rnd:AND #3:BEQ l22:TAY:LDA Uptab-1,Y:STA BYD
  780RTS
  790.MoveBlob
  800CLC:LDA BX:ADC BXD:STA NX
  810CLC:LDA BY:ADC BYD:STA NY
  820LDA NX:CMP #0:BEQ yep2
  830LDA NX:CMP #48:BEQ yep2
  840LDA NY:CMP #19:BEQ yep3
  850LDA NY:CMP #124:BEQ yep3
  860JSR Rnd:AND #63:CMP #63:BCC NY1:JSR Change2:JMP MoveBlob
  870.NY1 LDA NX:STA BX:LDA NY:STA BY:JMP Notyep2
  880.yep2 SEC:LDA #0:SBC BXD:STA BXD:JMP MoveBlob
  890.yep3 SEC:LDA #0:SBC BYD:STA BYD:JMP MoveBlob
  900.Notyep2
  910LDA #0:STA I:.l20102
  920LDX I
  930LDA A+7,X:BPL isok2
  940JMP Notok2:.isok2
  950LDA A+2,X:TAY:STA Y
  960LDA A+1,X:TAX:STA X
  970LDA #3:JSR &2E00
  980LDX I:CLC:LDA BXD:ADC X:STA X:STA A+1,X
  990CLC:LDA BYD:ADC Y:STA Y:STA A+2,X
 1000LDA A+0,X:PHA:LDA A+2,X:TAY:LDA A+1,X:TAX:PLA:JSR &2E00
 1010.Notok2 CLC:LDA I:ADC #8:STA I:BEQ Nl20102:JMP l20102:.Nl20102
 1020RTS
 1030.Rnd
 1040LDY #7:.lr
 1050LDA seed+1
 1060LSR A:LSR A:LSR A:LSR A:LSR A
 1070EOR seed+3:ROR A
 1080ROL seed:ROL seed+1:ROL seed+2:ROL seed+3
 1090DEY:BNE lr
 1100LDA seed:RTS
 1110.I NOP:.X NOP:.Y NOP:.NX NOP:.NY NOP
 1120.Uptab EQUB 253:EQUB 0:EQUB 3
 1130.Cha
 1140LDA #0:STA I:.CHAL
 1150LDX I
 1160LDA A+7,X:BMI NH
 1170LDA A+1,X:STA &70
 1180LDA A+2,X:STA &71
 1190JSR C%
 1200LDA Hit:CMP #1:BNE NH
 1210LDA I:LSR A:LSR A:LSR A:TAY:INY:TYA:STA Hit2:RTS
 1220.NH CLC:LDA I:ADC #8:STA I:CMP #0:BNE CHAL:STA Hit2:RTS
 1230.C% JSR Cd:BCC Nohit:LDA #1:STA Hit:RTS:.Nohit LDA#0:STA Hit:RTS
 1240.Cd
 1250LDA &70:CMP &72:BCC c1
 1260LDA &72:CLC:ADC &74:CMP &70
 1270BCS checky:RTS
 1280.c1 ADC #4:CMP &72
 1290BCS checky:RTS
 1300.checky
 1310LDA &71:CMP &73:BCC c2
 1320LDA &73:CLC:ADC &75:CMP &71
 1330RTS
 1340.c2 ADC #8:CMP &73
 1350RTS
 1360.Hit2 NOP:.Hit NOP
 1370.DrawFire
 1380LDA #0:STA I:.L1130
 1390LDY I:LDA F+4,Y:BNE NG1270:JMP G1270:.NG1270
 1400CLC:LDA Pow:AND #6:ADC #4:STA a
 1410LDA F,Y:STA X
 1420LDA F+1,Y:STA Y
 1430LDA a:LDX X:LDY Y:JSR &2E00
 1440CLC:LDA Pow:AND #6:ADC #5:STA a
 1450LDY I:CLC:LDA F,Y:ADC F+2,Y:STA F,Y
 1460CLC:LDA F+1,Y:ADC F+3,Y:STA F+1,Y
 1470LDA F,Y:STA X
 1480LDA F+1,Y:STA Y
 1490LDA Pow:LSR A:STA Po
 1500LDY Po:LDA B+32,Y:CMP X:BCS T1250:LDA B+36,Y:CMP X:BCC T1250:LDA B+24,Y:CMP Y:BCS T1250:LDA B+28,Y:CMP Y:BCC T1250:JMP F1250
 1510.T1250 LDY I:LDA #0:STA F+4,Y:DEC FireNu:JMP G1270:.F1250
 1520LDA a:LDX X:LDY Y:JSR &2E00
 1530.G1270
 1540CLC:LDA I:ADC #5:STA I:CMP #35:BEQ NL1130:JMP L1130:.NL1130 RTS
 1550.Po NOP:.a NOP
 1560.SetFire
 1570LDA Rapid:CMP FireNu:BNE N900:RTS:.N900
 1580LDA #&7:LDX #Sound1 MOD256:LDY #Sound1 DIV256:JSR &FFF1 
 1590LDA #0:STA I:.L920
 1600LDY I:LDA F+4,Y:CMP #0:BNE N930:LDA I:STA J:JMP NN930
 1610.N930 CLC:LDA I:ADC #5:STA I:JMP L920:.NN930
 1620LDA Pow:LSR A:STA Po
 1630LDY OXD:INY:TYA:ASL A:ASL A:CLC:ADC Po:TAY:LDA B,Y:STA OX
 1640LDY J:CLC:LDA YX:ADC OX:STA F,Y
 1650LDA OXD:STA F+2,Y
 1660LDY OYD:INY:INY:INY:LDA ToYD,Y
 1670CLC:ADC Po:TAY:LDA B,Y:STA OY
 1680LDY J:CLC:LDA YY:ADC OY:STA F+1,Y
 1690LDA OYD:STA F+3,Y
 1700LDA #255:STA F+4,Y
 1710INC FireNu
 1720RTS
 1730.OX NOP:.OY NOP:.J NOP:.ToYD EQUB12:EQUB0:EQUB0:EQUB16:EQUB0:EQUB0:EQUB20
 1740.Check
 1750LDA YX:STA &72:LDA YY:STA &73
 1760LDA MCry:BEQ N1190
 1770LDA MCX:STA &70:LDA MCY:STA &71:LDA #4:STA &74:LDA #8:STA &75:JSR C%
 1780LDA Hit:BEQ N1190
 1790LDA #&7:LDX #Sound3 MOD 256:LDY #Sound3 DIV256:JSR &FFF1 
 1800INC Rapid:LDA #17:JSR &FFEE:LDA #133:JSR &FFEE:LDA #31:JSR &FFEE:CLC:LDA #2:ADC Rapid:JSR &FFEE:LDA #28:JSR &FFEE:LDA #32:JSR &FFEE:LDA #2:LDX MCX:LDY MCY:JSR &2E00:LDA #0:STA MCry
 1810.N1190
 1820LDA CCry:BEQ N1200
 1830LDA CCX:STA &70:LDA CCY:STA &71:LDA #4:STA &74:LDA #8:STA &75:JSR C%
 1840LDA Hit:BEQ N1200
 1850LDA #7:LDX #Sound3 MOD256:LDY #Sound3 DIV256:JSR &FFF1 
 1860INC Pow:LDA #17:JSR &FFEE:LDA #134:JSR &FFEE:LDA #31:JSR &FFEE:CLC:LDA #2:ADC Pow:JSR &FFEE:LDA #30:JSR &FFEE:LDA #32:JSR &FFEE:LDA #2:LDX CCX:LDY CCY:JSR &2E00:LDA #0:STA CCry
 1870.N1200
 1880LDA #3:STA &74:LDA #7:STA &75
 1890JSR Cha:LDA Hit2:BEQ N1220:LDA #255:STA Dead:RTS:.N1220
 1900LDA #0:STA I2:.L1230
 1910LDY I2:LDA F+4,Y:BNE NN1280:JMP N1280:.NN1280
 1920LDA F,Y:STA &72:LDA F+1,Y:STA &73
 1930LDA Pow:LSR A:STA Po
 1940CLC:LDA Po:ADC #40:TAY:LDA B,Y:STA &74
 1950CLC:LDA Po:ADC #44:TAY:LDA B,Y:STA &75
 1960JSR Cha
 1970LDA Hit2:BEQ N1280
 1980TAY:DEY:TYA:ASL A:ASL A:ASL A:TAY:PHA
 1990LDA A+7,Y:SEC:SBC Pow:STA A+7,Y
 2000CLC:LDA Pow:AND #6:ADC #4:STA a:LDY I2:LDA F,Y:STA X:LDA F+1,Y:STA Y:LDA a:LDX X:LDY Y:JSR &2E00:LDY I2:LDA #0:STA F+4,Y:DEC FireNu
 2010PLA:TAY:LDA A+7,Y:BPL N1280 
 2020LDA A+1,Y:STA X:LDA A+2,Y:STA Y:LDA #2:LDX X:LDY Y:JSR &2E00:DEC AL
 2030LDA #7:LDX #Sound2 MOD256:LDY #Sound2 DIV256:JSR &FFF1
 2040.N1280
 2050CLC:LDA I2:ADC #5:STA I2:CMP #35:BEQ NL1230:JMP L1230:.NL1230 RTS
 2060.I2 NOP:.MCX NOP:.MCY NOP:.CCX NOP:.CCY NOP
 2070.Crystal
 2080LDA MCry:BEQ N980:LDA #12:LDX MCX:LDY MCY:JSR &2E00:JMP NN980
 2090.N980 LDA MT:BEQ NN980:DEC MT:LDA MT:BNE NN980:LDA #255:STA MCry:JSR Rnd:AND #64:CLC:ADC #5:STA MCX:JSR Rnd:AND #127:CLC:ADC #24:STA MCY:.NN980
 2100LDA CCry:BEQ N1000:LDA #13:LDX CCX:LDY CCY:JSR &2E00:JMP NN1000
 2110.N1000 LDA CT:BEQ NN1000:DEC CT:LDA CT:BNE NN1000:LDA #255:STA CCry:JSR Rnd:AND #64:CLC:ADC #5:STA CCX:JSR Rnd:AND #127:CLC:ADC #24:STA CCY:.NN1000
 2120RTS
 2130.You
 2140LDA #0:STA XD:STA YD:STA U
 2150LDA KeyFlag:BEQ notint:LDA #3:STA YD:LDA #255:STA U:JMP N660:.notint
 2160LDA KF2:BEQ qN680:JMP N680:.qN680
 2170LDX #&BE:JSR K:BCC N630:LDA YX:CMP #2:BCC N630:LDA #255:STA XD:STA U:.N630
 2180LDX #&AE:JSR K:BCC N640:LDA YX:CMP #75:BCS N640:LDA #1:STA XD:LDA #255:STA U:.N640
 2190LDX #&B7:JSR K:BCC N650:LDA YY:CMP #23:BCC N650:LDA #253:STA YD:LDA #255:STA U:.N650
 2200LDX #&97:JSR K:BCC N660:LDA YY:CMP #178:BCS N660:LDA #3:STA YD:LDA #255:STA U:.N660
 2210LDA U:BEQ N670:LDA XD:STA OXD:LDA YD:STA OYD:.N670
 2220LDX #&9D:JSR K:BCC EN680:LDA Rf:BEQ N680:LDA #0:STA Rf:JSR SetFire:JMP N680:.EN680 LDA #255:STA Rf:.N680
 2230DEC AC:LDA AC:BNE N690:LDA C:EOR #1:STA C:LDA #4:STA AC:.N690
 2240LDA #2:LDX YX:LDY YY:JSR &2E00
 2250CLC:LDA YX:ADC XD:STA YX:CLC:LDA YY:ADC YD:STA YY
 2260LDA C:LDX YX:LDY YY:JSR &2E00
 2270LDA FireNu:BEQ N730:JSR DrawFire:JSR DrawFire:.N730
 2280RTS
 2290.XD NOP:.YD NOP:.U NOP
 2300.K LDA #&81:LDY #&FF:JSR &FFF4:CPX #&FF:RTS
 2310.Sound1 EQUB1:EQUB0:EQUB2:EQUB0:EQUB1:EQUB0:EQUB4:EQUB0
 2320.Sound2 EQUB0:EQUB0:EQUB2:EQUB0:EQUB10:EQUB0:EQUB1:EQUB0
 2330.Sound3 EQUB1:EQUB0:EQUB3:EQUB0:EQUB200:EQUB0:EQUB14:EQUB0
 2340.e:]:NEXT,
 2350FORI%=0TO3
 2360FORJ%=0TO11
 2370READ ?(B+J%*4+I%)
 2380NEXT,
 2390FORI%=0TO255STEP4:A!I%=0:NEXT
 2400A%=Crystal
 2410B%=You
 2420C%=MoveBlob
 2430D%=MoveRan
 2440E%=Check
 2450PAGE=&1A00:CHAIN"Arena3"

Dead=&1100
AL=&1101
YX=&1102
(YY=&1103
2AC=&1104
<C=&1105
FMCry=&1106
PCCry=&1107
ZRf=&1108
dFireNu=&1109
nRapid=&110A
x
OYD=&110B
�
OXD=&110C
�
Pow=&110D
�CT=&110E
�MT=&110F
�B=&1110
�A=&1140
�BX=&1241
�BY=&1242
�
BXD=&1243
�
BYD=&1244
�seed=&1245
�F=&1249
�KeyFlag=&126F
KF2=&126E 
 
� (c) 8-6-90.
"
,"�-1,2,4,-2,2,7,21,184,1,78,1,2
6"�-1,2,4,-2,2,7,21,184,1,78,1,2
@"�-2,1,4,-4,2,7,21,181,1,76,2,4
J"�-3,1,4,-6,0,7,21,178,1,76,3,6
T
^�i%=0�1 
h
�I%=0�2�2
rP%=&1270:[OPTI%
|.MoveRan
�LDA #0:STA I:.l2010
�	LDX I
�LDA A+7,X:BPL isok
�JMP notok:.isok
�LDA A+2,X:TAY:STA Y
�LDA A+1,X:TAX:STA X
�
LDA #2
�
JSR &2E00
�	LDX I
�CLC:LDA A+3,X:ADC X:STA NX
�CLC:LDA A+4,X:ADC Y:STA NY
�LDA NX:CMP #0:BEQ yep
�LDA NX:CMP #76:BEQ yep
LDA NY:CMP #19:BEQ yep
LDA NY:CMP #181:BEQ yep
!JSR Rnd:� #63:CMP #63:BCS yep
&LDA NX:STA A+1,X
0LDA NY:STA A+2,X
:JMP Notyep
D.yep JSR Change
N.Notyep
X)DEC A+5,X:LDA A+5,X:CMP #0:BNE Notyet
b0LDA A+0,X:� #1:STA A+0,X:LDA A+6,X:STA A+5,X
l.Notyet
vLDA A+0,X:PHA
�LDA A+2,X:TAY
�LDA A+1,X:TAX
�PLA
�
JSR &2E00
�
.notok
�>CLC:LDA I:ADC #8:STA I:CMP #0:BEQ Nl2010:JMP l2010:.Nl2010
�RTS
�.Change
�6.l1 JSR Rnd:� #3:BEQ l1:SEC:SBC #2:LDX I:STA A+3,X
�=.l2 JSR Rnd:� #3:BEQ l2:TAY:LDA Uptab-1,Y:LDX I:STA A+4,X
�RTS
�.Change2
�0.l12 JSR Rnd:� #3:BEQ l12:SEC:SBC #2:STA BXD
7.l22 JSR Rnd:� #3:BEQ l22:TAY:LDA Uptab-1,Y:STA BYD
RTS

.MoveBlob
 CLC:LDA BX:ADC BXD:STA NX
*CLC:LDA BY:ADC BYD:STA NY
4LDA NX:CMP #0:BEQ yep2
>LDA NX:CMP #48:BEQ yep2
HLDA NY:CMP #19:BEQ yep3
RLDA NY:CMP #124:BEQ yep3
\:JSR Rnd:� #63:CMP #63:BCC NY1:JSR Change2:JMP MoveBlob
f0.NY1 LDA NX:STA BX:LDA NY:STA BY:JMP Notyep2
p1.yep2 SEC:LDA #0:SBC BXD:STA BXD:JMP MoveBlob
z1.yep3 SEC:LDA #0:SBC BYD:STA BYD:JMP MoveBlob
�.Notyep2
�LDA #0:STA I:.l20102
�	LDX I
�LDA A+7,X:BPL isok2
�JMP Notok2:.isok2
�LDA A+2,X:TAY:STA Y
�LDA A+1,X:TAX:STA X
�LDA #3:JSR &2E00
�+LDX I:CLC:LDA BXD:ADC X:STA X:STA A+1,X
�%CLC:LDA BYD:ADC Y:STA Y:STA A+2,X
�;LDA A+0,X:PHA:LDA A+2,X:TAY:LDA A+1,X:TAX:PLA:JSR &2E00
�B.Notok2 CLC:LDA I:ADC #8:STA I:BEQ Nl20102:JMP l20102:.Nl20102
�RTS
.Rnd
LDY #7:.lr
LDA seed+1
$!LSR A:LSR A:LSR A:LSR A:LSR A
.� seed+3:ROR A
8-ROL seed:ROL seed+1:ROL seed+2:ROL seed+3
BDEY:BNE lr
LLDA seed:RTS
V(.I NOP:.X NOP:.Y NOP:.NX NOP:.NY NOP
`!.Uptab EQUB 253:EQUB 0:EQUB 3
j.Cha
tLDA #0:STA I:.CHAL
~	LDX I
�LDA A+7,X:BMI NH
�LDA A+1,X:STA &70
�LDA A+2,X:STA &71
�
JSR C%
�LDA Hit:CMP #1:BNE NH
�4LDA I:LSR A:LSR A:LSR A:TAY:INY:TYA:STA Hit2:RTS
�;.NH CLC:LDA I:ADC #8:STA I:CMP #0:BNE CHAL:STA Hit2:RTS
�D.C% JSR Cd:BCC Nohit:LDA #1:STA Hit:RTS:.Nohit LDA#0:STA Hit:RTS
�.Cd
�LDA &70:CMP &72:BCC c1
�LDA &72:CLC:ADC &74:CMP &70
�BCS checky:RTS
.c1 ADC #4:CMP &72

BCS checky:RTS
.checky
LDA &71:CMP &73:BCC c2
(LDA &73:CLC:ADC &75:CMP &71
2RTS
<.c2 ADC #8:CMP &73
FRTS
P.Hit2 NOP:.Hit NOP
Z
.DrawFire
dLDA #0:STA I:.L1130
n0LDY I:LDA F+4,Y:BNE NG1270:JMP G1270:.NG1270
x!CLC:LDA Pow:� #6:ADC #4:STA a
�LDA F,Y:STA X
�LDA F+1,Y:STA Y
�LDA a:LDX X:LDY Y:JSR &2E00
�!CLC:LDA Pow:� #6:ADC #5:STA a
�'LDY I:CLC:LDA F,Y:ADC F+2,Y:STA F,Y
�%CLC:LDA F+1,Y:ADC F+3,Y:STA F+1,Y
�LDA F,Y:STA X
�LDA F+1,Y:STA Y
�LDA Pow:LSR A:STA Po
܀LDY Po:LDA B+32,Y:CMP X:BCS T1250:LDA B+36,Y:CMP X:BCC T1250:LDA B+24,Y:CMP Y:BCS T1250:LDA B+28,Y:CMP Y:BCC T1250:JMP F1250
�=.T1250 LDY I:LDA #0:STA F+4,Y:DEC FireNu:JMP G1270:.F1250
�LDA a:LDX X:LDY Y:JSR &2E00
�
.G1270
CCLC:LDA I:ADC #5:STA I:CMP #35:BEQ NL1130:JMP L1130:.NL1130 RTS
.Po NOP:.a NOP
.SetFire
"+LDA Rapid:CMP FireNu:BNE N900:RTS:.N900
,8LDA #&7:LDX #Sound1 �256:LDY #Sound1 �256:JSR &FFF1 
6LDA #0:STA I:.L920
@9LDY I:LDA F+4,Y:CMP #0:BNE N930:LDA I:STA J:JMP NN930
J0.N930 CLC:LDA I:ADC #5:STA I:JMP L920:.NN930
TLDA Pow:LSR A:STA Po
^=LDY OXD:INY:TYA:ASL A:ASL A:CLC:ADC Po:TAY:LDA B,Y:STA OX
h#LDY J:CLC:LDA YX:ADC OX:STA F,Y
rLDA OXD:STA F+2,Y
|"LDY OYD:INY:INY:INY:LDA ToYD,Y
�!CLC:ADC Po:TAY:LDA B,Y:STA OY
�%LDY J:CLC:LDA YY:ADC OY:STA F+1,Y
�LDA OYD:STA F+3,Y
�LDA #255:STA F+4,Y
�INC FireNu
�RTS
�M.OX NOP:.OY NOP:.J NOP:.ToYD EQUB12:EQUB0:EQUB0:EQUB16:EQUB0:EQUB0:EQUB20
�
.Check
�!LDA YX:STA &72:LDA YY:STA &73
�LDA MCry:BEQ N1190
�HLDA MCX:STA &70:LDA MCY:STA &71:LDA #4:STA &74:LDA #8:STA &75:JSR C%
�LDA Hit:BEQ N1190
�9LDA #&7:LDX #Sound3 � 256:LDY #Sound3 �256:JSR &FFF1 
�INC Rapid:LDA #17:JSR &FFEE:LDA #133:JSR &FFEE:LDA #31:JSR &FFEE:CLC:LDA #2:ADC Rapid:JSR &FFEE:LDA #28:JSR &FFEE:LDA #32:JSR &FFEE:LDA #2:LDX MCX:LDY MCY:JSR &2E00:LDA #0:STA MCry

.N1190
LDA CCry:BEQ N1200
&HLDA CCX:STA &70:LDA CCY:STA &71:LDA #4:STA &74:LDA #8:STA &75:JSR C%
0LDA Hit:BEQ N1200
:7LDA #7:LDX #Sound3 �256:LDY #Sound3 �256:JSR &FFF1 
D�INC Pow:LDA #17:JSR &FFEE:LDA #134:JSR &FFEE:LDA #31:JSR &FFEE:CLC:LDA #2:ADC Pow:JSR &FFEE:LDA #30:JSR &FFEE:LDA #32:JSR &FFEE:LDA #2:LDX CCX:LDY CCY:JSR &2E00:LDA #0:STA CCry
N
.N1200
X!LDA #3:STA &74:LDA #7:STA &75
b;JSR Cha:LDA Hit2:BEQ N1220:LDA #255:STA Dead:RTS:.N1220
lLDA #0:STA I2:.L1230
v1LDY I2:LDA F+4,Y:BNE NN1280:JMP N1280:.NN1280
�%LDA F,Y:STA &72:LDA F+1,Y:STA &73
�LDA Pow:LSR A:STA Po
�*CLC:LDA Po:ADC #40:TAY:LDA B,Y:STA &74
�*CLC:LDA Po:ADC #44:TAY:LDA B,Y:STA &75
�JSR Cha
�LDA Hit2:BEQ N1280
�)TAY:DEY:TYA:ASL A:ASL A:ASL A:TAY:PHA
�#LDA A+7,Y:SEC:SBC Pow:STA A+7,Y
ЅCLC:LDA Pow:� #6:ADC #4:STA a:LDY I2:LDA F,Y:STA X:LDA F+1,Y:STA Y:LDA a:LDX X:LDY Y:JSR &2E00:LDY I2:LDA #0:STA F+4,Y:DEC FireNu
� PLA:TAY:LDA A+7,Y:BPL N1280 
�GLDA A+1,Y:STA X:LDA A+2,Y:STA Y:LDA #2:LDX X:LDY Y:JSR &2E00:DEC AL
�6LDA #7:LDX #Sound2 �256:LDY #Sound2 �256:JSR &FFF1
�
.N1280
ECLC:LDA I2:ADC #5:STA I2:CMP #35:BEQ NL1230:JMP L1230:.NL1230 RTS
/.I2 NOP:.MCX NOP:.MCY NOP:.CCX NOP:.CCY NOP
.Crystal
 ALDA MCry:BEQ N980:LDA #12:LDX MCX:LDY MCY:JSR &2E00:JMP NN980
*�.N980 LDA MT:BEQ NN980:DEC MT:LDA MT:BNE NN980:LDA #255:STA MCry:JSR Rnd:� #64:CLC:ADC #5:STA MCX:JSR Rnd:� #127:CLC:ADC #24:STA MCY:.NN980
4CLDA CCry:BEQ N1000:LDA #13:LDX CCX:LDY CCY:JSR &2E00:JMP NN1000
>�.N1000 LDA CT:BEQ NN1000:DEC CT:LDA CT:BNE NN1000:LDA #255:STA CCry:JSR Rnd:� #64:CLC:ADC #5:STA CCX:JSR Rnd:� #127:CLC:ADC #24:STA CCY:.NN1000
HRTS
R.You
\LDA #0:STA XD:STA YD:STA U
fHLDA KeyFlag:BEQ notint:LDA #3:STA YD:LDA #255:STA U:JMP N660:.notint
p%LDA KF2:BEQ qN680:JMP N680:.qN680
zNLDX #&BE:JSR K:BCC N630:LDA YX:CMP #2:BCC N630:LDA #255:STA XD:STA U:.N630
�VLDX #&AE:JSR K:BCC N640:LDA YX:CMP #75:BCS N640:LDA #1:STA XD:LDA #255:STA U:.N640
�XLDX #&B7:JSR K:BCC N650:LDA YY:CMP #23:BCC N650:LDA #253:STA YD:LDA #255:STA U:.N650
�WLDX #&97:JSR K:BCC N660:LDA YY:CMP #178:BCS N660:LDA #3:STA YD:LDA #255:STA U:.N660
�6LDA U:BEQ N670:LDA XD:STA OXD:LDA YD:STA OYD:.N670
�lLDX #&9D:JSR K:BCC EN680:LDA Rf:BEQ N680:LDA #0:STA Rf:JSR SetFire:JMP N680:.EN680 LDA #255:STA Rf:.N680
�?DEC AC:LDA AC:BNE N690:LDA C:� #1:STA C:LDA #4:STA AC:.N690
�"LDA #2:LDX YX:LDY YY:JSR &2E00
�5CLC:LDA YX:ADC XD:STA YX:CLC:LDA YY:ADC YD:STA YY
�!LDA C:LDX YX:LDY YY:JSR &2E00
�7LDA FireNu:BEQ N730:JSR DrawFire:JSR DrawFire:.N730
�RTS
�.XD NOP:.YD NOP:.U NOP
�/.K LDA #&81:LDY #&FF:JSR &FFF4:CPX #&FF:RTS
	;.Sound1 EQUB1:EQUB0:EQUB2:EQUB0:EQUB1:EQUB0:EQUB4:EQUB0
	<.Sound2 EQUB0:EQUB0:EQUB2:EQUB0:EQUB10:EQUB0:EQUB1:EQUB0
	>.Sound3 EQUB1:EQUB0:EQUB3:EQUB0:EQUB200:EQUB0:EQUB14:EQUB0
	$.e:]:�,
	.�I%=0�3
	8�J%=0�11
	B� ?(B+J%*4+I%)
	L�,
	V�I%=0�255�4:A!I%=0:�
	`A%=Crystal
	j
B%=You
	tC%=MoveBlob
	~D%=MoveRan
	�E%=Check
	��=&1A00:�"Arena3"
�
00000000  0d 00 0a 0e 44 65 61 64  3d 26 31 31 30 30 0d 00  |....Dead=&1100..|
00000010  14 0c 41 4c 3d 26 31 31  30 31 0d 00 1e 0c 59 58  |..AL=&1101....YX|
00000020  3d 26 31 31 30 32 0d 00  28 0c 59 59 3d 26 31 31  |=&1102..(.YY=&11|
00000030  30 33 0d 00 32 0c 41 43  3d 26 31 31 30 34 0d 00  |03..2.AC=&1104..|
00000040  3c 0b 43 3d 26 31 31 30  35 0d 00 46 0e 4d 43 72  |<.C=&1105..F.MCr|
00000050  79 3d 26 31 31 30 36 0d  00 50 0e 43 43 72 79 3d  |y=&1106..P.CCry=|
00000060  26 31 31 30 37 0d 00 5a  0c 52 66 3d 26 31 31 30  |&1107..Z.Rf=&110|
00000070  38 0d 00 64 10 46 69 72  65 4e 75 3d 26 31 31 30  |8..d.FireNu=&110|
00000080  39 0d 00 6e 0f 52 61 70  69 64 3d 26 31 31 30 41  |9..n.Rapid=&110A|
00000090  0d 00 78 0d 4f 59 44 3d  26 31 31 30 42 0d 00 82  |..x.OYD=&110B...|
000000a0  0d 4f 58 44 3d 26 31 31  30 43 0d 00 8c 0d 50 6f  |.OXD=&110C....Po|
000000b0  77 3d 26 31 31 30 44 0d  00 96 0c 43 54 3d 26 31  |w=&110D....CT=&1|
000000c0  31 30 45 0d 00 a0 0c 4d  54 3d 26 31 31 30 46 0d  |10E....MT=&110F.|
000000d0  00 aa 0b 42 3d 26 31 31  31 30 0d 00 b4 0b 41 3d  |...B=&1110....A=|
000000e0  26 31 31 34 30 0d 00 be  0c 42 58 3d 26 31 32 34  |&1140....BX=&124|
000000f0  31 0d 00 c8 0c 42 59 3d  26 31 32 34 32 0d 00 d2  |1....BY=&1242...|
00000100  0d 42 58 44 3d 26 31 32  34 33 0d 00 dc 0d 42 59  |.BXD=&1243....BY|
00000110  44 3d 26 31 32 34 34 0d  00 e6 0e 73 65 65 64 3d  |D=&1244....seed=|
00000120  26 31 32 34 35 0d 00 f0  0b 46 3d 26 31 32 34 39  |&1245....F=&1249|
00000130  0d 00 fa 11 4b 65 79 46  6c 61 67 3d 26 31 32 36  |....KeyFlag=&126|
00000140  46 0d 01 04 0e 4b 46 32  3d 26 31 32 36 45 20 0d  |F....KF2=&126E .|
00000150  01 0e 05 20 0d 01 18 11  f4 20 28 63 29 20 38 2d  |... ..... (c) 8-|
00000160  36 2d 39 30 2e 0d 01 22  04 0d 01 2c 22 dc 2d 31  |6-90..."...,".-1|
00000170  2c 32 2c 34 2c 2d 32 2c  32 2c 37 2c 32 31 2c 31  |,2,4,-2,2,7,21,1|
00000180  38 34 2c 31 2c 37 38 2c  31 2c 32 0d 01 36 22 dc  |84,1,78,1,2..6".|
00000190  2d 31 2c 32 2c 34 2c 2d  32 2c 32 2c 37 2c 32 31  |-1,2,4,-2,2,7,21|
000001a0  2c 31 38 34 2c 31 2c 37  38 2c 31 2c 32 0d 01 40  |,184,1,78,1,2..@|
000001b0  22 dc 2d 32 2c 31 2c 34  2c 2d 34 2c 32 2c 37 2c  |".-2,1,4,-4,2,7,|
000001c0  32 31 2c 31 38 31 2c 31  2c 37 36 2c 32 2c 34 0d  |21,181,1,76,2,4.|
000001d0  01 4a 22 dc 2d 33 2c 31  2c 34 2c 2d 36 2c 30 2c  |.J".-3,1,4,-6,0,|
000001e0  37 2c 32 31 2c 31 37 38  2c 31 2c 37 36 2c 33 2c  |7,21,178,1,76,3,|
000001f0  36 0d 01 54 04 0d 01 5e  0c e3 69 25 3d 30 b8 31  |6..T...^..i%=0.1|
00000200  20 0d 01 68 0d e3 49 25  3d 30 b8 32 88 32 0d 01  | ..h..I%=0.2.2..|
00000210  72 13 50 25 3d 26 31 32  37 30 3a 5b 4f 50 54 49  |r.P%=&1270:[OPTI|
00000220  25 0d 01 7c 0c 2e 4d 6f  76 65 52 61 6e 0d 01 86  |%..|..MoveRan...|
00000230  17 4c 44 41 20 23 30 3a  53 54 41 20 49 3a 2e 6c  |.LDA #0:STA I:.l|
00000240  32 30 31 30 0d 01 90 09  4c 44 58 20 49 0d 01 9a  |2010....LDX I...|
00000250  16 4c 44 41 20 41 2b 37  2c 58 3a 42 50 4c 20 69  |.LDA A+7,X:BPL i|
00000260  73 6f 6b 0d 01 a4 13 4a  4d 50 20 6e 6f 74 6f 6b  |sok....JMP notok|
00000270  3a 2e 69 73 6f 6b 0d 01  ae 17 4c 44 41 20 41 2b  |:.isok....LDA A+|
00000280  32 2c 58 3a 54 41 59 3a  53 54 41 20 59 0d 01 b8  |2,X:TAY:STA Y...|
00000290  17 4c 44 41 20 41 2b 31  2c 58 3a 54 41 58 3a 53  |.LDA A+1,X:TAX:S|
000002a0  54 41 20 58 0d 01 c2 0a  4c 44 41 20 23 32 0d 01  |TA X....LDA #2..|
000002b0  cc 0d 4a 53 52 20 26 32  45 30 30 0d 01 d6 09 4c  |..JSR &2E00....L|
000002c0  44 58 20 49 0d 01 e0 1e  43 4c 43 3a 4c 44 41 20  |DX I....CLC:LDA |
000002d0  41 2b 33 2c 58 3a 41 44  43 20 58 3a 53 54 41 20  |A+3,X:ADC X:STA |
000002e0  4e 58 0d 01 ea 1e 43 4c  43 3a 4c 44 41 20 41 2b  |NX....CLC:LDA A+|
000002f0  34 2c 58 3a 41 44 43 20  59 3a 53 54 41 20 4e 59  |4,X:ADC Y:STA NY|
00000300  0d 01 f4 19 4c 44 41 20  4e 58 3a 43 4d 50 20 23  |....LDA NX:CMP #|
00000310  30 3a 42 45 51 20 79 65  70 0d 01 fe 1a 4c 44 41  |0:BEQ yep....LDA|
00000320  20 4e 58 3a 43 4d 50 20  23 37 36 3a 42 45 51 20  | NX:CMP #76:BEQ |
00000330  79 65 70 0d 02 08 1a 4c  44 41 20 4e 59 3a 43 4d  |yep....LDA NY:CM|
00000340  50 20 23 31 39 3a 42 45  51 20 79 65 70 0d 02 12  |P #19:BEQ yep...|
00000350  1b 4c 44 41 20 4e 59 3a  43 4d 50 20 23 31 38 31  |.LDA NY:CMP #181|
00000360  3a 42 45 51 20 79 65 70  0d 02 1c 21 4a 53 52 20  |:BEQ yep...!JSR |
00000370  52 6e 64 3a 80 20 23 36  33 3a 43 4d 50 20 23 36  |Rnd:. #63:CMP #6|
00000380  33 3a 42 43 53 20 79 65  70 0d 02 26 14 4c 44 41  |3:BCS yep..&.LDA|
00000390  20 4e 58 3a 53 54 41 20  41 2b 31 2c 58 0d 02 30  | NX:STA A+1,X..0|
000003a0  14 4c 44 41 20 4e 59 3a  53 54 41 20 41 2b 32 2c  |.LDA NY:STA A+2,|
000003b0  58 0d 02 3a 0e 4a 4d 50  20 4e 6f 74 79 65 70 0d  |X..:.JMP Notyep.|
000003c0  02 44 13 2e 79 65 70 20  4a 53 52 20 43 68 61 6e  |.D..yep JSR Chan|
000003d0  67 65 0d 02 4e 0b 2e 4e  6f 74 79 65 70 0d 02 58  |ge..N..Notyep..X|
000003e0  29 44 45 43 20 41 2b 35  2c 58 3a 4c 44 41 20 41  |)DEC A+5,X:LDA A|
000003f0  2b 35 2c 58 3a 43 4d 50  20 23 30 3a 42 4e 45 20  |+5,X:CMP #0:BNE |
00000400  4e 6f 74 79 65 74 0d 02  62 30 4c 44 41 20 41 2b  |Notyet..b0LDA A+|
00000410  30 2c 58 3a 82 20 23 31  3a 53 54 41 20 41 2b 30  |0,X:. #1:STA A+0|
00000420  2c 58 3a 4c 44 41 20 41  2b 36 2c 58 3a 53 54 41  |,X:LDA A+6,X:STA|
00000430  20 41 2b 35 2c 58 0d 02  6c 0b 2e 4e 6f 74 79 65  | A+5,X..l..Notye|
00000440  74 0d 02 76 11 4c 44 41  20 41 2b 30 2c 58 3a 50  |t..v.LDA A+0,X:P|
00000450  48 41 0d 02 80 11 4c 44  41 20 41 2b 32 2c 58 3a  |HA....LDA A+2,X:|
00000460  54 41 59 0d 02 8a 11 4c  44 41 20 41 2b 31 2c 58  |TAY....LDA A+1,X|
00000470  3a 54 41 58 0d 02 94 07  50 4c 41 0d 02 9e 0d 4a  |:TAX....PLA....J|
00000480  53 52 20 26 32 45 30 30  0d 02 a8 0a 2e 6e 6f 74  |SR &2E00.....not|
00000490  6f 6b 0d 02 b2 3e 43 4c  43 3a 4c 44 41 20 49 3a  |ok...>CLC:LDA I:|
000004a0  41 44 43 20 23 38 3a 53  54 41 20 49 3a 43 4d 50  |ADC #8:STA I:CMP|
000004b0  20 23 30 3a 42 45 51 20  4e 6c 32 30 31 30 3a 4a  | #0:BEQ Nl2010:J|
000004c0  4d 50 20 6c 32 30 31 30  3a 2e 4e 6c 32 30 31 30  |MP l2010:.Nl2010|
000004d0  0d 02 bc 07 52 54 53 0d  02 c6 0b 2e 43 68 61 6e  |....RTS.....Chan|
000004e0  67 65 0d 02 d0 36 2e 6c  31 20 4a 53 52 20 52 6e  |ge...6.l1 JSR Rn|
000004f0  64 3a 80 20 23 33 3a 42  45 51 20 6c 31 3a 53 45  |d:. #3:BEQ l1:SE|
00000500  43 3a 53 42 43 20 23 32  3a 4c 44 58 20 49 3a 53  |C:SBC #2:LDX I:S|
00000510  54 41 20 41 2b 33 2c 58  0d 02 da 3d 2e 6c 32 20  |TA A+3,X...=.l2 |
00000520  4a 53 52 20 52 6e 64 3a  80 20 23 33 3a 42 45 51  |JSR Rnd:. #3:BEQ|
00000530  20 6c 32 3a 54 41 59 3a  4c 44 41 20 55 70 74 61  | l2:TAY:LDA Upta|
00000540  62 2d 31 2c 59 3a 4c 44  58 20 49 3a 53 54 41 20  |b-1,Y:LDX I:STA |
00000550  41 2b 34 2c 58 0d 02 e4  07 52 54 53 0d 02 ee 0c  |A+4,X....RTS....|
00000560  2e 43 68 61 6e 67 65 32  0d 02 f8 30 2e 6c 31 32  |.Change2...0.l12|
00000570  20 4a 53 52 20 52 6e 64  3a 80 20 23 33 3a 42 45  | JSR Rnd:. #3:BE|
00000580  51 20 6c 31 32 3a 53 45  43 3a 53 42 43 20 23 32  |Q l12:SEC:SBC #2|
00000590  3a 53 54 41 20 42 58 44  0d 03 02 37 2e 6c 32 32  |:STA BXD...7.l22|
000005a0  20 4a 53 52 20 52 6e 64  3a 80 20 23 33 3a 42 45  | JSR Rnd:. #3:BE|
000005b0  51 20 6c 32 32 3a 54 41  59 3a 4c 44 41 20 55 70  |Q l22:TAY:LDA Up|
000005c0  74 61 62 2d 31 2c 59 3a  53 54 41 20 42 59 44 0d  |tab-1,Y:STA BYD.|
000005d0  03 0c 07 52 54 53 0d 03  16 0d 2e 4d 6f 76 65 42  |...RTS.....MoveB|
000005e0  6c 6f 62 0d 03 20 1d 43  4c 43 3a 4c 44 41 20 42  |lob.. .CLC:LDA B|
000005f0  58 3a 41 44 43 20 42 58  44 3a 53 54 41 20 4e 58  |X:ADC BXD:STA NX|
00000600  0d 03 2a 1d 43 4c 43 3a  4c 44 41 20 42 59 3a 41  |..*.CLC:LDA BY:A|
00000610  44 43 20 42 59 44 3a 53  54 41 20 4e 59 0d 03 34  |DC BYD:STA NY..4|
00000620  1a 4c 44 41 20 4e 58 3a  43 4d 50 20 23 30 3a 42  |.LDA NX:CMP #0:B|
00000630  45 51 20 79 65 70 32 0d  03 3e 1b 4c 44 41 20 4e  |EQ yep2..>.LDA N|
00000640  58 3a 43 4d 50 20 23 34  38 3a 42 45 51 20 79 65  |X:CMP #48:BEQ ye|
00000650  70 32 0d 03 48 1b 4c 44  41 20 4e 59 3a 43 4d 50  |p2..H.LDA NY:CMP|
00000660  20 23 31 39 3a 42 45 51  20 79 65 70 33 0d 03 52  | #19:BEQ yep3..R|
00000670  1c 4c 44 41 20 4e 59 3a  43 4d 50 20 23 31 32 34  |.LDA NY:CMP #124|
00000680  3a 42 45 51 20 79 65 70  33 0d 03 5c 3a 4a 53 52  |:BEQ yep3..\:JSR|
00000690  20 52 6e 64 3a 80 20 23  36 33 3a 43 4d 50 20 23  | Rnd:. #63:CMP #|
000006a0  36 33 3a 42 43 43 20 4e  59 31 3a 4a 53 52 20 43  |63:BCC NY1:JSR C|
000006b0  68 61 6e 67 65 32 3a 4a  4d 50 20 4d 6f 76 65 42  |hange2:JMP MoveB|
000006c0  6c 6f 62 0d 03 66 30 2e  4e 59 31 20 4c 44 41 20  |lob..f0.NY1 LDA |
000006d0  4e 58 3a 53 54 41 20 42  58 3a 4c 44 41 20 4e 59  |NX:STA BX:LDA NY|
000006e0  3a 53 54 41 20 42 59 3a  4a 4d 50 20 4e 6f 74 79  |:STA BY:JMP Noty|
000006f0  65 70 32 0d 03 70 31 2e  79 65 70 32 20 53 45 43  |ep2..p1.yep2 SEC|
00000700  3a 4c 44 41 20 23 30 3a  53 42 43 20 42 58 44 3a  |:LDA #0:SBC BXD:|
00000710  53 54 41 20 42 58 44 3a  4a 4d 50 20 4d 6f 76 65  |STA BXD:JMP Move|
00000720  42 6c 6f 62 0d 03 7a 31  2e 79 65 70 33 20 53 45  |Blob..z1.yep3 SE|
00000730  43 3a 4c 44 41 20 23 30  3a 53 42 43 20 42 59 44  |C:LDA #0:SBC BYD|
00000740  3a 53 54 41 20 42 59 44  3a 4a 4d 50 20 4d 6f 76  |:STA BYD:JMP Mov|
00000750  65 42 6c 6f 62 0d 03 84  0c 2e 4e 6f 74 79 65 70  |eBlob.....Notyep|
00000760  32 0d 03 8e 18 4c 44 41  20 23 30 3a 53 54 41 20  |2....LDA #0:STA |
00000770  49 3a 2e 6c 32 30 31 30  32 0d 03 98 09 4c 44 58  |I:.l20102....LDX|
00000780  20 49 0d 03 a2 17 4c 44  41 20 41 2b 37 2c 58 3a  | I....LDA A+7,X:|
00000790  42 50 4c 20 69 73 6f 6b  32 0d 03 ac 15 4a 4d 50  |BPL isok2....JMP|
000007a0  20 4e 6f 74 6f 6b 32 3a  2e 69 73 6f 6b 32 0d 03  | Notok2:.isok2..|
000007b0  b6 17 4c 44 41 20 41 2b  32 2c 58 3a 54 41 59 3a  |..LDA A+2,X:TAY:|
000007c0  53 54 41 20 59 0d 03 c0  17 4c 44 41 20 41 2b 31  |STA Y....LDA A+1|
000007d0  2c 58 3a 54 41 58 3a 53  54 41 20 58 0d 03 ca 14  |,X:TAX:STA X....|
000007e0  4c 44 41 20 23 33 3a 4a  53 52 20 26 32 45 30 30  |LDA #3:JSR &2E00|
000007f0  0d 03 d4 2b 4c 44 58 20  49 3a 43 4c 43 3a 4c 44  |...+LDX I:CLC:LD|
00000800  41 20 42 58 44 3a 41 44  43 20 58 3a 53 54 41 20  |A BXD:ADC X:STA |
00000810  58 3a 53 54 41 20 41 2b  31 2c 58 0d 03 de 25 43  |X:STA A+1,X...%C|
00000820  4c 43 3a 4c 44 41 20 42  59 44 3a 41 44 43 20 59  |LC:LDA BYD:ADC Y|
00000830  3a 53 54 41 20 59 3a 53  54 41 20 41 2b 32 2c 58  |:STA Y:STA A+2,X|
00000840  0d 03 e8 3b 4c 44 41 20  41 2b 30 2c 58 3a 50 48  |...;LDA A+0,X:PH|
00000850  41 3a 4c 44 41 20 41 2b  32 2c 58 3a 54 41 59 3a  |A:LDA A+2,X:TAY:|
00000860  4c 44 41 20 41 2b 31 2c  58 3a 54 41 58 3a 50 4c  |LDA A+1,X:TAX:PL|
00000870  41 3a 4a 53 52 20 26 32  45 30 30 0d 03 f2 42 2e  |A:JSR &2E00...B.|
00000880  4e 6f 74 6f 6b 32 20 43  4c 43 3a 4c 44 41 20 49  |Notok2 CLC:LDA I|
00000890  3a 41 44 43 20 23 38 3a  53 54 41 20 49 3a 42 45  |:ADC #8:STA I:BE|
000008a0  51 20 4e 6c 32 30 31 30  32 3a 4a 4d 50 20 6c 32  |Q Nl20102:JMP l2|
000008b0  30 31 30 32 3a 2e 4e 6c  32 30 31 30 32 0d 03 fc  |0102:.Nl20102...|
000008c0  07 52 54 53 0d 04 06 08  2e 52 6e 64 0d 04 10 0e  |.RTS.....Rnd....|
000008d0  4c 44 59 20 23 37 3a 2e  6c 72 0d 04 1a 0e 4c 44  |LDY #7:.lr....LD|
000008e0  41 20 73 65 65 64 2b 31  0d 04 24 21 4c 53 52 20  |A seed+1..$!LSR |
000008f0  41 3a 4c 53 52 20 41 3a  4c 53 52 20 41 3a 4c 53  |A:LSR A:LSR A:LS|
00000900  52 20 41 3a 4c 53 52 20  41 0d 04 2e 12 82 20 73  |R A:LSR A..... s|
00000910  65 65 64 2b 33 3a 52 4f  52 20 41 0d 04 38 2d 52  |eed+3:ROR A..8-R|
00000920  4f 4c 20 73 65 65 64 3a  52 4f 4c 20 73 65 65 64  |OL seed:ROL seed|
00000930  2b 31 3a 52 4f 4c 20 73  65 65 64 2b 32 3a 52 4f  |+1:ROL seed+2:RO|
00000940  4c 20 73 65 65 64 2b 33  0d 04 42 0e 44 45 59 3a  |L seed+3..B.DEY:|
00000950  42 4e 45 20 6c 72 0d 04  4c 10 4c 44 41 20 73 65  |BNE lr..L.LDA se|
00000960  65 64 3a 52 54 53 0d 04  56 28 2e 49 20 4e 4f 50  |ed:RTS..V(.I NOP|
00000970  3a 2e 58 20 4e 4f 50 3a  2e 59 20 4e 4f 50 3a 2e  |:.X NOP:.Y NOP:.|
00000980  4e 58 20 4e 4f 50 3a 2e  4e 59 20 4e 4f 50 0d 04  |NX NOP:.NY NOP..|
00000990  60 21 2e 55 70 74 61 62  20 45 51 55 42 20 32 35  |`!.Uptab EQUB 25|
000009a0  33 3a 45 51 55 42 20 30  3a 45 51 55 42 20 33 0d  |3:EQUB 0:EQUB 3.|
000009b0  04 6a 08 2e 43 68 61 0d  04 74 16 4c 44 41 20 23  |.j..Cha..t.LDA #|
000009c0  30 3a 53 54 41 20 49 3a  2e 43 48 41 4c 0d 04 7e  |0:STA I:.CHAL..~|
000009d0  09 4c 44 58 20 49 0d 04  88 14 4c 44 41 20 41 2b  |.LDX I....LDA A+|
000009e0  37 2c 58 3a 42 4d 49 20  4e 48 0d 04 92 15 4c 44  |7,X:BMI NH....LD|
000009f0  41 20 41 2b 31 2c 58 3a  53 54 41 20 26 37 30 0d  |A A+1,X:STA &70.|
00000a00  04 9c 15 4c 44 41 20 41  2b 32 2c 58 3a 53 54 41  |...LDA A+2,X:STA|
00000a10  20 26 37 31 0d 04 a6 0a  4a 53 52 20 43 25 0d 04  | &71....JSR C%..|
00000a20  b0 19 4c 44 41 20 48 69  74 3a 43 4d 50 20 23 31  |..LDA Hit:CMP #1|
00000a30  3a 42 4e 45 20 4e 48 0d  04 ba 34 4c 44 41 20 49  |:BNE NH...4LDA I|
00000a40  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000a50  20 41 3a 54 41 59 3a 49  4e 59 3a 54 59 41 3a 53  | A:TAY:INY:TYA:S|
00000a60  54 41 20 48 69 74 32 3a  52 54 53 0d 04 c4 3b 2e  |TA Hit2:RTS...;.|
00000a70  4e 48 20 43 4c 43 3a 4c  44 41 20 49 3a 41 44 43  |NH CLC:LDA I:ADC|
00000a80  20 23 38 3a 53 54 41 20  49 3a 43 4d 50 20 23 30  | #8:STA I:CMP #0|
00000a90  3a 42 4e 45 20 43 48 41  4c 3a 53 54 41 20 48 69  |:BNE CHAL:STA Hi|
00000aa0  74 32 3a 52 54 53 0d 04  ce 44 2e 43 25 20 4a 53  |t2:RTS...D.C% JS|
00000ab0  52 20 43 64 3a 42 43 43  20 4e 6f 68 69 74 3a 4c  |R Cd:BCC Nohit:L|
00000ac0  44 41 20 23 31 3a 53 54  41 20 48 69 74 3a 52 54  |DA #1:STA Hit:RT|
00000ad0  53 3a 2e 4e 6f 68 69 74  20 4c 44 41 23 30 3a 53  |S:.Nohit LDA#0:S|
00000ae0  54 41 20 48 69 74 3a 52  54 53 0d 04 d8 07 2e 43  |TA Hit:RTS.....C|
00000af0  64 0d 04 e2 1a 4c 44 41  20 26 37 30 3a 43 4d 50  |d....LDA &70:CMP|
00000b00  20 26 37 32 3a 42 43 43  20 63 31 0d 04 ec 1f 4c  | &72:BCC c1....L|
00000b10  44 41 20 26 37 32 3a 43  4c 43 3a 41 44 43 20 26  |DA &72:CLC:ADC &|
00000b20  37 34 3a 43 4d 50 20 26  37 30 0d 04 f6 12 42 43  |74:CMP &70....BC|
00000b30  53 20 63 68 65 63 6b 79  3a 52 54 53 0d 05 00 16  |S checky:RTS....|
00000b40  2e 63 31 20 41 44 43 20  23 34 3a 43 4d 50 20 26  |.c1 ADC #4:CMP &|
00000b50  37 32 0d 05 0a 12 42 43  53 20 63 68 65 63 6b 79  |72....BCS checky|
00000b60  3a 52 54 53 0d 05 14 0b  2e 63 68 65 63 6b 79 0d  |:RTS.....checky.|
00000b70  05 1e 1a 4c 44 41 20 26  37 31 3a 43 4d 50 20 26  |...LDA &71:CMP &|
00000b80  37 33 3a 42 43 43 20 63  32 0d 05 28 1f 4c 44 41  |73:BCC c2..(.LDA|
00000b90  20 26 37 33 3a 43 4c 43  3a 41 44 43 20 26 37 35  | &73:CLC:ADC &75|
00000ba0  3a 43 4d 50 20 26 37 31  0d 05 32 07 52 54 53 0d  |:CMP &71..2.RTS.|
00000bb0  05 3c 16 2e 63 32 20 41  44 43 20 23 38 3a 43 4d  |.<..c2 ADC #8:CM|
00000bc0  50 20 26 37 33 0d 05 46  07 52 54 53 0d 05 50 16  |P &73..F.RTS..P.|
00000bd0  2e 48 69 74 32 20 4e 4f  50 3a 2e 48 69 74 20 4e  |.Hit2 NOP:.Hit N|
00000be0  4f 50 0d 05 5a 0d 2e 44  72 61 77 46 69 72 65 0d  |OP..Z..DrawFire.|
00000bf0  05 64 17 4c 44 41 20 23  30 3a 53 54 41 20 49 3a  |.d.LDA #0:STA I:|
00000c00  2e 4c 31 31 33 30 0d 05  6e 30 4c 44 59 20 49 3a  |.L1130..n0LDY I:|
00000c10  4c 44 41 20 46 2b 34 2c  59 3a 42 4e 45 20 4e 47  |LDA F+4,Y:BNE NG|
00000c20  31 32 37 30 3a 4a 4d 50  20 47 31 32 37 30 3a 2e  |1270:JMP G1270:.|
00000c30  4e 47 31 32 37 30 0d 05  78 21 43 4c 43 3a 4c 44  |NG1270..x!CLC:LD|
00000c40  41 20 50 6f 77 3a 80 20  23 36 3a 41 44 43 20 23  |A Pow:. #6:ADC #|
00000c50  34 3a 53 54 41 20 61 0d  05 82 11 4c 44 41 20 46  |4:STA a....LDA F|
00000c60  2c 59 3a 53 54 41 20 58  0d 05 8c 13 4c 44 41 20  |,Y:STA X....LDA |
00000c70  46 2b 31 2c 59 3a 53 54  41 20 59 0d 05 96 1f 4c  |F+1,Y:STA Y....L|
00000c80  44 41 20 61 3a 4c 44 58  20 58 3a 4c 44 59 20 59  |DA a:LDX X:LDY Y|
00000c90  3a 4a 53 52 20 26 32 45  30 30 0d 05 a0 21 43 4c  |:JSR &2E00...!CL|
00000ca0  43 3a 4c 44 41 20 50 6f  77 3a 80 20 23 36 3a 41  |C:LDA Pow:. #6:A|
00000cb0  44 43 20 23 35 3a 53 54  41 20 61 0d 05 aa 27 4c  |DC #5:STA a...'L|
00000cc0  44 59 20 49 3a 43 4c 43  3a 4c 44 41 20 46 2c 59  |DY I:CLC:LDA F,Y|
00000cd0  3a 41 44 43 20 46 2b 32  2c 59 3a 53 54 41 20 46  |:ADC F+2,Y:STA F|
00000ce0  2c 59 0d 05 b4 25 43 4c  43 3a 4c 44 41 20 46 2b  |,Y...%CLC:LDA F+|
00000cf0  31 2c 59 3a 41 44 43 20  46 2b 33 2c 59 3a 53 54  |1,Y:ADC F+3,Y:ST|
00000d00  41 20 46 2b 31 2c 59 0d  05 be 11 4c 44 41 20 46  |A F+1,Y....LDA F|
00000d10  2c 59 3a 53 54 41 20 58  0d 05 c8 13 4c 44 41 20  |,Y:STA X....LDA |
00000d20  46 2b 31 2c 59 3a 53 54  41 20 59 0d 05 d2 18 4c  |F+1,Y:STA Y....L|
00000d30  44 41 20 50 6f 77 3a 4c  53 52 20 41 3a 53 54 41  |DA Pow:LSR A:STA|
00000d40  20 50 6f 0d 05 dc 80 4c  44 59 20 50 6f 3a 4c 44  | Po....LDY Po:LD|
00000d50  41 20 42 2b 33 32 2c 59  3a 43 4d 50 20 58 3a 42  |A B+32,Y:CMP X:B|
00000d60  43 53 20 54 31 32 35 30  3a 4c 44 41 20 42 2b 33  |CS T1250:LDA B+3|
00000d70  36 2c 59 3a 43 4d 50 20  58 3a 42 43 43 20 54 31  |6,Y:CMP X:BCC T1|
00000d80  32 35 30 3a 4c 44 41 20  42 2b 32 34 2c 59 3a 43  |250:LDA B+24,Y:C|
00000d90  4d 50 20 59 3a 42 43 53  20 54 31 32 35 30 3a 4c  |MP Y:BCS T1250:L|
00000da0  44 41 20 42 2b 32 38 2c  59 3a 43 4d 50 20 59 3a  |DA B+28,Y:CMP Y:|
00000db0  42 43 43 20 54 31 32 35  30 3a 4a 4d 50 20 46 31  |BCC T1250:JMP F1|
00000dc0  32 35 30 0d 05 e6 3d 2e  54 31 32 35 30 20 4c 44  |250...=.T1250 LD|
00000dd0  59 20 49 3a 4c 44 41 20  23 30 3a 53 54 41 20 46  |Y I:LDA #0:STA F|
00000de0  2b 34 2c 59 3a 44 45 43  20 46 69 72 65 4e 75 3a  |+4,Y:DEC FireNu:|
00000df0  4a 4d 50 20 47 31 32 37  30 3a 2e 46 31 32 35 30  |JMP G1270:.F1250|
00000e00  0d 05 f0 1f 4c 44 41 20  61 3a 4c 44 58 20 58 3a  |....LDA a:LDX X:|
00000e10  4c 44 59 20 59 3a 4a 53  52 20 26 32 45 30 30 0d  |LDY Y:JSR &2E00.|
00000e20  05 fa 0a 2e 47 31 32 37  30 0d 06 04 43 43 4c 43  |....G1270...CCLC|
00000e30  3a 4c 44 41 20 49 3a 41  44 43 20 23 35 3a 53 54  |:LDA I:ADC #5:ST|
00000e40  41 20 49 3a 43 4d 50 20  23 33 35 3a 42 45 51 20  |A I:CMP #35:BEQ |
00000e50  4e 4c 31 31 33 30 3a 4a  4d 50 20 4c 31 31 33 30  |NL1130:JMP L1130|
00000e60  3a 2e 4e 4c 31 31 33 30  20 52 54 53 0d 06 0e 12  |:.NL1130 RTS....|
00000e70  2e 50 6f 20 4e 4f 50 3a  2e 61 20 4e 4f 50 0d 06  |.Po NOP:.a NOP..|
00000e80  18 0c 2e 53 65 74 46 69  72 65 0d 06 22 2b 4c 44  |...SetFire.."+LD|
00000e90  41 20 52 61 70 69 64 3a  43 4d 50 20 46 69 72 65  |A Rapid:CMP Fire|
00000ea0  4e 75 3a 42 4e 45 20 4e  39 30 30 3a 52 54 53 3a  |Nu:BNE N900:RTS:|
00000eb0  2e 4e 39 30 30 0d 06 2c  38 4c 44 41 20 23 26 37  |.N900..,8LDA #&7|
00000ec0  3a 4c 44 58 20 23 53 6f  75 6e 64 31 20 83 32 35  |:LDX #Sound1 .25|
00000ed0  36 3a 4c 44 59 20 23 53  6f 75 6e 64 31 20 81 32  |6:LDY #Sound1 .2|
00000ee0  35 36 3a 4a 53 52 20 26  46 46 46 31 20 0d 06 36  |56:JSR &FFF1 ..6|
00000ef0  16 4c 44 41 20 23 30 3a  53 54 41 20 49 3a 2e 4c  |.LDA #0:STA I:.L|
00000f00  39 32 30 0d 06 40 39 4c  44 59 20 49 3a 4c 44 41  |920..@9LDY I:LDA|
00000f10  20 46 2b 34 2c 59 3a 43  4d 50 20 23 30 3a 42 4e  | F+4,Y:CMP #0:BN|
00000f20  45 20 4e 39 33 30 3a 4c  44 41 20 49 3a 53 54 41  |E N930:LDA I:STA|
00000f30  20 4a 3a 4a 4d 50 20 4e  4e 39 33 30 0d 06 4a 30  | J:JMP NN930..J0|
00000f40  2e 4e 39 33 30 20 43 4c  43 3a 4c 44 41 20 49 3a  |.N930 CLC:LDA I:|
00000f50  41 44 43 20 23 35 3a 53  54 41 20 49 3a 4a 4d 50  |ADC #5:STA I:JMP|
00000f60  20 4c 39 32 30 3a 2e 4e  4e 39 33 30 0d 06 54 18  | L920:.NN930..T.|
00000f70  4c 44 41 20 50 6f 77 3a  4c 53 52 20 41 3a 53 54  |LDA Pow:LSR A:ST|
00000f80  41 20 50 6f 0d 06 5e 3d  4c 44 59 20 4f 58 44 3a  |A Po..^=LDY OXD:|
00000f90  49 4e 59 3a 54 59 41 3a  41 53 4c 20 41 3a 41 53  |INY:TYA:ASL A:AS|
00000fa0  4c 20 41 3a 43 4c 43 3a  41 44 43 20 50 6f 3a 54  |L A:CLC:ADC Po:T|
00000fb0  41 59 3a 4c 44 41 20 42  2c 59 3a 53 54 41 20 4f  |AY:LDA B,Y:STA O|
00000fc0  58 0d 06 68 23 4c 44 59  20 4a 3a 43 4c 43 3a 4c  |X..h#LDY J:CLC:L|
00000fd0  44 41 20 59 58 3a 41 44  43 20 4f 58 3a 53 54 41  |DA YX:ADC OX:STA|
00000fe0  20 46 2c 59 0d 06 72 15  4c 44 41 20 4f 58 44 3a  | F,Y..r.LDA OXD:|
00000ff0  53 54 41 20 46 2b 32 2c  59 0d 06 7c 22 4c 44 59  |STA F+2,Y..|"LDY|
00001000  20 4f 59 44 3a 49 4e 59  3a 49 4e 59 3a 49 4e 59  | OYD:INY:INY:INY|
00001010  3a 4c 44 41 20 54 6f 59  44 2c 59 0d 06 86 21 43  |:LDA ToYD,Y...!C|
00001020  4c 43 3a 41 44 43 20 50  6f 3a 54 41 59 3a 4c 44  |LC:ADC Po:TAY:LD|
00001030  41 20 42 2c 59 3a 53 54  41 20 4f 59 0d 06 90 25  |A B,Y:STA OY...%|
00001040  4c 44 59 20 4a 3a 43 4c  43 3a 4c 44 41 20 59 59  |LDY J:CLC:LDA YY|
00001050  3a 41 44 43 20 4f 59 3a  53 54 41 20 46 2b 31 2c  |:ADC OY:STA F+1,|
00001060  59 0d 06 9a 15 4c 44 41  20 4f 59 44 3a 53 54 41  |Y....LDA OYD:STA|
00001070  20 46 2b 33 2c 59 0d 06  a4 16 4c 44 41 20 23 32  | F+3,Y....LDA #2|
00001080  35 35 3a 53 54 41 20 46  2b 34 2c 59 0d 06 ae 0e  |55:STA F+4,Y....|
00001090  49 4e 43 20 46 69 72 65  4e 75 0d 06 b8 07 52 54  |INC FireNu....RT|
000010a0  53 0d 06 c2 4d 2e 4f 58  20 4e 4f 50 3a 2e 4f 59  |S...M.OX NOP:.OY|
000010b0  20 4e 4f 50 3a 2e 4a 20  4e 4f 50 3a 2e 54 6f 59  | NOP:.J NOP:.ToY|
000010c0  44 20 45 51 55 42 31 32  3a 45 51 55 42 30 3a 45  |D EQUB12:EQUB0:E|
000010d0  51 55 42 30 3a 45 51 55  42 31 36 3a 45 51 55 42  |QUB0:EQUB16:EQUB|
000010e0  30 3a 45 51 55 42 30 3a  45 51 55 42 32 30 0d 06  |0:EQUB0:EQUB20..|
000010f0  cc 0a 2e 43 68 65 63 6b  0d 06 d6 21 4c 44 41 20  |...Check...!LDA |
00001100  59 58 3a 53 54 41 20 26  37 32 3a 4c 44 41 20 59  |YX:STA &72:LDA Y|
00001110  59 3a 53 54 41 20 26 37  33 0d 06 e0 16 4c 44 41  |Y:STA &73....LDA|
00001120  20 4d 43 72 79 3a 42 45  51 20 4e 31 31 39 30 0d  | MCry:BEQ N1190.|
00001130  06 ea 48 4c 44 41 20 4d  43 58 3a 53 54 41 20 26  |..HLDA MCX:STA &|
00001140  37 30 3a 4c 44 41 20 4d  43 59 3a 53 54 41 20 26  |70:LDA MCY:STA &|
00001150  37 31 3a 4c 44 41 20 23  34 3a 53 54 41 20 26 37  |71:LDA #4:STA &7|
00001160  34 3a 4c 44 41 20 23 38  3a 53 54 41 20 26 37 35  |4:LDA #8:STA &75|
00001170  3a 4a 53 52 20 43 25 0d  06 f4 15 4c 44 41 20 48  |:JSR C%....LDA H|
00001180  69 74 3a 42 45 51 20 4e  31 31 39 30 0d 06 fe 39  |it:BEQ N1190...9|
00001190  4c 44 41 20 23 26 37 3a  4c 44 58 20 23 53 6f 75  |LDA #&7:LDX #Sou|
000011a0  6e 64 33 20 83 20 32 35  36 3a 4c 44 59 20 23 53  |nd3 . 256:LDY #S|
000011b0  6f 75 6e 64 33 20 81 32  35 36 3a 4a 53 52 20 26  |ound3 .256:JSR &|
000011c0  46 46 46 31 20 0d 07 08  b8 49 4e 43 20 52 61 70  |FFF1 ....INC Rap|
000011d0  69 64 3a 4c 44 41 20 23  31 37 3a 4a 53 52 20 26  |id:LDA #17:JSR &|
000011e0  46 46 45 45 3a 4c 44 41  20 23 31 33 33 3a 4a 53  |FFEE:LDA #133:JS|
000011f0  52 20 26 46 46 45 45 3a  4c 44 41 20 23 33 31 3a  |R &FFEE:LDA #31:|
00001200  4a 53 52 20 26 46 46 45  45 3a 43 4c 43 3a 4c 44  |JSR &FFEE:CLC:LD|
00001210  41 20 23 32 3a 41 44 43  20 52 61 70 69 64 3a 4a  |A #2:ADC Rapid:J|
00001220  53 52 20 26 46 46 45 45  3a 4c 44 41 20 23 32 38  |SR &FFEE:LDA #28|
00001230  3a 4a 53 52 20 26 46 46  45 45 3a 4c 44 41 20 23  |:JSR &FFEE:LDA #|
00001240  33 32 3a 4a 53 52 20 26  46 46 45 45 3a 4c 44 41  |32:JSR &FFEE:LDA|
00001250  20 23 32 3a 4c 44 58 20  4d 43 58 3a 4c 44 59 20  | #2:LDX MCX:LDY |
00001260  4d 43 59 3a 4a 53 52 20  26 32 45 30 30 3a 4c 44  |MCY:JSR &2E00:LD|
00001270  41 20 23 30 3a 53 54 41  20 4d 43 72 79 0d 07 12  |A #0:STA MCry...|
00001280  0a 2e 4e 31 31 39 30 0d  07 1c 16 4c 44 41 20 43  |..N1190....LDA C|
00001290  43 72 79 3a 42 45 51 20  4e 31 32 30 30 0d 07 26  |Cry:BEQ N1200..&|
000012a0  48 4c 44 41 20 43 43 58  3a 53 54 41 20 26 37 30  |HLDA CCX:STA &70|
000012b0  3a 4c 44 41 20 43 43 59  3a 53 54 41 20 26 37 31  |:LDA CCY:STA &71|
000012c0  3a 4c 44 41 20 23 34 3a  53 54 41 20 26 37 34 3a  |:LDA #4:STA &74:|
000012d0  4c 44 41 20 23 38 3a 53  54 41 20 26 37 35 3a 4a  |LDA #8:STA &75:J|
000012e0  53 52 20 43 25 0d 07 30  15 4c 44 41 20 48 69 74  |SR C%..0.LDA Hit|
000012f0  3a 42 45 51 20 4e 31 32  30 30 0d 07 3a 37 4c 44  |:BEQ N1200..:7LD|
00001300  41 20 23 37 3a 4c 44 58  20 23 53 6f 75 6e 64 33  |A #7:LDX #Sound3|
00001310  20 83 32 35 36 3a 4c 44  59 20 23 53 6f 75 6e 64  | .256:LDY #Sound|
00001320  33 20 81 32 35 36 3a 4a  53 52 20 26 46 46 46 31  |3 .256:JSR &FFF1|
00001330  20 0d 07 44 b4 49 4e 43  20 50 6f 77 3a 4c 44 41  | ..D.INC Pow:LDA|
00001340  20 23 31 37 3a 4a 53 52  20 26 46 46 45 45 3a 4c  | #17:JSR &FFEE:L|
00001350  44 41 20 23 31 33 34 3a  4a 53 52 20 26 46 46 45  |DA #134:JSR &FFE|
00001360  45 3a 4c 44 41 20 23 33  31 3a 4a 53 52 20 26 46  |E:LDA #31:JSR &F|
00001370  46 45 45 3a 43 4c 43 3a  4c 44 41 20 23 32 3a 41  |FEE:CLC:LDA #2:A|
00001380  44 43 20 50 6f 77 3a 4a  53 52 20 26 46 46 45 45  |DC Pow:JSR &FFEE|
00001390  3a 4c 44 41 20 23 33 30  3a 4a 53 52 20 26 46 46  |:LDA #30:JSR &FF|
000013a0  45 45 3a 4c 44 41 20 23  33 32 3a 4a 53 52 20 26  |EE:LDA #32:JSR &|
000013b0  46 46 45 45 3a 4c 44 41  20 23 32 3a 4c 44 58 20  |FFEE:LDA #2:LDX |
000013c0  43 43 58 3a 4c 44 59 20  43 43 59 3a 4a 53 52 20  |CCX:LDY CCY:JSR |
000013d0  26 32 45 30 30 3a 4c 44  41 20 23 30 3a 53 54 41  |&2E00:LDA #0:STA|
000013e0  20 43 43 72 79 0d 07 4e  0a 2e 4e 31 32 30 30 0d  | CCry..N..N1200.|
000013f0  07 58 21 4c 44 41 20 23  33 3a 53 54 41 20 26 37  |.X!LDA #3:STA &7|
00001400  34 3a 4c 44 41 20 23 37  3a 53 54 41 20 26 37 35  |4:LDA #7:STA &75|
00001410  0d 07 62 3b 4a 53 52 20  43 68 61 3a 4c 44 41 20  |..b;JSR Cha:LDA |
00001420  48 69 74 32 3a 42 45 51  20 4e 31 32 32 30 3a 4c  |Hit2:BEQ N1220:L|
00001430  44 41 20 23 32 35 35 3a  53 54 41 20 44 65 61 64  |DA #255:STA Dead|
00001440  3a 52 54 53 3a 2e 4e 31  32 32 30 0d 07 6c 18 4c  |:RTS:.N1220..l.L|
00001450  44 41 20 23 30 3a 53 54  41 20 49 32 3a 2e 4c 31  |DA #0:STA I2:.L1|
00001460  32 33 30 0d 07 76 31 4c  44 59 20 49 32 3a 4c 44  |230..v1LDY I2:LD|
00001470  41 20 46 2b 34 2c 59 3a  42 4e 45 20 4e 4e 31 32  |A F+4,Y:BNE NN12|
00001480  38 30 3a 4a 4d 50 20 4e  31 32 38 30 3a 2e 4e 4e  |80:JMP N1280:.NN|
00001490  31 32 38 30 0d 07 80 25  4c 44 41 20 46 2c 59 3a  |1280...%LDA F,Y:|
000014a0  53 54 41 20 26 37 32 3a  4c 44 41 20 46 2b 31 2c  |STA &72:LDA F+1,|
000014b0  59 3a 53 54 41 20 26 37  33 0d 07 8a 18 4c 44 41  |Y:STA &73....LDA|
000014c0  20 50 6f 77 3a 4c 53 52  20 41 3a 53 54 41 20 50  | Pow:LSR A:STA P|
000014d0  6f 0d 07 94 2a 43 4c 43  3a 4c 44 41 20 50 6f 3a  |o...*CLC:LDA Po:|
000014e0  41 44 43 20 23 34 30 3a  54 41 59 3a 4c 44 41 20  |ADC #40:TAY:LDA |
000014f0  42 2c 59 3a 53 54 41 20  26 37 34 0d 07 9e 2a 43  |B,Y:STA &74...*C|
00001500  4c 43 3a 4c 44 41 20 50  6f 3a 41 44 43 20 23 34  |LC:LDA Po:ADC #4|
00001510  34 3a 54 41 59 3a 4c 44  41 20 42 2c 59 3a 53 54  |4:TAY:LDA B,Y:ST|
00001520  41 20 26 37 35 0d 07 a8  0b 4a 53 52 20 43 68 61  |A &75....JSR Cha|
00001530  0d 07 b2 16 4c 44 41 20  48 69 74 32 3a 42 45 51  |....LDA Hit2:BEQ|
00001540  20 4e 31 32 38 30 0d 07  bc 29 54 41 59 3a 44 45  | N1280...)TAY:DE|
00001550  59 3a 54 59 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |Y:TYA:ASL A:ASL |
00001560  41 3a 41 53 4c 20 41 3a  54 41 59 3a 50 48 41 0d  |A:ASL A:TAY:PHA.|
00001570  07 c6 23 4c 44 41 20 41  2b 37 2c 59 3a 53 45 43  |..#LDA A+7,Y:SEC|
00001580  3a 53 42 43 20 50 6f 77  3a 53 54 41 20 41 2b 37  |:SBC Pow:STA A+7|
00001590  2c 59 0d 07 d0 85 43 4c  43 3a 4c 44 41 20 50 6f  |,Y....CLC:LDA Po|
000015a0  77 3a 80 20 23 36 3a 41  44 43 20 23 34 3a 53 54  |w:. #6:ADC #4:ST|
000015b0  41 20 61 3a 4c 44 59 20  49 32 3a 4c 44 41 20 46  |A a:LDY I2:LDA F|
000015c0  2c 59 3a 53 54 41 20 58  3a 4c 44 41 20 46 2b 31  |,Y:STA X:LDA F+1|
000015d0  2c 59 3a 53 54 41 20 59  3a 4c 44 41 20 61 3a 4c  |,Y:STA Y:LDA a:L|
000015e0  44 58 20 58 3a 4c 44 59  20 59 3a 4a 53 52 20 26  |DX X:LDY Y:JSR &|
000015f0  32 45 30 30 3a 4c 44 59  20 49 32 3a 4c 44 41 20  |2E00:LDY I2:LDA |
00001600  23 30 3a 53 54 41 20 46  2b 34 2c 59 3a 44 45 43  |#0:STA F+4,Y:DEC|
00001610  20 46 69 72 65 4e 75 0d  07 da 20 50 4c 41 3a 54  | FireNu... PLA:T|
00001620  41 59 3a 4c 44 41 20 41  2b 37 2c 59 3a 42 50 4c  |AY:LDA A+7,Y:BPL|
00001630  20 4e 31 32 38 30 20 0d  07 e4 47 4c 44 41 20 41  | N1280 ...GLDA A|
00001640  2b 31 2c 59 3a 53 54 41  20 58 3a 4c 44 41 20 41  |+1,Y:STA X:LDA A|
00001650  2b 32 2c 59 3a 53 54 41  20 59 3a 4c 44 41 20 23  |+2,Y:STA Y:LDA #|
00001660  32 3a 4c 44 58 20 58 3a  4c 44 59 20 59 3a 4a 53  |2:LDX X:LDY Y:JS|
00001670  52 20 26 32 45 30 30 3a  44 45 43 20 41 4c 0d 07  |R &2E00:DEC AL..|
00001680  ee 36 4c 44 41 20 23 37  3a 4c 44 58 20 23 53 6f  |.6LDA #7:LDX #So|
00001690  75 6e 64 32 20 83 32 35  36 3a 4c 44 59 20 23 53  |und2 .256:LDY #S|
000016a0  6f 75 6e 64 32 20 81 32  35 36 3a 4a 53 52 20 26  |ound2 .256:JSR &|
000016b0  46 46 46 31 0d 07 f8 0a  2e 4e 31 32 38 30 0d 08  |FFF1.....N1280..|
000016c0  02 45 43 4c 43 3a 4c 44  41 20 49 32 3a 41 44 43  |.ECLC:LDA I2:ADC|
000016d0  20 23 35 3a 53 54 41 20  49 32 3a 43 4d 50 20 23  | #5:STA I2:CMP #|
000016e0  33 35 3a 42 45 51 20 4e  4c 31 32 33 30 3a 4a 4d  |35:BEQ NL1230:JM|
000016f0  50 20 4c 31 32 33 30 3a  2e 4e 4c 31 32 33 30 20  |P L1230:.NL1230 |
00001700  52 54 53 0d 08 0c 2f 2e  49 32 20 4e 4f 50 3a 2e  |RTS.../.I2 NOP:.|
00001710  4d 43 58 20 4e 4f 50 3a  2e 4d 43 59 20 4e 4f 50  |MCX NOP:.MCY NOP|
00001720  3a 2e 43 43 58 20 4e 4f  50 3a 2e 43 43 59 20 4e  |:.CCX NOP:.CCY N|
00001730  4f 50 0d 08 16 0c 2e 43  72 79 73 74 61 6c 0d 08  |OP.....Crystal..|
00001740  20 41 4c 44 41 20 4d 43  72 79 3a 42 45 51 20 4e  | ALDA MCry:BEQ N|
00001750  39 38 30 3a 4c 44 41 20  23 31 32 3a 4c 44 58 20  |980:LDA #12:LDX |
00001760  4d 43 58 3a 4c 44 59 20  4d 43 59 3a 4a 53 52 20  |MCX:LDY MCY:JSR |
00001770  26 32 45 30 30 3a 4a 4d  50 20 4e 4e 39 38 30 0d  |&2E00:JMP NN980.|
00001780  08 2a 8f 2e 4e 39 38 30  20 4c 44 41 20 4d 54 3a  |.*..N980 LDA MT:|
00001790  42 45 51 20 4e 4e 39 38  30 3a 44 45 43 20 4d 54  |BEQ NN980:DEC MT|
000017a0  3a 4c 44 41 20 4d 54 3a  42 4e 45 20 4e 4e 39 38  |:LDA MT:BNE NN98|
000017b0  30 3a 4c 44 41 20 23 32  35 35 3a 53 54 41 20 4d  |0:LDA #255:STA M|
000017c0  43 72 79 3a 4a 53 52 20  52 6e 64 3a 80 20 23 36  |Cry:JSR Rnd:. #6|
000017d0  34 3a 43 4c 43 3a 41 44  43 20 23 35 3a 53 54 41  |4:CLC:ADC #5:STA|
000017e0  20 4d 43 58 3a 4a 53 52  20 52 6e 64 3a 80 20 23  | MCX:JSR Rnd:. #|
000017f0  31 32 37 3a 43 4c 43 3a  41 44 43 20 23 32 34 3a  |127:CLC:ADC #24:|
00001800  53 54 41 20 4d 43 59 3a  2e 4e 4e 39 38 30 0d 08  |STA MCY:.NN980..|
00001810  34 43 4c 44 41 20 43 43  72 79 3a 42 45 51 20 4e  |4CLDA CCry:BEQ N|
00001820  31 30 30 30 3a 4c 44 41  20 23 31 33 3a 4c 44 58  |1000:LDA #13:LDX|
00001830  20 43 43 58 3a 4c 44 59  20 43 43 59 3a 4a 53 52  | CCX:LDY CCY:JSR|
00001840  20 26 32 45 30 30 3a 4a  4d 50 20 4e 4e 31 30 30  | &2E00:JMP NN100|
00001850  30 0d 08 3e 93 2e 4e 31  30 30 30 20 4c 44 41 20  |0..>..N1000 LDA |
00001860  43 54 3a 42 45 51 20 4e  4e 31 30 30 30 3a 44 45  |CT:BEQ NN1000:DE|
00001870  43 20 43 54 3a 4c 44 41  20 43 54 3a 42 4e 45 20  |C CT:LDA CT:BNE |
00001880  4e 4e 31 30 30 30 3a 4c  44 41 20 23 32 35 35 3a  |NN1000:LDA #255:|
00001890  53 54 41 20 43 43 72 79  3a 4a 53 52 20 52 6e 64  |STA CCry:JSR Rnd|
000018a0  3a 80 20 23 36 34 3a 43  4c 43 3a 41 44 43 20 23  |:. #64:CLC:ADC #|
000018b0  35 3a 53 54 41 20 43 43  58 3a 4a 53 52 20 52 6e  |5:STA CCX:JSR Rn|
000018c0  64 3a 80 20 23 31 32 37  3a 43 4c 43 3a 41 44 43  |d:. #127:CLC:ADC|
000018d0  20 23 32 34 3a 53 54 41  20 43 43 59 3a 2e 4e 4e  | #24:STA CCY:.NN|
000018e0  31 30 30 30 0d 08 48 07  52 54 53 0d 08 52 08 2e  |1000..H.RTS..R..|
000018f0  59 6f 75 0d 08 5c 1e 4c  44 41 20 23 30 3a 53 54  |You..\.LDA #0:ST|
00001900  41 20 58 44 3a 53 54 41  20 59 44 3a 53 54 41 20  |A XD:STA YD:STA |
00001910  55 0d 08 66 48 4c 44 41  20 4b 65 79 46 6c 61 67  |U..fHLDA KeyFlag|
00001920  3a 42 45 51 20 6e 6f 74  69 6e 74 3a 4c 44 41 20  |:BEQ notint:LDA |
00001930  23 33 3a 53 54 41 20 59  44 3a 4c 44 41 20 23 32  |#3:STA YD:LDA #2|
00001940  35 35 3a 53 54 41 20 55  3a 4a 4d 50 20 4e 36 36  |55:STA U:JMP N66|
00001950  30 3a 2e 6e 6f 74 69 6e  74 0d 08 70 25 4c 44 41  |0:.notint..p%LDA|
00001960  20 4b 46 32 3a 42 45 51  20 71 4e 36 38 30 3a 4a  | KF2:BEQ qN680:J|
00001970  4d 50 20 4e 36 38 30 3a  2e 71 4e 36 38 30 0d 08  |MP N680:.qN680..|
00001980  7a 4e 4c 44 58 20 23 26  42 45 3a 4a 53 52 20 4b  |zNLDX #&BE:JSR K|
00001990  3a 42 43 43 20 4e 36 33  30 3a 4c 44 41 20 59 58  |:BCC N630:LDA YX|
000019a0  3a 43 4d 50 20 23 32 3a  42 43 43 20 4e 36 33 30  |:CMP #2:BCC N630|
000019b0  3a 4c 44 41 20 23 32 35  35 3a 53 54 41 20 58 44  |:LDA #255:STA XD|
000019c0  3a 53 54 41 20 55 3a 2e  4e 36 33 30 0d 08 84 56  |:STA U:.N630...V|
000019d0  4c 44 58 20 23 26 41 45  3a 4a 53 52 20 4b 3a 42  |LDX #&AE:JSR K:B|
000019e0  43 43 20 4e 36 34 30 3a  4c 44 41 20 59 58 3a 43  |CC N640:LDA YX:C|
000019f0  4d 50 20 23 37 35 3a 42  43 53 20 4e 36 34 30 3a  |MP #75:BCS N640:|
00001a00  4c 44 41 20 23 31 3a 53  54 41 20 58 44 3a 4c 44  |LDA #1:STA XD:LD|
00001a10  41 20 23 32 35 35 3a 53  54 41 20 55 3a 2e 4e 36  |A #255:STA U:.N6|
00001a20  34 30 0d 08 8e 58 4c 44  58 20 23 26 42 37 3a 4a  |40...XLDX #&B7:J|
00001a30  53 52 20 4b 3a 42 43 43  20 4e 36 35 30 3a 4c 44  |SR K:BCC N650:LD|
00001a40  41 20 59 59 3a 43 4d 50  20 23 32 33 3a 42 43 43  |A YY:CMP #23:BCC|
00001a50  20 4e 36 35 30 3a 4c 44  41 20 23 32 35 33 3a 53  | N650:LDA #253:S|
00001a60  54 41 20 59 44 3a 4c 44  41 20 23 32 35 35 3a 53  |TA YD:LDA #255:S|
00001a70  54 41 20 55 3a 2e 4e 36  35 30 0d 08 98 57 4c 44  |TA U:.N650...WLD|
00001a80  58 20 23 26 39 37 3a 4a  53 52 20 4b 3a 42 43 43  |X #&97:JSR K:BCC|
00001a90  20 4e 36 36 30 3a 4c 44  41 20 59 59 3a 43 4d 50  | N660:LDA YY:CMP|
00001aa0  20 23 31 37 38 3a 42 43  53 20 4e 36 36 30 3a 4c  | #178:BCS N660:L|
00001ab0  44 41 20 23 33 3a 53 54  41 20 59 44 3a 4c 44 41  |DA #3:STA YD:LDA|
00001ac0  20 23 32 35 35 3a 53 54  41 20 55 3a 2e 4e 36 36  | #255:STA U:.N66|
00001ad0  30 0d 08 a2 36 4c 44 41  20 55 3a 42 45 51 20 4e  |0...6LDA U:BEQ N|
00001ae0  36 37 30 3a 4c 44 41 20  58 44 3a 53 54 41 20 4f  |670:LDA XD:STA O|
00001af0  58 44 3a 4c 44 41 20 59  44 3a 53 54 41 20 4f 59  |XD:LDA YD:STA OY|
00001b00  44 3a 2e 4e 36 37 30 0d  08 ac 6c 4c 44 58 20 23  |D:.N670...lLDX #|
00001b10  26 39 44 3a 4a 53 52 20  4b 3a 42 43 43 20 45 4e  |&9D:JSR K:BCC EN|
00001b20  36 38 30 3a 4c 44 41 20  52 66 3a 42 45 51 20 4e  |680:LDA Rf:BEQ N|
00001b30  36 38 30 3a 4c 44 41 20  23 30 3a 53 54 41 20 52  |680:LDA #0:STA R|
00001b40  66 3a 4a 53 52 20 53 65  74 46 69 72 65 3a 4a 4d  |f:JSR SetFire:JM|
00001b50  50 20 4e 36 38 30 3a 2e  45 4e 36 38 30 20 4c 44  |P N680:.EN680 LD|
00001b60  41 20 23 32 35 35 3a 53  54 41 20 52 66 3a 2e 4e  |A #255:STA Rf:.N|
00001b70  36 38 30 0d 08 b6 3f 44  45 43 20 41 43 3a 4c 44  |680...?DEC AC:LD|
00001b80  41 20 41 43 3a 42 4e 45  20 4e 36 39 30 3a 4c 44  |A AC:BNE N690:LD|
00001b90  41 20 43 3a 82 20 23 31  3a 53 54 41 20 43 3a 4c  |A C:. #1:STA C:L|
00001ba0  44 41 20 23 34 3a 53 54  41 20 41 43 3a 2e 4e 36  |DA #4:STA AC:.N6|
00001bb0  39 30 0d 08 c0 22 4c 44  41 20 23 32 3a 4c 44 58  |90..."LDA #2:LDX|
00001bc0  20 59 58 3a 4c 44 59 20  59 59 3a 4a 53 52 20 26  | YX:LDY YY:JSR &|
00001bd0  32 45 30 30 0d 08 ca 35  43 4c 43 3a 4c 44 41 20  |2E00...5CLC:LDA |
00001be0  59 58 3a 41 44 43 20 58  44 3a 53 54 41 20 59 58  |YX:ADC XD:STA YX|
00001bf0  3a 43 4c 43 3a 4c 44 41  20 59 59 3a 41 44 43 20  |:CLC:LDA YY:ADC |
00001c00  59 44 3a 53 54 41 20 59  59 0d 08 d4 21 4c 44 41  |YD:STA YY...!LDA|
00001c10  20 43 3a 4c 44 58 20 59  58 3a 4c 44 59 20 59 59  | C:LDX YX:LDY YY|
00001c20  3a 4a 53 52 20 26 32 45  30 30 0d 08 de 37 4c 44  |:JSR &2E00...7LD|
00001c30  41 20 46 69 72 65 4e 75  3a 42 45 51 20 4e 37 33  |A FireNu:BEQ N73|
00001c40  30 3a 4a 53 52 20 44 72  61 77 46 69 72 65 3a 4a  |0:JSR DrawFire:J|
00001c50  53 52 20 44 72 61 77 46  69 72 65 3a 2e 4e 37 33  |SR DrawFire:.N73|
00001c60  30 0d 08 e8 07 52 54 53  0d 08 f2 1a 2e 58 44 20  |0....RTS.....XD |
00001c70  4e 4f 50 3a 2e 59 44 20  4e 4f 50 3a 2e 55 20 4e  |NOP:.YD NOP:.U N|
00001c80  4f 50 0d 08 fc 2f 2e 4b  20 4c 44 41 20 23 26 38  |OP.../.K LDA #&8|
00001c90  31 3a 4c 44 59 20 23 26  46 46 3a 4a 53 52 20 26  |1:LDY #&FF:JSR &|
00001ca0  46 46 46 34 3a 43 50 58  20 23 26 46 46 3a 52 54  |FFF4:CPX #&FF:RT|
00001cb0  53 0d 09 06 3b 2e 53 6f  75 6e 64 31 20 45 51 55  |S...;.Sound1 EQU|
00001cc0  42 31 3a 45 51 55 42 30  3a 45 51 55 42 32 3a 45  |B1:EQUB0:EQUB2:E|
00001cd0  51 55 42 30 3a 45 51 55  42 31 3a 45 51 55 42 30  |QUB0:EQUB1:EQUB0|
00001ce0  3a 45 51 55 42 34 3a 45  51 55 42 30 0d 09 10 3c  |:EQUB4:EQUB0...<|
00001cf0  2e 53 6f 75 6e 64 32 20  45 51 55 42 30 3a 45 51  |.Sound2 EQUB0:EQ|
00001d00  55 42 30 3a 45 51 55 42  32 3a 45 51 55 42 30 3a  |UB0:EQUB2:EQUB0:|
00001d10  45 51 55 42 31 30 3a 45  51 55 42 30 3a 45 51 55  |EQUB10:EQUB0:EQU|
00001d20  42 31 3a 45 51 55 42 30  0d 09 1a 3e 2e 53 6f 75  |B1:EQUB0...>.Sou|
00001d30  6e 64 33 20 45 51 55 42  31 3a 45 51 55 42 30 3a  |nd3 EQUB1:EQUB0:|
00001d40  45 51 55 42 33 3a 45 51  55 42 30 3a 45 51 55 42  |EQUB3:EQUB0:EQUB|
00001d50  32 30 30 3a 45 51 55 42  30 3a 45 51 55 42 31 34  |200:EQUB0:EQUB14|
00001d60  3a 45 51 55 42 30 0d 09  24 0b 2e 65 3a 5d 3a ed  |:EQUB0..$..e:]:.|
00001d70  2c 0d 09 2e 0b e3 49 25  3d 30 b8 33 0d 09 38 0c  |,.....I%=0.3..8.|
00001d80  e3 4a 25 3d 30 b8 31 31  0d 09 42 12 f3 20 3f 28  |.J%=0.11..B.. ?(|
00001d90  42 2b 4a 25 2a 34 2b 49  25 29 0d 09 4c 06 ed 2c  |B+J%*4+I%)..L..,|
00001da0  0d 09 56 18 e3 49 25 3d  30 b8 32 35 35 88 34 3a  |..V..I%=0.255.4:|
00001db0  41 21 49 25 3d 30 3a ed  0d 09 60 0e 41 25 3d 43  |A!I%=0:...`.A%=C|
00001dc0  72 79 73 74 61 6c 0d 09  6a 0a 42 25 3d 59 6f 75  |rystal..j.B%=You|
00001dd0  0d 09 74 0f 43 25 3d 4d  6f 76 65 42 6c 6f 62 0d  |..t.C%=MoveBlob.|
00001de0  09 7e 0e 44 25 3d 4d 6f  76 65 52 61 6e 0d 09 88  |.~.D%=MoveRan...|
00001df0  0c 45 25 3d 43 68 65 63  6b 0d 09 92 15 d0 3d 26  |.E%=Check.....=&|
00001e00  31 41 30 30 3a d7 22 41  72 65 6e 61 33 22 0d ff  |1A00:."Arena3"..|
00001e10
Arena2.m0
Arena2.m1
Arena2.m2
Arena2.m4
Arena2.m5