shipw4/Arcade/Game2

Home » Personal collection » Acorn hard disk » misc » misc2 » shipw4/Arcade/Game2

shipw4/Arcade/Game2

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 hard disk » misc » misc2
Filename:	shipw4/Arcade/Game2
Read OK:	✔
File size:	2431 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Personal collection » Acorn ADFS disks » Archimedes » Unlabelled_disk_3.ADF » Arcade/Game2
Personal collection » Acorn hard disk » misc » misc2 » shipw4/Arcade/Game2

File contents

   10PROCass
   20A$="DEL.150,9999"+CHR$13+"GOTO40"+CHR$6+CHR$13:VDU21:FOR char=1 TO LEN(A$):OSCLI"FX138,0,"+STR$(ASC(MID$(A$,char,1))):NEXT
   30END
   40HIMEM=&1F00:*LOAD BLOCDAT 2000
   50*LOAD SPRITES.SPRDAT 6200
   60FORp=0TO2STEP2:P%=&1F80
   70[OPT p
   80LDY#0:STY&70:STY&72:LDA#&58:STA&71:LDA#&10:STA&73:.movecode LDA(&70),Y:STA(&72),Y:INY:CPY#128:BEQhalfpage:CPY#0:BNEmovecode:INC&71:INC&73:JMPmovecode:.halfpage LDA&73:CMP#&1F:BNEmovecode
   90LDA#&6C:STA&71:LDA#&30:STA&73:LDY#0
  100.decomp LDA(&70),Y:STA&80:.bits LDA&80:LSR A:ROR A:ROR A:AND#&C0:STA(&72),Y:INC&72:LDA&72:BNEnoext:INC&73:LDA&73:CMP#&80:BNEnoext:JMP&1000
  110.noext LSR&80:LSR&80:LDA&72:AND#3:BNEbits:INC&70:LDA&70:BNEdecomp:INC&71:JMPdecomp
  120]:NEXT
  130FORd=&3000TO&57FF:?d=0:NEXT
  140*SAVE Ship.Ship3 1F80 8000
  150END
  160:
  170DEFPROCass
  180FORpass=4TO6STEP2:osbyte=&FFF4:osword=&FFF1:oswrch=&FFEE:P%=&1000:O%=&5800
  190[OPT pass
  200.prog JSRtitle:JSRblascr:LDA#4:STAxch:LDA#1:STAych:LDA#17:STAcol:LDA#(name MOD 256):STA&72:LDA#(name DIV 256):STA&73:JSRstring
  210.game LDA#0:STAxscr:STAyscr:LDA#2:STAxpos:STAypos
  220.newscr JSRscreen:.oldscr JSRquitch:LDA#0:STAmovstag:LDAchanged:BNEmoveslop:LDAfine:BEQnofine:.moveslop JSRdispyou:JSRwait:INCmovstag:LDAmovstag:CMP#3:BNEmoveslop:LDA#0:STAmovstag:STAchanged:STAfine:JSRdispyou:JSRwait
  230.finend LDAupvelo:BEQfallh:JSRjumpup:JMPnofall
  240.nofine JSRwait:JSRwait:JSRwait:JSRwait:JMPfinend
  250.fallh LDAypos:CMP#9:BEQdownscr:CLC:ADC#1:STAyset:LDAxpos:STAxset:JSRgetblock:CMP#8:BEQwatt:AND#&30:BEQfalldown:BNEnofall
  260.downscr LDA#0:STAypos:INCyscr:JMPnewscr:.watt JMPzap
  270.falldown LDA#5:STAfine:INCypos:.nofall JSRmoveyou:JMPoldscr
  280.moveyou LDA#&81:LDX#&B6:LDY#&FF:JSRosbyte:BCCnjump:JSRjump:.njump LDA#&81:LDX#&9E:LDY#&FF:JSRosbyte:BCCnleft:JSRleft:.nleft LDA#&81:LDX#&BD:LDY#&FF:JSRosbyte:BCCnright:JMPright:.nright RTS:.leftscrt JMPleftscr
  290.left LDA#0:STAface:STArghts:LDAxpos:BEQleftscrt:SEC:SBC#1:STAxset:LDAypos:STAyset:JSRgetblock:AND#&30:CMP#&10:BEQnomove:CMP#&20:BEQnomove:CMP#&30:BNEnoupl:DECypos:DECxpos:LDA#3:STAfine:RTS
  300.noupl DECxpos:LDA#1:STAfine:.nomove RTS:.right LDA#0:STArghts:LDA#1:STAface:LDAxpos:CMP#9:BEQrightscr:CLC:ADC#1:STAxset:LDAypos:STAyset:JSRgetblock:AND#&30:CMP#&10:BEQnomover:CMP#&20:BEQnomover:CMP#&30:BNEnoupr
  310DECypos:INCxpos:LDA#4:STAfine:RTS:.noupr INCxpos:LDA#2:STAfine:RTS
  320.nomover LDA#1:STArghts:STAchanged:JMPnomove
  330.leftscr LDA#9:STAxpos:DECxscr:JSRscreen:RTS:.rightscr LDA#0:STAxpos:INCxscr:JMPscreen
  340.jump LDAypos:CMP#9:BEQnomovet:CLC:ADC#1:STAyset:LDAxpos:STAxset:JSRgetblock:AND#&30:BEQnomovet:LDA#3:STAupvelo:LDAsound:BEQnosnd:LDA#7:LDX#(jumpn MOD 256):LDY#(jumpn DIV 256):JSRosword:.nosnd RTS:.nomovet JMPnomove
  350.dispyou LDAwiper:BEQnowipe:LDY#0:.wiplop LDA&FC0,Y:STA(&78),Y:INY:CPY#32:BNEwiplop:LDA&78:CLC:ADC#&80:STA&78:LDA&79:ADC#2:STA&79:LDY#0:.wipeb LDA&FE0,Y:STA(&78),Y:INY:CPY#32:BNEwipeb
  360.nowipe LDA#1:STAwiper:LDAxpos:ASL A:ASL A:ASL A:ASL A:ASL A:ASL A:STA&70:LDAxpos:LSR A:LSR A:CLC:ADC#&35:STA&71:LDAypos:CLC:ADC&71:STA&71:LDAypos:ASL A:ASL A:CLC:ADC&71:STA&71:LDY#0
  370STY&72:LDA#&1A:STA&73:LDXmovstag:LDAsequen,X:CLC:ADCfine:TAX:LDA&70:CLC:ADClowad,X:STA&70:LDA&71:ADChighad,X:STA&71:CPX#0:BEQnophase:LDXphase:INX
  380.addph LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#0:STA&73:DEX:BNEaddph:LDAphase:EOR#1:STAphase
  390.nophase LDArghts:BEQnotrght:LDA&70:CLC:ADC#32:STA&70:LDA&71:ADC#0:STA&71
  400.notrght LDAface:BNEleface:LDA&72:CLC:ADC#&20:STA&72
  410.leface LDA&70:STA&78:LDA&71:STA&79
  420.ladisp LDA(&70),Y:STA&FC0,Y:AND#&C0:ORA(&72),Y:STA(&70),Y:INY:CPY#32:BNEladisp:LDA&72:CLC:ADC#&40:STA&72:LDA&73:ADC#0:STA&73:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:LDY#0
  430.lbdisp LDA(&70),Y:STA&FE0,Y:AND#&C0:ORA(&72),Y:STA(&70),Y:INY:CPY#32:BNElbdisp:RTS
  440:
  450.wait LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CMP&80:BNEwait:LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CLC:ADC#4:STA&80:RTS
  460:
  470.jumpup DECupvelo:LDAypos:BEQupscr:SEC:SBC#1:STAyset:LDAxpos:STAxset:JSRgetblock:AND#&30:BEQupone:LDA#0:STAupvelo:RTS:.upone LDA#6:STAfine:DECypos:RTS:.upscr DECyscr:LDA#9:STAypos:JMPscreen
  480:
  490.block JMP blockon
  500.screen LDAxpos:STAxold:LDAypos:STAyold:JSRscroff:LDA#&FF:STAyset:.ylop LDA#&FF:STAxset:INCyset:.xlop INCxset:JSR blockon
  510LDAxset:CMP#9:BEQnexty:JMPxlop
  520.nexty LDAyset:CMP#9:BEQscron:JMPylop
  530.scron LDY#0
  540.scronlop LDA#19:JSRoswrch:TYA:JSRoswrch:TYA:AND#7:JSRoswrch:LDA#0:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:INY:CPY#16:BNEscronlop:LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CLC:ADC#4:STA&80:LDA#0:STAwiper:LDA#1:STAchanged:RTS
  550.scroff LDY#0:.scrofflop LDA#19:JSRoswrch:TYA:JSRoswrch:LDA#0:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:INY:CPY#16:BNEscrofflop:RTS
  560:
  570.blockon JSR getblock:LDAxset:ASL A:ASL A:ASL A:ASL A:ASL A:ASL A:STA&70:LDAxset:LSR A:LSR A:CLC:ADC#&35:STA&71:LDAyset:CLC:ADC&71:STA&71:LDAyset:ASL A:ASL A:CLC:ADC&71:STA&71
  580LDA&72:LSR A:LSR A:CLC:ADC#&20:STA&73:LDA&72:LSR A:ROR A:ROR A:AND#&C0:STA&72:LDY#0
  590.transtop LDA(&70),Y:AND#&C0:CLC:ADC(&72),Y:STA(&70),Y:INY:CPY#&40:BNEtranstop:LDY#0:LDA&72:CLC:ADC#&40:STA&72:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71
  600.transbot LDA(&70),Y:AND#&C0:CLC:ADC(&72),Y:STA(&70),Y:INY:CPY#&40:BNEtransbot:RTS
  610:
  620.getblock LDA#&30:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STAscrno
  630LDAscrno:STA&71:LDAyset:STA&70:ASL A:ASL A:ASL A:PHA:CLC:ADC&70:STA&70:PLA:ASL A:CLC:ADC&70
  640STA&70:LDYxset:LDAxdata,Y:TAY:LDA(&70),Y:ROL A:ROL A:ROL A:AND#3:STA&72:INY:LDA(&70),Y:LSR A:LSR A:LSR A:LSR A:AND#12
  650CLC:ADC&72:STA&72:LDAxset:LSR A:TAY:LDAhbdat,Y:TAY:LDA(&70),Y:STA&73:LDAxset:AND#1:BNEbit2:LDA&73:ASL A:ROL A:ROL A:JMPfbgot
  660.bit2 LDA&73:ASL A:ROL A
  670.fbgot AND#1:ASL A:ASL A:ASL A:ASL A:CLC:ADC&72:ASL A:STA&72:RTS
  680:
  690.blascr JSRscroff:LDY#0:STY&70:LDA#&30:STA&71:.blanlop LDA(&70),Y:AND#&C0:STA(&70),Y:INY:BNEblanlop:INC&71:LDA&71:CMP#&80:BNEblanlop:JMPscron
  700:
  710.putch ASL A:ASL A:ASL A:TAX:LDA#0:STA&70:LDA#&30:STA&71:LDYxch
  720.xlopc BEQnoxch:LDA&70:CLC:ADC#&20:STA&70:LDA&71:ADC#0:STA&71:DEY:JMPxlopc
  730.noxch LDYych:.ylopc BEQnoych:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:DEY:JMPylopc
  740.noych LDY#0:.sline LDA&C00,X:.linelop PHA:ASL A:ROL A:ROL A:AND#3:BEQblanch:STA&80:LDA#0:.colch CLC:ADCcol:DEC&80:BNEcolch:.blanch STA&80:LDA(&70),Y:AND#&C0:ORA&80:STA(&70),Y:TYA:CLC:ADC#8:TAY:CMP#&20:BCSnewlin
  750PLA:ASL A:ASL A:JMPlinelop:.newlin AND#7:TAY:PLA:INY:INX:CPY#8:BNEsline:RTS
  760:
  770.string LDY#0:LDA(&72),Y:CMP#&FF:BEQstrend:JSRputch:INCxch:LDA&72:CLC:ADC#1:STA&72:LDA&73:ADC#0:STA&73:JMPstring:.strend RTS
  780:
  790.quitch LDA#&81:LDX#&8F:LDY#&FF:JSRosbyte:BCSquitok:RTS:.quitok PLA:PLA:LDA#&81:LDX#&FF:LDY#&FF:JSRosbyte:BCCzap:JMPprog
  800.zap LDAxold:STAxpos:LDAyold:STAypos:LDAsound:BEQnozaps:LDA#7:LDX#(zapn MOD 256):LDY#(zapn DIV 256):JSRosword
  810.nozaps JMPnewscr
  820:
  830.title JSRblascr:LDA#&15:STAcol:LDA#4:STAxch:LDA#5:STAych:LDA#(name MOD 256):STA&72:LDA#(name DIV 256):STA&73:JSRstring:LDA#1:STAcol:LDA#3:STAxch:LDA#16:STAych:LDA#(creda MOD 256):STA&72:LDA#(creda DIV 256):STA&73:JSRstring
  840LDA#4:STAxch:LDA#18:STAych:LDA#(credb MOD 256):STA&72:LDA#(credb DIV 256):STA&73:JSRstring:LDA#4:STAxch:LDA#20:STAych:LDA#(credc MOD 256):STA&72:LDA#(credc DIV 256):STA&73:JSRstring
  850LDA#8:STAxch:LDA#22:STAych:LDA#(credd MOD 256):STA&72:LDA#(credd DIV 256):STA&73:JSRstring:LDA#0:STAxch:LDA#30:STAych:LDA#(space MOD 256):STA&72:LDA#(space DIV 256):STA&73:JSRstring
  860.soundpr LDA#6:STAxch:LDA#26:STAych:LDA#4:STAcol:LDA#(sndoff MOD 256):STA&72:LDA#(sndoff DIV 256):STA&73:LDAsound:BEQsoundset:LDA#(sndon MOD 256):STA&72:LDA#(sndon DIV 256):STA&73
  870.soundset JSRstring:.sstop LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSsstop
  880.spacwait LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSseor:LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCCspacwait:RTS
  890.seor LDAsound:EOR#1:STAsound:JMPsoundpr
  900.creda EQUB14:EQUB15:EQUB22:EQUB7:EQUB15:EQUB1:EQUB12:EQUB12:EQUB5:EQUB4:EQUB0:EQUB1:EQUB13:EQUB4:EQUB255
  910.credb EQUB4:EQUB5:EQUB16:EQUB23:EQUB7:EQUB13:EQUB5:EQUB4:EQUB0:EQUB2:EQUB21:EQUB255
  920.credc EQUB4:EQUB22:EQUB12:EQUB23:EQUB13:EQUB23:EQUB3:EQUB0:EQUB6:EQUB22:EQUB15:EQUB4:EQUB255
  930.credd EQUB23:EQUB31:EQUB31:EQUB28:EQUB255
  940.space EQUB14:EQUB15:EQUB5:EQUB16:EQUB16:EQUB0:EQUB16:EQUB14:EQUB1:EQUB3:EQUB5:EQUB0:EQUB17:EQUB22:EQUB0:EQUB16:EQUB17:EQUB1:EQUB15:EQUB17:EQUB255
  950.name EQUB16:EQUB8:EQUB23:EQUB14:EQUB0:EQUB20:EQUB15:EQUB5:EQUB3:EQUB10:EQUB5:EQUB4:EQUB255
  960.sndon EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB13:EQUB0:EQUB255
  970.sndoff EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB6:EQUB6:EQUB0:EQUB255
  980:
  990.jumpn EQUW1:EQUW1:EQUW52:EQUW5
 1000.zapn EQUW1:EQUW2:EQUW52:EQUW10
 1010:
 1020.sequen EQUB0:EQUB14:EQUB28
 1030.lowad EQUB0:EQUB&30:EQUB&D0:EQUB&B0:EQUB&50:EQUB&80:EQUB&80
 1040.highad EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB&FD:EQUB2
 1050:
 1060EQUB0:EQUB&20:EQUB&E0:EQUB&A0:EQUB&60:EQUB&80:EQUB&80
 1070EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB&FD:EQUB2
 1080:
 1090EQUB0:EQUB&10:EQUB&F0:EQUB&90:EQUB&70:EQUB0:EQUB0
 1100EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB0:EQUB0
 1110:
 1120.xch EQUB0:.ych EQUB0:.col EQUB0
 1130.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22
 1140.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24
 1150.xset EQUB0:.yset EQUB0:.xscr EQUB0:.yscr EQUB0:.xpos EQUB0:.ypos EQUB0
 1160.scrno EQUB0:.upvelo EQUB0:.xold EQUB0:.yold EQUB0:.fine EQUB0:.sound EQUB1
 1170.face EQUB1:.phase EQUB0:.rghts EQUB0:.wiper EQUB0:.movstag EQUB0:.changed EQUB0
 1180]:NEXT
 1190ENDPROC


�ass
^A$="DEL.150,9999"+�13+"GOTO40"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
�
(�=&1F00:*LOAD BLOCDAT 2000
2*LOAD SPRITES.SPRDAT 6200
<�p=0�2�2:P%=&1F80
F
[OPT p
P�LDY#0:STY&70:STY&72:LDA#&58:STA&71:LDA#&10:STA&73:.movecode LDA(&70),Y:STA(&72),Y:INY:CPY#128:BEQhalfpage:CPY#0:BNEmovecode:INC&71:INC&73:JMPmovecode:.halfpage LDA&73:CMP#&1F:BNEmovecode
Z'LDA#&6C:STA&71:LDA#&30:STA&73:LDY#0
d�.decomp LDA(&70),Y:STA&80:.bits LDA&80:LSR A:ROR A:ROR A:�#&C0:STA(&72),Y:INC&72:LDA&72:BNEnoext:INC&73:LDA&73:CMP#&80:BNEnoext:JMP&1000
nT.noext LSR&80:LSR&80:LDA&72:�#3:BNEbits:INC&70:LDA&70:BNEdecomp:INC&71:JMPdecomp
x]:�
��d=&3000�&57FF:?d=0:�
�*SAVE Ship.Ship3 1F80 8000
��
�:
�	��ass
�H�pass=4�6�2:osbyte=&FFF4:osword=&FFF1:oswrch=&FFEE:P%=&1000:O%=&5800
�
[OPT pass
�~.prog JSRtitle:JSRblascr:LDA#4:STAxch:LDA#1:STAych:LDA#17:STAcol:LDA#(name � 256):STA&72:LDA#(name � 256):STA&73:JSRstring
�5.game LDA#0:STAxscr:STAyscr:LDA#2:STAxpos:STAypos
��.newscr JSRscreen:.oldscr JSRquitch:LDA#0:STAmovstag:LDAchanged:BNEmoveslop:LDAfine:BEQnofine:.moveslop JSRdispyou:JSRwait:INCmovstag:LDAmovstag:CMP#3:BNEmoveslop:LDA#0:STAmovstag:STAchanged:STAfine:JSRdispyou:JSRwait
�2.finend LDAupvelo:BEQfallh:JSRjumpup:JMPnofall
�5.nofine JSRwait:JSRwait:JSRwait:JSRwait:JMPfinend
�{.fallh LDAypos:CMP#9:BEQdownscr:CLC:ADC#1:STAyset:LDAxpos:STAxset:JSRgetblock:CMP#8:BEQwatt:�#&30:BEQfalldown:BNEnofall
9.downscr LDA#0:STAypos:INCyscr:JMPnewscr:.watt JMPzap
@.falldown LDA#5:STAfine:INCypos:.nofall JSRmoveyou:JMPoldscr
�.moveyou LDA#&81:LDX#&B6:LDY#&FF:JSRosbyte:BCCnjump:JSRjump:.njump LDA#&81:LDX#&9E:LDY#&FF:JSRosbyte:BCCnleft:JSRleft:.nleft LDA#&81:LDX#&BD:LDY#&FF:JSRosbyte:BCCnright:JMPright:.nright RTS:.leftscrt JMPleftscr
"�.left LDA#0:STAface:STArghts:LDAxpos:BEQleftscrt:SEC:SBC#1:STAxset:LDAypos:STAyset:JSRgetblock:�#&30:CMP#&10:BEQnomove:CMP#&20:BEQnomove:CMP#&30:BNEnoupl:DECypos:DECxpos:LDA#3:STAfine:RTS
,�.noupl DECxpos:LDA#1:STAfine:.nomove RTS:.right LDA#0:STArghts:LDA#1:STAface:LDAxpos:CMP#9:BEQrightscr:CLC:ADC#1:STAxset:LDAypos:STAyset:JSRgetblock:�#&30:CMP#&10:BEQnomover:CMP#&20:BEQnomover:CMP#&30:BNEnoupr
6FDECypos:INCxpos:LDA#4:STAfine:RTS:.noupr INCxpos:LDA#2:STAfine:RTS
@0.nomover LDA#1:STArghts:STAchanged:JMPnomove
JZ.leftscr LDA#9:STAxpos:DECxscr:JSRscreen:RTS:.rightscr LDA#0:STAxpos:INCxscr:JMPscreen
T�.jump LDAypos:CMP#9:BEQnomovet:CLC:ADC#1:STAyset:LDAxpos:STAxset:JSRgetblock:�#&30:BEQnomovet:LDA#3:STAupvelo:LDAsound:BEQnosnd:LDA#7:LDX#(jumpn � 256):LDY#(jumpn � 256):JSRosword:.nosnd RTS:.nomovet JMPnomove
^�.dispyou LDAwiper:BEQnowipe:LDY#0:.wiplop LDA&FC0,Y:STA(&78),Y:INY:CPY#32:BNEwiplop:LDA&78:CLC:ADC#&80:STA&78:LDA&79:ADC#2:STA&79:LDY#0:.wipeb LDA&FE0,Y:STA(&78),Y:INY:CPY#32:BNEwipeb
h�.nowipe LDA#1:STAwiper:LDAxpos:ASL A:ASL A:ASL A:ASL A:ASL A:ASL A:STA&70:LDAxpos:LSR A:LSR A:CLC:ADC#&35:STA&71:LDAypos:CLC:ADC&71:STA&71:LDAypos:ASL A:ASL A:CLC:ADC&71:STA&71:LDY#0
r�STY&72:LDA#&1A:STA&73:LDXmovstag:LDAsequen,X:CLC:ADCfine:TAX:LDA&70:CLC:ADClowad,X:STA&70:LDA&71:ADChighad,X:STA&71:CPX#0:BEQnophase:LDXphase:INX
|[.addph LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#0:STA&73:DEX:BNEaddph:LDAphase:�#1:STAphase
�M.nophase LDArghts:BEQnotrght:LDA&70:CLC:ADC#32:STA&70:LDA&71:ADC#0:STA&71
�8.notrght LDAface:BNEleface:LDA&72:CLC:ADC#&20:STA&72
�'.leface LDA&70:STA&78:LDA&71:STA&79
��.ladisp LDA(&70),Y:STA&FC0,Y:�#&C0:�A(&72),Y:STA(&70),Y:INY:CPY#32:BNEladisp:LDA&72:CLC:ADC#&40:STA&72:LDA&73:ADC#0:STA&73:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:LDY#0
�T.lbdisp LDA(&70),Y:STA&FE0,Y:�#&C0:�A(&72),Y:STA(&70),Y:INY:CPY#32:BNElbdisp:RTS
�:
�w.wait LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CMP&80:BNEwait:LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CLC:ADC#4:STA&80:RTS
�:
ֿ.jumpup DECupvelo:LDAypos:BEQupscr:SEC:SBC#1:STAyset:LDAxpos:STAxset:JSRgetblock:�#&30:BEQupone:LDA#0:STAupvelo:RTS:.upone LDA#6:STAfine:DECypos:RTS:.upscr DECyscr:LDA#9:STAypos:JMPscreen
�:
�.block JMP blockon
�}.screen LDAxpos:STAxold:LDAypos:STAyold:JSRscroff:LDA#&FF:STAyset:.ylop LDA#&FF:STAxset:INCyset:.xlop INCxset:JSR blockon
�"LDAxset:CMP#9:BEQnexty:JMPxlop
).nexty LDAyset:CMP#9:BEQscron:JMPylop
.scron LDY#0
�.scronlop LDA#19:JSRoswrch:TYA:JSRoswrch:TYA:�#7:JSRoswrch:LDA#0:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:INY:CPY#16:BNEscronlop:LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CLC:ADC#4:STA&80:LDA#0:STAwiper:LDA#1:STAchanged:RTS
&�.scroff LDY#0:.scrofflop LDA#19:JSRoswrch:TYA:JSRoswrch:LDA#0:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:INY:CPY#16:BNEscrofflop:RTS
0:
:�.blockon JSR getblock:LDAxset:ASL A:ASL A:ASL A:ASL A:ASL A:ASL A:STA&70:LDAxset:LSR A:LSR A:CLC:ADC#&35:STA&71:LDAyset:CLC:ADC&71:STA&71:LDAyset:ASL A:ASL A:CLC:ADC&71:STA&71
DULDA&72:LSR A:LSR A:CLC:ADC#&20:STA&73:LDA&72:LSR A:ROR A:ROR A:�#&C0:STA&72:LDY#0
N�.transtop LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:STA(&70),Y:INY:CPY#&40:BNEtranstop:LDY#0:LDA&72:CLC:ADC#&40:STA&72:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71
XT.transbot LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:STA(&70),Y:INY:CPY#&40:BNEtransbot:RTS
b:
l\.getblock LDA#&30:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STAscrno
v_LDAscrno:STA&71:LDAyset:STA&70:ASL A:ASL A:ASL A:PHA:CLC:ADC&70:STA&70:PLA:ASL A:CLC:ADC&70
�uSTA&70:LDYxset:LDAxdata,Y:TAY:LDA(&70),Y:ROL A:ROL A:ROL A:�#3:STA&72:INY:LDA(&70),Y:LSR A:LSR A:LSR A:LSR A:�#12
�~CLC:ADC&72:STA&72:LDAxset:LSR A:TAY:LDAhbdat,Y:TAY:LDA(&70),Y:STA&73:LDAxset:�#1:BNEbit2:LDA&73:ASL A:ROL A:ROL A:JMPfbgot
�.bit2 LDA&73:ASL A:ROL A
�B.fbgot �#1:ASL A:ASL A:ASL A:ASL A:CLC:ADC&72:ASL A:STA&72:RTS
�:
��.blascr JSRscroff:LDY#0:STY&70:LDA#&30:STA&71:.blanlop LDA(&70),Y:�#&C0:STA(&70),Y:INY:BNEblanlop:INC&71:LDA&71:CMP#&80:BNEblanlop:JMPscron
�:
�C.putch ASL A:ASL A:ASL A:TAX:LDA#0:STA&70:LDA#&30:STA&71:LDYxch
�N.xlopc BEQnoxch:LDA&70:CLC:ADC#&20:STA&70:LDA&71:ADC#0:STA&71:DEY:JMPxlopc
�\.noxch LDYych:.ylopc BEQnoych:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:DEY:JMPylopc
��.noych LDY#0:.sline LDA&C00,X:.linelop PHA:ASL A:ROL A:ROL A:�#3:BEQblanch:STA&80:LDA#0:.colch CLC:ADCcol:DEC&80:BNEcolch:.blanch STA&80:LDA(&70),Y:�#&C0:�A&80:STA(&70),Y:TYA:CLC:ADC#8:TAY:CMP#&20:BCSnewlin
�MPLA:ASL A:ASL A:JMPlinelop:.newlin �#7:TAY:PLA:INY:INX:CPY#8:BNEsline:RTS
�:
�.string LDY#0:LDA(&72),Y:CMP#&FF:BEQstrend:JSRputch:INCxch:LDA&72:CLC:ADC#1:STA&72:LDA&73:ADC#0:STA&73:JMPstring:.strend RTS
:
|.quitch LDA#&81:LDX#&8F:LDY#&FF:JSRosbyte:BCSquitok:RTS:.quitok PLA:PLA:LDA#&81:LDX#&FF:LDY#&FF:JSRosbyte:BCCzap:JMPprog
 m.zap LDAxold:STAxpos:LDAyold:STAypos:LDAsound:BEQnozaps:LDA#7:LDX#(zapn � 256):LDY#(zapn � 256):JSRosword
*.nozaps JMPnewscr
4:
>�.title JSRblascr:LDA#&15:STAcol:LDA#4:STAxch:LDA#5:STAych:LDA#(name � 256):STA&72:LDA#(name � 256):STA&73:JSRstring:LDA#1:STAcol:LDA#3:STAxch:LDA#16:STAych:LDA#(creda � 256):STA&72:LDA#(creda � 256):STA&73:JSRstring
H�LDA#4:STAxch:LDA#18:STAych:LDA#(credb � 256):STA&72:LDA#(credb � 256):STA&73:JSRstring:LDA#4:STAxch:LDA#20:STAych:LDA#(credc � 256):STA&72:LDA#(credc � 256):STA&73:JSRstring
R�LDA#8:STAxch:LDA#22:STAych:LDA#(credd � 256):STA&72:LDA#(credd � 256):STA&73:JSRstring:LDA#0:STAxch:LDA#30:STAych:LDA#(space � 256):STA&72:LDA#(space � 256):STA&73:JSRstring
\�.soundpr LDA#6:STAxch:LDA#26:STAych:LDA#4:STAcol:LDA#(sndoff � 256):STA&72:LDA#(sndoff � 256):STA&73:LDAsound:BEQsoundset:LDA#(sndon � 256):STA&72:LDA#(sndon � 256):STA&73
fI.soundset JSRstring:.sstop LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSsstop
pi.spacwait LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSseor:LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCCspacwait:RTS
z*.seor LDAsound:�#1:STAsound:JMPsoundpr
�m.creda EQUB14:EQUB15:EQUB22:EQUB7:EQUB15:EQUB1:EQUB12:EQUB12:EQUB5:EQUB4:EQUB0:EQUB1:EQUB13:EQUB4:EQUB255
�X.credb EQUB4:EQUB5:EQUB16:EQUB23:EQUB7:EQUB13:EQUB5:EQUB4:EQUB0:EQUB2:EQUB21:EQUB255
�a.credc EQUB4:EQUB22:EQUB12:EQUB23:EQUB13:EQUB23:EQUB3:EQUB0:EQUB6:EQUB22:EQUB15:EQUB4:EQUB255
�..credd EQUB23:EQUB31:EQUB31:EQUB28:EQUB255
��.space EQUB14:EQUB15:EQUB5:EQUB16:EQUB16:EQUB0:EQUB16:EQUB14:EQUB1:EQUB3:EQUB5:EQUB0:EQUB17:EQUB22:EQUB0:EQUB16:EQUB17:EQUB1:EQUB15:EQUB17:EQUB255
�_.name EQUB16:EQUB8:EQUB23:EQUB14:EQUB0:EQUB20:EQUB15:EQUB5:EQUB3:EQUB10:EQUB5:EQUB4:EQUB255
�N.sndon EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB13:EQUB0:EQUB255
�T.sndoff EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB6:EQUB6:EQUB0:EQUB255
�:
�#.jumpn EQUW1:EQUW1:EQUW52:EQUW5
�#.zapn EQUW1:EQUW2:EQUW52:EQUW10
�:
�.sequen EQUB0:EQUB14:EQUB28
@.lowad EQUB0:EQUB&30:EQUB&D0:EQUB&B0:EQUB&50:EQUB&80:EQUB&80
9.highad EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB&FD:EQUB2
:
$9EQUB0:EQUB&20:EQUB&E0:EQUB&A0:EQUB&60:EQUB&80:EQUB&80
.1EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB&FD:EQUB2
8:
B5EQUB0:EQUB&10:EQUB&F0:EQUB&90:EQUB&70:EQUB0:EQUB0
L/EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB0:EQUB0
V:
`$.xch EQUB0:.ych EQUB0:.col EQUB0
jL.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22
t+.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24
~K.xset EQUB0:.yset EQUB0:.xscr EQUB0:.yscr EQUB0:.xpos EQUB0:.ypos EQUB0
�O.scrno EQUB0:.upvelo EQUB0:.xold EQUB0:.yold EQUB0:.fine EQUB0:.sound EQUB1
�T.face EQUB1:.phase EQUB0:.rghts EQUB0:.wiper EQUB0:.movstag EQUB0:.changed EQUB0
�]:�
��
�

00000000  0d 00 0a 08 f2 61 73 73  0d 00 14 5e 41 24 3d 22  |.....ass...^A$="|
00000010  44 45 4c 2e 31 35 30 2c  39 39 39 39 22 2b bd 31  |DEL.150,9999"+.1|
00000020  33 2b 22 47 4f 54 4f 34  30 22 2b bd 36 2b bd 31  |3+"GOTO40"+.6+.1|
00000030  33 3a ef 32 31 3a e3 20  63 68 61 72 3d 31 20 b8  |3:.21:. char=1 .|
00000040  20 a9 28 41 24 29 3a ff  22 46 58 31 33 38 2c 30  | .(A$):."FX138,0|
00000050  2c 22 2b c3 28 97 28 c1  41 24 2c 63 68 61 72 2c  |,"+.(.(.A$,char,|
00000060  31 29 29 29 3a ed 0d 00  1e 05 e0 0d 00 28 1e d3  |1))):........(..|
00000070  3d 26 31 46 30 30 3a 2a  4c 4f 41 44 20 42 4c 4f  |=&1F00:*LOAD BLO|
00000080  43 44 41 54 20 32 30 30  30 0d 00 32 1d 2a 4c 4f  |CDAT 2000..2.*LO|
00000090  41 44 20 53 50 52 49 54  45 53 2e 53 50 52 44 41  |AD SPRITES.SPRDA|
000000a0  54 20 36 32 30 30 0d 00  3c 15 e3 70 3d 30 b8 32  |T 6200..<..p=0.2|
000000b0  88 32 3a 50 25 3d 26 31  46 38 30 0d 00 46 0a 5b  |.2:P%=&1F80..F.[|
000000c0  4f 50 54 20 70 0d 00 50  be 4c 44 59 23 30 3a 53  |OPT p..P.LDY#0:S|
000000d0  54 59 26 37 30 3a 53 54  59 26 37 32 3a 4c 44 41  |TY&70:STY&72:LDA|
000000e0  23 26 35 38 3a 53 54 41  26 37 31 3a 4c 44 41 23  |#&58:STA&71:LDA#|
000000f0  26 31 30 3a 53 54 41 26  37 33 3a 2e 6d 6f 76 65  |&10:STA&73:.move|
00000100  63 6f 64 65 20 4c 44 41  28 26 37 30 29 2c 59 3a  |code LDA(&70),Y:|
00000110  53 54 41 28 26 37 32 29  2c 59 3a 49 4e 59 3a 43  |STA(&72),Y:INY:C|
00000120  50 59 23 31 32 38 3a 42  45 51 68 61 6c 66 70 61  |PY#128:BEQhalfpa|
00000130  67 65 3a 43 50 59 23 30  3a 42 4e 45 6d 6f 76 65  |ge:CPY#0:BNEmove|
00000140  63 6f 64 65 3a 49 4e 43  26 37 31 3a 49 4e 43 26  |code:INC&71:INC&|
00000150  37 33 3a 4a 4d 50 6d 6f  76 65 63 6f 64 65 3a 2e  |73:JMPmovecode:.|
00000160  68 61 6c 66 70 61 67 65  20 4c 44 41 26 37 33 3a  |halfpage LDA&73:|
00000170  43 4d 50 23 26 31 46 3a  42 4e 45 6d 6f 76 65 63  |CMP#&1F:BNEmovec|
00000180  6f 64 65 0d 00 5a 27 4c  44 41 23 26 36 43 3a 53  |ode..Z'LDA#&6C:S|
00000190  54 41 26 37 31 3a 4c 44  41 23 26 33 30 3a 53 54  |TA&71:LDA#&30:ST|
000001a0  41 26 37 33 3a 4c 44 59  23 30 0d 00 64 8c 2e 64  |A&73:LDY#0..d..d|
000001b0  65 63 6f 6d 70 20 4c 44  41 28 26 37 30 29 2c 59  |ecomp LDA(&70),Y|
000001c0  3a 53 54 41 26 38 30 3a  2e 62 69 74 73 20 4c 44  |:STA&80:.bits LD|
000001d0  41 26 38 30 3a 4c 53 52  20 41 3a 52 4f 52 20 41  |A&80:LSR A:ROR A|
000001e0  3a 52 4f 52 20 41 3a 80  23 26 43 30 3a 53 54 41  |:ROR A:.#&C0:STA|
000001f0  28 26 37 32 29 2c 59 3a  49 4e 43 26 37 32 3a 4c  |(&72),Y:INC&72:L|
00000200  44 41 26 37 32 3a 42 4e  45 6e 6f 65 78 74 3a 49  |DA&72:BNEnoext:I|
00000210  4e 43 26 37 33 3a 4c 44  41 26 37 33 3a 43 4d 50  |NC&73:LDA&73:CMP|
00000220  23 26 38 30 3a 42 4e 45  6e 6f 65 78 74 3a 4a 4d  |#&80:BNEnoext:JM|
00000230  50 26 31 30 30 30 0d 00  6e 54 2e 6e 6f 65 78 74  |P&1000..nT.noext|
00000240  20 4c 53 52 26 38 30 3a  4c 53 52 26 38 30 3a 4c  | LSR&80:LSR&80:L|
00000250  44 41 26 37 32 3a 80 23  33 3a 42 4e 45 62 69 74  |DA&72:.#3:BNEbit|
00000260  73 3a 49 4e 43 26 37 30  3a 4c 44 41 26 37 30 3a  |s:INC&70:LDA&70:|
00000270  42 4e 45 64 65 63 6f 6d  70 3a 49 4e 43 26 37 31  |BNEdecomp:INC&71|
00000280  3a 4a 4d 50 64 65 63 6f  6d 70 0d 00 78 07 5d 3a  |:JMPdecomp..x.]:|
00000290  ed 0d 00 82 19 e3 64 3d  26 33 30 30 30 b8 26 35  |......d=&3000.&5|
000002a0  37 46 46 3a 3f 64 3d 30  3a ed 0d 00 8c 1e 2a 53  |7FF:?d=0:.....*S|
000002b0  41 56 45 20 53 68 69 70  2e 53 68 69 70 33 20 31  |AVE Ship.Ship3 1|
000002c0  46 38 30 20 38 30 30 30  0d 00 96 05 e0 0d 00 a0  |F80 8000........|
000002d0  05 3a 0d 00 aa 09 dd f2  61 73 73 0d 00 b4 48 e3  |.:......ass...H.|
000002e0  70 61 73 73 3d 34 b8 36  88 32 3a 6f 73 62 79 74  |pass=4.6.2:osbyt|
000002f0  65 3d 26 46 46 46 34 3a  6f 73 77 6f 72 64 3d 26  |e=&FFF4:osword=&|
00000300  46 46 46 31 3a 6f 73 77  72 63 68 3d 26 46 46 45  |FFF1:oswrch=&FFE|
00000310  45 3a 50 25 3d 26 31 30  30 30 3a 4f 25 3d 26 35  |E:P%=&1000:O%=&5|
00000320  38 30 30 0d 00 be 0d 5b  4f 50 54 20 70 61 73 73  |800....[OPT pass|
00000330  0d 00 c8 7e 2e 70 72 6f  67 20 4a 53 52 74 69 74  |...~.prog JSRtit|
00000340  6c 65 3a 4a 53 52 62 6c  61 73 63 72 3a 4c 44 41  |le:JSRblascr:LDA|
00000350  23 34 3a 53 54 41 78 63  68 3a 4c 44 41 23 31 3a  |#4:STAxch:LDA#1:|
00000360  53 54 41 79 63 68 3a 4c  44 41 23 31 37 3a 53 54  |STAych:LDA#17:ST|
00000370  41 63 6f 6c 3a 4c 44 41  23 28 6e 61 6d 65 20 83  |Acol:LDA#(name .|
00000380  20 32 35 36 29 3a 53 54  41 26 37 32 3a 4c 44 41  | 256):STA&72:LDA|
00000390  23 28 6e 61 6d 65 20 81  20 32 35 36 29 3a 53 54  |#(name . 256):ST|
000003a0  41 26 37 33 3a 4a 53 52  73 74 72 69 6e 67 0d 00  |A&73:JSRstring..|
000003b0  d2 35 2e 67 61 6d 65 20  4c 44 41 23 30 3a 53 54  |.5.game LDA#0:ST|
000003c0  41 78 73 63 72 3a 53 54  41 79 73 63 72 3a 4c 44  |Axscr:STAyscr:LD|
000003d0  41 23 32 3a 53 54 41 78  70 6f 73 3a 53 54 41 79  |A#2:STAxpos:STAy|
000003e0  70 6f 73 0d 00 dc dd 2e  6e 65 77 73 63 72 20 4a  |pos.....newscr J|
000003f0  53 52 73 63 72 65 65 6e  3a 2e 6f 6c 64 73 63 72  |SRscreen:.oldscr|
00000400  20 4a 53 52 71 75 69 74  63 68 3a 4c 44 41 23 30  | JSRquitch:LDA#0|
00000410  3a 53 54 41 6d 6f 76 73  74 61 67 3a 4c 44 41 63  |:STAmovstag:LDAc|
00000420  68 61 6e 67 65 64 3a 42  4e 45 6d 6f 76 65 73 6c  |hanged:BNEmovesl|
00000430  6f 70 3a 4c 44 41 66 69  6e 65 3a 42 45 51 6e 6f  |op:LDAfine:BEQno|
00000440  66 69 6e 65 3a 2e 6d 6f  76 65 73 6c 6f 70 20 4a  |fine:.moveslop J|
00000450  53 52 64 69 73 70 79 6f  75 3a 4a 53 52 77 61 69  |SRdispyou:JSRwai|
00000460  74 3a 49 4e 43 6d 6f 76  73 74 61 67 3a 4c 44 41  |t:INCmovstag:LDA|
00000470  6d 6f 76 73 74 61 67 3a  43 4d 50 23 33 3a 42 4e  |movstag:CMP#3:BN|
00000480  45 6d 6f 76 65 73 6c 6f  70 3a 4c 44 41 23 30 3a  |Emoveslop:LDA#0:|
00000490  53 54 41 6d 6f 76 73 74  61 67 3a 53 54 41 63 68  |STAmovstag:STAch|
000004a0  61 6e 67 65 64 3a 53 54  41 66 69 6e 65 3a 4a 53  |anged:STAfine:JS|
000004b0  52 64 69 73 70 79 6f 75  3a 4a 53 52 77 61 69 74  |Rdispyou:JSRwait|
000004c0  0d 00 e6 32 2e 66 69 6e  65 6e 64 20 4c 44 41 75  |...2.finend LDAu|
000004d0  70 76 65 6c 6f 3a 42 45  51 66 61 6c 6c 68 3a 4a  |pvelo:BEQfallh:J|
000004e0  53 52 6a 75 6d 70 75 70  3a 4a 4d 50 6e 6f 66 61  |SRjumpup:JMPnofa|
000004f0  6c 6c 0d 00 f0 35 2e 6e  6f 66 69 6e 65 20 4a 53  |ll...5.nofine JS|
00000500  52 77 61 69 74 3a 4a 53  52 77 61 69 74 3a 4a 53  |Rwait:JSRwait:JS|
00000510  52 77 61 69 74 3a 4a 53  52 77 61 69 74 3a 4a 4d  |Rwait:JSRwait:JM|
00000520  50 66 69 6e 65 6e 64 0d  00 fa 7b 2e 66 61 6c 6c  |Pfinend...{.fall|
00000530  68 20 4c 44 41 79 70 6f  73 3a 43 4d 50 23 39 3a  |h LDAypos:CMP#9:|
00000540  42 45 51 64 6f 77 6e 73  63 72 3a 43 4c 43 3a 41  |BEQdownscr:CLC:A|
00000550  44 43 23 31 3a 53 54 41  79 73 65 74 3a 4c 44 41  |DC#1:STAyset:LDA|
00000560  78 70 6f 73 3a 53 54 41  78 73 65 74 3a 4a 53 52  |xpos:STAxset:JSR|
00000570  67 65 74 62 6c 6f 63 6b  3a 43 4d 50 23 38 3a 42  |getblock:CMP#8:B|
00000580  45 51 77 61 74 74 3a 80  23 26 33 30 3a 42 45 51  |EQwatt:.#&30:BEQ|
00000590  66 61 6c 6c 64 6f 77 6e  3a 42 4e 45 6e 6f 66 61  |falldown:BNEnofa|
000005a0  6c 6c 0d 01 04 39 2e 64  6f 77 6e 73 63 72 20 4c  |ll...9.downscr L|
000005b0  44 41 23 30 3a 53 54 41  79 70 6f 73 3a 49 4e 43  |DA#0:STAypos:INC|
000005c0  79 73 63 72 3a 4a 4d 50  6e 65 77 73 63 72 3a 2e  |yscr:JMPnewscr:.|
000005d0  77 61 74 74 20 4a 4d 50  7a 61 70 0d 01 0e 40 2e  |watt JMPzap...@.|
000005e0  66 61 6c 6c 64 6f 77 6e  20 4c 44 41 23 35 3a 53  |falldown LDA#5:S|
000005f0  54 41 66 69 6e 65 3a 49  4e 43 79 70 6f 73 3a 2e  |TAfine:INCypos:.|
00000600  6e 6f 66 61 6c 6c 20 4a  53 52 6d 6f 76 65 79 6f  |nofall JSRmoveyo|
00000610  75 3a 4a 4d 50 6f 6c 64  73 63 72 0d 01 18 d6 2e  |u:JMPoldscr.....|
00000620  6d 6f 76 65 79 6f 75 20  4c 44 41 23 26 38 31 3a  |moveyou LDA#&81:|
00000630  4c 44 58 23 26 42 36 3a  4c 44 59 23 26 46 46 3a  |LDX#&B6:LDY#&FF:|
00000640  4a 53 52 6f 73 62 79 74  65 3a 42 43 43 6e 6a 75  |JSRosbyte:BCCnju|
00000650  6d 70 3a 4a 53 52 6a 75  6d 70 3a 2e 6e 6a 75 6d  |mp:JSRjump:.njum|
00000660  70 20 4c 44 41 23 26 38  31 3a 4c 44 58 23 26 39  |p LDA#&81:LDX#&9|
00000670  45 3a 4c 44 59 23 26 46  46 3a 4a 53 52 6f 73 62  |E:LDY#&FF:JSRosb|
00000680  79 74 65 3a 42 43 43 6e  6c 65 66 74 3a 4a 53 52  |yte:BCCnleft:JSR|
00000690  6c 65 66 74 3a 2e 6e 6c  65 66 74 20 4c 44 41 23  |left:.nleft LDA#|
000006a0  26 38 31 3a 4c 44 58 23  26 42 44 3a 4c 44 59 23  |&81:LDX#&BD:LDY#|
000006b0  26 46 46 3a 4a 53 52 6f  73 62 79 74 65 3a 42 43  |&FF:JSRosbyte:BC|
000006c0  43 6e 72 69 67 68 74 3a  4a 4d 50 72 69 67 68 74  |Cnright:JMPright|
000006d0  3a 2e 6e 72 69 67 68 74  20 52 54 53 3a 2e 6c 65  |:.nright RTS:.le|
000006e0  66 74 73 63 72 74 20 4a  4d 50 6c 65 66 74 73 63  |ftscrt JMPleftsc|
000006f0  72 0d 01 22 bf 2e 6c 65  66 74 20 4c 44 41 23 30  |r.."..left LDA#0|
00000700  3a 53 54 41 66 61 63 65  3a 53 54 41 72 67 68 74  |:STAface:STArght|
00000710  73 3a 4c 44 41 78 70 6f  73 3a 42 45 51 6c 65 66  |s:LDAxpos:BEQlef|
00000720  74 73 63 72 74 3a 53 45  43 3a 53 42 43 23 31 3a  |tscrt:SEC:SBC#1:|
00000730  53 54 41 78 73 65 74 3a  4c 44 41 79 70 6f 73 3a  |STAxset:LDAypos:|
00000740  53 54 41 79 73 65 74 3a  4a 53 52 67 65 74 62 6c  |STAyset:JSRgetbl|
00000750  6f 63 6b 3a 80 23 26 33  30 3a 43 4d 50 23 26 31  |ock:.#&30:CMP#&1|
00000760  30 3a 42 45 51 6e 6f 6d  6f 76 65 3a 43 4d 50 23  |0:BEQnomove:CMP#|
00000770  26 32 30 3a 42 45 51 6e  6f 6d 6f 76 65 3a 43 4d  |&20:BEQnomove:CM|
00000780  50 23 26 33 30 3a 42 4e  45 6e 6f 75 70 6c 3a 44  |P#&30:BNEnoupl:D|
00000790  45 43 79 70 6f 73 3a 44  45 43 78 70 6f 73 3a 4c  |ECypos:DECxpos:L|
000007a0  44 41 23 33 3a 53 54 41  66 69 6e 65 3a 52 54 53  |DA#3:STAfine:RTS|
000007b0  0d 01 2c d5 2e 6e 6f 75  70 6c 20 44 45 43 78 70  |..,..noupl DECxp|
000007c0  6f 73 3a 4c 44 41 23 31  3a 53 54 41 66 69 6e 65  |os:LDA#1:STAfine|
000007d0  3a 2e 6e 6f 6d 6f 76 65  20 52 54 53 3a 2e 72 69  |:.nomove RTS:.ri|
000007e0  67 68 74 20 4c 44 41 23  30 3a 53 54 41 72 67 68  |ght LDA#0:STArgh|
000007f0  74 73 3a 4c 44 41 23 31  3a 53 54 41 66 61 63 65  |ts:LDA#1:STAface|
00000800  3a 4c 44 41 78 70 6f 73  3a 43 4d 50 23 39 3a 42  |:LDAxpos:CMP#9:B|
00000810  45 51 72 69 67 68 74 73  63 72 3a 43 4c 43 3a 41  |EQrightscr:CLC:A|
00000820  44 43 23 31 3a 53 54 41  78 73 65 74 3a 4c 44 41  |DC#1:STAxset:LDA|
00000830  79 70 6f 73 3a 53 54 41  79 73 65 74 3a 4a 53 52  |ypos:STAyset:JSR|
00000840  67 65 74 62 6c 6f 63 6b  3a 80 23 26 33 30 3a 43  |getblock:.#&30:C|
00000850  4d 50 23 26 31 30 3a 42  45 51 6e 6f 6d 6f 76 65  |MP#&10:BEQnomove|
00000860  72 3a 43 4d 50 23 26 32  30 3a 42 45 51 6e 6f 6d  |r:CMP#&20:BEQnom|
00000870  6f 76 65 72 3a 43 4d 50  23 26 33 30 3a 42 4e 45  |over:CMP#&30:BNE|
00000880  6e 6f 75 70 72 0d 01 36  46 44 45 43 79 70 6f 73  |noupr..6FDECypos|
00000890  3a 49 4e 43 78 70 6f 73  3a 4c 44 41 23 34 3a 53  |:INCxpos:LDA#4:S|
000008a0  54 41 66 69 6e 65 3a 52  54 53 3a 2e 6e 6f 75 70  |TAfine:RTS:.noup|
000008b0  72 20 49 4e 43 78 70 6f  73 3a 4c 44 41 23 32 3a  |r INCxpos:LDA#2:|
000008c0  53 54 41 66 69 6e 65 3a  52 54 53 0d 01 40 30 2e  |STAfine:RTS..@0.|
000008d0  6e 6f 6d 6f 76 65 72 20  4c 44 41 23 31 3a 53 54  |nomover LDA#1:ST|
000008e0  41 72 67 68 74 73 3a 53  54 41 63 68 61 6e 67 65  |Arghts:STAchange|
000008f0  64 3a 4a 4d 50 6e 6f 6d  6f 76 65 0d 01 4a 5a 2e  |d:JMPnomove..JZ.|
00000900  6c 65 66 74 73 63 72 20  4c 44 41 23 39 3a 53 54  |leftscr LDA#9:ST|
00000910  41 78 70 6f 73 3a 44 45  43 78 73 63 72 3a 4a 53  |Axpos:DECxscr:JS|
00000920  52 73 63 72 65 65 6e 3a  52 54 53 3a 2e 72 69 67  |Rscreen:RTS:.rig|
00000930  68 74 73 63 72 20 4c 44  41 23 30 3a 53 54 41 78  |htscr LDA#0:STAx|
00000940  70 6f 73 3a 49 4e 43 78  73 63 72 3a 4a 4d 50 73  |pos:INCxscr:JMPs|
00000950  63 72 65 65 6e 0d 01 54  d5 2e 6a 75 6d 70 20 4c  |creen..T..jump L|
00000960  44 41 79 70 6f 73 3a 43  4d 50 23 39 3a 42 45 51  |DAypos:CMP#9:BEQ|
00000970  6e 6f 6d 6f 76 65 74 3a  43 4c 43 3a 41 44 43 23  |nomovet:CLC:ADC#|
00000980  31 3a 53 54 41 79 73 65  74 3a 4c 44 41 78 70 6f  |1:STAyset:LDAxpo|
00000990  73 3a 53 54 41 78 73 65  74 3a 4a 53 52 67 65 74  |s:STAxset:JSRget|
000009a0  62 6c 6f 63 6b 3a 80 23  26 33 30 3a 42 45 51 6e  |block:.#&30:BEQn|
000009b0  6f 6d 6f 76 65 74 3a 4c  44 41 23 33 3a 53 54 41  |omovet:LDA#3:STA|
000009c0  75 70 76 65 6c 6f 3a 4c  44 41 73 6f 75 6e 64 3a  |upvelo:LDAsound:|
000009d0  42 45 51 6e 6f 73 6e 64  3a 4c 44 41 23 37 3a 4c  |BEQnosnd:LDA#7:L|
000009e0  44 58 23 28 6a 75 6d 70  6e 20 83 20 32 35 36 29  |DX#(jumpn . 256)|
000009f0  3a 4c 44 59 23 28 6a 75  6d 70 6e 20 81 20 32 35  |:LDY#(jumpn . 25|
00000a00  36 29 3a 4a 53 52 6f 73  77 6f 72 64 3a 2e 6e 6f  |6):JSRosword:.no|
00000a10  73 6e 64 20 52 54 53 3a  2e 6e 6f 6d 6f 76 65 74  |snd RTS:.nomovet|
00000a20  20 4a 4d 50 6e 6f 6d 6f  76 65 0d 01 5e bb 2e 64  | JMPnomove..^..d|
00000a30  69 73 70 79 6f 75 20 4c  44 41 77 69 70 65 72 3a  |ispyou LDAwiper:|
00000a40  42 45 51 6e 6f 77 69 70  65 3a 4c 44 59 23 30 3a  |BEQnowipe:LDY#0:|
00000a50  2e 77 69 70 6c 6f 70 20  4c 44 41 26 46 43 30 2c  |.wiplop LDA&FC0,|
00000a60  59 3a 53 54 41 28 26 37  38 29 2c 59 3a 49 4e 59  |Y:STA(&78),Y:INY|
00000a70  3a 43 50 59 23 33 32 3a  42 4e 45 77 69 70 6c 6f  |:CPY#32:BNEwiplo|
00000a80  70 3a 4c 44 41 26 37 38  3a 43 4c 43 3a 41 44 43  |p:LDA&78:CLC:ADC|
00000a90  23 26 38 30 3a 53 54 41  26 37 38 3a 4c 44 41 26  |#&80:STA&78:LDA&|
00000aa0  37 39 3a 41 44 43 23 32  3a 53 54 41 26 37 39 3a  |79:ADC#2:STA&79:|
00000ab0  4c 44 59 23 30 3a 2e 77  69 70 65 62 20 4c 44 41  |LDY#0:.wipeb LDA|
00000ac0  26 46 45 30 2c 59 3a 53  54 41 28 26 37 38 29 2c  |&FE0,Y:STA(&78),|
00000ad0  59 3a 49 4e 59 3a 43 50  59 23 33 32 3a 42 4e 45  |Y:INY:CPY#32:BNE|
00000ae0  77 69 70 65 62 0d 01 68  ba 2e 6e 6f 77 69 70 65  |wipeb..h..nowipe|
00000af0  20 4c 44 41 23 31 3a 53  54 41 77 69 70 65 72 3a  | LDA#1:STAwiper:|
00000b00  4c 44 41 78 70 6f 73 3a  41 53 4c 20 41 3a 41 53  |LDAxpos:ASL A:AS|
00000b10  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
00000b20  41 53 4c 20 41 3a 41 53  4c 20 41 3a 53 54 41 26  |ASL A:ASL A:STA&|
00000b30  37 30 3a 4c 44 41 78 70  6f 73 3a 4c 53 52 20 41  |70:LDAxpos:LSR A|
00000b40  3a 4c 53 52 20 41 3a 43  4c 43 3a 41 44 43 23 26  |:LSR A:CLC:ADC#&|
00000b50  33 35 3a 53 54 41 26 37  31 3a 4c 44 41 79 70 6f  |35:STA&71:LDAypo|
00000b60  73 3a 43 4c 43 3a 41 44  43 26 37 31 3a 53 54 41  |s:CLC:ADC&71:STA|
00000b70  26 37 31 3a 4c 44 41 79  70 6f 73 3a 41 53 4c 20  |&71:LDAypos:ASL |
00000b80  41 3a 41 53 4c 20 41 3a  43 4c 43 3a 41 44 43 26  |A:ASL A:CLC:ADC&|
00000b90  37 31 3a 53 54 41 26 37  31 3a 4c 44 59 23 30 0d  |71:STA&71:LDY#0.|
00000ba0  01 72 95 53 54 59 26 37  32 3a 4c 44 41 23 26 31  |.r.STY&72:LDA#&1|
00000bb0  41 3a 53 54 41 26 37 33  3a 4c 44 58 6d 6f 76 73  |A:STA&73:LDXmovs|
00000bc0  74 61 67 3a 4c 44 41 73  65 71 75 65 6e 2c 58 3a  |tag:LDAsequen,X:|
00000bd0  43 4c 43 3a 41 44 43 66  69 6e 65 3a 54 41 58 3a  |CLC:ADCfine:TAX:|
00000be0  4c 44 41 26 37 30 3a 43  4c 43 3a 41 44 43 6c 6f  |LDA&70:CLC:ADClo|
00000bf0  77 61 64 2c 58 3a 53 54  41 26 37 30 3a 4c 44 41  |wad,X:STA&70:LDA|
00000c00  26 37 31 3a 41 44 43 68  69 67 68 61 64 2c 58 3a  |&71:ADChighad,X:|
00000c10  53 54 41 26 37 31 3a 43  50 58 23 30 3a 42 45 51  |STA&71:CPX#0:BEQ|
00000c20  6e 6f 70 68 61 73 65 3a  4c 44 58 70 68 61 73 65  |nophase:LDXphase|
00000c30  3a 49 4e 58 0d 01 7c 5b  2e 61 64 64 70 68 20 4c  |:INX..|[.addph L|
00000c40  44 41 26 37 32 3a 43 4c  43 3a 41 44 43 23 26 38  |DA&72:CLC:ADC#&8|
00000c50  30 3a 53 54 41 26 37 32  3a 4c 44 41 26 37 33 3a  |0:STA&72:LDA&73:|
00000c60  41 44 43 23 30 3a 53 54  41 26 37 33 3a 44 45 58  |ADC#0:STA&73:DEX|
00000c70  3a 42 4e 45 61 64 64 70  68 3a 4c 44 41 70 68 61  |:BNEaddph:LDApha|
00000c80  73 65 3a 82 23 31 3a 53  54 41 70 68 61 73 65 0d  |se:.#1:STAphase.|
00000c90  01 86 4d 2e 6e 6f 70 68  61 73 65 20 4c 44 41 72  |..M.nophase LDAr|
00000ca0  67 68 74 73 3a 42 45 51  6e 6f 74 72 67 68 74 3a  |ghts:BEQnotrght:|
00000cb0  4c 44 41 26 37 30 3a 43  4c 43 3a 41 44 43 23 33  |LDA&70:CLC:ADC#3|
00000cc0  32 3a 53 54 41 26 37 30  3a 4c 44 41 26 37 31 3a  |2:STA&70:LDA&71:|
00000cd0  41 44 43 23 30 3a 53 54  41 26 37 31 0d 01 90 38  |ADC#0:STA&71...8|
00000ce0  2e 6e 6f 74 72 67 68 74  20 4c 44 41 66 61 63 65  |.notrght LDAface|
00000cf0  3a 42 4e 45 6c 65 66 61  63 65 3a 4c 44 41 26 37  |:BNEleface:LDA&7|
00000d00  32 3a 43 4c 43 3a 41 44  43 23 26 32 30 3a 53 54  |2:CLC:ADC#&20:ST|
00000d10  41 26 37 32 0d 01 9a 27  2e 6c 65 66 61 63 65 20  |A&72...'.leface |
00000d20  4c 44 41 26 37 30 3a 53  54 41 26 37 38 3a 4c 44  |LDA&70:STA&78:LD|
00000d30  41 26 37 31 3a 53 54 41  26 37 39 0d 01 a4 b2 2e  |A&71:STA&79.....|
00000d40  6c 61 64 69 73 70 20 4c  44 41 28 26 37 30 29 2c  |ladisp LDA(&70),|
00000d50  59 3a 53 54 41 26 46 43  30 2c 59 3a 80 23 26 43  |Y:STA&FC0,Y:.#&C|
00000d60  30 3a 84 41 28 26 37 32  29 2c 59 3a 53 54 41 28  |0:.A(&72),Y:STA(|
00000d70  26 37 30 29 2c 59 3a 49  4e 59 3a 43 50 59 23 33  |&70),Y:INY:CPY#3|
00000d80  32 3a 42 4e 45 6c 61 64  69 73 70 3a 4c 44 41 26  |2:BNEladisp:LDA&|
00000d90  37 32 3a 43 4c 43 3a 41  44 43 23 26 34 30 3a 53  |72:CLC:ADC#&40:S|
00000da0  54 41 26 37 32 3a 4c 44  41 26 37 33 3a 41 44 43  |TA&72:LDA&73:ADC|
00000db0  23 30 3a 53 54 41 26 37  33 3a 4c 44 41 26 37 30  |#0:STA&73:LDA&70|
00000dc0  3a 43 4c 43 3a 41 44 43  23 26 38 30 3a 53 54 41  |:CLC:ADC#&80:STA|
00000dd0  26 37 30 3a 4c 44 41 26  37 31 3a 41 44 43 23 32  |&70:LDA&71:ADC#2|
00000de0  3a 53 54 41 26 37 31 3a  4c 44 59 23 30 0d 01 ae  |:STA&71:LDY#0...|
00000df0  54 2e 6c 62 64 69 73 70  20 4c 44 41 28 26 37 30  |T.lbdisp LDA(&70|
00000e00  29 2c 59 3a 53 54 41 26  46 45 30 2c 59 3a 80 23  |),Y:STA&FE0,Y:.#|
00000e10  26 43 30 3a 84 41 28 26  37 32 29 2c 59 3a 53 54  |&C0:.A(&72),Y:ST|
00000e20  41 28 26 37 30 29 2c 59  3a 49 4e 59 3a 43 50 59  |A(&70),Y:INY:CPY|
00000e30  23 33 32 3a 42 4e 45 6c  62 64 69 73 70 3a 52 54  |#32:BNElbdisp:RT|
00000e40  53 0d 01 b8 05 3a 0d 01  c2 77 2e 77 61 69 74 20  |S....:...w.wait |
00000e50  4c 44 41 23 31 3a 4c 44  58 23 26 37 30 3a 4c 44  |LDA#1:LDX#&70:LD|
00000e60  59 23 30 3a 4a 53 52 6f  73 77 6f 72 64 3a 4c 44  |Y#0:JSRosword:LD|
00000e70  41 26 37 30 3a 43 4d 50  26 38 30 3a 42 4e 45 77  |A&70:CMP&80:BNEw|
00000e80  61 69 74 3a 4c 44 41 23  31 3a 4c 44 58 23 26 37  |ait:LDA#1:LDX#&7|
00000e90  30 3a 4c 44 59 23 30 3a  4a 53 52 6f 73 77 6f 72  |0:LDY#0:JSRoswor|
00000ea0  64 3a 4c 44 41 26 37 30  3a 43 4c 43 3a 41 44 43  |d:LDA&70:CLC:ADC|
00000eb0  23 34 3a 53 54 41 26 38  30 3a 52 54 53 0d 01 cc  |#4:STA&80:RTS...|
00000ec0  05 3a 0d 01 d6 bf 2e 6a  75 6d 70 75 70 20 44 45  |.:.....jumpup DE|
00000ed0  43 75 70 76 65 6c 6f 3a  4c 44 41 79 70 6f 73 3a  |Cupvelo:LDAypos:|
00000ee0  42 45 51 75 70 73 63 72  3a 53 45 43 3a 53 42 43  |BEQupscr:SEC:SBC|
00000ef0  23 31 3a 53 54 41 79 73  65 74 3a 4c 44 41 78 70  |#1:STAyset:LDAxp|
00000f00  6f 73 3a 53 54 41 78 73  65 74 3a 4a 53 52 67 65  |os:STAxset:JSRge|
00000f10  74 62 6c 6f 63 6b 3a 80  23 26 33 30 3a 42 45 51  |tblock:.#&30:BEQ|
00000f20  75 70 6f 6e 65 3a 4c 44  41 23 30 3a 53 54 41 75  |upone:LDA#0:STAu|
00000f30  70 76 65 6c 6f 3a 52 54  53 3a 2e 75 70 6f 6e 65  |pvelo:RTS:.upone|
00000f40  20 4c 44 41 23 36 3a 53  54 41 66 69 6e 65 3a 44  | LDA#6:STAfine:D|
00000f50  45 43 79 70 6f 73 3a 52  54 53 3a 2e 75 70 73 63  |ECypos:RTS:.upsc|
00000f60  72 20 44 45 43 79 73 63  72 3a 4c 44 41 23 39 3a  |r DECyscr:LDA#9:|
00000f70  53 54 41 79 70 6f 73 3a  4a 4d 50 73 63 72 65 65  |STAypos:JMPscree|
00000f80  6e 0d 01 e0 05 3a 0d 01  ea 16 2e 62 6c 6f 63 6b  |n....:.....block|
00000f90  20 4a 4d 50 20 62 6c 6f  63 6b 6f 6e 0d 01 f4 7d  | JMP blockon...}|
00000fa0  2e 73 63 72 65 65 6e 20  4c 44 41 78 70 6f 73 3a  |.screen LDAxpos:|
00000fb0  53 54 41 78 6f 6c 64 3a  4c 44 41 79 70 6f 73 3a  |STAxold:LDAypos:|
00000fc0  53 54 41 79 6f 6c 64 3a  4a 53 52 73 63 72 6f 66  |STAyold:JSRscrof|
00000fd0  66 3a 4c 44 41 23 26 46  46 3a 53 54 41 79 73 65  |f:LDA#&FF:STAyse|
00000fe0  74 3a 2e 79 6c 6f 70 20  4c 44 41 23 26 46 46 3a  |t:.ylop LDA#&FF:|
00000ff0  53 54 41 78 73 65 74 3a  49 4e 43 79 73 65 74 3a  |STAxset:INCyset:|
00001000  2e 78 6c 6f 70 20 49 4e  43 78 73 65 74 3a 4a 53  |.xlop INCxset:JS|
00001010  52 20 62 6c 6f 63 6b 6f  6e 0d 01 fe 22 4c 44 41  |R blockon..."LDA|
00001020  78 73 65 74 3a 43 4d 50  23 39 3a 42 45 51 6e 65  |xset:CMP#9:BEQne|
00001030  78 74 79 3a 4a 4d 50 78  6c 6f 70 0d 02 08 29 2e  |xty:JMPxlop...).|
00001040  6e 65 78 74 79 20 4c 44  41 79 73 65 74 3a 43 4d  |nexty LDAyset:CM|
00001050  50 23 39 3a 42 45 51 73  63 72 6f 6e 3a 4a 4d 50  |P#9:BEQscron:JMP|
00001060  79 6c 6f 70 0d 02 12 10  2e 73 63 72 6f 6e 20 4c  |ylop.....scron L|
00001070  44 59 23 30 0d 02 1c dd  2e 73 63 72 6f 6e 6c 6f  |DY#0.....scronlo|
00001080  70 20 4c 44 41 23 31 39  3a 4a 53 52 6f 73 77 72  |p LDA#19:JSRoswr|
00001090  63 68 3a 54 59 41 3a 4a  53 52 6f 73 77 72 63 68  |ch:TYA:JSRoswrch|
000010a0  3a 54 59 41 3a 80 23 37  3a 4a 53 52 6f 73 77 72  |:TYA:.#7:JSRoswr|
000010b0  63 68 3a 4c 44 41 23 30  3a 4a 53 52 6f 73 77 72  |ch:LDA#0:JSRoswr|
000010c0  63 68 3a 4a 53 52 6f 73  77 72 63 68 3a 4a 53 52  |ch:JSRoswrch:JSR|
000010d0  6f 73 77 72 63 68 3a 4a  53 52 6f 73 77 72 63 68  |oswrch:JSRoswrch|
000010e0  3a 49 4e 59 3a 43 50 59  23 31 36 3a 42 4e 45 73  |:INY:CPY#16:BNEs|
000010f0  63 72 6f 6e 6c 6f 70 3a  4c 44 41 23 31 3a 4c 44  |cronlop:LDA#1:LD|
00001100  58 23 26 37 30 3a 4c 44  59 23 30 3a 4a 53 52 6f  |X#&70:LDY#0:JSRo|
00001110  73 77 6f 72 64 3a 4c 44  41 26 37 30 3a 43 4c 43  |sword:LDA&70:CLC|
00001120  3a 41 44 43 23 34 3a 53  54 41 26 38 30 3a 4c 44  |:ADC#4:STA&80:LD|
00001130  41 23 30 3a 53 54 41 77  69 70 65 72 3a 4c 44 41  |A#0:STAwiper:LDA|
00001140  23 31 3a 53 54 41 63 68  61 6e 67 65 64 3a 52 54  |#1:STAchanged:RT|
00001150  53 0d 02 26 8f 2e 73 63  72 6f 66 66 20 4c 44 59  |S..&..scroff LDY|
00001160  23 30 3a 2e 73 63 72 6f  66 66 6c 6f 70 20 4c 44  |#0:.scrofflop LD|
00001170  41 23 31 39 3a 4a 53 52  6f 73 77 72 63 68 3a 54  |A#19:JSRoswrch:T|
00001180  59 41 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |YA:JSRoswrch:LDA|
00001190  23 30 3a 4a 53 52 6f 73  77 72 63 68 3a 4a 53 52  |#0:JSRoswrch:JSR|
000011a0  6f 73 77 72 63 68 3a 4a  53 52 6f 73 77 72 63 68  |oswrch:JSRoswrch|
000011b0  3a 4a 53 52 6f 73 77 72  63 68 3a 4a 53 52 6f 73  |:JSRoswrch:JSRos|
000011c0  77 72 63 68 3a 49 4e 59  3a 43 50 59 23 31 36 3a  |wrch:INY:CPY#16:|
000011d0  42 4e 45 73 63 72 6f 66  66 6c 6f 70 3a 52 54 53  |BNEscrofflop:RTS|
000011e0  0d 02 30 05 3a 0d 02 3a  b3 2e 62 6c 6f 63 6b 6f  |..0.:..:..blocko|
000011f0  6e 20 4a 53 52 20 67 65  74 62 6c 6f 63 6b 3a 4c  |n JSR getblock:L|
00001200  44 41 78 73 65 74 3a 41  53 4c 20 41 3a 41 53 4c  |DAxset:ASL A:ASL|
00001210  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
00001220  53 4c 20 41 3a 41 53 4c  20 41 3a 53 54 41 26 37  |SL A:ASL A:STA&7|
00001230  30 3a 4c 44 41 78 73 65  74 3a 4c 53 52 20 41 3a  |0:LDAxset:LSR A:|
00001240  4c 53 52 20 41 3a 43 4c  43 3a 41 44 43 23 26 33  |LSR A:CLC:ADC#&3|
00001250  35 3a 53 54 41 26 37 31  3a 4c 44 41 79 73 65 74  |5:STA&71:LDAyset|
00001260  3a 43 4c 43 3a 41 44 43  26 37 31 3a 53 54 41 26  |:CLC:ADC&71:STA&|
00001270  37 31 3a 4c 44 41 79 73  65 74 3a 41 53 4c 20 41  |71:LDAyset:ASL A|
00001280  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 37  |:ASL A:CLC:ADC&7|
00001290  31 3a 53 54 41 26 37 31  0d 02 44 55 4c 44 41 26  |1:STA&71..DULDA&|
000012a0  37 32 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 43  |72:LSR A:LSR A:C|
000012b0  4c 43 3a 41 44 43 23 26  32 30 3a 53 54 41 26 37  |LC:ADC#&20:STA&7|
000012c0  33 3a 4c 44 41 26 37 32  3a 4c 53 52 20 41 3a 52  |3:LDA&72:LSR A:R|
000012d0  4f 52 20 41 3a 52 4f 52  20 41 3a 80 23 26 43 30  |OR A:ROR A:.#&C0|
000012e0  3a 53 54 41 26 37 32 3a  4c 44 59 23 30 0d 02 4e  |:STA&72:LDY#0..N|
000012f0  9e 2e 74 72 61 6e 73 74  6f 70 20 4c 44 41 28 26  |..transtop LDA(&|
00001300  37 30 29 2c 59 3a 80 23  26 43 30 3a 43 4c 43 3a  |70),Y:.#&C0:CLC:|
00001310  41 44 43 28 26 37 32 29  2c 59 3a 53 54 41 28 26  |ADC(&72),Y:STA(&|
00001320  37 30 29 2c 59 3a 49 4e  59 3a 43 50 59 23 26 34  |70),Y:INY:CPY#&4|
00001330  30 3a 42 4e 45 74 72 61  6e 73 74 6f 70 3a 4c 44  |0:BNEtranstop:LD|
00001340  59 23 30 3a 4c 44 41 26  37 32 3a 43 4c 43 3a 41  |Y#0:LDA&72:CLC:A|
00001350  44 43 23 26 34 30 3a 53  54 41 26 37 32 3a 4c 44  |DC#&40:STA&72:LD|
00001360  41 26 37 30 3a 43 4c 43  3a 41 44 43 23 26 38 30  |A&70:CLC:ADC#&80|
00001370  3a 53 54 41 26 37 30 3a  4c 44 41 26 37 31 3a 41  |:STA&70:LDA&71:A|
00001380  44 43 23 32 3a 53 54 41  26 37 31 0d 02 58 54 2e  |DC#2:STA&71..XT.|
00001390  74 72 61 6e 73 62 6f 74  20 4c 44 41 28 26 37 30  |transbot LDA(&70|
000013a0  29 2c 59 3a 80 23 26 43  30 3a 43 4c 43 3a 41 44  |),Y:.#&C0:CLC:AD|
000013b0  43 28 26 37 32 29 2c 59  3a 53 54 41 28 26 37 30  |C(&72),Y:STA(&70|
000013c0  29 2c 59 3a 49 4e 59 3a  43 50 59 23 26 34 30 3a  |),Y:INY:CPY#&40:|
000013d0  42 4e 45 74 72 61 6e 73  62 6f 74 3a 52 54 53 0d  |BNEtransbot:RTS.|
000013e0  02 62 05 3a 0d 02 6c 5c  2e 67 65 74 62 6c 6f 63  |.b.:..l\.getbloc|
000013f0  6b 20 4c 44 41 23 26 33  30 3a 43 4c 43 3a 41 44  |k LDA#&30:CLC:AD|
00001400  43 78 73 63 72 3a 53 54  41 26 37 31 3a 4c 44 41  |Cxscr:STA&71:LDA|
00001410  79 73 63 72 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |yscr:ASL A:ASL A|
00001420  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 43 4c 43  |:ASL A:ASL A:CLC|
00001430  3a 41 44 43 26 37 31 3a  53 54 41 73 63 72 6e 6f  |:ADC&71:STAscrno|
00001440  0d 02 76 5f 4c 44 41 73  63 72 6e 6f 3a 53 54 41  |..v_LDAscrno:STA|
00001450  26 37 31 3a 4c 44 41 79  73 65 74 3a 53 54 41 26  |&71:LDAyset:STA&|
00001460  37 30 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  |70:ASL A:ASL A:A|
00001470  53 4c 20 41 3a 50 48 41  3a 43 4c 43 3a 41 44 43  |SL A:PHA:CLC:ADC|
00001480  26 37 30 3a 53 54 41 26  37 30 3a 50 4c 41 3a 41  |&70:STA&70:PLA:A|
00001490  53 4c 20 41 3a 43 4c 43  3a 41 44 43 26 37 30 0d  |SL A:CLC:ADC&70.|
000014a0  02 80 75 53 54 41 26 37  30 3a 4c 44 59 78 73 65  |..uSTA&70:LDYxse|
000014b0  74 3a 4c 44 41 78 64 61  74 61 2c 59 3a 54 41 59  |t:LDAxdata,Y:TAY|
000014c0  3a 4c 44 41 28 26 37 30  29 2c 59 3a 52 4f 4c 20  |:LDA(&70),Y:ROL |
000014d0  41 3a 52 4f 4c 20 41 3a  52 4f 4c 20 41 3a 80 23  |A:ROL A:ROL A:.#|
000014e0  33 3a 53 54 41 26 37 32  3a 49 4e 59 3a 4c 44 41  |3:STA&72:INY:LDA|
000014f0  28 26 37 30 29 2c 59 3a  4c 53 52 20 41 3a 4c 53  |(&70),Y:LSR A:LS|
00001500  52 20 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |R A:LSR A:LSR A:|
00001510  80 23 31 32 0d 02 8a 7e  43 4c 43 3a 41 44 43 26  |.#12...~CLC:ADC&|
00001520  37 32 3a 53 54 41 26 37  32 3a 4c 44 41 78 73 65  |72:STA&72:LDAxse|
00001530  74 3a 4c 53 52 20 41 3a  54 41 59 3a 4c 44 41 68  |t:LSR A:TAY:LDAh|
00001540  62 64 61 74 2c 59 3a 54  41 59 3a 4c 44 41 28 26  |bdat,Y:TAY:LDA(&|
00001550  37 30 29 2c 59 3a 53 54  41 26 37 33 3a 4c 44 41  |70),Y:STA&73:LDA|
00001560  78 73 65 74 3a 80 23 31  3a 42 4e 45 62 69 74 32  |xset:.#1:BNEbit2|
00001570  3a 4c 44 41 26 37 33 3a  41 53 4c 20 41 3a 52 4f  |:LDA&73:ASL A:RO|
00001580  4c 20 41 3a 52 4f 4c 20  41 3a 4a 4d 50 66 62 67  |L A:ROL A:JMPfbg|
00001590  6f 74 0d 02 94 1c 2e 62  69 74 32 20 4c 44 41 26  |ot.....bit2 LDA&|
000015a0  37 33 3a 41 53 4c 20 41  3a 52 4f 4c 20 41 0d 02  |73:ASL A:ROL A..|
000015b0  9e 42 2e 66 62 67 6f 74  20 80 23 31 3a 41 53 4c  |.B.fbgot .#1:ASL|
000015c0  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
000015d0  53 4c 20 41 3a 43 4c 43  3a 41 44 43 26 37 32 3a  |SL A:CLC:ADC&72:|
000015e0  41 53 4c 20 41 3a 53 54  41 26 37 32 3a 52 54 53  |ASL A:STA&72:RTS|
000015f0  0d 02 a8 05 3a 0d 02 b2  8f 2e 62 6c 61 73 63 72  |....:.....blascr|
00001600  20 4a 53 52 73 63 72 6f  66 66 3a 4c 44 59 23 30  | JSRscroff:LDY#0|
00001610  3a 53 54 59 26 37 30 3a  4c 44 41 23 26 33 30 3a  |:STY&70:LDA#&30:|
00001620  53 54 41 26 37 31 3a 2e  62 6c 61 6e 6c 6f 70 20  |STA&71:.blanlop |
00001630  4c 44 41 28 26 37 30 29  2c 59 3a 80 23 26 43 30  |LDA(&70),Y:.#&C0|
00001640  3a 53 54 41 28 26 37 30  29 2c 59 3a 49 4e 59 3a  |:STA(&70),Y:INY:|
00001650  42 4e 45 62 6c 61 6e 6c  6f 70 3a 49 4e 43 26 37  |BNEblanlop:INC&7|
00001660  31 3a 4c 44 41 26 37 31  3a 43 4d 50 23 26 38 30  |1:LDA&71:CMP#&80|
00001670  3a 42 4e 45 62 6c 61 6e  6c 6f 70 3a 4a 4d 50 73  |:BNEblanlop:JMPs|
00001680  63 72 6f 6e 0d 02 bc 05  3a 0d 02 c6 43 2e 70 75  |cron....:...C.pu|
00001690  74 63 68 20 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |tch ASL A:ASL A:|
000016a0  41 53 4c 20 41 3a 54 41  58 3a 4c 44 41 23 30 3a  |ASL A:TAX:LDA#0:|
000016b0  53 54 41 26 37 30 3a 4c  44 41 23 26 33 30 3a 53  |STA&70:LDA#&30:S|
000016c0  54 41 26 37 31 3a 4c 44  59 78 63 68 0d 02 d0 4e  |TA&71:LDYxch...N|
000016d0  2e 78 6c 6f 70 63 20 42  45 51 6e 6f 78 63 68 3a  |.xlopc BEQnoxch:|
000016e0  4c 44 41 26 37 30 3a 43  4c 43 3a 41 44 43 23 26  |LDA&70:CLC:ADC#&|
000016f0  32 30 3a 53 54 41 26 37  30 3a 4c 44 41 26 37 31  |20:STA&70:LDA&71|
00001700  3a 41 44 43 23 30 3a 53  54 41 26 37 31 3a 44 45  |:ADC#0:STA&71:DE|
00001710  59 3a 4a 4d 50 78 6c 6f  70 63 0d 02 da 5c 2e 6e  |Y:JMPxlopc...\.n|
00001720  6f 78 63 68 20 4c 44 59  79 63 68 3a 2e 79 6c 6f  |oxch LDYych:.ylo|
00001730  70 63 20 42 45 51 6e 6f  79 63 68 3a 4c 44 41 26  |pc BEQnoych:LDA&|
00001740  37 30 3a 43 4c 43 3a 41  44 43 23 26 38 30 3a 53  |70:CLC:ADC#&80:S|
00001750  54 41 26 37 30 3a 4c 44  41 26 37 31 3a 41 44 43  |TA&70:LDA&71:ADC|
00001760  23 32 3a 53 54 41 26 37  31 3a 44 45 59 3a 4a 4d  |#2:STA&71:DEY:JM|
00001770  50 79 6c 6f 70 63 0d 02  e4 d2 2e 6e 6f 79 63 68  |Pylopc.....noych|
00001780  20 4c 44 59 23 30 3a 2e  73 6c 69 6e 65 20 4c 44  | LDY#0:.sline LD|
00001790  41 26 43 30 30 2c 58 3a  2e 6c 69 6e 65 6c 6f 70  |A&C00,X:.linelop|
000017a0  20 50 48 41 3a 41 53 4c  20 41 3a 52 4f 4c 20 41  | PHA:ASL A:ROL A|
000017b0  3a 52 4f 4c 20 41 3a 80  23 33 3a 42 45 51 62 6c  |:ROL A:.#3:BEQbl|
000017c0  61 6e 63 68 3a 53 54 41  26 38 30 3a 4c 44 41 23  |anch:STA&80:LDA#|
000017d0  30 3a 2e 63 6f 6c 63 68  20 43 4c 43 3a 41 44 43  |0:.colch CLC:ADC|
000017e0  63 6f 6c 3a 44 45 43 26  38 30 3a 42 4e 45 63 6f  |col:DEC&80:BNEco|
000017f0  6c 63 68 3a 2e 62 6c 61  6e 63 68 20 53 54 41 26  |lch:.blanch STA&|
00001800  38 30 3a 4c 44 41 28 26  37 30 29 2c 59 3a 80 23  |80:LDA(&70),Y:.#|
00001810  26 43 30 3a 84 41 26 38  30 3a 53 54 41 28 26 37  |&C0:.A&80:STA(&7|
00001820  30 29 2c 59 3a 54 59 41  3a 43 4c 43 3a 41 44 43  |0),Y:TYA:CLC:ADC|
00001830  23 38 3a 54 41 59 3a 43  4d 50 23 26 32 30 3a 42  |#8:TAY:CMP#&20:B|
00001840  43 53 6e 65 77 6c 69 6e  0d 02 ee 4d 50 4c 41 3a  |CSnewlin...MPLA:|
00001850  41 53 4c 20 41 3a 41 53  4c 20 41 3a 4a 4d 50 6c  |ASL A:ASL A:JMPl|
00001860  69 6e 65 6c 6f 70 3a 2e  6e 65 77 6c 69 6e 20 80  |inelop:.newlin .|
00001870  23 37 3a 54 41 59 3a 50  4c 41 3a 49 4e 59 3a 49  |#7:TAY:PLA:INY:I|
00001880  4e 58 3a 43 50 59 23 38  3a 42 4e 45 73 6c 69 6e  |NX:CPY#8:BNEslin|
00001890  65 3a 52 54 53 0d 02 f8  05 3a 0d 03 02 80 2e 73  |e:RTS....:.....s|
000018a0  74 72 69 6e 67 20 4c 44  59 23 30 3a 4c 44 41 28  |tring LDY#0:LDA(|
000018b0  26 37 32 29 2c 59 3a 43  4d 50 23 26 46 46 3a 42  |&72),Y:CMP#&FF:B|
000018c0  45 51 73 74 72 65 6e 64  3a 4a 53 52 70 75 74 63  |EQstrend:JSRputc|
000018d0  68 3a 49 4e 43 78 63 68  3a 4c 44 41 26 37 32 3a  |h:INCxch:LDA&72:|
000018e0  43 4c 43 3a 41 44 43 23  31 3a 53 54 41 26 37 32  |CLC:ADC#1:STA&72|
000018f0  3a 4c 44 41 26 37 33 3a  41 44 43 23 30 3a 53 54  |:LDA&73:ADC#0:ST|
00001900  41 26 37 33 3a 4a 4d 50  73 74 72 69 6e 67 3a 2e  |A&73:JMPstring:.|
00001910  73 74 72 65 6e 64 20 52  54 53 0d 03 0c 05 3a 0d  |strend RTS....:.|
00001920  03 16 7c 2e 71 75 69 74  63 68 20 4c 44 41 23 26  |..|.quitch LDA#&|
00001930  38 31 3a 4c 44 58 23 26  38 46 3a 4c 44 59 23 26  |81:LDX#&8F:LDY#&|
00001940  46 46 3a 4a 53 52 6f 73  62 79 74 65 3a 42 43 53  |FF:JSRosbyte:BCS|
00001950  71 75 69 74 6f 6b 3a 52  54 53 3a 2e 71 75 69 74  |quitok:RTS:.quit|
00001960  6f 6b 20 50 4c 41 3a 50  4c 41 3a 4c 44 41 23 26  |ok PLA:PLA:LDA#&|
00001970  38 31 3a 4c 44 58 23 26  46 46 3a 4c 44 59 23 26  |81:LDX#&FF:LDY#&|
00001980  46 46 3a 4a 53 52 6f 73  62 79 74 65 3a 42 43 43  |FF:JSRosbyte:BCC|
00001990  7a 61 70 3a 4a 4d 50 70  72 6f 67 0d 03 20 6d 2e  |zap:JMPprog.. m.|
000019a0  7a 61 70 20 4c 44 41 78  6f 6c 64 3a 53 54 41 78  |zap LDAxold:STAx|
000019b0  70 6f 73 3a 4c 44 41 79  6f 6c 64 3a 53 54 41 79  |pos:LDAyold:STAy|
000019c0  70 6f 73 3a 4c 44 41 73  6f 75 6e 64 3a 42 45 51  |pos:LDAsound:BEQ|
000019d0  6e 6f 7a 61 70 73 3a 4c  44 41 23 37 3a 4c 44 58  |nozaps:LDA#7:LDX|
000019e0  23 28 7a 61 70 6e 20 83  20 32 35 36 29 3a 4c 44  |#(zapn . 256):LD|
000019f0  59 23 28 7a 61 70 6e 20  81 20 32 35 36 29 3a 4a  |Y#(zapn . 256):J|
00001a00  53 52 6f 73 77 6f 72 64  0d 03 2a 15 2e 6e 6f 7a  |SRosword..*..noz|
00001a10  61 70 73 20 4a 4d 50 6e  65 77 73 63 72 0d 03 34  |aps JMPnewscr..4|
00001a20  05 3a 0d 03 3e db 2e 74  69 74 6c 65 20 4a 53 52  |.:..>..title JSR|
00001a30  62 6c 61 73 63 72 3a 4c  44 41 23 26 31 35 3a 53  |blascr:LDA#&15:S|
00001a40  54 41 63 6f 6c 3a 4c 44  41 23 34 3a 53 54 41 78  |TAcol:LDA#4:STAx|
00001a50  63 68 3a 4c 44 41 23 35  3a 53 54 41 79 63 68 3a  |ch:LDA#5:STAych:|
00001a60  4c 44 41 23 28 6e 61 6d  65 20 83 20 32 35 36 29  |LDA#(name . 256)|
00001a70  3a 53 54 41 26 37 32 3a  4c 44 41 23 28 6e 61 6d  |:STA&72:LDA#(nam|
00001a80  65 20 81 20 32 35 36 29  3a 53 54 41 26 37 33 3a  |e . 256):STA&73:|
00001a90  4a 53 52 73 74 72 69 6e  67 3a 4c 44 41 23 31 3a  |JSRstring:LDA#1:|
00001aa0  53 54 41 63 6f 6c 3a 4c  44 41 23 33 3a 53 54 41  |STAcol:LDA#3:STA|
00001ab0  78 63 68 3a 4c 44 41 23  31 36 3a 53 54 41 79 63  |xch:LDA#16:STAyc|
00001ac0  68 3a 4c 44 41 23 28 63  72 65 64 61 20 83 20 32  |h:LDA#(creda . 2|
00001ad0  35 36 29 3a 53 54 41 26  37 32 3a 4c 44 41 23 28  |56):STA&72:LDA#(|
00001ae0  63 72 65 64 61 20 81 20  32 35 36 29 3a 53 54 41  |creda . 256):STA|
00001af0  26 37 33 3a 4a 53 52 73  74 72 69 6e 67 0d 03 48  |&73:JSRstring..H|
00001b00  b1 4c 44 41 23 34 3a 53  54 41 78 63 68 3a 4c 44  |.LDA#4:STAxch:LD|
00001b10  41 23 31 38 3a 53 54 41  79 63 68 3a 4c 44 41 23  |A#18:STAych:LDA#|
00001b20  28 63 72 65 64 62 20 83  20 32 35 36 29 3a 53 54  |(credb . 256):ST|
00001b30  41 26 37 32 3a 4c 44 41  23 28 63 72 65 64 62 20  |A&72:LDA#(credb |
00001b40  81 20 32 35 36 29 3a 53  54 41 26 37 33 3a 4a 53  |. 256):STA&73:JS|
00001b50  52 73 74 72 69 6e 67 3a  4c 44 41 23 34 3a 53 54  |Rstring:LDA#4:ST|
00001b60  41 78 63 68 3a 4c 44 41  23 32 30 3a 53 54 41 79  |Axch:LDA#20:STAy|
00001b70  63 68 3a 4c 44 41 23 28  63 72 65 64 63 20 83 20  |ch:LDA#(credc . |
00001b80  32 35 36 29 3a 53 54 41  26 37 32 3a 4c 44 41 23  |256):STA&72:LDA#|
00001b90  28 63 72 65 64 63 20 81  20 32 35 36 29 3a 53 54  |(credc . 256):ST|
00001ba0  41 26 37 33 3a 4a 53 52  73 74 72 69 6e 67 0d 03  |A&73:JSRstring..|
00001bb0  52 b1 4c 44 41 23 38 3a  53 54 41 78 63 68 3a 4c  |R.LDA#8:STAxch:L|
00001bc0  44 41 23 32 32 3a 53 54  41 79 63 68 3a 4c 44 41  |DA#22:STAych:LDA|
00001bd0  23 28 63 72 65 64 64 20  83 20 32 35 36 29 3a 53  |#(credd . 256):S|
00001be0  54 41 26 37 32 3a 4c 44  41 23 28 63 72 65 64 64  |TA&72:LDA#(credd|
00001bf0  20 81 20 32 35 36 29 3a  53 54 41 26 37 33 3a 4a  | . 256):STA&73:J|
00001c00  53 52 73 74 72 69 6e 67  3a 4c 44 41 23 30 3a 53  |SRstring:LDA#0:S|
00001c10  54 41 78 63 68 3a 4c 44  41 23 33 30 3a 53 54 41  |TAxch:LDA#30:STA|
00001c20  79 63 68 3a 4c 44 41 23  28 73 70 61 63 65 20 83  |ych:LDA#(space .|
00001c30  20 32 35 36 29 3a 53 54  41 26 37 32 3a 4c 44 41  | 256):STA&72:LDA|
00001c40  23 28 73 70 61 63 65 20  81 20 32 35 36 29 3a 53  |#(space . 256):S|
00001c50  54 41 26 37 33 3a 4a 53  52 73 74 72 69 6e 67 0d  |TA&73:JSRstring.|
00001c60  03 5c af 2e 73 6f 75 6e  64 70 72 20 4c 44 41 23  |.\..soundpr LDA#|
00001c70  36 3a 53 54 41 78 63 68  3a 4c 44 41 23 32 36 3a  |6:STAxch:LDA#26:|
00001c80  53 54 41 79 63 68 3a 4c  44 41 23 34 3a 53 54 41  |STAych:LDA#4:STA|
00001c90  63 6f 6c 3a 4c 44 41 23  28 73 6e 64 6f 66 66 20  |col:LDA#(sndoff |
00001ca0  83 20 32 35 36 29 3a 53  54 41 26 37 32 3a 4c 44  |. 256):STA&72:LD|
00001cb0  41 23 28 73 6e 64 6f 66  66 20 81 20 32 35 36 29  |A#(sndoff . 256)|
00001cc0  3a 53 54 41 26 37 33 3a  4c 44 41 73 6f 75 6e 64  |:STA&73:LDAsound|
00001cd0  3a 42 45 51 73 6f 75 6e  64 73 65 74 3a 4c 44 41  |:BEQsoundset:LDA|
00001ce0  23 28 73 6e 64 6f 6e 20  83 20 32 35 36 29 3a 53  |#(sndon . 256):S|
00001cf0  54 41 26 37 32 3a 4c 44  41 23 28 73 6e 64 6f 6e  |TA&72:LDA#(sndon|
00001d00  20 81 20 32 35 36 29 3a  53 54 41 26 37 33 0d 03  | . 256):STA&73..|
00001d10  66 49 2e 73 6f 75 6e 64  73 65 74 20 4a 53 52 73  |fI.soundset JSRs|
00001d20  74 72 69 6e 67 3a 2e 73  73 74 6f 70 20 4c 44 41  |tring:.sstop LDA|
00001d30  23 26 38 31 3a 4c 44 58  23 26 41 45 3a 4c 44 59  |#&81:LDX#&AE:LDY|
00001d40  23 26 46 46 3a 4a 53 52  6f 73 62 79 74 65 3a 42  |#&FF:JSRosbyte:B|
00001d50  43 53 73 73 74 6f 70 0d  03 70 69 2e 73 70 61 63  |CSsstop..pi.spac|
00001d60  77 61 69 74 20 4c 44 41  23 26 38 31 3a 4c 44 58  |wait LDA#&81:LDX|
00001d70  23 26 41 45 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |#&AE:LDY#&FF:JSR|
00001d80  6f 73 62 79 74 65 3a 42  43 53 73 65 6f 72 3a 4c  |osbyte:BCSseor:L|
00001d90  44 41 23 26 38 31 3a 4c  44 58 23 26 39 44 3a 4c  |DA#&81:LDX#&9D:L|
00001da0  44 59 23 26 46 46 3a 4a  53 52 6f 73 62 79 74 65  |DY#&FF:JSRosbyte|
00001db0  3a 42 43 43 73 70 61 63  77 61 69 74 3a 52 54 53  |:BCCspacwait:RTS|
00001dc0  0d 03 7a 2a 2e 73 65 6f  72 20 4c 44 41 73 6f 75  |..z*.seor LDAsou|
00001dd0  6e 64 3a 82 23 31 3a 53  54 41 73 6f 75 6e 64 3a  |nd:.#1:STAsound:|
00001de0  4a 4d 50 73 6f 75 6e 64  70 72 0d 03 84 6d 2e 63  |JMPsoundpr...m.c|
00001df0  72 65 64 61 20 45 51 55  42 31 34 3a 45 51 55 42  |reda EQUB14:EQUB|
00001e00  31 35 3a 45 51 55 42 32  32 3a 45 51 55 42 37 3a  |15:EQUB22:EQUB7:|
00001e10  45 51 55 42 31 35 3a 45  51 55 42 31 3a 45 51 55  |EQUB15:EQUB1:EQU|
00001e20  42 31 32 3a 45 51 55 42  31 32 3a 45 51 55 42 35  |B12:EQUB12:EQUB5|
00001e30  3a 45 51 55 42 34 3a 45  51 55 42 30 3a 45 51 55  |:EQUB4:EQUB0:EQU|
00001e40  42 31 3a 45 51 55 42 31  33 3a 45 51 55 42 34 3a  |B1:EQUB13:EQUB4:|
00001e50  45 51 55 42 32 35 35 0d  03 8e 58 2e 63 72 65 64  |EQUB255...X.cred|
00001e60  62 20 45 51 55 42 34 3a  45 51 55 42 35 3a 45 51  |b EQUB4:EQUB5:EQ|
00001e70  55 42 31 36 3a 45 51 55  42 32 33 3a 45 51 55 42  |UB16:EQUB23:EQUB|
00001e80  37 3a 45 51 55 42 31 33  3a 45 51 55 42 35 3a 45  |7:EQUB13:EQUB5:E|
00001e90  51 55 42 34 3a 45 51 55  42 30 3a 45 51 55 42 32  |QUB4:EQUB0:EQUB2|
00001ea0  3a 45 51 55 42 32 31 3a  45 51 55 42 32 35 35 0d  |:EQUB21:EQUB255.|
00001eb0  03 98 61 2e 63 72 65 64  63 20 45 51 55 42 34 3a  |..a.credc EQUB4:|
00001ec0  45 51 55 42 32 32 3a 45  51 55 42 31 32 3a 45 51  |EQUB22:EQUB12:EQ|
00001ed0  55 42 32 33 3a 45 51 55  42 31 33 3a 45 51 55 42  |UB23:EQUB13:EQUB|
00001ee0  32 33 3a 45 51 55 42 33  3a 45 51 55 42 30 3a 45  |23:EQUB3:EQUB0:E|
00001ef0  51 55 42 36 3a 45 51 55  42 32 32 3a 45 51 55 42  |QUB6:EQUB22:EQUB|
00001f00  31 35 3a 45 51 55 42 34  3a 45 51 55 42 32 35 35  |15:EQUB4:EQUB255|
00001f10  0d 03 a2 2e 2e 63 72 65  64 64 20 45 51 55 42 32  |.....credd EQUB2|
00001f20  33 3a 45 51 55 42 33 31  3a 45 51 55 42 33 31 3a  |3:EQUB31:EQUB31:|
00001f30  45 51 55 42 32 38 3a 45  51 55 42 32 35 35 0d 03  |EQUB28:EQUB255..|
00001f40  ac 96 2e 73 70 61 63 65  20 45 51 55 42 31 34 3a  |...space EQUB14:|
00001f50  45 51 55 42 31 35 3a 45  51 55 42 35 3a 45 51 55  |EQUB15:EQUB5:EQU|
00001f60  42 31 36 3a 45 51 55 42  31 36 3a 45 51 55 42 30  |B16:EQUB16:EQUB0|
00001f70  3a 45 51 55 42 31 36 3a  45 51 55 42 31 34 3a 45  |:EQUB16:EQUB14:E|
00001f80  51 55 42 31 3a 45 51 55  42 33 3a 45 51 55 42 35  |QUB1:EQUB3:EQUB5|
00001f90  3a 45 51 55 42 30 3a 45  51 55 42 31 37 3a 45 51  |:EQUB0:EQUB17:EQ|
00001fa0  55 42 32 32 3a 45 51 55  42 30 3a 45 51 55 42 31  |UB22:EQUB0:EQUB1|
00001fb0  36 3a 45 51 55 42 31 37  3a 45 51 55 42 31 3a 45  |6:EQUB17:EQUB1:E|
00001fc0  51 55 42 31 35 3a 45 51  55 42 31 37 3a 45 51 55  |QUB15:EQUB17:EQU|
00001fd0  42 32 35 35 0d 03 b6 5f  2e 6e 61 6d 65 20 45 51  |B255..._.name EQ|
00001fe0  55 42 31 36 3a 45 51 55  42 38 3a 45 51 55 42 32  |UB16:EQUB8:EQUB2|
00001ff0  33 3a 45 51 55 42 31 34  3a 45 51 55 42 30 3a 45  |3:EQUB14:EQUB0:E|
00002000  51 55 42 32 30 3a 45 51  55 42 31 35 3a 45 51 55  |QUB20:EQUB15:EQU|
00002010  42 35 3a 45 51 55 42 33  3a 45 51 55 42 31 30 3a  |B5:EQUB3:EQUB10:|
00002020  45 51 55 42 35 3a 45 51  55 42 34 3a 45 51 55 42  |EQUB5:EQUB4:EQUB|
00002030  32 35 35 0d 03 c0 4e 2e  73 6e 64 6f 6e 20 45 51  |255...N.sndon EQ|
00002040  55 42 31 36 3a 45 51 55  42 32 32 3a 45 51 55 42  |UB16:EQUB22:EQUB|
00002050  31 38 3a 45 51 55 42 31  33 3a 45 51 55 42 34 3a  |18:EQUB13:EQUB4:|
00002060  45 51 55 42 30 3a 45 51  55 42 32 32 3a 45 51 55  |EQUB0:EQUB22:EQU|
00002070  42 31 33 3a 45 51 55 42  30 3a 45 51 55 42 32 35  |B13:EQUB0:EQUB25|
00002080  35 0d 03 ca 54 2e 73 6e  64 6f 66 66 20 45 51 55  |5...T.sndoff EQU|
00002090  42 31 36 3a 45 51 55 42  32 32 3a 45 51 55 42 31  |B16:EQUB22:EQUB1|
000020a0  38 3a 45 51 55 42 31 33  3a 45 51 55 42 34 3a 45  |8:EQUB13:EQUB4:E|
000020b0  51 55 42 30 3a 45 51 55  42 32 32 3a 45 51 55 42  |QUB0:EQUB22:EQUB|
000020c0  36 3a 45 51 55 42 36 3a  45 51 55 42 30 3a 45 51  |6:EQUB6:EQUB0:EQ|
000020d0  55 42 32 35 35 0d 03 d4  05 3a 0d 03 de 23 2e 6a  |UB255....:...#.j|
000020e0  75 6d 70 6e 20 45 51 55  57 31 3a 45 51 55 57 31  |umpn EQUW1:EQUW1|
000020f0  3a 45 51 55 57 35 32 3a  45 51 55 57 35 0d 03 e8  |:EQUW52:EQUW5...|
00002100  23 2e 7a 61 70 6e 20 45  51 55 57 31 3a 45 51 55  |#.zapn EQUW1:EQU|
00002110  57 32 3a 45 51 55 57 35  32 3a 45 51 55 57 31 30  |W2:EQUW52:EQUW10|
00002120  0d 03 f2 05 3a 0d 03 fc  1f 2e 73 65 71 75 65 6e  |....:.....sequen|
00002130  20 45 51 55 42 30 3a 45  51 55 42 31 34 3a 45 51  | EQUB0:EQUB14:EQ|
00002140  55 42 32 38 0d 04 06 40  2e 6c 6f 77 61 64 20 45  |UB28...@.lowad E|
00002150  51 55 42 30 3a 45 51 55  42 26 33 30 3a 45 51 55  |QUB0:EQUB&30:EQU|
00002160  42 26 44 30 3a 45 51 55  42 26 42 30 3a 45 51 55  |B&D0:EQUB&B0:EQU|
00002170  42 26 35 30 3a 45 51 55  42 26 38 30 3a 45 51 55  |B&50:EQUB&80:EQU|
00002180  42 26 38 30 0d 04 10 39  2e 68 69 67 68 61 64 20  |B&80...9.highad |
00002190  45 51 55 42 30 3a 45 51  55 42 30 3a 45 51 55 42  |EQUB0:EQUB0:EQUB|
000021a0  26 46 46 3a 45 51 55 42  32 3a 45 51 55 42 32 3a  |&FF:EQUB2:EQUB2:|
000021b0  45 51 55 42 26 46 44 3a  45 51 55 42 32 0d 04 1a  |EQUB&FD:EQUB2...|
000021c0  05 3a 0d 04 24 39 45 51  55 42 30 3a 45 51 55 42  |.:..$9EQUB0:EQUB|
000021d0  26 32 30 3a 45 51 55 42  26 45 30 3a 45 51 55 42  |&20:EQUB&E0:EQUB|
000021e0  26 41 30 3a 45 51 55 42  26 36 30 3a 45 51 55 42  |&A0:EQUB&60:EQUB|
000021f0  26 38 30 3a 45 51 55 42  26 38 30 0d 04 2e 31 45  |&80:EQUB&80...1E|
00002200  51 55 42 30 3a 45 51 55  42 30 3a 45 51 55 42 26  |QUB0:EQUB0:EQUB&|
00002210  46 46 3a 45 51 55 42 32  3a 45 51 55 42 32 3a 45  |FF:EQUB2:EQUB2:E|
00002220  51 55 42 26 46 44 3a 45  51 55 42 32 0d 04 38 05  |QUB&FD:EQUB2..8.|
00002230  3a 0d 04 42 35 45 51 55  42 30 3a 45 51 55 42 26  |:..B5EQUB0:EQUB&|
00002240  31 30 3a 45 51 55 42 26  46 30 3a 45 51 55 42 26  |10:EQUB&F0:EQUB&|
00002250  39 30 3a 45 51 55 42 26  37 30 3a 45 51 55 42 30  |90:EQUB&70:EQUB0|
00002260  3a 45 51 55 42 30 0d 04  4c 2f 45 51 55 42 30 3a  |:EQUB0..L/EQUB0:|
00002270  45 51 55 42 30 3a 45 51  55 42 26 46 46 3a 45 51  |EQUB0:EQUB&FF:EQ|
00002280  55 42 32 3a 45 51 55 42  32 3a 45 51 55 42 30 3a  |UB2:EQUB2:EQUB0:|
00002290  45 51 55 42 30 0d 04 56  05 3a 0d 04 60 24 2e 78  |EQUB0..V.:..`$.x|
000022a0  63 68 20 45 51 55 42 30  3a 2e 79 63 68 20 45 51  |ch EQUB0:.ych EQ|
000022b0  55 42 30 3a 2e 63 6f 6c  20 45 51 55 42 30 0d 04  |UB0:.col EQUB0..|
000022c0  6a 4c 2e 78 64 61 74 61  20 45 51 55 42 30 3a 45  |jL.xdata EQUB0:E|
000022d0  51 55 42 32 3a 45 51 55  42 35 3a 45 51 55 42 37  |QUB2:EQUB5:EQUB7|
000022e0  3a 45 51 55 42 31 30 3a  45 51 55 42 31 32 3a 45  |:EQUB10:EQUB12:E|
000022f0  51 55 42 31 35 3a 45 51  55 42 31 37 3a 45 51 55  |QUB15:EQUB17:EQU|
00002300  42 32 30 3a 45 51 55 42  32 32 0d 04 74 2b 2e 68  |B20:EQUB22..t+.h|
00002310  62 64 61 74 20 45 51 55  42 34 3a 45 51 55 42 39  |bdat EQUB4:EQUB9|
00002320  3a 45 51 55 42 31 34 3a  45 51 55 42 31 39 3a 45  |:EQUB14:EQUB19:E|
00002330  51 55 42 32 34 0d 04 7e  4b 2e 78 73 65 74 20 45  |QUB24..~K.xset E|
00002340  51 55 42 30 3a 2e 79 73  65 74 20 45 51 55 42 30  |QUB0:.yset EQUB0|
00002350  3a 2e 78 73 63 72 20 45  51 55 42 30 3a 2e 79 73  |:.xscr EQUB0:.ys|
00002360  63 72 20 45 51 55 42 30  3a 2e 78 70 6f 73 20 45  |cr EQUB0:.xpos E|
00002370  51 55 42 30 3a 2e 79 70  6f 73 20 45 51 55 42 30  |QUB0:.ypos EQUB0|
00002380  0d 04 88 4f 2e 73 63 72  6e 6f 20 45 51 55 42 30  |...O.scrno EQUB0|
00002390  3a 2e 75 70 76 65 6c 6f  20 45 51 55 42 30 3a 2e  |:.upvelo EQUB0:.|
000023a0  78 6f 6c 64 20 45 51 55  42 30 3a 2e 79 6f 6c 64  |xold EQUB0:.yold|
000023b0  20 45 51 55 42 30 3a 2e  66 69 6e 65 20 45 51 55  | EQUB0:.fine EQU|
000023c0  42 30 3a 2e 73 6f 75 6e  64 20 45 51 55 42 31 0d  |B0:.sound EQUB1.|
000023d0  04 92 54 2e 66 61 63 65  20 45 51 55 42 31 3a 2e  |..T.face EQUB1:.|
000023e0  70 68 61 73 65 20 45 51  55 42 30 3a 2e 72 67 68  |phase EQUB0:.rgh|
000023f0  74 73 20 45 51 55 42 30  3a 2e 77 69 70 65 72 20  |ts EQUB0:.wiper |
00002400  45 51 55 42 30 3a 2e 6d  6f 76 73 74 61 67 20 45  |EQUB0:.movstag E|
00002410  51 55 42 30 3a 2e 63 68  61 6e 67 65 64 20 45 51  |QUB0:.changed EQ|
00002420  55 42 30 0d 04 9c 07 5d  3a ed 0d 04 a6 05 e1 0d  |UB0....]:.......|
00002430  ff                                                |.|
00002431

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .