Home » CEEFAX disks » telesoftware17.adl » 11-08-89/SP2
11-08-89/SP2
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 » CEEFAX disks » telesoftware17.adl |
| Filename: | 11-08-89/SP2 |
| Read OK: | ✔ |
| File size: | 2277 bytes |
| Load address: | FFFF1C00 |
| Exec address: | FFFF801F |
Duplicates
There are 4 duplicate copies of this file in the archive:
- AEW website » au » au_5_25_discs_Acorn_User_94_01_tau94-01.ssd » SP2
- AEW website » au » au_tapes_Acorn-User-86-01_AU42-Jan86_E.uef » SP2
- AEW website » au » au_5_25_discs_Games-Compendium_AcornUserGamesCompendium_E.uef » SP2
- AEW website » au » au_tapes_Games-Compendium_AcornUserGamesCompendium_E.uef » SP2
- CEEFAX disks » telesoftware17.adl » 11-08-89/SP2
File contents
10REM Spectramania (2) 20REM by David Acton 30REM for BBC B/B+/128k and Electron 40REM (c) Acorn User January 1986 50: 60HIMEM=&8000:LOMEM=&7500 70ad=&70:ad2=&72:at=&74 80rd=&75:rc=&79:ct1=&7C:ct2=&7D 90ymod=&7E:ymi=&7F:read=&80:end=&84 100map%=&C00:mcol%=&900:code%=&C64 110ah%=&CA0:al%=&CC0:mv%=&9AF 120cb=&C68:cx=&964:cy=&96C:cp=&974 130xst=&82:frz=&89:cell=&83:mnc=&8A 140targ=&86:tot=&85:lvl=&87:cst=&88 150csx=&C70:csy=&C78:cc=&984:cd=&97C 160csmx=&C80:csmy=&C88:cm=&994 170cmx=&99F:cmy=&9A7:cj=&98C 180sw=&C90:sw2=&C98:sc=&99C 190a=&FFEE:w=&FFF1:b=&FFF4 200FOR pass%=0 TO 2 STEP2:P%=&2A29 210[OPT pass% 220.cad 230TYA:PHA 240LSR A 250LSR A 260LSR A 270TAY:PLA 280AND #7 290CLC 300ADC al%,Y 310STA ad 320LDA #0:STA at 330ADC ah%,Y 340STA ad+1 350TXA 360ASL A 370ASL A:ROL at 380ASL A:ROL at 390CLC 400ADC ad 410STA ad 420LDA ad+1 430ADC at 440STA ad+1 450RTS 460.loc 470TYA:ASL A 480STA at 490ASL A 500ASL A 510CLC 520ADC at 530STA at 540TXA 550ADC at 560RTS 570.block 580JSR loc 590PHA 600TXA 610ASL A:ASL A 620ASL A 630TAX 640TYA 650ASL A:ASL A 660ASL A 670STA at 680ASL A 690ADC at 700ADC #16 710TAY 720JSR cad 730LDA ad 740STA ad2 750LDA ad+1 760STA ad2+1 770PLA:TAX 780LDA map%,X 790STA at 800LDA mcol%,X 810AND #3:TAX 820LDA code%,X 830LDX #3 840.blp LDY #63 850.blp2 STA (ad),Y 860DEY:BPL blp2 870PHA 880JSR csub2b 890PLA 900DEX:BNE blp 910.bt LDA #1 920JSR and 930JSR hor 940.bl LDA #8 950JSR and 960JSR vert 970.bb LDA ad2 980SEC 990SBC #121 1000STA ad2 1010LDA ad2+1 1020SBC #2 1030STA ad2+1 1040LDA #4 1050JSR and 1060JSR hor 1070.br LDA ad2 1080SEC 1090SBC #207 1100STA ad2 1110LDA ad2+1 1120SBC #4 1130STA ad2+1 1140LDA #2 1150JSR and 1160.vert LDX #3 1170STA v3+1 1180.v2 LDY #7 1190.v3 LDA #0 1200ORA (ad2),Y 1210STA (ad2),Y 1220DEY:BPL v3 1230JSR csub2 1240DEX:BNE v2 1250RTS 1260.hor LDX #8 1270LDY #0 1280STA h2+1 1290.h2 LDA #0 1300ORA (ad2),Y 1310STA (ad2),Y 1320JSR yadd 1330DEX:BNE h2 1340RTS 1350.and 1360AND at:BEQ a2 1370LDA #63 1380.a2 RTS 1390.key LDY #&FF 1400LDA #129 1410JSR b 1420CPX #255 1430RTS 1440.rand 1450TXA:PHA 1460LDY #8 1470.r1 CLC 1480LDA rd+3 1490BPL r3 1500LDX #2 1510.r2 LDA rd,X 1520EOR rc,X 1530STA rd,X 1540DEX:BPL r2 1550SEC 1560.r3 ROL rd 1570ROL rd+1 1580ROL rd+2 1590ROL rd+3 1600DEY:BPL r1 1610PLA:TAX 1620LDA rd+3 1630RTS 1640.adp 1650LDX #sw2 MOD256 1660LDY #sw2 DIV256 1670LDA #7 1680JSR w 1690LDX #21 1700LDY #0 1710.adsc SED 1720TXA 1730CLC 1740ADC sc 1750STA sc 1760TYA 1770ADC sc+1 1780STA sc+1 1790LDA sc+2 1800ADC #0 1810STA sc+2 1820CLD 1830.score LDA #30 1840JSR a 1850LDX #2 1860.sc2 LDA sc,X 1870LSR A:LSR A 1880LSR A:LSR A 1890CLC:ADC #48 1900JSR a 1910LDA sc,X 1920AND #15 1930CLC:ADC #48 1940JSR a 1950DEX 1960BPL sc2 1970RTS 1980.sound 1990STX sw+6 2000STY sw+2 2010PHA 2020AND #252 2030STA sw+4 2040PLA 2050AND #3 2060STA sw 2070LDX #sw MOD256 2080LDY #sw DIV256 2090LDA #7 2100JMP w 2110.vd19 2120LDA #19:JSR a 2130TXA:JSR a 2140TYA:JSR a 2150LDA #0:JSR a 2160JSR a:JMP a 2170.char LDA cb,X 2180ASL A:ASL A 2190ASL A:ASL A 2200ASL A 2210STA read 2220LDA #&B 2230STA read+1 2240LDY cy,X 2250LDA cx,X 2260TAX 2270JSR charsub 2280.char2 LDX ymi 2290.char3 2300LDA (read),Y 2310ORA (ad),Y 2320STA (ad),Y 2330INY 2340DEX:BNE char3 2350LDX ymod 2360BNE char4 2370JMP char5 2380.char4 2390LDA (read),Y 2400ORA (ad2),Y 2410STA (ad2),Y 2420INY 2430DEX:BNE char4 2440.char5 2450DEC ct1:BNE char2 2460LDA read 2470CLC 2480ADC #32 2490STA read 2500JSR csub2 2510DEC ct2:BNE char2 2520RTS 2530.del LDY cy,X 2540LDA cx,X 2550TAX 2560JSR charsub 2570.del2 LDX ymi 2580.del3 LDA (ad),Y 2590AND #15 2600STA (ad),Y 2610INY 2620DEX:BNE del3 2630LDX ymod 2640BNE del4 2650JMP del5 2660.del4 2670LDA (ad2),Y 2680AND #15 2690STA (ad2),Y 2700INY 2710DEX:BNE del4 2720.del5 2730DEC ct1:BNE del2 2740JSR csub2 2750DEC ct2:BNE del2 2760RTS 2770.charsub 2780TYA:PHA 2790AND #7 2800STA ymod 2810PLA:TAY 2820JSR cad 2830LDA ad 2840CLC:ADC #120 2850STA ad2 2860LDA ad+1 2870ADC #2 2880STA ad2+1 2890LDY #0 2900LDA #8 2910SEC:SBC ymod 2920STA ymi 2930LDA #4 2940STA ct1 2950LDA #2 2960STA ct2 2970RTS 2980.csub2 LDA ad2 2990CLC:ADC #128 3000STA ad2 3010LDA ad2+1 3020ADC #2 3030STA ad2+1 3040.csub2b 3050LDA ad 3060CLC:ADC #128 3070STA ad 3080LDA ad+1 3090ADC #2 3100STA ad+1 3110LDY #0 3120LDA #4 3130STA ct1 3140RTS 3150.main JSR spec 3160JSR spb 3170LDA end 3180BNE e2 3190LDX #14 3200LDY #0 3210.ent LDA #255 3220STA &3B0F,Y 3230JSR yadd 3240DEX:BNE ent 3250.e2 LDX #7 3260.m2 STX xst 3270TXA 3280AND #3 3290BNE m3 3300.synchro 3310LDA #19:JSR b 3320LDX xst 3330.m3 LDA cp,X 3340BNE m3b 3350JMP mn2 3360.m3b LDA frz 3370BEQ m4 3380CPX #3:BCC m4 3390JSR char 3400LDX xst 3410JMP mn2 3420.m4 LDA cc,X 3430BEQ m5 3440JSR del 3450LDX xst 3460LDA cd,X 3470LSR A 3480BCC m4b 3490LDA cy,X 3500SEC:SBC #3 3510STA cy,X 3520JMP m4e 3530.m4b LSR A 3540BCC m4c 3550INC cx,X 3560JMP m4e 3570.m4c LSR A 3580BCC m4d 3590LDA cy,X 3600CLC:ADC #3 3610STA cy,X 3620JMP m4e 3630.m4d LSR A 3640BCC m4e 3650DEC cx,X 3660.m4e JSR char 3670LDX xst 3680DEC cc,X:BEQ m5 3690JMP mn 3700.m5 LDY cmy,X 3710LDA cmx,X 3720TAX 3730JSR loc 3740TAX 3750LDA map%,X 3760STA cell 3770LDX xst 3780CPX #0:BNE m6 3790JSR change 3800LDX #158 3810JSR key 3820BNE m5b 3830LDA #8 3840JMP m5e 3850.m5b LDX #189 3860JSR key 3870BNE m5c 3880LDA #2 3890JMP m5e 3900.m5c LDX #183 3910JSR key 3920BNE m5d 3930LDA #1 3940JMP m5e 3950.m5d LDX #151 3960JSR key 3970BNE m5f 3980LDA #4 3990.m5e LDX xst 4000JSR ok 4010JMP mn 4020.m5f LDA #16 4030STA cd 4040JMP mn 4050.m6 CPX #3 4060BCS m7 4070.m6b LDA cell 4080LSR A:LSR A 4090LSR A:LSR A 4100AND #3:TAY 4110LDA mv%,Y 4120JSR ok 4130JMP mn 4140.m7 LDA cm,X 4150BNE m8 4160LDA cx,X 4170CMP cx 4180BEQ m7c 4190BCC m7b 4200LDA cell 4210AND #8 4220BNE m7c 4230LDA #8 4240JMP m7e 4250.m7b LDA cell 4260AND #2 4270BNE m7c 4280LDA #2 4290JMP m7e 4300.m7c LDA cy,X 4310CMP cy 4320BEQ m7f 4330BCC m7d 4340LDA cell 4350AND #1 4360BNE m7f 4370LDA #1 4380JMP m7e 4390.m7d LDA cell 4400AND #4 4410BNE m7f 4420LDA #4 4430.m7e JSR ok 4440JMP mn 4450.m7f LDA #1 4460STA cm,X 4470JSR rand 4480AND #3 4490ORA #1 4500STA cj,X 4510JMP m6b 4520.m8 LDA cell 4530AND #64 4540BEQ m6b 4550DEC cj,X 4560BNE m6b 4570LDA #0 4580STA cm,X 4590JMP m7 4600.mn LDX xst 4610BEQ mn2 4620.col LDA cx,X 4630SEC:SBC cx 4640BCS c2 4650LDA cx 4660SEC:SBC cx,X 4670.c2 CMP #2 4680BCS c4 4690LDA cy,X 4700SEC:SBC cy 4710BCS c3 4720LDA cy 4730SEC:SBC cy,X 4740.c3 CMP #4 4750.c4 BCS mn2 4760CPX #3 4770BCC c5 4780LDA mnc 4790BNE c4b 4800LDA #1 4810STA end 4820JMP mn2 4830.c4b JSR del 4840LDX #0 4850JSR char 4860LDX xst 4870JSR res2 4880LDA #200 4890STA cc,X 4900LDX #0 4910LDY #16 4920JSR adsc 4930LDX xst 4940JMP mn2 4950.c5 LDA#0 4960STA cp,X 4970JSR del 4980LDX #7 4990LDY #15 5000JSR vd19 5010LDX #0 5020LDY #5 5030JSR adsc 5040LDX #0 5050JSR char 5060LDX xst 5070LDA #200 5080CPX #1:BNE c6 5090STA frz 5100JMP mn2 5110.c6 STA mnc 5120.mn2 5130DEX:BMI m9 5140JMP m2 5150.m9 5160LDA end:BNE out 5170LDA targ 5180CMP tot:BEQ out 5190JMP main 5200.out RTS 5210.ok TAY 5220AND cell:BNE ok6 5230CPY #1 5240BNE ok2 5250DEC cmy,X 5260JMP ok5 5270.ok2 5280CPY #2:BNE ok3 5290INC cmx,X 5300JMP ok5 5310.ok3 5320CPY #4:BNE ok4 5330INC cmy,X 5340JMP ok5 5350.ok4 DEC cmx,X 5360.ok5 TYA 5370STA cd,X 5380LDA #8 5390STA cc,X 5400RTS 5410.ok6 LDA #1 5420STA cc,X 5430LDA #16 5440STA cd,X 5450RTS 5460.change LDA cd 5470CMP #16:BEQ ch6 5480LDY cmy 5490LDX cmx 5500JSR loc 5510TAX 5520LDA mcol%,X 5530STA cst 5540CMP #1:BNE ch2 5550INC mcol%,X 5560JMP ch5 5570.ch2 5580CMP #2:BNE ch3 5590LDA lvl 5600CMP #1:BEQ ch5 5610CMP #3:BEQ ch4 5620INC mcol%,X 5630JMP ch5 5640.ch3 LDA lvl 5650CMP #2:BEQ ch5 5660CMP #4:BEQ ch4 5670DEC mcol%,X 5680.ch4 DEC mcol%,X 5690.ch5 LDA mcol%,X 5700SEC:SBC cst 5710CLC:ADC tot 5720CMP tot 5730PHP 5740STA tot 5750LDY cmy 5760LDX cmx 5770JSR block 5780LDX xst 5790JSR char 5800PLP 5810BCC ch6 5820BEQ ch6 5830JMP adp 5840.ch6 RTS 5850.res2 5860LDX #5 5870LDY #3 5880LDA #65 5890JSR sound 5900LDX xst 5910.reset 5920LDA csx,X 5930STA cx,X 5940LDA csy,X 5950STA cy,X 5960LDA csmx,X 5970STA cmx,X 5980LDA csmy,X 5990STA cmy,X 6000LDA #16 6010STA cd,X 6020JSR rand 6030AND #15 6040ADC #5 6050STA cc,X 6060JSR rand 6070AND #7 6080ADC #2 6090STA cj,X 6100RTS 6110.bar PHA 6120JSR cad 6130PLA 6140LSR A:LSR A 6150LSR A 6160LDY #0 6170TAX 6180BEQ br3 6190.br2 LDA #3 6200STA (ad),Y 6210INY 6220LDA #15 6230STA (ad),Y 6240INY 6250STA (ad),Y 6260INY 6270LDA #3 6280STA (ad),Y 6290TYA 6300CLC:ADC #5 6310TAY 6320DEX 6330BNE br2 6340.br3 LDX #7 6350LDA #0 6360.br4 STA (ad),Y 6370INY 6380DEX:BPL br4 6390RTS 6400.spec LDA frz 6410BEQ spc2 6420DEC frz 6430LDA frz 6440LDX #10 6450JSR specsub1 6460JSR b 6470LDA frz 6480AND #252 6490ORA #1 6500JSR specsub2 6510.spc2 6520LDA mnc:BEQ spc3 6530DEC mnc 6540LDA mnc 6550LDX #50 6560JSR specsub1 6570INX 6580JSR b 6590LDA mnc 6600AND #252 6610ORA #2 6620JMP specsub2 6630.spc3 6640LDA frz:BNE spc4 6650LDA mnc:BNE spc4 6660LDX #7 6670LDY #7 6680JMP vd19 6690.spc4 RTS 6700.spb LDX #2 6710.spb2 LDA cp,X 6720BNE spb3 6730JSR rand 6740BNE spb3 6750JSR rand 6760AND #7 6770BNE spb3 6780INC cp,X 6790JSR reset 6800.spb3 DEX 6810BNE spb2 6820RTS 6830.yadd TYA 6840CLC:ADC #8 6850TAY 6860RTS 6870.specsub1 6880LDY #10 6890JSR bar 6900LDA #21 6910LDX #5 6920RTS 6930.specsub2 6940LDX #1 6950LDY #2 6960JMP sound 6970]NEXT 6980REM Checksum 6990total%=0 7000FOR byte%=&2A29 TO P% 7010total%=total%+?byte%:NEXT 7020IF total%<>157837 CLEAR:MODE6:PRINT"Checksum error - please check listing.":END 7030IF FNelk THEN ?synchro=&EA:synchro!1=&EAEAEAEA 7040CLS:PAGE=&1900:CHAIN"SP3" 7050DEFFNelk=(INKEY(-256)=1)
� Spectramania (2) � by David Acton $� for BBC B/B+/128k and Electron (!� (c) Acorn User January 1986 2: <�=&8000:�=&7500 Fad=&70:ad2=&72:at=&74 P!rd=&75:rc=&79:ct1=&7C:ct2=&7D Z%ymod=&7E:ymi=&7F:read=&80:end=&84 d#map%=&C00:mcol%=&900:code%=&C64 n ah%=&CA0:al%=&CC0:mv%=&9AF x#cb=&C68:cx=&964:cy=&96C:cp=&974 �$xst=&82:frz=&89:cell=&83:mnc=&8A �$targ=&86:tot=&85:lvl=&87:cst=&88 �%csx=&C70:csy=&C78:cc=&984:cd=&97C � csmx=&C80:csmy=&C88:cm=&994 � cmx=&99F:cmy=&9A7:cj=&98C � sw=&C90:sw2=&C98:sc=&99C �a=&FFEE:w=&FFF1:b=&FFF4 � � pass%=0 � 2 �2:P%=&2A29 �[OPT pass% �.cad � TYA:PHA � LSR A � LSR A LSR A TAY:PLA � #7 "CLC , ADC al%,Y 6 STA ad @LDA #0:STA at J ADC ah%,Y T STA ad+1 ^TXA h ASL A rASL A:ROL at |ASL A:ROL at �CLC � ADC ad � STA ad � LDA ad+1 � ADC at � STA ad+1 �RTS �.loc � TYA:ASL A � STA at � ASL A � ASL A �CLC ADC at STA at TXA & ADC at 0RTS : .block D JSR loc NPHA XTXA bASL A:ASL A l ASL A vTAX �TYA �ASL A:ASL A � ASL A � STA at � ASL A � ADC at � ADC #16 �TAY � JSR cad � LDA ad � STA ad2 � LDA ad+1 � STA ad2+1 PLA:TAX LDA map%,X STA at LDA mcol%,X * � #3:TAX 4LDA code%,X > LDX #3 H.blp LDY #63 R.blp2 STA (ad),Y \DEY:BPL blp2 fPHA pJSR csub2b zPLA �DEX:BNE blp �.bt LDA #1 � JSR and � JSR hor �.bl LDA #8 � JSR and � JSR vert �.bb LDA ad2 �SEC � SBC #121 � STA ad2 � LDA ad2+1 � SBC #2 STA ad2+1 LDA #4 JSR and $ JSR hor ..br LDA ad2 8SEC B SBC #207 L STA ad2 V LDA ad2+1 ` SBC #4 j STA ad2+1 t LDA #2 ~ JSR and �.vert LDX #3 � STA v3+1 �.v2 LDY #7 �.v3 LDA #0 ��A (ad2),Y �STA (ad2),Y �DEY:BPL v3 � JSR csub2 �DEX:BNE v2 �RTS �.hor LDX #8 � LDY #0 STA h2+1 .h2 LDA #0 �A (ad2),Y STA (ad2),Y ( JSR yadd 2DEX:BNE h2 <RTS F.and P� at:BEQ a2 Z LDA #63 d .a2 RTS n.key LDY #&FF x LDA #129 � JSR b � CPX #255 �RTS � .rand � TXA:PHA � LDY #8 � .r1 CLC � LDA rd+3 � BPL r3 � LDX #2 �.r2 LDA rd,X � � rc,X � STA rd,X DEX:BPL r2 SEC .r3 ROL rd " ROL rd+1 , ROL rd+2 6 ROL rd+3 @DEY:BPL r1 J PLA:TAX T LDA rd+3 ^RTS h.adp rLDX #sw2 �256 |LDY #sw2 �256 � LDA #7 � JSR w � LDX #21 � LDY #0 � .adsc SED �TXA �CLC � ADC sc � STA sc �TYA � ADC sc+1 � STA sc+1 � LDA sc+2 ADC #0 STA sc+2 CLD &.score LDA #30 0 JSR a : LDX #2 D.sc2 LDA sc,X NLSR A:LSR A XLSR A:LSR A bCLC:ADC #48 l JSR a v LDA sc,X � � #15 �CLC:ADC #48 � JSR a �DEX � BPL sc2 �RTS � .sound � STX sw+6 � STY sw+2 �PHA � � #252 � STA sw+4 �PLA � #3 STA sw LDX #sw �256 LDY #sw �256 * LDA #7 4 JMP w > .vd19 HLDA #19:JSR a R TXA:JSR a \ TYA:JSR a fLDA #0:JSR a pJSR a:JMP a z.char LDA cb,X �ASL A:ASL A �ASL A:ASL A � ASL A � STA read � LDA #&B �STA read+1 � LDY cy,X � LDA cx,X �TAX �JSR charsub �.char2 LDX ymi � .char3 �LDA (read),Y �A (ad),Y STA (ad),Y INY $DEX:BNE char3 . LDX ymod 8 BNE char4 B JMP char5 L .char4 VLDA (read),Y `�A (ad2),Y jSTA (ad2),Y tINY ~DEX:BNE char4 � .char5 �DEC ct1:BNE char2 � LDA read �CLC � ADC #32 � STA read � JSR csub2 �DEC ct2:BNE char2 �RTS �.del LDY cy,X � LDA cx,X �TAX JSR charsub .del2 LDX ymi .del3 LDA (ad),Y � #15 (STA (ad),Y 2INY <DEX:BNE del3 F LDX ymod P BNE del4 Z JMP del5 d .del4 nLDA (ad2),Y x � #15 �STA (ad2),Y �INY �DEX:BNE del4 � .del5 �DEC ct1:BNE del2 � JSR csub2 �DEC ct2:BNE del2 �RTS � .charsub � TYA:PHA �� #7 � STA ymod � PLA:TAY JSR cad LDA ad CLC:ADC #120 " STA ad2 , LDA ad+1 6 ADC #2 @ STA ad2+1 J LDY #0 T LDA #8 ^SEC:SBC ymod h STA ymi r LDA #4 | STA ct1 � LDA #2 � STA ct2 �RTS �.csub2 LDA ad2 �CLC:ADC #128 � STA ad2 � LDA ad2+1 � ADC #2 � STA ad2+1 � .csub2b � LDA ad �CLC:ADC #128 � STA ad LDA ad+1 ADC #2 STA ad+1 & LDY #0 0 LDA #4 : STA ct1 DRTS N.main JSR spec X JSR spb b LDA end l BNE e2 v LDX #14 � LDY #0 �.ent LDA #255 �STA &3B0F,Y � JSR yadd �DEX:BNE ent �.e2 LDX #7 �.m2 STX xst �TXA �� #3 � BNE m3 � .synchro �LDA #19:JSR b � LDX xst .m3 LDA cp,X BNE m3b JMP mn2 .m3b LDA frz * BEQ m4 4CPX #3:BCC m4 > JSR char H LDX xst R JMP mn2 \.m4 LDA cc,X f BEQ m5 p JSR del z LDX xst � LDA cd,X � LSR A � BCC m4b � LDA cy,X �SEC:SBC #3 � STA cy,X � JMP m4e �.m4b LSR A � BCC m4c � INC cx,X � JMP m4e �.m4c LSR A � BCC m4d LDA cy,X CLC:ADC #3 STA cy,X $ JMP m4e ..m4d LSR A 8 BCC m4e B DEC cx,X L.m4e JSR char V LDX xst `DEC cc,X:BEQ m5 j JMP mn t.m5 LDY cmy,X ~ LDA cmx,X �TAX � JSR loc �TAX �LDA map%,X � STA cell � LDX xst �CPX #0:BNE m6 �JSR change � LDX #158 � JSR key � BNE m5b � LDA #8 JMP m5e .m5b LDX #189 JSR key BNE m5c ( LDA #2 2 JMP m5e <.m5c LDX #183 F JSR key P BNE m5d Z LDA #1 d JMP m5e n.m5d LDX #151 x JSR key � BNE m5f � LDA #4 �.m5e LDX xst � JSR ok � JMP mn �.m5f LDA #16 � STA cd � JMP mn �.m6 CPX #3 � BCS m7 �.m6b LDA cell �LSR A:LSR A �LSR A:LSR A � #3:TAY LDA mv%,Y JSR ok " JMP mn ,.m7 LDA cm,X 6 BNE m8 @ LDA cx,X J CMP cx T BEQ m7c ^ BCC m7b h LDA cell r� #8 | BNE m7c � LDA #8 � JMP m7e �.m7b LDA cell �� #2 � BNE m7c � LDA #2 � JMP m7e �.m7c LDA cy,X � CMP cy � BEQ m7f � BCC m7d � LDA cell �� #1 BNE m7f LDA #1 JMP m7e &.m7d LDA cell 0� #4 : BNE m7f D LDA #4 N.m7e JSR ok X JMP mn b.m7f LDA #1 l STA cm,X v JSR rand �� #3 � �A #1 � STA cj,X � JMP m6b �.m8 LDA cell � � #64 � BEQ m6b � DEC cj,X � BNE m6b � LDA #0 � STA cm,X � JMP m7 �.mn LDX xst BEQ mn2 .col LDA cx,X SEC:SBC cx BCS c2 * LDA cx 4SEC:SBC cx,X >.c2 CMP #2 H BCS c4 R LDA cy,X \SEC:SBC cy f BCS c3 p LDA cy zSEC:SBC cy,X �.c3 CMP #4 �.c4 BCS mn2 � CPX #3 � BCC c5 � LDA mnc � BNE c4b � LDA #1 � STA end � JMP mn2 �.c4b JSR del � LDX #0 � JSR char � LDX xst JSR res2 LDA #200 STA cc,X $ LDX #0 . LDY #16 8 JSR adsc B LDX xst L JMP mn2 V .c5 LDA#0 ` STA cp,X j JSR del t LDX #7 ~ LDY #15 � JSR vd19 � LDX #0 � LDY #5 � JSR adsc � LDX #0 � JSR char � LDX xst � LDA #200 �CPX #1:BNE c6 � STA frz � JMP mn2 �.c6 STA mnc .mn2 DEX:BMI m9 JMP m2 .m9 (LDA end:BNE out 2 LDA targ <CMP tot:BEQ out F JMP main P .out RTS Z .ok TAY d� cell:BNE ok6 n CPY #1 x BNE ok2 � DEC cmy,X � JMP ok5 �.ok2 �CPY #2:BNE ok3 � INC cmx,X � JMP ok5 �.ok3 �CPY #4:BNE ok4 � INC cmy,X � JMP ok5 �.ok4 DEC cmx,X � .ok5 TYA � STA cd,X LDA #8 STA cc,X RTS ".ok6 LDA #1 , STA cc,X 6 LDA #16 @ STA cd,X JRTS T.change LDA cd ^CMP #16:BEQ ch6 h LDY cmy r LDX cmx | JSR loc �TAX �LDA mcol%,X � STA cst �CMP #1:BNE ch2 �INC mcol%,X � JMP ch5 �.ch2 �CMP #2:BNE ch3 � LDA lvl �CMP #1:BEQ ch5 �CMP #3:BEQ ch4 �INC mcol%,X � JMP ch5 .ch3 LDA lvl CMP #2:BEQ ch5 CMP #4:BEQ ch4 &DEC mcol%,X 0.ch4 DEC mcol%,X :.ch5 LDA mcol%,X DSEC:SBC cst NCLC:ADC tot X CMP tot bPHP l STA tot v LDY cmy � LDX cmx � JSR block � LDX xst � JSR char �PLP � BCC ch6 � BEQ ch6 � JMP adp � .ch6 RTS � .res2 � LDX #5 � LDY #3 � LDA #65 JSR sound LDX xst .reset LDA csx,X * STA cx,X 4 LDA csy,X > STA cy,X HLDA csmx,X R STA cmx,X \LDA csmy,X f STA cmy,X p LDA #16 z STA cd,X � JSR rand � � #15 � ADC #5 � STA cc,X � JSR rand �� #7 � ADC #2 � STA cj,X �RTS � .bar PHA � JSR cad �PLA �LSR A:LSR A LSR A LDY #0 TAX $ BEQ br3 ..br2 LDA #3 8STA (ad),Y BINY L LDA #15 VSTA (ad),Y `INY jSTA (ad),Y tINY ~ LDA #3 �STA (ad),Y �TYA �CLC:ADC #5 �TAY �DEX � BNE br2 �.br3 LDX #7 � LDA #0 �.br4 STA (ad),Y �INY �DEX:BPL br4 �RTS .spec LDA frz BEQ spc2 DEC frz LDA frz ( LDX #10 2JSR specsub1 < JSR b F LDA frz P � #252 Z �A #1 dJSR specsub2 n .spc2 xLDA mnc:BEQ spc3 � DEC mnc � LDA mnc � LDX #50 �JSR specsub1 �INX � JSR b � LDA mnc � � #252 � �A #2 �JMP specsub2 � .spc3 �LDA frz:BNE spc4 �LDA mnc:BNE spc4 LDX #7 LDY #7 JMP vd19 " .spc4 RTS ,.spb LDX #2 6.spb2 LDA cp,X @ BNE spb3 J JSR rand T BNE spb3 ^ JSR rand h� #7 r BNE spb3 | INC cp,X � JSR reset � .spb3 DEX � BNE spb2 �RTS � .yadd TYA �CLC:ADC #8 �TAY �RTS � .specsub1 � LDY #10 � JSR bar � LDA #21 � LDX #5 RTS .specsub2 LDX #1 & LDY #2 0 JMP sound :]� D� Checksum N total%=0 X� byte%=&2A29 � P% btotal%=total%+?byte%:� lE� total%<>157837 �:�6:�"Checksum error - please check listing.":� v-� �elk � ?synchro=&EA:synchro!1=&EAEAEAEA ��:�=&1900:�"SP3" �ݤelk=(�(-256)=1) �
00000000 0d 00 0a 16 f4 20 53 70 65 63 74 72 61 6d 61 6e |..... Spectraman| 00000010 69 61 20 28 32 29 0d 00 14 14 f4 20 62 79 20 44 |ia (2)..... by D| 00000020 61 76 69 64 20 41 63 74 6f 6e 0d 00 1e 24 f4 20 |avid Acton...$. | 00000030 66 6f 72 20 42 42 43 20 42 2f 42 2b 2f 31 32 38 |for BBC B/B+/128| 00000040 6b 20 61 6e 64 20 45 6c 65 63 74 72 6f 6e 0d 00 |k and Electron..| 00000050 28 21 f4 20 28 63 29 20 41 63 6f 72 6e 20 55 73 |(!. (c) Acorn Us| 00000060 65 72 20 4a 61 6e 75 61 72 79 20 31 39 38 36 0d |er January 1986.| 00000070 00 32 05 3a 0d 00 3c 13 d3 3d 26 38 30 30 30 3a |.2.:..<..=&8000:| 00000080 d2 3d 26 37 35 30 30 0d 00 46 19 61 64 3d 26 37 |.=&7500..F.ad=&7| 00000090 30 3a 61 64 32 3d 26 37 32 3a 61 74 3d 26 37 34 |0:ad2=&72:at=&74| 000000a0 0d 00 50 21 72 64 3d 26 37 35 3a 72 63 3d 26 37 |..P!rd=&75:rc=&7| 000000b0 39 3a 63 74 31 3d 26 37 43 3a 63 74 32 3d 26 37 |9:ct1=&7C:ct2=&7| 000000c0 44 0d 00 5a 25 79 6d 6f 64 3d 26 37 45 3a 79 6d |D..Z%ymod=&7E:ym| 000000d0 69 3d 26 37 46 3a 72 65 61 64 3d 26 38 30 3a 65 |i=&7F:read=&80:e| 000000e0 6e 64 3d 26 38 34 0d 00 64 23 6d 61 70 25 3d 26 |nd=&84..d#map%=&| 000000f0 43 30 30 3a 6d 63 6f 6c 25 3d 26 39 30 30 3a 63 |C00:mcol%=&900:c| 00000100 6f 64 65 25 3d 26 43 36 34 0d 00 6e 1e 61 68 25 |ode%=&C64..n.ah%| 00000110 3d 26 43 41 30 3a 61 6c 25 3d 26 43 43 30 3a 6d |=&CA0:al%=&CC0:m| 00000120 76 25 3d 26 39 41 46 0d 00 78 23 63 62 3d 26 43 |v%=&9AF..x#cb=&C| 00000130 36 38 3a 63 78 3d 26 39 36 34 3a 63 79 3d 26 39 |68:cx=&964:cy=&9| 00000140 36 43 3a 63 70 3d 26 39 37 34 0d 00 82 24 78 73 |6C:cp=&974...$xs| 00000150 74 3d 26 38 32 3a 66 72 7a 3d 26 38 39 3a 63 65 |t=&82:frz=&89:ce| 00000160 6c 6c 3d 26 38 33 3a 6d 6e 63 3d 26 38 41 0d 00 |ll=&83:mnc=&8A..| 00000170 8c 24 74 61 72 67 3d 26 38 36 3a 74 6f 74 3d 26 |.$targ=&86:tot=&| 00000180 38 35 3a 6c 76 6c 3d 26 38 37 3a 63 73 74 3d 26 |85:lvl=&87:cst=&| 00000190 38 38 0d 00 96 25 63 73 78 3d 26 43 37 30 3a 63 |88...%csx=&C70:c| 000001a0 73 79 3d 26 43 37 38 3a 63 63 3d 26 39 38 34 3a |sy=&C78:cc=&984:| 000001b0 63 64 3d 26 39 37 43 0d 00 a0 1f 63 73 6d 78 3d |cd=&97C....csmx=| 000001c0 26 43 38 30 3a 63 73 6d 79 3d 26 43 38 38 3a 63 |&C80:csmy=&C88:c| 000001d0 6d 3d 26 39 39 34 0d 00 aa 1d 63 6d 78 3d 26 39 |m=&994....cmx=&9| 000001e0 39 46 3a 63 6d 79 3d 26 39 41 37 3a 63 6a 3d 26 |9F:cmy=&9A7:cj=&| 000001f0 39 38 43 0d 00 b4 1c 73 77 3d 26 43 39 30 3a 73 |98C....sw=&C90:s| 00000200 77 32 3d 26 43 39 38 3a 73 63 3d 26 39 39 43 0d |w2=&C98:sc=&99C.| 00000210 00 be 1b 61 3d 26 46 46 45 45 3a 77 3d 26 46 46 |...a=&FFEE:w=&FF| 00000220 46 31 3a 62 3d 26 46 46 46 34 0d 00 c8 1d e3 20 |F1:b=&FFF4..... | 00000230 70 61 73 73 25 3d 30 20 b8 20 32 20 88 32 3a 50 |pass%=0 . 2 .2:P| 00000240 25 3d 26 32 41 32 39 0d 00 d2 0e 5b 4f 50 54 20 |%=&2A29....[OPT | 00000250 70 61 73 73 25 0d 00 dc 08 2e 63 61 64 0d 00 e6 |pass%.....cad...| 00000260 0b 54 59 41 3a 50 48 41 0d 00 f0 09 4c 53 52 20 |.TYA:PHA....LSR | 00000270 41 0d 00 fa 09 4c 53 52 20 41 0d 01 04 09 4c 53 |A....LSR A....LS| 00000280 52 20 41 0d 01 0e 0b 54 41 59 3a 50 4c 41 0d 01 |R A....TAY:PLA..| 00000290 18 08 80 20 23 37 0d 01 22 07 43 4c 43 0d 01 2c |... #7..".CLC..,| 000002a0 0d 41 44 43 20 61 6c 25 2c 59 0d 01 36 0a 53 54 |.ADC al%,Y..6.ST| 000002b0 41 20 61 64 0d 01 40 11 4c 44 41 20 23 30 3a 53 |A ad..@.LDA #0:S| 000002c0 54 41 20 61 74 0d 01 4a 0d 41 44 43 20 61 68 25 |TA at..J.ADC ah%| 000002d0 2c 59 0d 01 54 0c 53 54 41 20 61 64 2b 31 0d 01 |,Y..T.STA ad+1..| 000002e0 5e 07 54 58 41 0d 01 68 09 41 53 4c 20 41 0d 01 |^.TXA..h.ASL A..| 000002f0 72 10 41 53 4c 20 41 3a 52 4f 4c 20 61 74 0d 01 |r.ASL A:ROL at..| 00000300 7c 10 41 53 4c 20 41 3a 52 4f 4c 20 61 74 0d 01 ||.ASL A:ROL at..| 00000310 86 07 43 4c 43 0d 01 90 0a 41 44 43 20 61 64 0d |..CLC....ADC ad.| 00000320 01 9a 0a 53 54 41 20 61 64 0d 01 a4 0c 4c 44 41 |...STA ad....LDA| 00000330 20 61 64 2b 31 0d 01 ae 0a 41 44 43 20 61 74 0d | ad+1....ADC at.| 00000340 01 b8 0c 53 54 41 20 61 64 2b 31 0d 01 c2 07 52 |...STA ad+1....R| 00000350 54 53 0d 01 cc 08 2e 6c 6f 63 0d 01 d6 0d 54 59 |TS.....loc....TY| 00000360 41 3a 41 53 4c 20 41 0d 01 e0 0a 53 54 41 20 61 |A:ASL A....STA a| 00000370 74 0d 01 ea 09 41 53 4c 20 41 0d 01 f4 09 41 53 |t....ASL A....AS| 00000380 4c 20 41 0d 01 fe 07 43 4c 43 0d 02 08 0a 41 44 |L A....CLC....AD| 00000390 43 20 61 74 0d 02 12 0a 53 54 41 20 61 74 0d 02 |C at....STA at..| 000003a0 1c 07 54 58 41 0d 02 26 0a 41 44 43 20 61 74 0d |..TXA..&.ADC at.| 000003b0 02 30 07 52 54 53 0d 02 3a 0a 2e 62 6c 6f 63 6b |.0.RTS..:..block| 000003c0 0d 02 44 0b 4a 53 52 20 6c 6f 63 0d 02 4e 07 50 |..D.JSR loc..N.P| 000003d0 48 41 0d 02 58 07 54 58 41 0d 02 62 0f 41 53 4c |HA..X.TXA..b.ASL| 000003e0 20 41 3a 41 53 4c 20 41 0d 02 6c 09 41 53 4c 20 | A:ASL A..l.ASL | 000003f0 41 0d 02 76 07 54 41 58 0d 02 80 07 54 59 41 0d |A..v.TAX....TYA.| 00000400 02 8a 0f 41 53 4c 20 41 3a 41 53 4c 20 41 0d 02 |...ASL A:ASL A..| 00000410 94 09 41 53 4c 20 41 0d 02 9e 0a 53 54 41 20 61 |..ASL A....STA a| 00000420 74 0d 02 a8 09 41 53 4c 20 41 0d 02 b2 0a 41 44 |t....ASL A....AD| 00000430 43 20 61 74 0d 02 bc 0b 41 44 43 20 23 31 36 0d |C at....ADC #16.| 00000440 02 c6 07 54 41 59 0d 02 d0 0b 4a 53 52 20 63 61 |...TAY....JSR ca| 00000450 64 0d 02 da 0a 4c 44 41 20 61 64 0d 02 e4 0b 53 |d....LDA ad....S| 00000460 54 41 20 61 64 32 0d 02 ee 0c 4c 44 41 20 61 64 |TA ad2....LDA ad| 00000470 2b 31 0d 02 f8 0d 53 54 41 20 61 64 32 2b 31 0d |+1....STA ad2+1.| 00000480 03 02 0b 50 4c 41 3a 54 41 58 0d 03 0c 0e 4c 44 |...PLA:TAX....LD| 00000490 41 20 6d 61 70 25 2c 58 0d 03 16 0a 53 54 41 20 |A map%,X....STA | 000004a0 61 74 0d 03 20 0f 4c 44 41 20 6d 63 6f 6c 25 2c |at.. .LDA mcol%,| 000004b0 58 0d 03 2a 0c 80 20 23 33 3a 54 41 58 0d 03 34 |X..*.. #3:TAX..4| 000004c0 0f 4c 44 41 20 63 6f 64 65 25 2c 58 0d 03 3e 0a |.LDA code%,X..>.| 000004d0 4c 44 58 20 23 33 0d 03 48 10 2e 62 6c 70 20 4c |LDX #3..H..blp L| 000004e0 44 59 20 23 36 33 0d 03 52 14 2e 62 6c 70 32 20 |DY #63..R..blp2 | 000004f0 53 54 41 20 28 61 64 29 2c 59 0d 03 5c 10 44 45 |STA (ad),Y..\.DE| 00000500 59 3a 42 50 4c 20 62 6c 70 32 0d 03 66 07 50 48 |Y:BPL blp2..f.PH| 00000510 41 0d 03 70 0e 4a 53 52 20 63 73 75 62 32 62 0d |A..p.JSR csub2b.| 00000520 03 7a 07 50 4c 41 0d 03 84 0f 44 45 58 3a 42 4e |.z.PLA....DEX:BN| 00000530 45 20 62 6c 70 0d 03 8e 0e 2e 62 74 20 4c 44 41 |E blp.....bt LDA| 00000540 20 23 31 0d 03 98 0b 4a 53 52 20 61 6e 64 0d 03 | #1....JSR and..| 00000550 a2 0b 4a 53 52 20 68 6f 72 0d 03 ac 0e 2e 62 6c |..JSR hor.....bl| 00000560 20 4c 44 41 20 23 38 0d 03 b6 0b 4a 53 52 20 61 | LDA #8....JSR a| 00000570 6e 64 0d 03 c0 0c 4a 53 52 20 76 65 72 74 0d 03 |nd....JSR vert..| 00000580 ca 0f 2e 62 62 20 4c 44 41 20 61 64 32 0d 03 d4 |...bb LDA ad2...| 00000590 07 53 45 43 0d 03 de 0c 53 42 43 20 23 31 32 31 |.SEC....SBC #121| 000005a0 0d 03 e8 0b 53 54 41 20 61 64 32 0d 03 f2 0d 4c |....STA ad2....L| 000005b0 44 41 20 61 64 32 2b 31 0d 03 fc 0a 53 42 43 20 |DA ad2+1....SBC | 000005c0 23 32 0d 04 06 0d 53 54 41 20 61 64 32 2b 31 0d |#2....STA ad2+1.| 000005d0 04 10 0a 4c 44 41 20 23 34 0d 04 1a 0b 4a 53 52 |...LDA #4....JSR| 000005e0 20 61 6e 64 0d 04 24 0b 4a 53 52 20 68 6f 72 0d | and..$.JSR hor.| 000005f0 04 2e 0f 2e 62 72 20 4c 44 41 20 61 64 32 0d 04 |....br LDA ad2..| 00000600 38 07 53 45 43 0d 04 42 0c 53 42 43 20 23 32 30 |8.SEC..B.SBC #20| 00000610 37 0d 04 4c 0b 53 54 41 20 61 64 32 0d 04 56 0d |7..L.STA ad2..V.| 00000620 4c 44 41 20 61 64 32 2b 31 0d 04 60 0a 53 42 43 |LDA ad2+1..`.SBC| 00000630 20 23 34 0d 04 6a 0d 53 54 41 20 61 64 32 2b 31 | #4..j.STA ad2+1| 00000640 0d 04 74 0a 4c 44 41 20 23 32 0d 04 7e 0b 4a 53 |..t.LDA #2..~.JS| 00000650 52 20 61 6e 64 0d 04 88 10 2e 76 65 72 74 20 4c |R and.....vert L| 00000660 44 58 20 23 33 0d 04 92 0c 53 54 41 20 76 33 2b |DX #3....STA v3+| 00000670 31 0d 04 9c 0e 2e 76 32 20 4c 44 59 20 23 37 0d |1.....v2 LDY #7.| 00000680 04 a6 0e 2e 76 33 20 4c 44 41 20 23 30 0d 04 b0 |....v3 LDA #0...| 00000690 0e 84 41 20 28 61 64 32 29 2c 59 0d 04 ba 0f 53 |..A (ad2),Y....S| 000006a0 54 41 20 28 61 64 32 29 2c 59 0d 04 c4 0e 44 45 |TA (ad2),Y....DE| 000006b0 59 3a 42 50 4c 20 76 33 0d 04 ce 0d 4a 53 52 20 |Y:BPL v3....JSR | 000006c0 63 73 75 62 32 0d 04 d8 0e 44 45 58 3a 42 4e 45 |csub2....DEX:BNE| 000006d0 20 76 32 0d 04 e2 07 52 54 53 0d 04 ec 0f 2e 68 | v2....RTS.....h| 000006e0 6f 72 20 4c 44 58 20 23 38 0d 04 f6 0a 4c 44 59 |or LDX #8....LDY| 000006f0 20 23 30 0d 05 00 0c 53 54 41 20 68 32 2b 31 0d | #0....STA h2+1.| 00000700 05 0a 0e 2e 68 32 20 4c 44 41 20 23 30 0d 05 14 |....h2 LDA #0...| 00000710 0e 84 41 20 28 61 64 32 29 2c 59 0d 05 1e 0f 53 |..A (ad2),Y....S| 00000720 54 41 20 28 61 64 32 29 2c 59 0d 05 28 0c 4a 53 |TA (ad2),Y..(.JS| 00000730 52 20 79 61 64 64 0d 05 32 0e 44 45 58 3a 42 4e |R yadd..2.DEX:BN| 00000740 45 20 68 32 0d 05 3c 07 52 54 53 0d 05 46 08 2e |E h2..<.RTS..F..| 00000750 61 6e 64 0d 05 50 0f 80 20 61 74 3a 42 45 51 20 |and..P.. at:BEQ | 00000760 61 32 0d 05 5a 0b 4c 44 41 20 23 36 33 0d 05 64 |a2..Z.LDA #63..d| 00000770 0b 2e 61 32 20 52 54 53 0d 05 6e 11 2e 6b 65 79 |..a2 RTS..n..key| 00000780 20 4c 44 59 20 23 26 46 46 0d 05 78 0c 4c 44 41 | LDY #&FF..x.LDA| 00000790 20 23 31 32 39 0d 05 82 09 4a 53 52 20 62 0d 05 | #129....JSR b..| 000007a0 8c 0c 43 50 58 20 23 32 35 35 0d 05 96 07 52 54 |..CPX #255....RT| 000007b0 53 0d 05 a0 09 2e 72 61 6e 64 0d 05 aa 0b 54 58 |S.....rand....TX| 000007c0 41 3a 50 48 41 0d 05 b4 0a 4c 44 59 20 23 38 0d |A:PHA....LDY #8.| 000007d0 05 be 0b 2e 72 31 20 43 4c 43 0d 05 c8 0c 4c 44 |....r1 CLC....LD| 000007e0 41 20 72 64 2b 33 0d 05 d2 0a 42 50 4c 20 72 33 |A rd+3....BPL r3| 000007f0 0d 05 dc 0a 4c 44 58 20 23 32 0d 05 e6 10 2e 72 |....LDX #2.....r| 00000800 32 20 4c 44 41 20 72 64 2c 58 0d 05 f0 0a 82 20 |2 LDA rd,X..... | 00000810 72 63 2c 58 0d 05 fa 0c 53 54 41 20 72 64 2c 58 |rc,X....STA rd,X| 00000820 0d 06 04 0e 44 45 58 3a 42 50 4c 20 72 32 0d 06 |....DEX:BPL r2..| 00000830 0e 07 53 45 43 0d 06 18 0e 2e 72 33 20 52 4f 4c |..SEC.....r3 ROL| 00000840 20 72 64 0d 06 22 0c 52 4f 4c 20 72 64 2b 31 0d | rd..".ROL rd+1.| 00000850 06 2c 0c 52 4f 4c 20 72 64 2b 32 0d 06 36 0c 52 |.,.ROL rd+2..6.R| 00000860 4f 4c 20 72 64 2b 33 0d 06 40 0e 44 45 59 3a 42 |OL rd+3..@.DEY:B| 00000870 50 4c 20 72 31 0d 06 4a 0b 50 4c 41 3a 54 41 58 |PL r1..J.PLA:TAX| 00000880 0d 06 54 0c 4c 44 41 20 72 64 2b 33 0d 06 5e 07 |..T.LDA rd+3..^.| 00000890 52 54 53 0d 06 68 08 2e 61 64 70 0d 06 72 11 4c |RTS..h..adp..r.L| 000008a0 44 58 20 23 73 77 32 20 83 32 35 36 0d 06 7c 11 |DX #sw2 .256..|.| 000008b0 4c 44 59 20 23 73 77 32 20 81 32 35 36 0d 06 86 |LDY #sw2 .256...| 000008c0 0a 4c 44 41 20 23 37 0d 06 90 09 4a 53 52 20 77 |.LDA #7....JSR w| 000008d0 0d 06 9a 0b 4c 44 58 20 23 32 31 0d 06 a4 0a 4c |....LDX #21....L| 000008e0 44 59 20 23 30 0d 06 ae 0d 2e 61 64 73 63 20 53 |DY #0.....adsc S| 000008f0 45 44 0d 06 b8 07 54 58 41 0d 06 c2 07 43 4c 43 |ED....TXA....CLC| 00000900 0d 06 cc 0a 41 44 43 20 73 63 0d 06 d6 0a 53 54 |....ADC sc....ST| 00000910 41 20 73 63 0d 06 e0 07 54 59 41 0d 06 ea 0c 41 |A sc....TYA....A| 00000920 44 43 20 73 63 2b 31 0d 06 f4 0c 53 54 41 20 73 |DC sc+1....STA s| 00000930 63 2b 31 0d 06 fe 0c 4c 44 41 20 73 63 2b 32 0d |c+1....LDA sc+2.| 00000940 07 08 0a 41 44 43 20 23 30 0d 07 12 0c 53 54 41 |...ADC #0....STA| 00000950 20 73 63 2b 32 0d 07 1c 07 43 4c 44 0d 07 26 12 | sc+2....CLD..&.| 00000960 2e 73 63 6f 72 65 20 4c 44 41 20 23 33 30 0d 07 |.score LDA #30..| 00000970 30 09 4a 53 52 20 61 0d 07 3a 0a 4c 44 58 20 23 |0.JSR a..:.LDX #| 00000980 32 0d 07 44 11 2e 73 63 32 20 4c 44 41 20 73 63 |2..D..sc2 LDA sc| 00000990 2c 58 0d 07 4e 0f 4c 53 52 20 41 3a 4c 53 52 20 |,X..N.LSR A:LSR | 000009a0 41 0d 07 58 0f 4c 53 52 20 41 3a 4c 53 52 20 41 |A..X.LSR A:LSR A| 000009b0 0d 07 62 0f 43 4c 43 3a 41 44 43 20 23 34 38 0d |..b.CLC:ADC #48.| 000009c0 07 6c 09 4a 53 52 20 61 0d 07 76 0c 4c 44 41 20 |.l.JSR a..v.LDA | 000009d0 73 63 2c 58 0d 07 80 09 80 20 23 31 35 0d 07 8a |sc,X..... #15...| 000009e0 0f 43 4c 43 3a 41 44 43 20 23 34 38 0d 07 94 09 |.CLC:ADC #48....| 000009f0 4a 53 52 20 61 0d 07 9e 07 44 45 58 0d 07 a8 0b |JSR a....DEX....| 00000a00 42 50 4c 20 73 63 32 0d 07 b2 07 52 54 53 0d 07 |BPL sc2....RTS..| 00000a10 bc 0a 2e 73 6f 75 6e 64 0d 07 c6 0c 53 54 58 20 |...sound....STX | 00000a20 73 77 2b 36 0d 07 d0 0c 53 54 59 20 73 77 2b 32 |sw+6....STY sw+2| 00000a30 0d 07 da 07 50 48 41 0d 07 e4 0a 80 20 23 32 35 |....PHA..... #25| 00000a40 32 0d 07 ee 0c 53 54 41 20 73 77 2b 34 0d 07 f8 |2....STA sw+4...| 00000a50 07 50 4c 41 0d 08 02 08 80 20 23 33 0d 08 0c 0a |.PLA..... #3....| 00000a60 53 54 41 20 73 77 0d 08 16 10 4c 44 58 20 23 73 |STA sw....LDX #s| 00000a70 77 20 83 32 35 36 0d 08 20 10 4c 44 59 20 23 73 |w .256.. .LDY #s| 00000a80 77 20 81 32 35 36 0d 08 2a 0a 4c 44 41 20 23 37 |w .256..*.LDA #7| 00000a90 0d 08 34 09 4a 4d 50 20 77 0d 08 3e 09 2e 76 64 |..4.JMP w..>..vd| 00000aa0 31 39 0d 08 48 11 4c 44 41 20 23 31 39 3a 4a 53 |19..H.LDA #19:JS| 00000ab0 52 20 61 0d 08 52 0d 54 58 41 3a 4a 53 52 20 61 |R a..R.TXA:JSR a| 00000ac0 0d 08 5c 0d 54 59 41 3a 4a 53 52 20 61 0d 08 66 |..\.TYA:JSR a..f| 00000ad0 10 4c 44 41 20 23 30 3a 4a 53 52 20 61 0d 08 70 |.LDA #0:JSR a..p| 00000ae0 0f 4a 53 52 20 61 3a 4a 4d 50 20 61 0d 08 7a 12 |.JSR a:JMP a..z.| 00000af0 2e 63 68 61 72 20 4c 44 41 20 63 62 2c 58 0d 08 |.char LDA cb,X..| 00000b00 84 0f 41 53 4c 20 41 3a 41 53 4c 20 41 0d 08 8e |..ASL A:ASL A...| 00000b10 0f 41 53 4c 20 41 3a 41 53 4c 20 41 0d 08 98 09 |.ASL A:ASL A....| 00000b20 41 53 4c 20 41 0d 08 a2 0c 53 54 41 20 72 65 61 |ASL A....STA rea| 00000b30 64 0d 08 ac 0b 4c 44 41 20 23 26 42 0d 08 b6 0e |d....LDA #&B....| 00000b40 53 54 41 20 72 65 61 64 2b 31 0d 08 c0 0c 4c 44 |STA read+1....LD| 00000b50 59 20 63 79 2c 58 0d 08 ca 0c 4c 44 41 20 63 78 |Y cy,X....LDA cx| 00000b60 2c 58 0d 08 d4 07 54 41 58 0d 08 de 0f 4a 53 52 |,X....TAX....JSR| 00000b70 20 63 68 61 72 73 75 62 0d 08 e8 12 2e 63 68 61 | charsub.....cha| 00000b80 72 32 20 4c 44 58 20 79 6d 69 0d 08 f2 0a 2e 63 |r2 LDX ymi.....c| 00000b90 68 61 72 33 0d 08 fc 10 4c 44 41 20 28 72 65 61 |har3....LDA (rea| 00000ba0 64 29 2c 59 0d 09 06 0d 84 41 20 28 61 64 29 2c |d),Y.....A (ad),| 00000bb0 59 0d 09 10 0e 53 54 41 20 28 61 64 29 2c 59 0d |Y....STA (ad),Y.| 00000bc0 09 1a 07 49 4e 59 0d 09 24 11 44 45 58 3a 42 4e |...INY..$.DEX:BN| 00000bd0 45 20 63 68 61 72 33 0d 09 2e 0c 4c 44 58 20 79 |E char3....LDX y| 00000be0 6d 6f 64 0d 09 38 0d 42 4e 45 20 63 68 61 72 34 |mod..8.BNE char4| 00000bf0 0d 09 42 0d 4a 4d 50 20 63 68 61 72 35 0d 09 4c |..B.JMP char5..L| 00000c00 0a 2e 63 68 61 72 34 0d 09 56 10 4c 44 41 20 28 |..char4..V.LDA (| 00000c10 72 65 61 64 29 2c 59 0d 09 60 0e 84 41 20 28 61 |read),Y..`..A (a| 00000c20 64 32 29 2c 59 0d 09 6a 0f 53 54 41 20 28 61 64 |d2),Y..j.STA (ad| 00000c30 32 29 2c 59 0d 09 74 07 49 4e 59 0d 09 7e 11 44 |2),Y..t.INY..~.D| 00000c40 45 58 3a 42 4e 45 20 63 68 61 72 34 0d 09 88 0a |EX:BNE char4....| 00000c50 2e 63 68 61 72 35 0d 09 92 15 44 45 43 20 63 74 |.char5....DEC ct| 00000c60 31 3a 42 4e 45 20 63 68 61 72 32 0d 09 9c 0c 4c |1:BNE char2....L| 00000c70 44 41 20 72 65 61 64 0d 09 a6 07 43 4c 43 0d 09 |DA read....CLC..| 00000c80 b0 0b 41 44 43 20 23 33 32 0d 09 ba 0c 53 54 41 |..ADC #32....STA| 00000c90 20 72 65 61 64 0d 09 c4 0d 4a 53 52 20 63 73 75 | read....JSR csu| 00000ca0 62 32 0d 09 ce 15 44 45 43 20 63 74 32 3a 42 4e |b2....DEC ct2:BN| 00000cb0 45 20 63 68 61 72 32 0d 09 d8 07 52 54 53 0d 09 |E char2....RTS..| 00000cc0 e2 11 2e 64 65 6c 20 4c 44 59 20 63 79 2c 58 0d |...del LDY cy,X.| 00000cd0 09 ec 0c 4c 44 41 20 63 78 2c 58 0d 09 f6 07 54 |...LDA cx,X....T| 00000ce0 41 58 0d 0a 00 0f 4a 53 52 20 63 68 61 72 73 75 |AX....JSR charsu| 00000cf0 62 0d 0a 0a 11 2e 64 65 6c 32 20 4c 44 58 20 79 |b.....del2 LDX y| 00000d00 6d 69 0d 0a 14 14 2e 64 65 6c 33 20 4c 44 41 20 |mi.....del3 LDA | 00000d10 28 61 64 29 2c 59 0d 0a 1e 09 80 20 23 31 35 0d |(ad),Y..... #15.| 00000d20 0a 28 0e 53 54 41 20 28 61 64 29 2c 59 0d 0a 32 |.(.STA (ad),Y..2| 00000d30 07 49 4e 59 0d 0a 3c 10 44 45 58 3a 42 4e 45 20 |.INY..<.DEX:BNE | 00000d40 64 65 6c 33 0d 0a 46 0c 4c 44 58 20 79 6d 6f 64 |del3..F.LDX ymod| 00000d50 0d 0a 50 0c 42 4e 45 20 64 65 6c 34 0d 0a 5a 0c |..P.BNE del4..Z.| 00000d60 4a 4d 50 20 64 65 6c 35 0d 0a 64 09 2e 64 65 6c |JMP del5..d..del| 00000d70 34 0d 0a 6e 0f 4c 44 41 20 28 61 64 32 29 2c 59 |4..n.LDA (ad2),Y| 00000d80 0d 0a 78 09 80 20 23 31 35 0d 0a 82 0f 53 54 41 |..x.. #15....STA| 00000d90 20 28 61 64 32 29 2c 59 0d 0a 8c 07 49 4e 59 0d | (ad2),Y....INY.| 00000da0 0a 96 10 44 45 58 3a 42 4e 45 20 64 65 6c 34 0d |...DEX:BNE del4.| 00000db0 0a a0 09 2e 64 65 6c 35 0d 0a aa 14 44 45 43 20 |....del5....DEC | 00000dc0 63 74 31 3a 42 4e 45 20 64 65 6c 32 0d 0a b4 0d |ct1:BNE del2....| 00000dd0 4a 53 52 20 63 73 75 62 32 0d 0a be 14 44 45 43 |JSR csub2....DEC| 00000de0 20 63 74 32 3a 42 4e 45 20 64 65 6c 32 0d 0a c8 | ct2:BNE del2...| 00000df0 07 52 54 53 0d 0a d2 0c 2e 63 68 61 72 73 75 62 |.RTS.....charsub| 00000e00 0d 0a dc 0b 54 59 41 3a 50 48 41 0d 0a e6 08 80 |....TYA:PHA.....| 00000e10 20 23 37 0d 0a f0 0c 53 54 41 20 79 6d 6f 64 0d | #7....STA ymod.| 00000e20 0a fa 0b 50 4c 41 3a 54 41 59 0d 0b 04 0b 4a 53 |...PLA:TAY....JS| 00000e30 52 20 63 61 64 0d 0b 0e 0a 4c 44 41 20 61 64 0d |R cad....LDA ad.| 00000e40 0b 18 10 43 4c 43 3a 41 44 43 20 23 31 32 30 0d |...CLC:ADC #120.| 00000e50 0b 22 0b 53 54 41 20 61 64 32 0d 0b 2c 0c 4c 44 |.".STA ad2..,.LD| 00000e60 41 20 61 64 2b 31 0d 0b 36 0a 41 44 43 20 23 32 |A ad+1..6.ADC #2| 00000e70 0d 0b 40 0d 53 54 41 20 61 64 32 2b 31 0d 0b 4a |..@.STA ad2+1..J| 00000e80 0a 4c 44 59 20 23 30 0d 0b 54 0a 4c 44 41 20 23 |.LDY #0..T.LDA #| 00000e90 38 0d 0b 5e 10 53 45 43 3a 53 42 43 20 79 6d 6f |8..^.SEC:SBC ymo| 00000ea0 64 0d 0b 68 0b 53 54 41 20 79 6d 69 0d 0b 72 0a |d..h.STA ymi..r.| 00000eb0 4c 44 41 20 23 34 0d 0b 7c 0b 53 54 41 20 63 74 |LDA #4..|.STA ct| 00000ec0 31 0d 0b 86 0a 4c 44 41 20 23 32 0d 0b 90 0b 53 |1....LDA #2....S| 00000ed0 54 41 20 63 74 32 0d 0b 9a 07 52 54 53 0d 0b a4 |TA ct2....RTS...| 00000ee0 12 2e 63 73 75 62 32 20 4c 44 41 20 61 64 32 0d |..csub2 LDA ad2.| 00000ef0 0b ae 10 43 4c 43 3a 41 44 43 20 23 31 32 38 0d |...CLC:ADC #128.| 00000f00 0b b8 0b 53 54 41 20 61 64 32 0d 0b c2 0d 4c 44 |...STA ad2....LD| 00000f10 41 20 61 64 32 2b 31 0d 0b cc 0a 41 44 43 20 23 |A ad2+1....ADC #| 00000f20 32 0d 0b d6 0d 53 54 41 20 61 64 32 2b 31 0d 0b |2....STA ad2+1..| 00000f30 e0 0b 2e 63 73 75 62 32 62 0d 0b ea 0a 4c 44 41 |...csub2b....LDA| 00000f40 20 61 64 0d 0b f4 10 43 4c 43 3a 41 44 43 20 23 | ad....CLC:ADC #| 00000f50 31 32 38 0d 0b fe 0a 53 54 41 20 61 64 0d 0c 08 |128....STA ad...| 00000f60 0c 4c 44 41 20 61 64 2b 31 0d 0c 12 0a 41 44 43 |.LDA ad+1....ADC| 00000f70 20 23 32 0d 0c 1c 0c 53 54 41 20 61 64 2b 31 0d | #2....STA ad+1.| 00000f80 0c 26 0a 4c 44 59 20 23 30 0d 0c 30 0a 4c 44 41 |.&.LDY #0..0.LDA| 00000f90 20 23 34 0d 0c 3a 0b 53 54 41 20 63 74 31 0d 0c | #4..:.STA ct1..| 00000fa0 44 07 52 54 53 0d 0c 4e 12 2e 6d 61 69 6e 20 4a |D.RTS..N..main J| 00000fb0 53 52 20 73 70 65 63 0d 0c 58 0b 4a 53 52 20 73 |SR spec..X.JSR s| 00000fc0 70 62 0d 0c 62 0b 4c 44 41 20 65 6e 64 0d 0c 6c |pb..b.LDA end..l| 00000fd0 0a 42 4e 45 20 65 32 0d 0c 76 0b 4c 44 58 20 23 |.BNE e2..v.LDX #| 00000fe0 31 34 0d 0c 80 0a 4c 44 59 20 23 30 0d 0c 8a 11 |14....LDY #0....| 00000ff0 2e 65 6e 74 20 4c 44 41 20 23 32 35 35 0d 0c 94 |.ent LDA #255...| 00001000 0f 53 54 41 20 26 33 42 30 46 2c 59 0d 0c 9e 0c |.STA &3B0F,Y....| 00001010 4a 53 52 20 79 61 64 64 0d 0c a8 0f 44 45 58 3a |JSR yadd....DEX:| 00001020 42 4e 45 20 65 6e 74 0d 0c b2 0e 2e 65 32 20 4c |BNE ent.....e2 L| 00001030 44 58 20 23 37 0d 0c bc 0f 2e 6d 32 20 53 54 58 |DX #7.....m2 STX| 00001040 20 78 73 74 0d 0c c6 07 54 58 41 0d 0c d0 08 80 | xst....TXA.....| 00001050 20 23 33 0d 0c da 0a 42 4e 45 20 6d 33 0d 0c e4 | #3....BNE m3...| 00001060 0c 2e 73 79 6e 63 68 72 6f 0d 0c ee 11 4c 44 41 |..synchro....LDA| 00001070 20 23 31 39 3a 4a 53 52 20 62 0d 0c f8 0b 4c 44 | #19:JSR b....LD| 00001080 58 20 78 73 74 0d 0d 02 10 2e 6d 33 20 4c 44 41 |X xst.....m3 LDA| 00001090 20 63 70 2c 58 0d 0d 0c 0b 42 4e 45 20 6d 33 62 | cp,X....BNE m3b| 000010a0 0d 0d 16 0b 4a 4d 50 20 6d 6e 32 0d 0d 20 10 2e |....JMP mn2.. ..| 000010b0 6d 33 62 20 4c 44 41 20 66 72 7a 0d 0d 2a 0a 42 |m3b LDA frz..*.B| 000010c0 45 51 20 6d 34 0d 0d 34 11 43 50 58 20 23 33 3a |EQ m4..4.CPX #3:| 000010d0 42 43 43 20 6d 34 0d 0d 3e 0c 4a 53 52 20 63 68 |BCC m4..>.JSR ch| 000010e0 61 72 0d 0d 48 0b 4c 44 58 20 78 73 74 0d 0d 52 |ar..H.LDX xst..R| 000010f0 0b 4a 4d 50 20 6d 6e 32 0d 0d 5c 10 2e 6d 34 20 |.JMP mn2..\..m4 | 00001100 4c 44 41 20 63 63 2c 58 0d 0d 66 0a 42 45 51 20 |LDA cc,X..f.BEQ | 00001110 6d 35 0d 0d 70 0b 4a 53 52 20 64 65 6c 0d 0d 7a |m5..p.JSR del..z| 00001120 0b 4c 44 58 20 78 73 74 0d 0d 84 0c 4c 44 41 20 |.LDX xst....LDA | 00001130 63 64 2c 58 0d 0d 8e 09 4c 53 52 20 41 0d 0d 98 |cd,X....LSR A...| 00001140 0b 42 43 43 20 6d 34 62 0d 0d a2 0c 4c 44 41 20 |.BCC m4b....LDA | 00001150 63 79 2c 58 0d 0d ac 0e 53 45 43 3a 53 42 43 20 |cy,X....SEC:SBC | 00001160 23 33 0d 0d b6 0c 53 54 41 20 63 79 2c 58 0d 0d |#3....STA cy,X..| 00001170 c0 0b 4a 4d 50 20 6d 34 65 0d 0d ca 0e 2e 6d 34 |..JMP m4e.....m4| 00001180 62 20 4c 53 52 20 41 0d 0d d4 0b 42 43 43 20 6d |b LSR A....BCC m| 00001190 34 63 0d 0d de 0c 49 4e 43 20 63 78 2c 58 0d 0d |4c....INC cx,X..| 000011a0 e8 0b 4a 4d 50 20 6d 34 65 0d 0d f2 0e 2e 6d 34 |..JMP m4e.....m4| 000011b0 63 20 4c 53 52 20 41 0d 0d fc 0b 42 43 43 20 6d |c LSR A....BCC m| 000011c0 34 64 0d 0e 06 0c 4c 44 41 20 63 79 2c 58 0d 0e |4d....LDA cy,X..| 000011d0 10 0e 43 4c 43 3a 41 44 43 20 23 33 0d 0e 1a 0c |..CLC:ADC #3....| 000011e0 53 54 41 20 63 79 2c 58 0d 0e 24 0b 4a 4d 50 20 |STA cy,X..$.JMP | 000011f0 6d 34 65 0d 0e 2e 0e 2e 6d 34 64 20 4c 53 52 20 |m4e.....m4d LSR | 00001200 41 0d 0e 38 0b 42 43 43 20 6d 34 65 0d 0e 42 0c |A..8.BCC m4e..B.| 00001210 44 45 43 20 63 78 2c 58 0d 0e 4c 11 2e 6d 34 65 |DEC cx,X..L..m4e| 00001220 20 4a 53 52 20 63 68 61 72 0d 0e 56 0b 4c 44 58 | JSR char..V.LDX| 00001230 20 78 73 74 0d 0e 60 13 44 45 43 20 63 63 2c 58 | xst..`.DEC cc,X| 00001240 3a 42 45 51 20 6d 35 0d 0e 6a 0a 4a 4d 50 20 6d |:BEQ m5..j.JMP m| 00001250 6e 0d 0e 74 11 2e 6d 35 20 4c 44 59 20 63 6d 79 |n..t..m5 LDY cmy| 00001260 2c 58 0d 0e 7e 0d 4c 44 41 20 63 6d 78 2c 58 0d |,X..~.LDA cmx,X.| 00001270 0e 88 07 54 41 58 0d 0e 92 0b 4a 53 52 20 6c 6f |...TAX....JSR lo| 00001280 63 0d 0e 9c 07 54 41 58 0d 0e a6 0e 4c 44 41 20 |c....TAX....LDA | 00001290 6d 61 70 25 2c 58 0d 0e b0 0c 53 54 41 20 63 65 |map%,X....STA ce| 000012a0 6c 6c 0d 0e ba 0b 4c 44 58 20 78 73 74 0d 0e c4 |ll....LDX xst...| 000012b0 11 43 50 58 20 23 30 3a 42 4e 45 20 6d 36 0d 0e |.CPX #0:BNE m6..| 000012c0 ce 0e 4a 53 52 20 63 68 61 6e 67 65 0d 0e d8 0c |..JSR change....| 000012d0 4c 44 58 20 23 31 35 38 0d 0e e2 0b 4a 53 52 20 |LDX #158....JSR | 000012e0 6b 65 79 0d 0e ec 0b 42 4e 45 20 6d 35 62 0d 0e |key....BNE m5b..| 000012f0 f6 0a 4c 44 41 20 23 38 0d 0f 00 0b 4a 4d 50 20 |..LDA #8....JMP | 00001300 6d 35 65 0d 0f 0a 11 2e 6d 35 62 20 4c 44 58 20 |m5e.....m5b LDX | 00001310 23 31 38 39 0d 0f 14 0b 4a 53 52 20 6b 65 79 0d |#189....JSR key.| 00001320 0f 1e 0b 42 4e 45 20 6d 35 63 0d 0f 28 0a 4c 44 |...BNE m5c..(.LD| 00001330 41 20 23 32 0d 0f 32 0b 4a 4d 50 20 6d 35 65 0d |A #2..2.JMP m5e.| 00001340 0f 3c 11 2e 6d 35 63 20 4c 44 58 20 23 31 38 33 |.<..m5c LDX #183| 00001350 0d 0f 46 0b 4a 53 52 20 6b 65 79 0d 0f 50 0b 42 |..F.JSR key..P.B| 00001360 4e 45 20 6d 35 64 0d 0f 5a 0a 4c 44 41 20 23 31 |NE m5d..Z.LDA #1| 00001370 0d 0f 64 0b 4a 4d 50 20 6d 35 65 0d 0f 6e 11 2e |..d.JMP m5e..n..| 00001380 6d 35 64 20 4c 44 58 20 23 31 35 31 0d 0f 78 0b |m5d LDX #151..x.| 00001390 4a 53 52 20 6b 65 79 0d 0f 82 0b 42 4e 45 20 6d |JSR key....BNE m| 000013a0 35 66 0d 0f 8c 0a 4c 44 41 20 23 34 0d 0f 96 10 |5f....LDA #4....| 000013b0 2e 6d 35 65 20 4c 44 58 20 78 73 74 0d 0f a0 0a |.m5e LDX xst....| 000013c0 4a 53 52 20 6f 6b 0d 0f aa 0a 4a 4d 50 20 6d 6e |JSR ok....JMP mn| 000013d0 0d 0f b4 10 2e 6d 35 66 20 4c 44 41 20 23 31 36 |.....m5f LDA #16| 000013e0 0d 0f be 0a 53 54 41 20 63 64 0d 0f c8 0a 4a 4d |....STA cd....JM| 000013f0 50 20 6d 6e 0d 0f d2 0e 2e 6d 36 20 43 50 58 20 |P mn.....m6 CPX | 00001400 23 33 0d 0f dc 0a 42 43 53 20 6d 37 0d 0f e6 11 |#3....BCS m7....| 00001410 2e 6d 36 62 20 4c 44 41 20 63 65 6c 6c 0d 0f f0 |.m6b LDA cell...| 00001420 0f 4c 53 52 20 41 3a 4c 53 52 20 41 0d 0f fa 0f |.LSR A:LSR A....| 00001430 4c 53 52 20 41 3a 4c 53 52 20 41 0d 10 04 0c 80 |LSR A:LSR A.....| 00001440 20 23 33 3a 54 41 59 0d 10 0e 0d 4c 44 41 20 6d | #3:TAY....LDA m| 00001450 76 25 2c 59 0d 10 18 0a 4a 53 52 20 6f 6b 0d 10 |v%,Y....JSR ok..| 00001460 22 0a 4a 4d 50 20 6d 6e 0d 10 2c 10 2e 6d 37 20 |".JMP mn..,..m7 | 00001470 4c 44 41 20 63 6d 2c 58 0d 10 36 0a 42 4e 45 20 |LDA cm,X..6.BNE | 00001480 6d 38 0d 10 40 0c 4c 44 41 20 63 78 2c 58 0d 10 |m8..@.LDA cx,X..| 00001490 4a 0a 43 4d 50 20 63 78 0d 10 54 0b 42 45 51 20 |J.CMP cx..T.BEQ | 000014a0 6d 37 63 0d 10 5e 0b 42 43 43 20 6d 37 62 0d 10 |m7c..^.BCC m7b..| 000014b0 68 0c 4c 44 41 20 63 65 6c 6c 0d 10 72 08 80 20 |h.LDA cell..r.. | 000014c0 23 38 0d 10 7c 0b 42 4e 45 20 6d 37 63 0d 10 86 |#8..|.BNE m7c...| 000014d0 0a 4c 44 41 20 23 38 0d 10 90 0b 4a 4d 50 20 6d |.LDA #8....JMP m| 000014e0 37 65 0d 10 9a 11 2e 6d 37 62 20 4c 44 41 20 63 |7e.....m7b LDA c| 000014f0 65 6c 6c 0d 10 a4 08 80 20 23 32 0d 10 ae 0b 42 |ell..... #2....B| 00001500 4e 45 20 6d 37 63 0d 10 b8 0a 4c 44 41 20 23 32 |NE m7c....LDA #2| 00001510 0d 10 c2 0b 4a 4d 50 20 6d 37 65 0d 10 cc 11 2e |....JMP m7e.....| 00001520 6d 37 63 20 4c 44 41 20 63 79 2c 58 0d 10 d6 0a |m7c LDA cy,X....| 00001530 43 4d 50 20 63 79 0d 10 e0 0b 42 45 51 20 6d 37 |CMP cy....BEQ m7| 00001540 66 0d 10 ea 0b 42 43 43 20 6d 37 64 0d 10 f4 0c |f....BCC m7d....| 00001550 4c 44 41 20 63 65 6c 6c 0d 10 fe 08 80 20 23 31 |LDA cell..... #1| 00001560 0d 11 08 0b 42 4e 45 20 6d 37 66 0d 11 12 0a 4c |....BNE m7f....L| 00001570 44 41 20 23 31 0d 11 1c 0b 4a 4d 50 20 6d 37 65 |DA #1....JMP m7e| 00001580 0d 11 26 11 2e 6d 37 64 20 4c 44 41 20 63 65 6c |..&..m7d LDA cel| 00001590 6c 0d 11 30 08 80 20 23 34 0d 11 3a 0b 42 4e 45 |l..0.. #4..:.BNE| 000015a0 20 6d 37 66 0d 11 44 0a 4c 44 41 20 23 34 0d 11 | m7f..D.LDA #4..| 000015b0 4e 0f 2e 6d 37 65 20 4a 53 52 20 6f 6b 0d 11 58 |N..m7e JSR ok..X| 000015c0 0a 4a 4d 50 20 6d 6e 0d 11 62 0f 2e 6d 37 66 20 |.JMP mn..b..m7f | 000015d0 4c 44 41 20 23 31 0d 11 6c 0c 53 54 41 20 63 6d |LDA #1..l.STA cm| 000015e0 2c 58 0d 11 76 0c 4a 53 52 20 72 61 6e 64 0d 11 |,X..v.JSR rand..| 000015f0 80 08 80 20 23 33 0d 11 8a 09 84 41 20 23 31 0d |... #3.....A #1.| 00001600 11 94 0c 53 54 41 20 63 6a 2c 58 0d 11 9e 0b 4a |...STA cj,X....J| 00001610 4d 50 20 6d 36 62 0d 11 a8 10 2e 6d 38 20 4c 44 |MP m6b.....m8 LD| 00001620 41 20 63 65 6c 6c 0d 11 b2 09 80 20 23 36 34 0d |A cell..... #64.| 00001630 11 bc 0b 42 45 51 20 6d 36 62 0d 11 c6 0c 44 45 |...BEQ m6b....DE| 00001640 43 20 63 6a 2c 58 0d 11 d0 0b 42 4e 45 20 6d 36 |C cj,X....BNE m6| 00001650 62 0d 11 da 0a 4c 44 41 20 23 30 0d 11 e4 0c 53 |b....LDA #0....S| 00001660 54 41 20 63 6d 2c 58 0d 11 ee 0a 4a 4d 50 20 6d |TA cm,X....JMP m| 00001670 37 0d 11 f8 0f 2e 6d 6e 20 4c 44 58 20 78 73 74 |7.....mn LDX xst| 00001680 0d 12 02 0b 42 45 51 20 6d 6e 32 0d 12 0c 11 2e |....BEQ mn2.....| 00001690 63 6f 6c 20 4c 44 41 20 63 78 2c 58 0d 12 16 0e |col LDA cx,X....| 000016a0 53 45 43 3a 53 42 43 20 63 78 0d 12 20 0a 42 43 |SEC:SBC cx.. .BC| 000016b0 53 20 63 32 0d 12 2a 0a 4c 44 41 20 63 78 0d 12 |S c2..*.LDA cx..| 000016c0 34 10 53 45 43 3a 53 42 43 20 63 78 2c 58 0d 12 |4.SEC:SBC cx,X..| 000016d0 3e 0e 2e 63 32 20 43 4d 50 20 23 32 0d 12 48 0a |>..c2 CMP #2..H.| 000016e0 42 43 53 20 63 34 0d 12 52 0c 4c 44 41 20 63 79 |BCS c4..R.LDA cy| 000016f0 2c 58 0d 12 5c 0e 53 45 43 3a 53 42 43 20 63 79 |,X..\.SEC:SBC cy| 00001700 0d 12 66 0a 42 43 53 20 63 33 0d 12 70 0a 4c 44 |..f.BCS c3..p.LD| 00001710 41 20 63 79 0d 12 7a 10 53 45 43 3a 53 42 43 20 |A cy..z.SEC:SBC | 00001720 63 79 2c 58 0d 12 84 0e 2e 63 33 20 43 4d 50 20 |cy,X.....c3 CMP | 00001730 23 34 0d 12 8e 0f 2e 63 34 20 42 43 53 20 6d 6e |#4.....c4 BCS mn| 00001740 32 0d 12 98 0a 43 50 58 20 23 33 0d 12 a2 0a 42 |2....CPX #3....B| 00001750 43 43 20 63 35 0d 12 ac 0b 4c 44 41 20 6d 6e 63 |CC c5....LDA mnc| 00001760 0d 12 b6 0b 42 4e 45 20 63 34 62 0d 12 c0 0a 4c |....BNE c4b....L| 00001770 44 41 20 23 31 0d 12 ca 0b 53 54 41 20 65 6e 64 |DA #1....STA end| 00001780 0d 12 d4 0b 4a 4d 50 20 6d 6e 32 0d 12 de 10 2e |....JMP mn2.....| 00001790 63 34 62 20 4a 53 52 20 64 65 6c 0d 12 e8 0a 4c |c4b JSR del....L| 000017a0 44 58 20 23 30 0d 12 f2 0c 4a 53 52 20 63 68 61 |DX #0....JSR cha| 000017b0 72 0d 12 fc 0b 4c 44 58 20 78 73 74 0d 13 06 0c |r....LDX xst....| 000017c0 4a 53 52 20 72 65 73 32 0d 13 10 0c 4c 44 41 20 |JSR res2....LDA | 000017d0 23 32 30 30 0d 13 1a 0c 53 54 41 20 63 63 2c 58 |#200....STA cc,X| 000017e0 0d 13 24 0a 4c 44 58 20 23 30 0d 13 2e 0b 4c 44 |..$.LDX #0....LD| 000017f0 59 20 23 31 36 0d 13 38 0c 4a 53 52 20 61 64 73 |Y #16..8.JSR ads| 00001800 63 0d 13 42 0b 4c 44 58 20 78 73 74 0d 13 4c 0b |c..B.LDX xst..L.| 00001810 4a 4d 50 20 6d 6e 32 0d 13 56 0d 2e 63 35 20 4c |JMP mn2..V..c5 L| 00001820 44 41 23 30 0d 13 60 0c 53 54 41 20 63 70 2c 58 |DA#0..`.STA cp,X| 00001830 0d 13 6a 0b 4a 53 52 20 64 65 6c 0d 13 74 0a 4c |..j.JSR del..t.L| 00001840 44 58 20 23 37 0d 13 7e 0b 4c 44 59 20 23 31 35 |DX #7..~.LDY #15| 00001850 0d 13 88 0c 4a 53 52 20 76 64 31 39 0d 13 92 0a |....JSR vd19....| 00001860 4c 44 58 20 23 30 0d 13 9c 0a 4c 44 59 20 23 35 |LDX #0....LDY #5| 00001870 0d 13 a6 0c 4a 53 52 20 61 64 73 63 0d 13 b0 0a |....JSR adsc....| 00001880 4c 44 58 20 23 30 0d 13 ba 0c 4a 53 52 20 63 68 |LDX #0....JSR ch| 00001890 61 72 0d 13 c4 0b 4c 44 58 20 78 73 74 0d 13 ce |ar....LDX xst...| 000018a0 0c 4c 44 41 20 23 32 30 30 0d 13 d8 11 43 50 58 |.LDA #200....CPX| 000018b0 20 23 31 3a 42 4e 45 20 63 36 0d 13 e2 0b 53 54 | #1:BNE c6....ST| 000018c0 41 20 66 72 7a 0d 13 ec 0b 4a 4d 50 20 6d 6e 32 |A frz....JMP mn2| 000018d0 0d 13 f6 0f 2e 63 36 20 53 54 41 20 6d 6e 63 0d |.....c6 STA mnc.| 000018e0 14 00 08 2e 6d 6e 32 0d 14 0a 0e 44 45 58 3a 42 |....mn2....DEX:B| 000018f0 4d 49 20 6d 39 0d 14 14 0a 4a 4d 50 20 6d 32 0d |MI m9....JMP m2.| 00001900 14 1e 07 2e 6d 39 0d 14 28 13 4c 44 41 20 65 6e |....m9..(.LDA en| 00001910 64 3a 42 4e 45 20 6f 75 74 0d 14 32 0c 4c 44 41 |d:BNE out..2.LDA| 00001920 20 74 61 72 67 0d 14 3c 13 43 4d 50 20 74 6f 74 | targ..<.CMP tot| 00001930 3a 42 45 51 20 6f 75 74 0d 14 46 0c 4a 4d 50 20 |:BEQ out..F.JMP | 00001940 6d 61 69 6e 0d 14 50 0c 2e 6f 75 74 20 52 54 53 |main..P..out RTS| 00001950 0d 14 5a 0b 2e 6f 6b 20 54 41 59 0d 14 64 12 80 |..Z..ok TAY..d..| 00001960 20 63 65 6c 6c 3a 42 4e 45 20 6f 6b 36 0d 14 6e | cell:BNE ok6..n| 00001970 0a 43 50 59 20 23 31 0d 14 78 0b 42 4e 45 20 6f |.CPY #1..x.BNE o| 00001980 6b 32 0d 14 82 0d 44 45 43 20 63 6d 79 2c 58 0d |k2....DEC cmy,X.| 00001990 14 8c 0b 4a 4d 50 20 6f 6b 35 0d 14 96 08 2e 6f |...JMP ok5.....o| 000019a0 6b 32 0d 14 a0 12 43 50 59 20 23 32 3a 42 4e 45 |k2....CPY #2:BNE| 000019b0 20 6f 6b 33 0d 14 aa 0d 49 4e 43 20 63 6d 78 2c | ok3....INC cmx,| 000019c0 58 0d 14 b4 0b 4a 4d 50 20 6f 6b 35 0d 14 be 08 |X....JMP ok5....| 000019d0 2e 6f 6b 33 0d 14 c8 12 43 50 59 20 23 34 3a 42 |.ok3....CPY #4:B| 000019e0 4e 45 20 6f 6b 34 0d 14 d2 0d 49 4e 43 20 63 6d |NE ok4....INC cm| 000019f0 79 2c 58 0d 14 dc 0b 4a 4d 50 20 6f 6b 35 0d 14 |y,X....JMP ok5..| 00001a00 e6 12 2e 6f 6b 34 20 44 45 43 20 63 6d 78 2c 58 |...ok4 DEC cmx,X| 00001a10 0d 14 f0 0c 2e 6f 6b 35 20 54 59 41 0d 14 fa 0c |.....ok5 TYA....| 00001a20 53 54 41 20 63 64 2c 58 0d 15 04 0a 4c 44 41 20 |STA cd,X....LDA | 00001a30 23 38 0d 15 0e 0c 53 54 41 20 63 63 2c 58 0d 15 |#8....STA cc,X..| 00001a40 18 07 52 54 53 0d 15 22 0f 2e 6f 6b 36 20 4c 44 |..RTS.."..ok6 LD| 00001a50 41 20 23 31 0d 15 2c 0c 53 54 41 20 63 63 2c 58 |A #1..,.STA cc,X| 00001a60 0d 15 36 0b 4c 44 41 20 23 31 36 0d 15 40 0c 53 |..6.LDA #16..@.S| 00001a70 54 41 20 63 64 2c 58 0d 15 4a 07 52 54 53 0d 15 |TA cd,X..J.RTS..| 00001a80 54 12 2e 63 68 61 6e 67 65 20 4c 44 41 20 63 64 |T..change LDA cd| 00001a90 0d 15 5e 13 43 4d 50 20 23 31 36 3a 42 45 51 20 |..^.CMP #16:BEQ | 00001aa0 63 68 36 0d 15 68 0b 4c 44 59 20 63 6d 79 0d 15 |ch6..h.LDY cmy..| 00001ab0 72 0b 4c 44 58 20 63 6d 78 0d 15 7c 0b 4a 53 52 |r.LDX cmx..|.JSR| 00001ac0 20 6c 6f 63 0d 15 86 07 54 41 58 0d 15 90 0f 4c | loc....TAX....L| 00001ad0 44 41 20 6d 63 6f 6c 25 2c 58 0d 15 9a 0b 53 54 |DA mcol%,X....ST| 00001ae0 41 20 63 73 74 0d 15 a4 12 43 4d 50 20 23 31 3a |A cst....CMP #1:| 00001af0 42 4e 45 20 63 68 32 0d 15 ae 0f 49 4e 43 20 6d |BNE ch2....INC m| 00001b00 63 6f 6c 25 2c 58 0d 15 b8 0b 4a 4d 50 20 63 68 |col%,X....JMP ch| 00001b10 35 0d 15 c2 08 2e 63 68 32 0d 15 cc 12 43 4d 50 |5.....ch2....CMP| 00001b20 20 23 32 3a 42 4e 45 20 63 68 33 0d 15 d6 0b 4c | #2:BNE ch3....L| 00001b30 44 41 20 6c 76 6c 0d 15 e0 12 43 4d 50 20 23 31 |DA lvl....CMP #1| 00001b40 3a 42 45 51 20 63 68 35 0d 15 ea 12 43 4d 50 20 |:BEQ ch5....CMP | 00001b50 23 33 3a 42 45 51 20 63 68 34 0d 15 f4 0f 49 4e |#3:BEQ ch4....IN| 00001b60 43 20 6d 63 6f 6c 25 2c 58 0d 15 fe 0b 4a 4d 50 |C mcol%,X....JMP| 00001b70 20 63 68 35 0d 16 08 10 2e 63 68 33 20 4c 44 41 | ch5.....ch3 LDA| 00001b80 20 6c 76 6c 0d 16 12 12 43 4d 50 20 23 32 3a 42 | lvl....CMP #2:B| 00001b90 45 51 20 63 68 35 0d 16 1c 12 43 4d 50 20 23 34 |EQ ch5....CMP #4| 00001ba0 3a 42 45 51 20 63 68 34 0d 16 26 0f 44 45 43 20 |:BEQ ch4..&.DEC | 00001bb0 6d 63 6f 6c 25 2c 58 0d 16 30 14 2e 63 68 34 20 |mcol%,X..0..ch4 | 00001bc0 44 45 43 20 6d 63 6f 6c 25 2c 58 0d 16 3a 14 2e |DEC mcol%,X..:..| 00001bd0 63 68 35 20 4c 44 41 20 6d 63 6f 6c 25 2c 58 0d |ch5 LDA mcol%,X.| 00001be0 16 44 0f 53 45 43 3a 53 42 43 20 63 73 74 0d 16 |.D.SEC:SBC cst..| 00001bf0 4e 0f 43 4c 43 3a 41 44 43 20 74 6f 74 0d 16 58 |N.CLC:ADC tot..X| 00001c00 0b 43 4d 50 20 74 6f 74 0d 16 62 07 50 48 50 0d |.CMP tot..b.PHP.| 00001c10 16 6c 0b 53 54 41 20 74 6f 74 0d 16 76 0b 4c 44 |.l.STA tot..v.LD| 00001c20 59 20 63 6d 79 0d 16 80 0b 4c 44 58 20 63 6d 78 |Y cmy....LDX cmx| 00001c30 0d 16 8a 0d 4a 53 52 20 62 6c 6f 63 6b 0d 16 94 |....JSR block...| 00001c40 0b 4c 44 58 20 78 73 74 0d 16 9e 0c 4a 53 52 20 |.LDX xst....JSR | 00001c50 63 68 61 72 0d 16 a8 07 50 4c 50 0d 16 b2 0b 42 |char....PLP....B| 00001c60 43 43 20 63 68 36 0d 16 bc 0b 42 45 51 20 63 68 |CC ch6....BEQ ch| 00001c70 36 0d 16 c6 0b 4a 4d 50 20 61 64 70 0d 16 d0 0c |6....JMP adp....| 00001c80 2e 63 68 36 20 52 54 53 0d 16 da 09 2e 72 65 73 |.ch6 RTS.....res| 00001c90 32 0d 16 e4 0a 4c 44 58 20 23 35 0d 16 ee 0a 4c |2....LDX #5....L| 00001ca0 44 59 20 23 33 0d 16 f8 0b 4c 44 41 20 23 36 35 |DY #3....LDA #65| 00001cb0 0d 17 02 0d 4a 53 52 20 73 6f 75 6e 64 0d 17 0c |....JSR sound...| 00001cc0 0b 4c 44 58 20 78 73 74 0d 17 16 0a 2e 72 65 73 |.LDX xst.....res| 00001cd0 65 74 0d 17 20 0d 4c 44 41 20 63 73 78 2c 58 0d |et.. .LDA csx,X.| 00001ce0 17 2a 0c 53 54 41 20 63 78 2c 58 0d 17 34 0d 4c |.*.STA cx,X..4.L| 00001cf0 44 41 20 63 73 79 2c 58 0d 17 3e 0c 53 54 41 20 |DA csy,X..>.STA | 00001d00 63 79 2c 58 0d 17 48 0e 4c 44 41 20 63 73 6d 78 |cy,X..H.LDA csmx| 00001d10 2c 58 0d 17 52 0d 53 54 41 20 63 6d 78 2c 58 0d |,X..R.STA cmx,X.| 00001d20 17 5c 0e 4c 44 41 20 63 73 6d 79 2c 58 0d 17 66 |.\.LDA csmy,X..f| 00001d30 0d 53 54 41 20 63 6d 79 2c 58 0d 17 70 0b 4c 44 |.STA cmy,X..p.LD| 00001d40 41 20 23 31 36 0d 17 7a 0c 53 54 41 20 63 64 2c |A #16..z.STA cd,| 00001d50 58 0d 17 84 0c 4a 53 52 20 72 61 6e 64 0d 17 8e |X....JSR rand...| 00001d60 09 80 20 23 31 35 0d 17 98 0a 41 44 43 20 23 35 |.. #15....ADC #5| 00001d70 0d 17 a2 0c 53 54 41 20 63 63 2c 58 0d 17 ac 0c |....STA cc,X....| 00001d80 4a 53 52 20 72 61 6e 64 0d 17 b6 08 80 20 23 37 |JSR rand..... #7| 00001d90 0d 17 c0 0a 41 44 43 20 23 32 0d 17 ca 0c 53 54 |....ADC #2....ST| 00001da0 41 20 63 6a 2c 58 0d 17 d4 07 52 54 53 0d 17 de |A cj,X....RTS...| 00001db0 0c 2e 62 61 72 20 50 48 41 0d 17 e8 0b 4a 53 52 |..bar PHA....JSR| 00001dc0 20 63 61 64 0d 17 f2 07 50 4c 41 0d 17 fc 0f 4c | cad....PLA....L| 00001dd0 53 52 20 41 3a 4c 53 52 20 41 0d 18 06 09 4c 53 |SR A:LSR A....LS| 00001de0 52 20 41 0d 18 10 0a 4c 44 59 20 23 30 0d 18 1a |R A....LDY #0...| 00001df0 07 54 41 58 0d 18 24 0b 42 45 51 20 62 72 33 0d |.TAX..$.BEQ br3.| 00001e00 18 2e 0f 2e 62 72 32 20 4c 44 41 20 23 33 0d 18 |....br2 LDA #3..| 00001e10 38 0e 53 54 41 20 28 61 64 29 2c 59 0d 18 42 07 |8.STA (ad),Y..B.| 00001e20 49 4e 59 0d 18 4c 0b 4c 44 41 20 23 31 35 0d 18 |INY..L.LDA #15..| 00001e30 56 0e 53 54 41 20 28 61 64 29 2c 59 0d 18 60 07 |V.STA (ad),Y..`.| 00001e40 49 4e 59 0d 18 6a 0e 53 54 41 20 28 61 64 29 2c |INY..j.STA (ad),| 00001e50 59 0d 18 74 07 49 4e 59 0d 18 7e 0a 4c 44 41 20 |Y..t.INY..~.LDA | 00001e60 23 33 0d 18 88 0e 53 54 41 20 28 61 64 29 2c 59 |#3....STA (ad),Y| 00001e70 0d 18 92 07 54 59 41 0d 18 9c 0e 43 4c 43 3a 41 |....TYA....CLC:A| 00001e80 44 43 20 23 35 0d 18 a6 07 54 41 59 0d 18 b0 07 |DC #5....TAY....| 00001e90 44 45 58 0d 18 ba 0b 42 4e 45 20 62 72 32 0d 18 |DEX....BNE br2..| 00001ea0 c4 0f 2e 62 72 33 20 4c 44 58 20 23 37 0d 18 ce |...br3 LDX #7...| 00001eb0 0a 4c 44 41 20 23 30 0d 18 d8 13 2e 62 72 34 20 |.LDA #0.....br4 | 00001ec0 53 54 41 20 28 61 64 29 2c 59 0d 18 e2 07 49 4e |STA (ad),Y....IN| 00001ed0 59 0d 18 ec 0f 44 45 58 3a 42 50 4c 20 62 72 34 |Y....DEX:BPL br4| 00001ee0 0d 18 f6 07 52 54 53 0d 19 00 11 2e 73 70 65 63 |....RTS.....spec| 00001ef0 20 4c 44 41 20 66 72 7a 0d 19 0a 0c 42 45 51 20 | LDA frz....BEQ | 00001f00 73 70 63 32 0d 19 14 0b 44 45 43 20 66 72 7a 0d |spc2....DEC frz.| 00001f10 19 1e 0b 4c 44 41 20 66 72 7a 0d 19 28 0b 4c 44 |...LDA frz..(.LD| 00001f20 58 20 23 31 30 0d 19 32 10 4a 53 52 20 73 70 65 |X #10..2.JSR spe| 00001f30 63 73 75 62 31 0d 19 3c 09 4a 53 52 20 62 0d 19 |csub1..<.JSR b..| 00001f40 46 0b 4c 44 41 20 66 72 7a 0d 19 50 0a 80 20 23 |F.LDA frz..P.. #| 00001f50 32 35 32 0d 19 5a 09 84 41 20 23 31 0d 19 64 10 |252..Z..A #1..d.| 00001f60 4a 53 52 20 73 70 65 63 73 75 62 32 0d 19 6e 09 |JSR specsub2..n.| 00001f70 2e 73 70 63 32 0d 19 78 14 4c 44 41 20 6d 6e 63 |.spc2..x.LDA mnc| 00001f80 3a 42 45 51 20 73 70 63 33 0d 19 82 0b 44 45 43 |:BEQ spc3....DEC| 00001f90 20 6d 6e 63 0d 19 8c 0b 4c 44 41 20 6d 6e 63 0d | mnc....LDA mnc.| 00001fa0 19 96 0b 4c 44 58 20 23 35 30 0d 19 a0 10 4a 53 |...LDX #50....JS| 00001fb0 52 20 73 70 65 63 73 75 62 31 0d 19 aa 07 49 4e |R specsub1....IN| 00001fc0 58 0d 19 b4 09 4a 53 52 20 62 0d 19 be 0b 4c 44 |X....JSR b....LD| 00001fd0 41 20 6d 6e 63 0d 19 c8 0a 80 20 23 32 35 32 0d |A mnc..... #252.| 00001fe0 19 d2 09 84 41 20 23 32 0d 19 dc 10 4a 4d 50 20 |....A #2....JMP | 00001ff0 73 70 65 63 73 75 62 32 0d 19 e6 09 2e 73 70 63 |specsub2.....spc| 00002000 33 0d 19 f0 14 4c 44 41 20 66 72 7a 3a 42 4e 45 |3....LDA frz:BNE| 00002010 20 73 70 63 34 0d 19 fa 14 4c 44 41 20 6d 6e 63 | spc4....LDA mnc| 00002020 3a 42 4e 45 20 73 70 63 34 0d 1a 04 0a 4c 44 58 |:BNE spc4....LDX| 00002030 20 23 37 0d 1a 0e 0a 4c 44 59 20 23 37 0d 1a 18 | #7....LDY #7...| 00002040 0c 4a 4d 50 20 76 64 31 39 0d 1a 22 0d 2e 73 70 |.JMP vd19.."..sp| 00002050 63 34 20 52 54 53 0d 1a 2c 0f 2e 73 70 62 20 4c |c4 RTS..,..spb L| 00002060 44 58 20 23 32 0d 1a 36 12 2e 73 70 62 32 20 4c |DX #2..6..spb2 L| 00002070 44 41 20 63 70 2c 58 0d 1a 40 0c 42 4e 45 20 73 |DA cp,X..@.BNE s| 00002080 70 62 33 0d 1a 4a 0c 4a 53 52 20 72 61 6e 64 0d |pb3..J.JSR rand.| 00002090 1a 54 0c 42 4e 45 20 73 70 62 33 0d 1a 5e 0c 4a |.T.BNE spb3..^.J| 000020a0 53 52 20 72 61 6e 64 0d 1a 68 08 80 20 23 37 0d |SR rand..h.. #7.| 000020b0 1a 72 0c 42 4e 45 20 73 70 62 33 0d 1a 7c 0c 49 |.r.BNE spb3..|.I| 000020c0 4e 43 20 63 70 2c 58 0d 1a 86 0d 4a 53 52 20 72 |NC cp,X....JSR r| 000020d0 65 73 65 74 0d 1a 90 0d 2e 73 70 62 33 20 44 45 |eset.....spb3 DE| 000020e0 58 0d 1a 9a 0c 42 4e 45 20 73 70 62 32 0d 1a a4 |X....BNE spb2...| 000020f0 07 52 54 53 0d 1a ae 0d 2e 79 61 64 64 20 54 59 |.RTS.....yadd TY| 00002100 41 0d 1a b8 0e 43 4c 43 3a 41 44 43 20 23 38 0d |A....CLC:ADC #8.| 00002110 1a c2 07 54 41 59 0d 1a cc 07 52 54 53 0d 1a d6 |...TAY....RTS...| 00002120 0d 2e 73 70 65 63 73 75 62 31 0d 1a e0 0b 4c 44 |..specsub1....LD| 00002130 59 20 23 31 30 0d 1a ea 0b 4a 53 52 20 62 61 72 |Y #10....JSR bar| 00002140 0d 1a f4 0b 4c 44 41 20 23 32 31 0d 1a fe 0a 4c |....LDA #21....L| 00002150 44 58 20 23 35 0d 1b 08 07 52 54 53 0d 1b 12 0d |DX #5....RTS....| 00002160 2e 73 70 65 63 73 75 62 32 0d 1b 1c 0a 4c 44 58 |.specsub2....LDX| 00002170 20 23 31 0d 1b 26 0a 4c 44 59 20 23 32 0d 1b 30 | #1..&.LDY #2..0| 00002180 0d 4a 4d 50 20 73 6f 75 6e 64 0d 1b 3a 06 5d ed |.JMP sound..:.].| 00002190 0d 1b 44 0e f4 20 43 68 65 63 6b 73 75 6d 0d 1b |..D.. Checksum..| 000021a0 4e 0c 74 6f 74 61 6c 25 3d 30 0d 1b 58 16 e3 20 |N.total%=0..X.. | 000021b0 62 79 74 65 25 3d 26 32 41 32 39 20 b8 20 50 25 |byte%=&2A29 . P%| 000021c0 0d 1b 62 1a 74 6f 74 61 6c 25 3d 74 6f 74 61 6c |..b.total%=total| 000021d0 25 2b 3f 62 79 74 65 25 3a ed 0d 1b 6c 45 e7 20 |%+?byte%:...lE. | 000021e0 74 6f 74 61 6c 25 3c 3e 31 35 37 38 33 37 20 d8 |total%<>157837 .| 000021f0 3a eb 36 3a f1 22 43 68 65 63 6b 73 75 6d 20 65 |:.6:."Checksum e| 00002200 72 72 6f 72 20 2d 20 70 6c 65 61 73 65 20 63 68 |rror - please ch| 00002210 65 63 6b 20 6c 69 73 74 69 6e 67 2e 22 3a e0 0d |eck listing.":..| 00002220 1b 76 2d e7 20 a4 65 6c 6b 20 8c 20 3f 73 79 6e |.v-. .elk . ?syn| 00002230 63 68 72 6f 3d 26 45 41 3a 73 79 6e 63 68 72 6f |chro=&EA:synchro| 00002240 21 31 3d 26 45 41 45 41 45 41 45 41 0d 1b 80 14 |!1=&EAEAEAEA....| 00002250 db 3a d0 3d 26 31 39 30 30 3a d7 22 53 50 33 22 |.:.=&1900:."SP3"| 00002260 0d 1b 8a 15 dd a4 65 6c 6b 3d 28 a6 28 2d 32 35 |......elk=(.(-25| 00002270 36 29 3d 31 29 0d ff |6)=1)..| 00002277
11-08-89/SP2.m0
11-08-89/SP2.m1
11-08-89/SP2.m2
11-08-89/SP2.m4
11-08-89/SP2.m5
.