shipw4/Arcade/Game2b

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

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/Game2b
Read OK:	✔
File size:	3A25 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/Game2b
Personal collection » Acorn hard disk » misc » misc2 » shipw4/Arcade/Game2b

File contents

   10PROCass:CLEAR
   20A$="DEL.140,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:OSCLI"LOAD BLOCDAT 2000":OSCLI"LOAD SPRITES.SPRDAT 6200":OSCLI"LOAD OBDATA 3000"
   50FORp=0TO2STEP2:P%=&1F40:[OPT p
   60LDY#0:STY&70:STY&72:LDA#&30:STA&71:LDA#&A:STA&73:.moveobjs LDA(&70),Y:STA(&72),Y:INY:BNEmoveobjs:INC&71:INC&73:LDA&73:CMP#&10:BNEmoveobjs:.movesndat LDA&6800,Y:STA&100,Y:INY:CPY#128:BNEmovesndat:LDY#0
   70LDA#&54:STA&71:LDA#4:STA&73:.moveobjd LDA(&70),Y:STA(&72),Y:INY:BNEmoveobjd:INC&71:INC&73:LDA&71:CMP#&58:BNEmoveobjd
   80LDA#&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:LDA#&6C:STA&71:LDA#&30:STA&73:LDY#0
   90.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
  100.noext LSR&80:LSR&80:LDA&72:AND#3:BNEbits:INC&70:LDA&70:BNEdecomp:INC&71:JMPdecomp
  110]:NEXT
  120FORd=&3600TO&53FF:?d=0:NEXT
  130CHAIN"GAME3"
  140END
  150:
  160DEFPROCass
  170FORpass=4TO6STEP2:osbyte=&FFF4:osword=&FFF1:oswrch=&FFEE::P%=0:O%=&5800
  180[OPT pass
  190.xch EQUB0:.ych EQUB0:.col EQUB0
  200.xset EQUB0:.yset EQUB0:.xscr EQUB0:.yscr EQUB0:.xpos EQUB0:.ypos EQUB0
  210.scrno EQUB0:.upvelo EQUB0:.xold EQUB0:.yold EQUB0:.fine EQUB0:.sound EQUB1
  220.face EQUB1:.phase EQUB0:.rghts EQUB0:.wiper EQUB0:.movstag EQUB0:.changed EQUB0:.power EQUB0:.powchange EQUB0:.objects EQUW0:.obch EQUB0:.getstat EQUB0
  230]:P%=&1000:O%=&5800:[OPT pass
  240LDY#&80:LDA#0:.zerolop STA&0,Y:DEY:BNEzerolop:LDA#1:STAsound:STAface
  250.prog JSRtitle:JSRblascr:JSRscroff
  260LDY#0:LDA#3:STA&70:LDA#&30:STA&71
  270.lines LDA(&70),Y:ORA#12:STA(&70),Y:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:CMP#&6C:BNElines
  280LDA#1:STApowchange:STAobch:LDY#255:STYpower:STYobjects:STYobjects+1:INY:.scobarlop LDAsbar,Y:CMP#&FF:BEQstext:JSRoswrch:INY:JMPscobarlop
  290.stext LDA#1:STAcol:LDA#2:STAxch:LDA#24:STAych:LDA#(scort MOD 256):STA&72:LDA#(scort DIV 256):STA&73:JSRstring:LDA#13:STAxch:INC&72:JSRstring:LDA#8:STAxch:LDA#28:STAych:INC&72:JSRstring
  300.game JSRobjecth:LDA#0:STAxscr:STAyscr:LDA#2:STAxpos:STAypos
  310.newscr JSRscreen:.oldscr JSRquitch:JSRsboard:LDA#0:STAmovstag:LDAchanged:BNEmoveslop:LDAfine:BEQnofine:.moveslop JSRdispyou:JSRwait:INCmovstag:LDAmovstag:CMP#3:BNEmoveslop:LDA#0:STAmovstag:STAchanged:STAfine:JSRdispyou:JSRwait
  320.finend JSRgetoput:LDAupvelo:BEQfallh:JSRjumpup:JMPnofall
  330.nofine JSRwait:JSRwait:JSRwait:JSRwait:JMPfinend
  340.fallh LDAxpos:STAxset:LDAypos:STAyset:JSRgetblock:CMP#8:BEQwatt:CMP#10:BEQwatt:CMP#14:BEQladder:.laddown LDAypos:CMP#9:BEQdownscr:INCyset:JSRgetblock:JSRdoorch:BCSfalldown:AND#&30:BEQfalldown:BNEnofall
  350.downscr LDA#0:STAypos:INCyscr:JMPnewscr:.watt JMPzap:.ladder JMP ladderb
  360.falldown LDA#5:STAfine:INCypos:.nofall JSRmoveyou:JMPoldscr
  370.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
  380.left LDA#0:STAface:STArghts:LDAxpos:BEQleftscrt:SEC:SBC#1:STAxset:LDAypos:STAyset:JSRgetblock:JSRdoorch:BCSnoupl:AND#&30:CMP#&10:BEQnomove:CMP#&20:BEQnomove:CMP#&30:BNEnoupl:DECypos:DECxpos:LDA#3:STAfine:RTS
  390.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:JSRdoorch:BCSnoupr:AND#&30:CMP#&10:BEQnomover:CMP#&20:BEQnomover:CMP#&30:BNEnoupr
  400DECypos:INCxpos:LDA#4:STAfine:RTS:.noupr INCxpos:LDA#2:STAfine:RTS:.nomover LDA#1:STArghts:STAchanged:JMPnomove:.leftscr LDA#9:STAxpos:DECxscr:JSRscreen:RTS:.rightscr LDA#0:STAxpos:INCxscr:JMPscreen
  410.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
  420.dispyou LDAwiper:BEQnowipe:LDY#0:.wiplop LDA&180,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&1A0,Y:STA(&78),Y:INY:CPY#32:BNEwipeb
  430.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
  440STY&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
  450.addph LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#0:STA&73:DEX:BNEaddph:LDAphase:EOR#1:STAphase
  460.nophase LDArghts:BEQnotrght:LDA&70:CLC:ADC#32:STA&70:LDA&71:ADC#0:STA&71:.notrght LDAface:BNEleface:LDA&72:CLC:ADC#&20:STA&72:.leface LDA&70:STA&78:LDA&71:STA&79
  470.ladisp LDA(&70),Y:STA&180,Y: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
  480.lbdisp LDA(&70),Y:STA&1A0,Y:ORA(&72),Y:STA(&70),Y:INY:CPY#32:BNElbdisp:RTS
  490.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
  500.jumpup DECupvelo:LDAypos:BEQupscr:SEC:SBC#1:STAyset:LDAxpos:STAxset:JSRgetblock:JSRdoorch:BCSupone:AND#&30:BEQupone:LDA#0:STAupvelo:RTS:.upone LDA#6:STAfine:DECypos:RTS:.upscr DECyscr:LDA#9:STAypos:JMPscreen
  510.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
  520.scron LDY#0
  530.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
  540.scroff LDY#0:.scrofflop LDA#19:JSRoswrch:TYA:JSRoswrch:LDA#0:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:INY:CPY#16:BNEscrofflop:RTS
  550.ladderb LDA#&81:LDX#&97:LDY#&FF:JSRosbyte:BCSfallset:LDA#&81:LDX#&B6:LDY#&FF:JSRosbyte:BCCstable:LDA#1:STAupvelo:JSRjumpup:JMPoldscr:.stable JMPnofall:.fallset JMPladdown
  560.blockon JSRobjcheck:JSRgetblock: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
  570LDA&72:LSR A:LSR A:CLC:ADC#&20:STA&73:LDA&72:CMP#30:BEQdoorcol:LSR A:ROR A:ROR A:AND#&C0:STA&72:LDY#0
  580.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
  590.transbot LDA(&70),Y:AND#&C0:CLC:ADC(&72),Y:STA(&70),Y:INY:CPY#&40:BNEtransbot:RTS:.doorcol JMPlocktype
  600.getblock LDA#&30:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STAscrno
  610LDAscrno:STA&71:LDAyset:STA&70:ASL A:ASL A:ASL A:PHA:CLC:ADC&70:STA&70:PLA:ASL A:CLC:ADC&70:STA&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
  620CLC: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
  630.bit2 LDA&73:ASL A:ROL A:.fbgot AND#1:ASL A:ASL A:ASL A:ASL A:CLC:ADC&72:ASL A:STA&72:RTS
  640.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
  650.putch ASL A:ASL A:ASL A:TAX:LDA#0:STA&70:LDA#&30:STA&71:LDYxch
  660.xlopc BEQnoxch:LDA&70:CLC:ADC#&20:STA&70:LDA&71:ADC#0:STA&71:DEY:JMPxlopc
  670.noxch LDYych:.ylopc BEQnoych:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:DEY:JMPylopc
  680.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
  690PLA:ASL A:ASL A:JMPlinelop:.newlin AND#7:TAY:PLA:INY:INX:CPY#8:BNEsline:RTS
  700.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
  710.quitch LDA#&81:LDX#&8F:LDY#&FF:JSRosbyte:BCSquitok:RTS:.quitok PLA:PLA:LDA#&81:LDX#&FF:LDY#&FF:JSRosbyte:BCCzap:JMPprog
  720.zap LDAxold:STAxpos:LDAyold:STAypos:LDAsound:BEQnozaps:LDA#7:LDX#(zapn MOD 256):LDY#(zapn DIV 256):JSRosword
  730.nozaps LDA#1:STApowchange:LDApower:SEC:SBC#&40:STApower:BEQyoudie:BCCyoudie:JMPnewscr
  740.youdie JSRgameover:JMPprog
  750.gameover LDA#5:STAxch:LDA#16:STAych:LDA#1:STAcol:LDA#(gamdead MOD 256):STA&72:LDA#(gamdead DIV 256):STA&73:JSRstring:LDA#0:PHA
  760.bellop LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CLC:ADC#100:STA&80:.belwait LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CMP&80:BNEbelwait:LDAsound:BEQnobell:LDA#7:LDX#(over MOD 256):LDY#(over DIV 256):JSRosword
  770.nobell PLA:CLC:ADC#1:PHA:CMP#4:BNEbellop:PLA:RTS
  780.gamdead EQUB7:EQUB1:EQUB12:EQUB5:EQUB0:EQUB22:EQUB19:EQUB5:EQUB15:EQUB255
  790.over EQUW1:EQUW-15:EQUW0:EQUW5
  800.sboard LDApowchange:BEQnopower:LDX#0:.powlop LDA&7C70,X:AND#&C0:ORA#4:STA&7C70,X:INX:CPXpower:BNEpowlop:.pownol LDA&7C70,X:AND#&C0:STA&7C70,X:INX:BNEpownol
  810.nopower LDAobch:BEQnoobch:LDA#8:STAxch:LDA#26:STAych:LDAobjects:CMP#&20:BCSblankoba:TAY:JSRdrawop:JMPsecondo:.blankoba JSRblankob:JMPsecondo
  820.blankob LDA#0:JSRputch:INCxch:LDA#0:JSRputch:INCych:LDA#0:JSRputch:DECxch:LDA#0:JMPputch
  830.secondo LDA#10:STAxch:LDA#26:STAych:LDAobjects+1:CMP#&20:BCSblankobb:TAY:JSRdrawop:JMPnoobch:.blankobb JSRblankob
  840.noobch LDA#0:STAobch:STApowchange:LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CLC:ADC#4:STA&80:RTS:.drawop LDAxch:LSR A:STAxset:LDAych:SEC:SBC#2:LSR A:STAyset:JSRdrawobj
  850.objecth LDY#0:.oblop LDA&FA0,Y:STA&F20,Y:LDA&FC0,Y:STA&F40,Y:LDA&FE0,Y:LSR A:LSR A:LSR A:LSR A:AND#15:STA&F60,Y:LDA&FE0,Y:AND#15:STA&F80,Y:INY:CPY#32:BNEoblop:RTS
  860.objcheck LDY#0:.obclop LDA&F20,Y:CMPxset:BNEnotthat:LDA&F40,Y:CMPyset:BNEnotthat:LDA&F60,Y:CMPxscr:BNEnotthat:LDA&F80,Y:CMPyscr:BEQ drawobj:.notthat INY:CPY#32:BNEobclop:RTS
  870.drawobj PLA:PLA:LDAxset:ASL A:STAxch:LDAyset:CLC:ADC#1:ASL A:STAych:LDA&F00,Y:STAcol:TYA:CLC:ADC#&E0:STA&7F
  880LDA#0:STA&72:LDA#&A:STA&73:JSRobjdisp:INCxch:INC&73:JSRobjdisp:INCych:LDA#&E:STA&73:JSRobjdisp:DECxch:DEC&73:JSRobjdisp:LDY#8:LDA#0:.clearspob STA&BFF,Y:DEY:BNEclearspob:RTS
  890.objdisp LDY&7F:LDX#8:.objdlop LDA(&72),Y:STA&BFF,X:TYA:SEC:SBC#32:TAY:DEX:BNEobjdlop:TXA:JMPputch
  900.getoput LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCSpickup:LDA#0:STAgetstat:.keyhang RTS
  910.pickup LDAgetstat:BNEkeyhang:LDAsound:BEQnogp:LDA#7:LDX#(switn MOD 256):LDY#(switn DIV 256):JSRosword:.nogp LDAobjects+1:CMP#&20:BCSnoputdown:TAY:LDAxscr:STA&F60,Y:LDAyscr:STA&F80,Y:LDAxpos:STA&F20,Y:LDAypos:STA&F40,Y:STY&70
  920.noputdown LDAobjects:STAobjects+1:LDY#0:.obglop LDA&F20,Y:CPY&70:BEQnotgot:CMPxpos:BNEnotgot:LDA&F40,Y:CMPypos:BNEnotgot:LDA&F60,Y:CMPxscr:BNEnotgot:LDA&F80,Y:CMPyscr:BEQgettobj:.notgot INY:CPY#32:BNEobglop:STYobjects:JMPnogetob
  930.gettobj STY objects:LDA#&FF:STA&F20,Y
  940.nogetob LDAxpos:STAxset:LDAypos:STAyset:JSRblockon:LDA#0:STAwiper:LDA#1:STAchanged:STAobch:STAgetstat:RTS
  950.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
  960LDA#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
  970LDA#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
  980.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
  990.soundset JSRstring:.sstop LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSsstop
 1000.spacwait LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSseor:LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCCspacwait:RTS
 1010.seor LDAsound:EOR#1:STAsound:JMPsoundpr
 1020.creda EQUB14:EQUB15:EQUB22:EQUB7:EQUB15:EQUB1:EQUB12:EQUB12:EQUB5:EQUB4:EQUB0:EQUB1:EQUB13:EQUB4:EQUB255
 1030.credb EQUB4:EQUB5:EQUB16:EQUB23:EQUB7:EQUB13:EQUB5:EQUB4:EQUB0:EQUB2:EQUB21:EQUB255
 1040.credc EQUB4:EQUB22:EQUB12:EQUB23:EQUB13:EQUB23:EQUB3:EQUB0:EQUB6:EQUB22:EQUB15:EQUB4:EQUB255
 1050.credd EQUB23:EQUB31:EQUB31:EQUB28:EQUB255
 1060.sbar EQUB18:EQUB1:EQUB4:EQUB25:EQUB4:EQUW0:EQUW252:EQUB25:EQUB4:EQUW576:EQUW252:EQUB25:EQUB85:EQUW288:EQUW96:EQUB25:EQUB4:EQUW704:EQUW252:EQUB25:EQUB4:EQUW1280:EQUW252:EQUB25:EQUB85:EQUW992:EQUW96
 1070EQUB25:EQUB4:EQUW384:EQUW96:EQUB25:EQUB4:EQUW896:EQUW96:EQUB25:EQUB85:EQUW640:EQUW252
 1080EQUB18:EQUB3:EQUB4:EQUB25:EQUB4:EQUW96:EQUW224:EQUB25:EQUB4:EQUW480:EQUW224:EQUB25:EQUB85:EQUW288:EQUW128:EQUB25:EQUB4:EQUW800:EQUW224:EQUB25:EQUB4:EQUW1184:EQUW224:EQUB25:EQUB85:EQUW992:EQUW128
 1090EQUB18:EQUB1:EQUB1:EQUB25:EQUB4:EQUW128:EQUW92:EQUB25:EQUB4:EQUW448:EQUW92:EQUB25:EQUB85:EQUW128:EQUW0:EQUB25:EQUB85:EQUW448:EQUW0
 1100EQUB25:EQUB4:EQUW704:EQUW92:EQUB25:EQUB4:EQUW1280:EQUW92:EQUB25:EQUB85:EQUW704:EQUW0:EQUB25:EQUB85:EQUW1280:EQUW0
 1110EQUB&FF
 1120]:P%=&400:O%=&5400:[OPT pass
 1130.sndon EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB13:EQUB0:EQUB255
 1140.sndoff EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB6:EQUB6:EQUB0:EQUB255
 1150.space EQUB14:EQUB15:EQUB5:EQUB16:EQUB16:EQUB0:EQUB16:EQUB14:EQUB1:EQUB3:EQUB5:EQUB0:EQUB17:EQUB22:EQUB0:EQUB16:EQUB17:EQUB1:EQUB15:EQUB17:EQUB255
 1160.name EQUB16:EQUB8:EQUB23:EQUB14:EQUB0:EQUB20:EQUB15:EQUB5:EQUB3:EQUB10:EQUB5:EQUB4:EQUB255
 1170.doorch PHA:CMP#30:BNEnodor:LDA#&81:LDX#&C8:LDY#&FF:JSRosbyte:BCCnodor:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADCxscr:ADC#&30:JSRadofcol:SEC:SBC#1:CMPobjects:BEQdoor:CMPobjects+1:BNEnodor:.door PLA:SEC:RTS:.nodor PLA:CLC:RTS
 1180.locktype LSR A:ROR A:ROR A:AND#&C0:STA&72:LDY#0
 1190.transtop LDA(&70),Y:AND#&C0:JSRcolbyt: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
 1200.transbot LDA(&70),Y:AND#&C0:JSRcolbyt:STA(&70),Y:INY:CPY#&40:BNEtransbot:RTS
 1210.colbyt PHA:LDAscrno:JSRadofcol:TAX:LDAdoorc,X:TAX:PLA:.colblop CLC:ADC(&72),Y:DEX:BNEcolblop:RTS
 1220.adofcol STAreadcll+2:STAreadclh+2:.readcll LDA&10FE:LSR A:LSR A:LSR A:LSR A:STAsmad+1
 1230.readclh LDA&10FF:ASL A:ROL A:ROL A:CLC:.smad ADC#0:AND#7:RTS
 1240]:P%=&100:O%=&6800:[OPT pass
 1250.jumpn EQUW1:EQUW1:EQUW52:EQUW5:.zapn EQUW1:EQUW2:EQUW52:EQUW10:.switn EQUW1:EQUW3:EQUW52:EQUW2
 1260.scort EQUB16:EQUB3:EQUB22:EQUB15:EQUB5:EQUB255:.powt EQUB14:EQUB22:EQUB20:EQUB5:EQUB15:EQUB255:.obstxt EQUB22:EQUB2:EQUB9:EQUB16:EQUB255
 1270.sequen EQUB0:EQUB14:EQUB28
 1280.lowad EQUB0:EQUB&30:EQUB&D0:EQUB&B0:EQUB&50:EQUB&80:EQUB&80
 1290.highad EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB&FD:EQUB2
 1300EQUB0:EQUB&20:EQUB&E0:EQUB&A0:EQUB&60:EQUB&80:EQUB&80
 1310EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB&FD:EQUB2
 1320EQUB0:EQUB&10:EQUB&F0:EQUB&90:EQUB&70:EQUB0:EQUB0
 1330EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB0:EQUB0
 1340.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22
 1350.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24
 1360.doorc EQUB0:EQUB1:EQUB4:EQUB5:EQUB16:EQUB17:EQUB20:EQUB21
 1370]:NEXT:ENDPROC



�ass:�
^A$="DEL.140,9999"+�13+"GOTO40"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
�
(P�=&1F00:�"LOAD BLOCDAT 2000":�"LOAD SPRITES.SPRDAT 6200":�"LOAD OBDATA 3000"
2�p=0�2�2:P%=&1F40:[OPT p
<�LDY#0:STY&70:STY&72:LDA#&30:STA&71:LDA#&A:STA&73:.moveobjs LDA(&70),Y:STA(&72),Y:INY:BNEmoveobjs:INC&71:INC&73:LDA&73:CMP#&10:BNEmoveobjs:.movesndat LDA&6800,Y:STA&100,Y:INY:CPY#128:BNEmovesndat:LDY#0
FxLDA#&54:STA&71:LDA#4:STA&73:.moveobjd LDA(&70),Y:STA(&72),Y:INY:BNEmoveobjd:INC&71:INC&73:LDA&71:CMP#&58:BNEmoveobjd
P�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:LDA#&6C:STA&71:LDA#&30:STA&73:LDY#0
Z�.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
dT.noext LSR&80:LSR&80:LDA&72:�#3:BNEbits:INC&70:LDA&70:BNEdecomp:INC&71:JMPdecomp
n]:�
x�d=&3600�&53FF:?d=0:�
��"GAME3"
��
�:
�	��ass
�E�pass=4�6�2:osbyte=&FFF4:osword=&FFF1:oswrch=&FFEE::P%=0:O%=&5800
�
[OPT pass
�$.xch EQUB0:.ych EQUB0:.col EQUB0
�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
ܜ.face EQUB1:.phase EQUB0:.rghts EQUB0:.wiper EQUB0:.movstag EQUB0:.changed EQUB0:.power EQUB0:.powchange EQUB0:.objects EQUW0:.obch EQUB0:.getstat EQUB0
�!]:P%=&1000:O%=&5800:[OPT pass
�HLDY#&80:LDA#0:.zerolop STA&0,Y:DEY:BNEzerolop:LDA#1:STAsound:STAface
�&.prog JSRtitle:JSRblascr:JSRscroff
%LDY#0:LDA#3:STA&70:LDA#&30:STA&71
c.lines LDA(&70),Y:�A#12:STA(&70),Y:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:CMP#&6C:BNElines
�LDA#1:STApowchange:STAobch:LDY#255:STYpower:STYobjects:STYobjects+1:INY:.scobarlop LDAsbar,Y:CMP#&FF:BEQstext:JSRoswrch:INY:JMPscobarlop
"�.stext LDA#1:STAcol:LDA#2:STAxch:LDA#24:STAych:LDA#(scort � 256):STA&72:LDA#(scort � 256):STA&73:JSRstring:LDA#13:STAxch:INC&72:JSRstring:LDA#8:STAxch:LDA#28:STAych:INC&72:JSRstring
,@.game JSRobjecth:LDA#0:STAxscr:STAyscr:LDA#2:STAxpos:STAypos
6�.newscr JSRscreen:.oldscr JSRquitch:JSRsboard:LDA#0:STAmovstag:LDAchanged:BNEmoveslop:LDAfine:BEQnofine:.moveslop JSRdispyou:JSRwait:INCmovstag:LDAmovstag:CMP#3:BNEmoveslop:LDA#0:STAmovstag:STAchanged:STAfine:JSRdispyou:JSRwait
@=.finend JSRgetoput:LDAupvelo:BEQfallh:JSRjumpup:JMPnofall
J5.nofine JSRwait:JSRwait:JSRwait:JSRwait:JMPfinend
T�.fallh LDAxpos:STAxset:LDAypos:STAyset:JSRgetblock:CMP#8:BEQwatt:CMP#10:BEQwatt:CMP#14:BEQladder:.laddown LDAypos:CMP#9:BEQdownscr:INCyset:JSRgetblock:JSRdoorch:BCSfalldown:�#&30:BEQfalldown:BNEnofall
^M.downscr LDA#0:STAypos:INCyscr:JMPnewscr:.watt JMPzap:.ladder JMP ladderb
h@.falldown LDA#5:STAfine:INCypos:.nofall JSRmoveyou:JMPoldscr
r�.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:JSRdoorch:BCSnoupl:�#&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:JSRdoorch:BCSnoupr:�#&30:CMP#&10:BEQnomover:CMP#&20:BEQnomover:CMP#&30:BNEnoupr
��DECypos:INCxpos:LDA#4:STAfine:RTS:.noupr INCxpos:LDA#2:STAfine:RTS:.nomover LDA#1:STArghts:STAchanged:JMPnomove:.leftscr LDA#9:STAxpos:DECxscr:JSRscreen:RTS:.rightscr LDA#0:STAxpos:INCxscr:JMPscreen
��.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&180,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&1A0,Y:STA(&78),Y:INY:CPY#32:BNEwipeb
��.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
��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
̦.nophase LDArghts:BEQnotrght:LDA&70:CLC:ADC#32:STA&70:LDA&71:ADC#0:STA&71:.notrght LDAface:BNEleface:LDA&72:CLC:ADC#&20:STA&72:.leface LDA&70:STA&78:LDA&71:STA&79
֬.ladisp LDA(&70),Y:STA&180,Y:�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
�N.lbdisp LDA(&70),Y:STA&1A0,Y:�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:JSRdoorch:BCSupone:�#&30:BEQupone:LDA#0:STAupvelo:RTS:.upone LDA#6:STAfine:DECypos:RTS:.upscr DECyscr:LDA#9:STAypos:JMPscreen
��.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
&�.ladderb LDA#&81:LDX#&97:LDY#&FF:JSRosbyte:BCSfallset:LDA#&81:LDX#&B6:LDY#&FF:JSRosbyte:BCCstable:LDA#1:STAupvelo:JSRjumpup:JMPoldscr:.stable JMPnofall:.fallset JMPladdown
0�.blockon JSRobjcheck:JSRgetblock: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
:gLDA&72:LSR A:LSR A:CLC:ADC#&20:STA&73:LDA&72:CMP#30:BEQdoorcol:LSR A:ROR A:ROR A:�#&C0:STA&72:LDY#0
D�.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
Ni.transbot LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:STA(&70),Y:INY:CPY#&40:BNEtransbot:RTS:.doorcol JMPlocktype
X\.getblock LDA#&30:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STAscrno
b�LDAscrno:STA&71:LDAyset:STA&70:ASL A:ASL A:ASL A:PHA:CLC:ADC&70:STA&70:PLA:ASL A:CLC:ADC&70:STA&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
l~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
v[.bit2 LDA&73:ASL A:ROL A:.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
�Z.nozaps LDA#1:STApowchange:LDApower:SEC:SBC#&40:STApower:BEQyoudie:BCCyoudie:JMPnewscr
�.youdie JSRgameover:JMPprog
�.gameover LDA#5:STAxch:LDA#16:STAych:LDA#1:STAcol:LDA#(gamdead � 256):STA&72:LDA#(gamdead � 256):STA&73:JSRstring:LDA#0:PHA
��.bellop LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CLC:ADC#100:STA&80:.belwait LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CMP&80:BNEbelwait:LDAsound:BEQnobell:LDA#7:LDX#(over � 256):LDY#(over � 256):JSRosword
5.nobell PLA:CLC:ADC#1:PHA:CMP#4:BNEbellop:PLA:RTS
N.gamdead EQUB7:EQUB1:EQUB12:EQUB5:EQUB0:EQUB22:EQUB19:EQUB5:EQUB15:EQUB255
#.over EQUW1:EQUW-15:EQUW0:EQUW5
 �.sboard LDApowchange:BEQnopower:LDX#0:.powlop LDA&7C70,X:�#&C0:�A#4:STA&7C70,X:INX:CPXpower:BNEpowlop:.pownol LDA&7C70,X:�#&C0:STA&7C70,X:INX:BNEpownol
*�.nopower LDAobch:BEQnoobch:LDA#8:STAxch:LDA#26:STAych:LDAobjects:CMP#&20:BCSblankoba:TAY:JSRdrawop:JMPsecondo:.blankoba JSRblankob:JMPsecondo
4].blankob LDA#0:JSRputch:INCxch:LDA#0:JSRputch:INCych:LDA#0:JSRputch:DECxch:LDA#0:JMPputch
>v.secondo LDA#10:STAxch:LDA#26:STAych:LDAobjects+1:CMP#&20:BCSblankobb:TAY:JSRdrawop:JMPnoobch:.blankobb JSRblankob
H�.noobch LDA#0:STAobch:STApowchange:LDA#1:LDX#&70:LDY#0:JSRosword:LDA&70:CLC:ADC#4:STA&80:RTS:.drawop LDAxch:LSR A:STAxset:LDAych:SEC:SBC#2:LSR A:STAyset:JSRdrawobj
R�.objecth LDY#0:.oblop LDA&FA0,Y:STA&F20,Y:LDA&FC0,Y:STA&F40,Y:LDA&FE0,Y:LSR A:LSR A:LSR A:LSR A:�#15:STA&F60,Y:LDA&FE0,Y:�#15:STA&F80,Y:INY:CPY#32:BNEoblop:RTS
\�.objcheck LDY#0:.obclop LDA&F20,Y:CMPxset:BNEnotthat:LDA&F40,Y:CMPyset:BNEnotthat:LDA&F60,Y:CMPxscr:BNEnotthat:LDA&F80,Y:CMPyscr:BEQ drawobj:.notthat INY:CPY#32:BNEobclop:RTS
fp.drawobj PLA:PLA:LDAxset:ASL A:STAxch:LDAyset:CLC:ADC#1:ASL A:STAych:LDA&F00,Y:STAcol:TYA:CLC:ADC#&E0:STA&7F
p�LDA#0:STA&72:LDA#&A:STA&73:JSRobjdisp:INCxch:INC&73:JSRobjdisp:INCych:LDA#&E:STA&73:JSRobjdisp:DECxch:DEC&73:JSRobjdisp:LDY#8:LDA#0:.clearspob STA&BFF,Y:DEY:BNEclearspob:RTS
zf.objdisp LDY&7F:LDX#8:.objdlop LDA(&72),Y:STA&BFF,X:TYA:SEC:SBC#32:TAY:DEX:BNEobjdlop:TXA:JMPputch
�V.getoput LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCSpickup:LDA#0:STAgetstat:.keyhang RTS
��.pickup LDAgetstat:BNEkeyhang:LDAsound:BEQnogp:LDA#7:LDX#(switn � 256):LDY#(switn � 256):JSRosword:.nogp LDAobjects+1:CMP#&20:BCSnoputdown:TAY:LDAxscr:STA&F60,Y:LDAyscr:STA&F80,Y:LDAxpos:STA&F20,Y:LDAypos:STA&F40,Y:STY&70
��.noputdown LDAobjects:STAobjects+1:LDY#0:.obglop LDA&F20,Y:CPY&70:BEQnotgot:CMPxpos:BNEnotgot:LDA&F40,Y:CMPypos:BNEnotgot:LDA&F60,Y:CMPxscr:BNEnotgot:LDA&F80,Y:CMPyscr:BEQgettobj:.notgot INY:CPY#32:BNEobglop:STYobjects:JMPnogetob
�*.gettobj STY objects:LDA#&FF:STA&F20,Y
�n.nogetob LDAxpos:STAxset:LDAypos:STAyset:JSRblockon:LDA#0:STAwiper:LDA#1:STAchanged:STAobch:STAgetstat:RTS
��.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
��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
ʱ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
�I.soundset JSRstring:.sstop LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSsstop
�i.spacwait LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSseor:LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCCspacwait:RTS
�*.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
$�.sbar EQUB18:EQUB1:EQUB4:EQUB25:EQUB4:EQUW0:EQUW252:EQUB25:EQUB4:EQUW576:EQUW252:EQUB25:EQUB85:EQUW288:EQUW96:EQUB25:EQUB4:EQUW704:EQUW252:EQUB25:EQUB4:EQUW1280:EQUW252:EQUB25:EQUB85:EQUW992:EQUW96
.YEQUB25:EQUB4:EQUW384:EQUW96:EQUB25:EQUB4:EQUW896:EQUW96:EQUB25:EQUB85:EQUW640:EQUW252
8�EQUB18:EQUB3:EQUB4:EQUB25:EQUB4:EQUW96:EQUW224:EQUB25:EQUB4:EQUW480:EQUW224:EQUB25:EQUB85:EQUW288:EQUW128:EQUB25:EQUB4:EQUW800:EQUW224:EQUB25:EQUB4:EQUW1184:EQUW224:EQUB25:EQUB85:EQUW992:EQUW128
B�EQUB18:EQUB1:EQUB1:EQUB25:EQUB4:EQUW128:EQUW92:EQUB25:EQUB4:EQUW448:EQUW92:EQUB25:EQUB85:EQUW128:EQUW0:EQUB25:EQUB85:EQUW448:EQUW0
LuEQUB25:EQUB4:EQUW704:EQUW92:EQUB25:EQUB4:EQUW1280:EQUW92:EQUB25:EQUB85:EQUW704:EQUW0:EQUB25:EQUB85:EQUW1280:EQUW0
VEQUB&FF
` ]:P%=&400:O%=&5400:[OPT pass
jN.sndon EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB13:EQUB0:EQUB255
tT.sndoff EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB6:EQUB6:EQUB0: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
��.doorch PHA:CMP#30:BNEnodor:LDA#&81:LDX#&C8:LDY#&FF:JSRosbyte:BCCnodor:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADCxscr:ADC#&30:JSRadofcol:SEC:SBC#1:CMPobjects:BEQdoor:CMPobjects+1:BNEnodor:.door PLA:SEC:RTS:.nodor PLA:CLC:RTS
�2.locktype LSR A:ROR A:ROR A:�#&C0:STA&72:LDY#0
��.transtop LDA(&70),Y:�#&C0:JSRcolbyt: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
�O.transbot LDA(&70),Y:�#&C0:JSRcolbyt:STA(&70),Y:INY:CPY#&40:BNEtransbot:RTS
�e.colbyt PHA:LDAscrno:JSRadofcol:TAX:LDAdoorc,X:TAX:PLA:.colblop CLC:ADC(&72),Y:DEX:BNEcolblop:RTS
�Z.adofcol STAreadcll+2:STAreadclh+2:.readcll LDA&10FE:LSR A:LSR A:LSR A:LSR A:STAsmad+1
�?.readclh LDA&10FF:ASL A:ROL A:ROL A:CLC:.smad ADC#0:�#7:RTS
� ]:P%=&100:O%=&6800:[OPT pass
�c.jumpn EQUW1:EQUW1:EQUW52:EQUW5:.zapn EQUW1:EQUW2:EQUW52:EQUW10:.switn EQUW1:EQUW3:EQUW52:EQUW2
�.scort EQUB16:EQUB3:EQUB22:EQUB15:EQUB5:EQUB255:.powt EQUB14:EQUB22:EQUB20:EQUB5:EQUB15:EQUB255:.obstxt EQUB22:EQUB2:EQUB9:EQUB16:EQUB255
�.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
(5EQUB0:EQUB&10:EQUB&F0:EQUB&90:EQUB&70:EQUB0:EQUB0
2/EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB0:EQUB0
<L.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22
F+.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24
P>.doorc EQUB0:EQUB1:EQUB4:EQUB5:EQUB16:EQUB17:EQUB20:EQUB21
Z	]:�:�
�

00000000  0d 00 0a 0a f2 61 73 73  3a d8 0d 00 14 5e 41 24  |.....ass:....^A$|
00000010  3d 22 44 45 4c 2e 31 34  30 2c 39 39 39 39 22 2b  |="DEL.140,9999"+|
00000020  bd 31 33 2b 22 47 4f 54  4f 34 30 22 2b bd 36 2b  |.13+"GOTO40"+.6+|
00000030  bd 31 33 3a ef 32 31 3a  e3 20 63 68 61 72 3d 31  |.13:.21:. char=1|
00000040  20 b8 20 a9 28 41 24 29  3a ff 22 46 58 31 33 38  | . .(A$):."FX138|
00000050  2c 30 2c 22 2b c3 28 97  28 c1 41 24 2c 63 68 61  |,0,"+.(.(.A$,cha|
00000060  72 2c 31 29 29 29 3a ed  0d 00 1e 05 e0 0d 00 28  |r,1))):........(|
00000070  50 d3 3d 26 31 46 30 30  3a ff 22 4c 4f 41 44 20  |P.=&1F00:."LOAD |
00000080  42 4c 4f 43 44 41 54 20  32 30 30 30 22 3a ff 22  |BLOCDAT 2000":."|
00000090  4c 4f 41 44 20 53 50 52  49 54 45 53 2e 53 50 52  |LOAD SPRITES.SPR|
000000a0  44 41 54 20 36 32 30 30  22 3a ff 22 4c 4f 41 44  |DAT 6200":."LOAD|
000000b0  20 4f 42 44 41 54 41 20  33 30 30 30 22 0d 00 32  | OBDATA 3000"..2|
000000c0  1c e3 70 3d 30 b8 32 88  32 3a 50 25 3d 26 31 46  |..p=0.2.2:P%=&1F|
000000d0  34 30 3a 5b 4f 50 54 20  70 0d 00 3c cc 4c 44 59  |40:[OPT p..<.LDY|
000000e0  23 30 3a 53 54 59 26 37  30 3a 53 54 59 26 37 32  |#0:STY&70:STY&72|
000000f0  3a 4c 44 41 23 26 33 30  3a 53 54 41 26 37 31 3a  |:LDA#&30:STA&71:|
00000100  4c 44 41 23 26 41 3a 53  54 41 26 37 33 3a 2e 6d  |LDA#&A:STA&73:.m|
00000110  6f 76 65 6f 62 6a 73 20  4c 44 41 28 26 37 30 29  |oveobjs LDA(&70)|
00000120  2c 59 3a 53 54 41 28 26  37 32 29 2c 59 3a 49 4e  |,Y:STA(&72),Y:IN|
00000130  59 3a 42 4e 45 6d 6f 76  65 6f 62 6a 73 3a 49 4e  |Y:BNEmoveobjs:IN|
00000140  43 26 37 31 3a 49 4e 43  26 37 33 3a 4c 44 41 26  |C&71:INC&73:LDA&|
00000150  37 33 3a 43 4d 50 23 26  31 30 3a 42 4e 45 6d 6f  |73:CMP#&10:BNEmo|
00000160  76 65 6f 62 6a 73 3a 2e  6d 6f 76 65 73 6e 64 61  |veobjs:.movesnda|
00000170  74 20 4c 44 41 26 36 38  30 30 2c 59 3a 53 54 41  |t LDA&6800,Y:STA|
00000180  26 31 30 30 2c 59 3a 49  4e 59 3a 43 50 59 23 31  |&100,Y:INY:CPY#1|
00000190  32 38 3a 42 4e 45 6d 6f  76 65 73 6e 64 61 74 3a  |28:BNEmovesndat:|
000001a0  4c 44 59 23 30 0d 00 46  78 4c 44 41 23 26 35 34  |LDY#0..FxLDA#&54|
000001b0  3a 53 54 41 26 37 31 3a  4c 44 41 23 34 3a 53 54  |:STA&71:LDA#4:ST|
000001c0  41 26 37 33 3a 2e 6d 6f  76 65 6f 62 6a 64 20 4c  |A&73:.moveobjd L|
000001d0  44 41 28 26 37 30 29 2c  59 3a 53 54 41 28 26 37  |DA(&70),Y:STA(&7|
000001e0  32 29 2c 59 3a 49 4e 59  3a 42 4e 45 6d 6f 76 65  |2),Y:INY:BNEmove|
000001f0  6f 62 6a 64 3a 49 4e 43  26 37 31 3a 49 4e 43 26  |objd:INC&71:INC&|
00000200  37 33 3a 4c 44 41 26 37  31 3a 43 4d 50 23 26 35  |73:LDA&71:CMP#&5|
00000210  38 3a 42 4e 45 6d 6f 76  65 6f 62 6a 64 0d 00 50  |8:BNEmoveobjd..P|
00000220  bf 4c 44 41 23 26 31 30  3a 53 54 41 26 37 33 3a  |.LDA#&10:STA&73:|
00000230  2e 6d 6f 76 65 63 6f 64  65 20 4c 44 41 28 26 37  |.movecode LDA(&7|
00000240  30 29 2c 59 3a 53 54 41  28 26 37 32 29 2c 59 3a  |0),Y:STA(&72),Y:|
00000250  49 4e 59 3a 43 50 59 23  31 32 38 3a 42 45 51 68  |INY:CPY#128:BEQh|
00000260  61 6c 66 70 61 67 65 3a  43 50 59 23 30 3a 42 4e  |alfpage:CPY#0:BN|
00000270  45 6d 6f 76 65 63 6f 64  65 3a 49 4e 43 26 37 31  |Emovecode:INC&71|
00000280  3a 49 4e 43 26 37 33 3a  4a 4d 50 6d 6f 76 65 63  |:INC&73:JMPmovec|
00000290  6f 64 65 3a 2e 68 61 6c  66 70 61 67 65 20 4c 44  |ode:.halfpage LD|
000002a0  41 26 37 33 3a 43 4d 50  23 26 31 46 3a 42 4e 45  |A&73:CMP#&1F:BNE|
000002b0  6d 6f 76 65 63 6f 64 65  3a 4c 44 41 23 26 36 43  |movecode:LDA#&6C|
000002c0  3a 53 54 41 26 37 31 3a  4c 44 41 23 26 33 30 3a  |:STA&71:LDA#&30:|
000002d0  53 54 41 26 37 33 3a 4c  44 59 23 30 0d 00 5a 8c  |STA&73:LDY#0..Z.|
000002e0  2e 64 65 63 6f 6d 70 20  4c 44 41 28 26 37 30 29  |.decomp LDA(&70)|
000002f0  2c 59 3a 53 54 41 26 38  30 3a 2e 62 69 74 73 20  |,Y:STA&80:.bits |
00000300  4c 44 41 26 38 30 3a 4c  53 52 20 41 3a 52 4f 52  |LDA&80:LSR A:ROR|
00000310  20 41 3a 52 4f 52 20 41  3a 80 23 26 43 30 3a 53  | A:ROR A:.#&C0:S|
00000320  54 41 28 26 37 32 29 2c  59 3a 49 4e 43 26 37 32  |TA(&72),Y:INC&72|
00000330  3a 4c 44 41 26 37 32 3a  42 4e 45 6e 6f 65 78 74  |:LDA&72:BNEnoext|
00000340  3a 49 4e 43 26 37 33 3a  4c 44 41 26 37 33 3a 43  |:INC&73:LDA&73:C|
00000350  4d 50 23 26 38 30 3a 42  4e 45 6e 6f 65 78 74 3a  |MP#&80:BNEnoext:|
00000360  4a 4d 50 26 31 30 30 30  0d 00 64 54 2e 6e 6f 65  |JMP&1000..dT.noe|
00000370  78 74 20 4c 53 52 26 38  30 3a 4c 53 52 26 38 30  |xt LSR&80:LSR&80|
00000380  3a 4c 44 41 26 37 32 3a  80 23 33 3a 42 4e 45 62  |:LDA&72:.#3:BNEb|
00000390  69 74 73 3a 49 4e 43 26  37 30 3a 4c 44 41 26 37  |its:INC&70:LDA&7|
000003a0  30 3a 42 4e 45 64 65 63  6f 6d 70 3a 49 4e 43 26  |0:BNEdecomp:INC&|
000003b0  37 31 3a 4a 4d 50 64 65  63 6f 6d 70 0d 00 6e 07  |71:JMPdecomp..n.|
000003c0  5d 3a ed 0d 00 78 19 e3  64 3d 26 33 36 30 30 b8  |]:...x..d=&3600.|
000003d0  26 35 33 46 46 3a 3f 64  3d 30 3a ed 0d 00 82 0c  |&53FF:?d=0:.....|
000003e0  d7 22 47 41 4d 45 33 22  0d 00 8c 05 e0 0d 00 96  |."GAME3"........|
000003f0  05 3a 0d 00 a0 09 dd f2  61 73 73 0d 00 aa 45 e3  |.:......ass...E.|
00000400  70 61 73 73 3d 34 b8 36  88 32 3a 6f 73 62 79 74  |pass=4.6.2:osbyt|
00000410  65 3d 26 46 46 46 34 3a  6f 73 77 6f 72 64 3d 26  |e=&FFF4:osword=&|
00000420  46 46 46 31 3a 6f 73 77  72 63 68 3d 26 46 46 45  |FFF1:oswrch=&FFE|
00000430  45 3a 3a 50 25 3d 30 3a  4f 25 3d 26 35 38 30 30  |E::P%=0:O%=&5800|
00000440  0d 00 b4 0d 5b 4f 50 54  20 70 61 73 73 0d 00 be  |....[OPT pass...|
00000450  24 2e 78 63 68 20 45 51  55 42 30 3a 2e 79 63 68  |$.xch EQUB0:.ych|
00000460  20 45 51 55 42 30 3a 2e  63 6f 6c 20 45 51 55 42  | EQUB0:.col EQUB|
00000470  30 0d 00 c8 4b 2e 78 73  65 74 20 45 51 55 42 30  |0...K.xset EQUB0|
00000480  3a 2e 79 73 65 74 20 45  51 55 42 30 3a 2e 78 73  |:.yset EQUB0:.xs|
00000490  63 72 20 45 51 55 42 30  3a 2e 79 73 63 72 20 45  |cr EQUB0:.yscr E|
000004a0  51 55 42 30 3a 2e 78 70  6f 73 20 45 51 55 42 30  |QUB0:.xpos EQUB0|
000004b0  3a 2e 79 70 6f 73 20 45  51 55 42 30 0d 00 d2 4f  |:.ypos EQUB0...O|
000004c0  2e 73 63 72 6e 6f 20 45  51 55 42 30 3a 2e 75 70  |.scrno EQUB0:.up|
000004d0  76 65 6c 6f 20 45 51 55  42 30 3a 2e 78 6f 6c 64  |velo EQUB0:.xold|
000004e0  20 45 51 55 42 30 3a 2e  79 6f 6c 64 20 45 51 55  | EQUB0:.yold EQU|
000004f0  42 30 3a 2e 66 69 6e 65  20 45 51 55 42 30 3a 2e  |B0:.fine EQUB0:.|
00000500  73 6f 75 6e 64 20 45 51  55 42 31 0d 00 dc 9c 2e  |sound EQUB1.....|
00000510  66 61 63 65 20 45 51 55  42 31 3a 2e 70 68 61 73  |face EQUB1:.phas|
00000520  65 20 45 51 55 42 30 3a  2e 72 67 68 74 73 20 45  |e EQUB0:.rghts E|
00000530  51 55 42 30 3a 2e 77 69  70 65 72 20 45 51 55 42  |QUB0:.wiper EQUB|
00000540  30 3a 2e 6d 6f 76 73 74  61 67 20 45 51 55 42 30  |0:.movstag EQUB0|
00000550  3a 2e 63 68 61 6e 67 65  64 20 45 51 55 42 30 3a  |:.changed EQUB0:|
00000560  2e 70 6f 77 65 72 20 45  51 55 42 30 3a 2e 70 6f  |.power EQUB0:.po|
00000570  77 63 68 61 6e 67 65 20  45 51 55 42 30 3a 2e 6f  |wchange EQUB0:.o|
00000580  62 6a 65 63 74 73 20 45  51 55 57 30 3a 2e 6f 62  |bjects EQUW0:.ob|
00000590  63 68 20 45 51 55 42 30  3a 2e 67 65 74 73 74 61  |ch EQUB0:.getsta|
000005a0  74 20 45 51 55 42 30 0d  00 e6 21 5d 3a 50 25 3d  |t EQUB0...!]:P%=|
000005b0  26 31 30 30 30 3a 4f 25  3d 26 35 38 30 30 3a 5b  |&1000:O%=&5800:[|
000005c0  4f 50 54 20 70 61 73 73  0d 00 f0 48 4c 44 59 23  |OPT pass...HLDY#|
000005d0  26 38 30 3a 4c 44 41 23  30 3a 2e 7a 65 72 6f 6c  |&80:LDA#0:.zerol|
000005e0  6f 70 20 53 54 41 26 30  2c 59 3a 44 45 59 3a 42  |op STA&0,Y:DEY:B|
000005f0  4e 45 7a 65 72 6f 6c 6f  70 3a 4c 44 41 23 31 3a  |NEzerolop:LDA#1:|
00000600  53 54 41 73 6f 75 6e 64  3a 53 54 41 66 61 63 65  |STAsound:STAface|
00000610  0d 00 fa 26 2e 70 72 6f  67 20 4a 53 52 74 69 74  |...&.prog JSRtit|
00000620  6c 65 3a 4a 53 52 62 6c  61 73 63 72 3a 4a 53 52  |le:JSRblascr:JSR|
00000630  73 63 72 6f 66 66 0d 01  04 25 4c 44 59 23 30 3a  |scroff...%LDY#0:|
00000640  4c 44 41 23 33 3a 53 54  41 26 37 30 3a 4c 44 41  |LDA#3:STA&70:LDA|
00000650  23 26 33 30 3a 53 54 41  26 37 31 0d 01 0e 63 2e  |#&30:STA&71...c.|
00000660  6c 69 6e 65 73 20 4c 44  41 28 26 37 30 29 2c 59  |lines LDA(&70),Y|
00000670  3a 84 41 23 31 32 3a 53  54 41 28 26 37 30 29 2c  |:.A#12:STA(&70),|
00000680  59 3a 4c 44 41 26 37 30  3a 43 4c 43 3a 41 44 43  |Y:LDA&70:CLC:ADC|
00000690  23 38 3a 53 54 41 26 37  30 3a 4c 44 41 26 37 31  |#8:STA&70:LDA&71|
000006a0  3a 41 44 43 23 30 3a 53  54 41 26 37 31 3a 43 4d  |:ADC#0:STA&71:CM|
000006b0  50 23 26 36 43 3a 42 4e  45 6c 69 6e 65 73 0d 01  |P#&6C:BNElines..|
000006c0  18 8c 4c 44 41 23 31 3a  53 54 41 70 6f 77 63 68  |..LDA#1:STApowch|
000006d0  61 6e 67 65 3a 53 54 41  6f 62 63 68 3a 4c 44 59  |ange:STAobch:LDY|
000006e0  23 32 35 35 3a 53 54 59  70 6f 77 65 72 3a 53 54  |#255:STYpower:ST|
000006f0  59 6f 62 6a 65 63 74 73  3a 53 54 59 6f 62 6a 65  |Yobjects:STYobje|
00000700  63 74 73 2b 31 3a 49 4e  59 3a 2e 73 63 6f 62 61  |cts+1:INY:.scoba|
00000710  72 6c 6f 70 20 4c 44 41  73 62 61 72 2c 59 3a 43  |rlop LDAsbar,Y:C|
00000720  4d 50 23 26 46 46 3a 42  45 51 73 74 65 78 74 3a  |MP#&FF:BEQstext:|
00000730  4a 53 52 6f 73 77 72 63  68 3a 49 4e 59 3a 4a 4d  |JSRoswrch:INY:JM|
00000740  50 73 63 6f 62 61 72 6c  6f 70 0d 01 22 b9 2e 73  |Pscobarlop.."..s|
00000750  74 65 78 74 20 4c 44 41  23 31 3a 53 54 41 63 6f  |text LDA#1:STAco|
00000760  6c 3a 4c 44 41 23 32 3a  53 54 41 78 63 68 3a 4c  |l:LDA#2:STAxch:L|
00000770  44 41 23 32 34 3a 53 54  41 79 63 68 3a 4c 44 41  |DA#24:STAych:LDA|
00000780  23 28 73 63 6f 72 74 20  83 20 32 35 36 29 3a 53  |#(scort . 256):S|
00000790  54 41 26 37 32 3a 4c 44  41 23 28 73 63 6f 72 74  |TA&72:LDA#(scort|
000007a0  20 81 20 32 35 36 29 3a  53 54 41 26 37 33 3a 4a  | . 256):STA&73:J|
000007b0  53 52 73 74 72 69 6e 67  3a 4c 44 41 23 31 33 3a  |SRstring:LDA#13:|
000007c0  53 54 41 78 63 68 3a 49  4e 43 26 37 32 3a 4a 53  |STAxch:INC&72:JS|
000007d0  52 73 74 72 69 6e 67 3a  4c 44 41 23 38 3a 53 54  |Rstring:LDA#8:ST|
000007e0  41 78 63 68 3a 4c 44 41  23 32 38 3a 53 54 41 79  |Axch:LDA#28:STAy|
000007f0  63 68 3a 49 4e 43 26 37  32 3a 4a 53 52 73 74 72  |ch:INC&72:JSRstr|
00000800  69 6e 67 0d 01 2c 40 2e  67 61 6d 65 20 4a 53 52  |ing..,@.game JSR|
00000810  6f 62 6a 65 63 74 68 3a  4c 44 41 23 30 3a 53 54  |objecth:LDA#0:ST|
00000820  41 78 73 63 72 3a 53 54  41 79 73 63 72 3a 4c 44  |Axscr:STAyscr:LD|
00000830  41 23 32 3a 53 54 41 78  70 6f 73 3a 53 54 41 79  |A#2:STAxpos:STAy|
00000840  70 6f 73 0d 01 36 e7 2e  6e 65 77 73 63 72 20 4a  |pos..6..newscr J|
00000850  53 52 73 63 72 65 65 6e  3a 2e 6f 6c 64 73 63 72  |SRscreen:.oldscr|
00000860  20 4a 53 52 71 75 69 74  63 68 3a 4a 53 52 73 62  | JSRquitch:JSRsb|
00000870  6f 61 72 64 3a 4c 44 41  23 30 3a 53 54 41 6d 6f  |oard:LDA#0:STAmo|
00000880  76 73 74 61 67 3a 4c 44  41 63 68 61 6e 67 65 64  |vstag:LDAchanged|
00000890  3a 42 4e 45 6d 6f 76 65  73 6c 6f 70 3a 4c 44 41  |:BNEmoveslop:LDA|
000008a0  66 69 6e 65 3a 42 45 51  6e 6f 66 69 6e 65 3a 2e  |fine:BEQnofine:.|
000008b0  6d 6f 76 65 73 6c 6f 70  20 4a 53 52 64 69 73 70  |moveslop JSRdisp|
000008c0  79 6f 75 3a 4a 53 52 77  61 69 74 3a 49 4e 43 6d  |you:JSRwait:INCm|
000008d0  6f 76 73 74 61 67 3a 4c  44 41 6d 6f 76 73 74 61  |ovstag:LDAmovsta|
000008e0  67 3a 43 4d 50 23 33 3a  42 4e 45 6d 6f 76 65 73  |g:CMP#3:BNEmoves|
000008f0  6c 6f 70 3a 4c 44 41 23  30 3a 53 54 41 6d 6f 76  |lop:LDA#0:STAmov|
00000900  73 74 61 67 3a 53 54 41  63 68 61 6e 67 65 64 3a  |stag:STAchanged:|
00000910  53 54 41 66 69 6e 65 3a  4a 53 52 64 69 73 70 79  |STAfine:JSRdispy|
00000920  6f 75 3a 4a 53 52 77 61  69 74 0d 01 40 3d 2e 66  |ou:JSRwait..@=.f|
00000930  69 6e 65 6e 64 20 4a 53  52 67 65 74 6f 70 75 74  |inend JSRgetoput|
00000940  3a 4c 44 41 75 70 76 65  6c 6f 3a 42 45 51 66 61  |:LDAupvelo:BEQfa|
00000950  6c 6c 68 3a 4a 53 52 6a  75 6d 70 75 70 3a 4a 4d  |llh:JSRjumpup:JM|
00000960  50 6e 6f 66 61 6c 6c 0d  01 4a 35 2e 6e 6f 66 69  |Pnofall..J5.nofi|
00000970  6e 65 20 4a 53 52 77 61  69 74 3a 4a 53 52 77 61  |ne JSRwait:JSRwa|
00000980  69 74 3a 4a 53 52 77 61  69 74 3a 4a 53 52 77 61  |it:JSRwait:JSRwa|
00000990  69 74 3a 4a 4d 50 66 69  6e 65 6e 64 0d 01 54 cc  |it:JMPfinend..T.|
000009a0  2e 66 61 6c 6c 68 20 4c  44 41 78 70 6f 73 3a 53  |.fallh LDAxpos:S|
000009b0  54 41 78 73 65 74 3a 4c  44 41 79 70 6f 73 3a 53  |TAxset:LDAypos:S|
000009c0  54 41 79 73 65 74 3a 4a  53 52 67 65 74 62 6c 6f  |TAyset:JSRgetblo|
000009d0  63 6b 3a 43 4d 50 23 38  3a 42 45 51 77 61 74 74  |ck:CMP#8:BEQwatt|
000009e0  3a 43 4d 50 23 31 30 3a  42 45 51 77 61 74 74 3a  |:CMP#10:BEQwatt:|
000009f0  43 4d 50 23 31 34 3a 42  45 51 6c 61 64 64 65 72  |CMP#14:BEQladder|
00000a00  3a 2e 6c 61 64 64 6f 77  6e 20 4c 44 41 79 70 6f  |:.laddown LDAypo|
00000a10  73 3a 43 4d 50 23 39 3a  42 45 51 64 6f 77 6e 73  |s:CMP#9:BEQdowns|
00000a20  63 72 3a 49 4e 43 79 73  65 74 3a 4a 53 52 67 65  |cr:INCyset:JSRge|
00000a30  74 62 6c 6f 63 6b 3a 4a  53 52 64 6f 6f 72 63 68  |tblock:JSRdoorch|
00000a40  3a 42 43 53 66 61 6c 6c  64 6f 77 6e 3a 80 23 26  |:BCSfalldown:.#&|
00000a50  33 30 3a 42 45 51 66 61  6c 6c 64 6f 77 6e 3a 42  |30:BEQfalldown:B|
00000a60  4e 45 6e 6f 66 61 6c 6c  0d 01 5e 4d 2e 64 6f 77  |NEnofall..^M.dow|
00000a70  6e 73 63 72 20 4c 44 41  23 30 3a 53 54 41 79 70  |nscr LDA#0:STAyp|
00000a80  6f 73 3a 49 4e 43 79 73  63 72 3a 4a 4d 50 6e 65  |os:INCyscr:JMPne|
00000a90  77 73 63 72 3a 2e 77 61  74 74 20 4a 4d 50 7a 61  |wscr:.watt JMPza|
00000aa0  70 3a 2e 6c 61 64 64 65  72 20 4a 4d 50 20 6c 61  |p:.ladder JMP la|
00000ab0  64 64 65 72 62 0d 01 68  40 2e 66 61 6c 6c 64 6f  |dderb..h@.falldo|
00000ac0  77 6e 20 4c 44 41 23 35  3a 53 54 41 66 69 6e 65  |wn LDA#5:STAfine|
00000ad0  3a 49 4e 43 79 70 6f 73  3a 2e 6e 6f 66 61 6c 6c  |:INCypos:.nofall|
00000ae0  20 4a 53 52 6d 6f 76 65  79 6f 75 3a 4a 4d 50 6f  | JSRmoveyou:JMPo|
00000af0  6c 64 73 63 72 0d 01 72  d6 2e 6d 6f 76 65 79 6f  |ldscr..r..moveyo|
00000b00  75 20 4c 44 41 23 26 38  31 3a 4c 44 58 23 26 42  |u LDA#&81:LDX#&B|
00000b10  36 3a 4c 44 59 23 26 46  46 3a 4a 53 52 6f 73 62  |6:LDY#&FF:JSRosb|
00000b20  79 74 65 3a 42 43 43 6e  6a 75 6d 70 3a 4a 53 52  |yte:BCCnjump:JSR|
00000b30  6a 75 6d 70 3a 2e 6e 6a  75 6d 70 20 4c 44 41 23  |jump:.njump LDA#|
00000b40  26 38 31 3a 4c 44 58 23  26 39 45 3a 4c 44 59 23  |&81:LDX#&9E:LDY#|
00000b50  26 46 46 3a 4a 53 52 6f  73 62 79 74 65 3a 42 43  |&FF:JSRosbyte:BC|
00000b60  43 6e 6c 65 66 74 3a 4a  53 52 6c 65 66 74 3a 2e  |Cnleft:JSRleft:.|
00000b70  6e 6c 65 66 74 20 4c 44  41 23 26 38 31 3a 4c 44  |nleft LDA#&81:LD|
00000b80  58 23 26 42 44 3a 4c 44  59 23 26 46 46 3a 4a 53  |X#&BD:LDY#&FF:JS|
00000b90  52 6f 73 62 79 74 65 3a  42 43 43 6e 72 69 67 68  |Rosbyte:BCCnrigh|
00000ba0  74 3a 4a 4d 50 72 69 67  68 74 3a 2e 6e 72 69 67  |t:JMPright:.nrig|
00000bb0  68 74 20 52 54 53 3a 2e  6c 65 66 74 73 63 72 74  |ht RTS:.leftscrt|
00000bc0  20 4a 4d 50 6c 65 66 74  73 63 72 0d 01 7c d2 2e  | JMPleftscr..|..|
00000bd0  6c 65 66 74 20 4c 44 41  23 30 3a 53 54 41 66 61  |left LDA#0:STAfa|
00000be0  63 65 3a 53 54 41 72 67  68 74 73 3a 4c 44 41 78  |ce:STArghts:LDAx|
00000bf0  70 6f 73 3a 42 45 51 6c  65 66 74 73 63 72 74 3a  |pos:BEQleftscrt:|
00000c00  53 45 43 3a 53 42 43 23  31 3a 53 54 41 78 73 65  |SEC:SBC#1:STAxse|
00000c10  74 3a 4c 44 41 79 70 6f  73 3a 53 54 41 79 73 65  |t:LDAypos:STAyse|
00000c20  74 3a 4a 53 52 67 65 74  62 6c 6f 63 6b 3a 4a 53  |t:JSRgetblock:JS|
00000c30  52 64 6f 6f 72 63 68 3a  42 43 53 6e 6f 75 70 6c  |Rdoorch:BCSnoupl|
00000c40  3a 80 23 26 33 30 3a 43  4d 50 23 26 31 30 3a 42  |:.#&30:CMP#&10:B|
00000c50  45 51 6e 6f 6d 6f 76 65  3a 43 4d 50 23 26 32 30  |EQnomove:CMP#&20|
00000c60  3a 42 45 51 6e 6f 6d 6f  76 65 3a 43 4d 50 23 26  |:BEQnomove:CMP#&|
00000c70  33 30 3a 42 4e 45 6e 6f  75 70 6c 3a 44 45 43 79  |30:BNEnoupl:DECy|
00000c80  70 6f 73 3a 44 45 43 78  70 6f 73 3a 4c 44 41 23  |pos:DECxpos:LDA#|
00000c90  33 3a 53 54 41 66 69 6e  65 3a 52 54 53 0d 01 86  |3:STAfine:RTS...|
00000ca0  e8 2e 6e 6f 75 70 6c 20  44 45 43 78 70 6f 73 3a  |..noupl DECxpos:|
00000cb0  4c 44 41 23 31 3a 53 54  41 66 69 6e 65 3a 2e 6e  |LDA#1:STAfine:.n|
00000cc0  6f 6d 6f 76 65 20 52 54  53 3a 2e 72 69 67 68 74  |omove RTS:.right|
00000cd0  20 4c 44 41 23 30 3a 53  54 41 72 67 68 74 73 3a  | LDA#0:STArghts:|
00000ce0  4c 44 41 23 31 3a 53 54  41 66 61 63 65 3a 4c 44  |LDA#1:STAface:LD|
00000cf0  41 78 70 6f 73 3a 43 4d  50 23 39 3a 42 45 51 72  |Axpos:CMP#9:BEQr|
00000d00  69 67 68 74 73 63 72 3a  43 4c 43 3a 41 44 43 23  |ightscr:CLC:ADC#|
00000d10  31 3a 53 54 41 78 73 65  74 3a 4c 44 41 79 70 6f  |1:STAxset:LDAypo|
00000d20  73 3a 53 54 41 79 73 65  74 3a 4a 53 52 67 65 74  |s:STAyset:JSRget|
00000d30  62 6c 6f 63 6b 3a 4a 53  52 64 6f 6f 72 63 68 3a  |block:JSRdoorch:|
00000d40  42 43 53 6e 6f 75 70 72  3a 80 23 26 33 30 3a 43  |BCSnoupr:.#&30:C|
00000d50  4d 50 23 26 31 30 3a 42  45 51 6e 6f 6d 6f 76 65  |MP#&10:BEQnomove|
00000d60  72 3a 43 4d 50 23 26 32  30 3a 42 45 51 6e 6f 6d  |r:CMP#&20:BEQnom|
00000d70  6f 76 65 72 3a 43 4d 50  23 26 33 30 3a 42 4e 45  |over:CMP#&30:BNE|
00000d80  6e 6f 75 70 72 0d 01 90  ca 44 45 43 79 70 6f 73  |noupr....DECypos|
00000d90  3a 49 4e 43 78 70 6f 73  3a 4c 44 41 23 34 3a 53  |:INCxpos:LDA#4:S|
00000da0  54 41 66 69 6e 65 3a 52  54 53 3a 2e 6e 6f 75 70  |TAfine:RTS:.noup|
00000db0  72 20 49 4e 43 78 70 6f  73 3a 4c 44 41 23 32 3a  |r INCxpos:LDA#2:|
00000dc0  53 54 41 66 69 6e 65 3a  52 54 53 3a 2e 6e 6f 6d  |STAfine:RTS:.nom|
00000dd0  6f 76 65 72 20 4c 44 41  23 31 3a 53 54 41 72 67  |over LDA#1:STArg|
00000de0  68 74 73 3a 53 54 41 63  68 61 6e 67 65 64 3a 4a  |hts:STAchanged:J|
00000df0  4d 50 6e 6f 6d 6f 76 65  3a 2e 6c 65 66 74 73 63  |MPnomove:.leftsc|
00000e00  72 20 4c 44 41 23 39 3a  53 54 41 78 70 6f 73 3a  |r LDA#9:STAxpos:|
00000e10  44 45 43 78 73 63 72 3a  4a 53 52 73 63 72 65 65  |DECxscr:JSRscree|
00000e20  6e 3a 52 54 53 3a 2e 72  69 67 68 74 73 63 72 20  |n:RTS:.rightscr |
00000e30  4c 44 41 23 30 3a 53 54  41 78 70 6f 73 3a 49 4e  |LDA#0:STAxpos:IN|
00000e40  43 78 73 63 72 3a 4a 4d  50 73 63 72 65 65 6e 0d  |Cxscr:JMPscreen.|
00000e50  01 9a d5 2e 6a 75 6d 70  20 4c 44 41 79 70 6f 73  |....jump LDAypos|
00000e60  3a 43 4d 50 23 39 3a 42  45 51 6e 6f 6d 6f 76 65  |:CMP#9:BEQnomove|
00000e70  74 3a 43 4c 43 3a 41 44  43 23 31 3a 53 54 41 79  |t:CLC:ADC#1:STAy|
00000e80  73 65 74 3a 4c 44 41 78  70 6f 73 3a 53 54 41 78  |set:LDAxpos:STAx|
00000e90  73 65 74 3a 4a 53 52 67  65 74 62 6c 6f 63 6b 3a  |set:JSRgetblock:|
00000ea0  80 23 26 33 30 3a 42 45  51 6e 6f 6d 6f 76 65 74  |.#&30:BEQnomovet|
00000eb0  3a 4c 44 41 23 33 3a 53  54 41 75 70 76 65 6c 6f  |:LDA#3:STAupvelo|
00000ec0  3a 4c 44 41 73 6f 75 6e  64 3a 42 45 51 6e 6f 73  |:LDAsound:BEQnos|
00000ed0  6e 64 3a 4c 44 41 23 37  3a 4c 44 58 23 28 6a 75  |nd:LDA#7:LDX#(ju|
00000ee0  6d 70 6e 20 83 20 32 35  36 29 3a 4c 44 59 23 28  |mpn . 256):LDY#(|
00000ef0  6a 75 6d 70 6e 20 81 20  32 35 36 29 3a 4a 53 52  |jumpn . 256):JSR|
00000f00  6f 73 77 6f 72 64 3a 2e  6e 6f 73 6e 64 20 52 54  |osword:.nosnd RT|
00000f10  53 3a 2e 6e 6f 6d 6f 76  65 74 20 4a 4d 50 6e 6f  |S:.nomovet JMPno|
00000f20  6d 6f 76 65 0d 01 a4 bb  2e 64 69 73 70 79 6f 75  |move.....dispyou|
00000f30  20 4c 44 41 77 69 70 65  72 3a 42 45 51 6e 6f 77  | LDAwiper:BEQnow|
00000f40  69 70 65 3a 4c 44 59 23  30 3a 2e 77 69 70 6c 6f  |ipe:LDY#0:.wiplo|
00000f50  70 20 4c 44 41 26 31 38  30 2c 59 3a 53 54 41 28  |p LDA&180,Y:STA(|
00000f60  26 37 38 29 2c 59 3a 49  4e 59 3a 43 50 59 23 33  |&78),Y:INY:CPY#3|
00000f70  32 3a 42 4e 45 77 69 70  6c 6f 70 3a 4c 44 41 26  |2:BNEwiplop:LDA&|
00000f80  37 38 3a 43 4c 43 3a 41  44 43 23 26 38 30 3a 53  |78:CLC:ADC#&80:S|
00000f90  54 41 26 37 38 3a 4c 44  41 26 37 39 3a 41 44 43  |TA&78:LDA&79:ADC|
00000fa0  23 32 3a 53 54 41 26 37  39 3a 4c 44 59 23 30 3a  |#2:STA&79:LDY#0:|
00000fb0  2e 77 69 70 65 62 20 4c  44 41 26 31 41 30 2c 59  |.wipeb LDA&1A0,Y|
00000fc0  3a 53 54 41 28 26 37 38  29 2c 59 3a 49 4e 59 3a  |:STA(&78),Y:INY:|
00000fd0  43 50 59 23 33 32 3a 42  4e 45 77 69 70 65 62 0d  |CPY#32:BNEwipeb.|
00000fe0  01 ae ba 2e 6e 6f 77 69  70 65 20 4c 44 41 23 31  |....nowipe LDA#1|
00000ff0  3a 53 54 41 77 69 70 65  72 3a 4c 44 41 78 70 6f  |:STAwiper:LDAxpo|
00001000  73 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |s:ASL A:ASL A:AS|
00001010  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
00001020  41 53 4c 20 41 3a 53 54  41 26 37 30 3a 4c 44 41  |ASL A:STA&70:LDA|
00001030  78 70 6f 73 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |xpos:LSR A:LSR A|
00001040  3a 43 4c 43 3a 41 44 43  23 26 33 35 3a 53 54 41  |:CLC:ADC#&35:STA|
00001050  26 37 31 3a 4c 44 41 79  70 6f 73 3a 43 4c 43 3a  |&71:LDAypos:CLC:|
00001060  41 44 43 26 37 31 3a 53  54 41 26 37 31 3a 4c 44  |ADC&71:STA&71:LD|
00001070  41 79 70 6f 73 3a 41 53  4c 20 41 3a 41 53 4c 20  |Aypos:ASL A:ASL |
00001080  41 3a 43 4c 43 3a 41 44  43 26 37 31 3a 53 54 41  |A:CLC:ADC&71:STA|
00001090  26 37 31 3a 4c 44 59 23  30 0d 01 b8 95 53 54 59  |&71:LDY#0....STY|
000010a0  26 37 32 3a 4c 44 41 23  26 31 41 3a 53 54 41 26  |&72:LDA#&1A:STA&|
000010b0  37 33 3a 4c 44 58 6d 6f  76 73 74 61 67 3a 4c 44  |73:LDXmovstag:LD|
000010c0  41 73 65 71 75 65 6e 2c  58 3a 43 4c 43 3a 41 44  |Asequen,X:CLC:AD|
000010d0  43 66 69 6e 65 3a 54 41  58 3a 4c 44 41 26 37 30  |Cfine:TAX:LDA&70|
000010e0  3a 43 4c 43 3a 41 44 43  6c 6f 77 61 64 2c 58 3a  |:CLC:ADClowad,X:|
000010f0  53 54 41 26 37 30 3a 4c  44 41 26 37 31 3a 41 44  |STA&70:LDA&71:AD|
00001100  43 68 69 67 68 61 64 2c  58 3a 53 54 41 26 37 31  |Chighad,X:STA&71|
00001110  3a 43 50 58 23 30 3a 42  45 51 6e 6f 70 68 61 73  |:CPX#0:BEQnophas|
00001120  65 3a 4c 44 58 70 68 61  73 65 3a 49 4e 58 0d 01  |e:LDXphase:INX..|
00001130  c2 5b 2e 61 64 64 70 68  20 4c 44 41 26 37 32 3a  |.[.addph LDA&72:|
00001140  43 4c 43 3a 41 44 43 23  26 38 30 3a 53 54 41 26  |CLC:ADC#&80:STA&|
00001150  37 32 3a 4c 44 41 26 37  33 3a 41 44 43 23 30 3a  |72:LDA&73:ADC#0:|
00001160  53 54 41 26 37 33 3a 44  45 58 3a 42 4e 45 61 64  |STA&73:DEX:BNEad|
00001170  64 70 68 3a 4c 44 41 70  68 61 73 65 3a 82 23 31  |dph:LDAphase:.#1|
00001180  3a 53 54 41 70 68 61 73  65 0d 01 cc a6 2e 6e 6f  |:STAphase.....no|
00001190  70 68 61 73 65 20 4c 44  41 72 67 68 74 73 3a 42  |phase LDArghts:B|
000011a0  45 51 6e 6f 74 72 67 68  74 3a 4c 44 41 26 37 30  |EQnotrght:LDA&70|
000011b0  3a 43 4c 43 3a 41 44 43  23 33 32 3a 53 54 41 26  |:CLC:ADC#32:STA&|
000011c0  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |70:LDA&71:ADC#0:|
000011d0  53 54 41 26 37 31 3a 2e  6e 6f 74 72 67 68 74 20  |STA&71:.notrght |
000011e0  4c 44 41 66 61 63 65 3a  42 4e 45 6c 65 66 61 63  |LDAface:BNElefac|
000011f0  65 3a 4c 44 41 26 37 32  3a 43 4c 43 3a 41 44 43  |e:LDA&72:CLC:ADC|
00001200  23 26 32 30 3a 53 54 41  26 37 32 3a 2e 6c 65 66  |#&20:STA&72:.lef|
00001210  61 63 65 20 4c 44 41 26  37 30 3a 53 54 41 26 37  |ace LDA&70:STA&7|
00001220  38 3a 4c 44 41 26 37 31  3a 53 54 41 26 37 39 0d  |8:LDA&71:STA&79.|
00001230  01 d6 ac 2e 6c 61 64 69  73 70 20 4c 44 41 28 26  |....ladisp LDA(&|
00001240  37 30 29 2c 59 3a 53 54  41 26 31 38 30 2c 59 3a  |70),Y:STA&180,Y:|
00001250  84 41 28 26 37 32 29 2c  59 3a 53 54 41 28 26 37  |.A(&72),Y:STA(&7|
00001260  30 29 2c 59 3a 49 4e 59  3a 43 50 59 23 33 32 3a  |0),Y:INY:CPY#32:|
00001270  42 4e 45 6c 61 64 69 73  70 3a 4c 44 41 26 37 32  |BNEladisp:LDA&72|
00001280  3a 43 4c 43 3a 41 44 43  23 26 34 30 3a 53 54 41  |:CLC:ADC#&40:STA|
00001290  26 37 32 3a 4c 44 41 26  37 33 3a 41 44 43 23 30  |&72:LDA&73:ADC#0|
000012a0  3a 53 54 41 26 37 33 3a  4c 44 41 26 37 30 3a 43  |:STA&73:LDA&70:C|
000012b0  4c 43 3a 41 44 43 23 26  38 30 3a 53 54 41 26 37  |LC:ADC#&80:STA&7|
000012c0  30 3a 4c 44 41 26 37 31  3a 41 44 43 23 32 3a 53  |0:LDA&71:ADC#2:S|
000012d0  54 41 26 37 31 3a 4c 44  59 23 30 0d 01 e0 4e 2e  |TA&71:LDY#0...N.|
000012e0  6c 62 64 69 73 70 20 4c  44 41 28 26 37 30 29 2c  |lbdisp LDA(&70),|
000012f0  59 3a 53 54 41 26 31 41  30 2c 59 3a 84 41 28 26  |Y:STA&1A0,Y:.A(&|
00001300  37 32 29 2c 59 3a 53 54  41 28 26 37 30 29 2c 59  |72),Y:STA(&70),Y|
00001310  3a 49 4e 59 3a 43 50 59  23 33 32 3a 42 4e 45 6c  |:INY:CPY#32:BNEl|
00001320  62 64 69 73 70 3a 52 54  53 0d 01 ea 77 2e 77 61  |bdisp:RTS...w.wa|
00001330  69 74 20 4c 44 41 23 31  3a 4c 44 58 23 26 37 30  |it LDA#1:LDX#&70|
00001340  3a 4c 44 59 23 30 3a 4a  53 52 6f 73 77 6f 72 64  |:LDY#0:JSRosword|
00001350  3a 4c 44 41 26 37 30 3a  43 4d 50 26 38 30 3a 42  |:LDA&70:CMP&80:B|
00001360  4e 45 77 61 69 74 3a 4c  44 41 23 31 3a 4c 44 58  |NEwait:LDA#1:LDX|
00001370  23 26 37 30 3a 4c 44 59  23 30 3a 4a 53 52 6f 73  |#&70:LDY#0:JSRos|
00001380  77 6f 72 64 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |word:LDA&70:CLC:|
00001390  41 44 43 23 34 3a 53 54  41 26 38 30 3a 52 54 53  |ADC#4:STA&80:RTS|
000013a0  0d 01 f4 d2 2e 6a 75 6d  70 75 70 20 44 45 43 75  |.....jumpup DECu|
000013b0  70 76 65 6c 6f 3a 4c 44  41 79 70 6f 73 3a 42 45  |pvelo:LDAypos:BE|
000013c0  51 75 70 73 63 72 3a 53  45 43 3a 53 42 43 23 31  |Qupscr:SEC:SBC#1|
000013d0  3a 53 54 41 79 73 65 74  3a 4c 44 41 78 70 6f 73  |:STAyset:LDAxpos|
000013e0  3a 53 54 41 78 73 65 74  3a 4a 53 52 67 65 74 62  |:STAxset:JSRgetb|
000013f0  6c 6f 63 6b 3a 4a 53 52  64 6f 6f 72 63 68 3a 42  |lock:JSRdoorch:B|
00001400  43 53 75 70 6f 6e 65 3a  80 23 26 33 30 3a 42 45  |CSupone:.#&30:BE|
00001410  51 75 70 6f 6e 65 3a 4c  44 41 23 30 3a 53 54 41  |Qupone:LDA#0:STA|
00001420  75 70 76 65 6c 6f 3a 52  54 53 3a 2e 75 70 6f 6e  |upvelo:RTS:.upon|
00001430  65 20 4c 44 41 23 36 3a  53 54 41 66 69 6e 65 3a  |e LDA#6:STAfine:|
00001440  44 45 43 79 70 6f 73 3a  52 54 53 3a 2e 75 70 73  |DECypos:RTS:.ups|
00001450  63 72 20 44 45 43 79 73  63 72 3a 4c 44 41 23 39  |cr DECyscr:LDA#9|
00001460  3a 53 54 41 79 70 6f 73  3a 4a 4d 50 73 63 72 65  |:STAypos:JMPscre|
00001470  65 6e 0d 01 fe c2 2e 73  63 72 65 65 6e 20 4c 44  |en.....screen LD|
00001480  41 78 70 6f 73 3a 53 54  41 78 6f 6c 64 3a 4c 44  |Axpos:STAxold:LD|
00001490  41 79 70 6f 73 3a 53 54  41 79 6f 6c 64 3a 4a 53  |Aypos:STAyold:JS|
000014a0  52 73 63 72 6f 66 66 3a  4c 44 41 23 26 46 46 3a  |Rscroff:LDA#&FF:|
000014b0  53 54 41 79 73 65 74 3a  2e 79 6c 6f 70 20 4c 44  |STAyset:.ylop LD|
000014c0  41 23 26 46 46 3a 53 54  41 78 73 65 74 3a 49 4e  |A#&FF:STAxset:IN|
000014d0  43 79 73 65 74 3a 2e 78  6c 6f 70 20 49 4e 43 78  |Cyset:.xlop INCx|
000014e0  73 65 74 3a 4a 53 52 20  62 6c 6f 63 6b 6f 6e 3a  |set:JSR blockon:|
000014f0  4c 44 41 78 73 65 74 3a  43 4d 50 23 39 3a 42 45  |LDAxset:CMP#9:BE|
00001500  51 6e 65 78 74 79 3a 4a  4d 50 78 6c 6f 70 3a 2e  |Qnexty:JMPxlop:.|
00001510  6e 65 78 74 79 20 4c 44  41 79 73 65 74 3a 43 4d  |nexty LDAyset:CM|
00001520  50 23 39 3a 42 45 51 73  63 72 6f 6e 3a 4a 4d 50  |P#9:BEQscron:JMP|
00001530  79 6c 6f 70 0d 02 08 10  2e 73 63 72 6f 6e 20 4c  |ylop.....scron L|
00001540  44 59 23 30 0d 02 12 dd  2e 73 63 72 6f 6e 6c 6f  |DY#0.....scronlo|
00001550  70 20 4c 44 41 23 31 39  3a 4a 53 52 6f 73 77 72  |p LDA#19:JSRoswr|
00001560  63 68 3a 54 59 41 3a 4a  53 52 6f 73 77 72 63 68  |ch:TYA:JSRoswrch|
00001570  3a 54 59 41 3a 80 23 37  3a 4a 53 52 6f 73 77 72  |:TYA:.#7:JSRoswr|
00001580  63 68 3a 4c 44 41 23 30  3a 4a 53 52 6f 73 77 72  |ch:LDA#0:JSRoswr|
00001590  63 68 3a 4a 53 52 6f 73  77 72 63 68 3a 4a 53 52  |ch:JSRoswrch:JSR|
000015a0  6f 73 77 72 63 68 3a 4a  53 52 6f 73 77 72 63 68  |oswrch:JSRoswrch|
000015b0  3a 49 4e 59 3a 43 50 59  23 31 36 3a 42 4e 45 73  |:INY:CPY#16:BNEs|
000015c0  63 72 6f 6e 6c 6f 70 3a  4c 44 41 23 31 3a 4c 44  |cronlop:LDA#1:LD|
000015d0  58 23 26 37 30 3a 4c 44  59 23 30 3a 4a 53 52 6f  |X#&70:LDY#0:JSRo|
000015e0  73 77 6f 72 64 3a 4c 44  41 26 37 30 3a 43 4c 43  |sword:LDA&70:CLC|
000015f0  3a 41 44 43 23 34 3a 53  54 41 26 38 30 3a 4c 44  |:ADC#4:STA&80:LD|
00001600  41 23 30 3a 53 54 41 77  69 70 65 72 3a 4c 44 41  |A#0:STAwiper:LDA|
00001610  23 31 3a 53 54 41 63 68  61 6e 67 65 64 3a 52 54  |#1:STAchanged:RT|
00001620  53 0d 02 1c 8f 2e 73 63  72 6f 66 66 20 4c 44 59  |S.....scroff LDY|
00001630  23 30 3a 2e 73 63 72 6f  66 66 6c 6f 70 20 4c 44  |#0:.scrofflop LD|
00001640  41 23 31 39 3a 4a 53 52  6f 73 77 72 63 68 3a 54  |A#19:JSRoswrch:T|
00001650  59 41 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |YA:JSRoswrch:LDA|
00001660  23 30 3a 4a 53 52 6f 73  77 72 63 68 3a 4a 53 52  |#0:JSRoswrch:JSR|
00001670  6f 73 77 72 63 68 3a 4a  53 52 6f 73 77 72 63 68  |oswrch:JSRoswrch|
00001680  3a 4a 53 52 6f 73 77 72  63 68 3a 4a 53 52 6f 73  |:JSRoswrch:JSRos|
00001690  77 72 63 68 3a 49 4e 59  3a 43 50 59 23 31 36 3a  |wrch:INY:CPY#16:|
000016a0  42 4e 45 73 63 72 6f 66  66 6c 6f 70 3a 52 54 53  |BNEscrofflop:RTS|
000016b0  0d 02 26 af 2e 6c 61 64  64 65 72 62 20 4c 44 41  |..&..ladderb LDA|
000016c0  23 26 38 31 3a 4c 44 58  23 26 39 37 3a 4c 44 59  |#&81:LDX#&97:LDY|
000016d0  23 26 46 46 3a 4a 53 52  6f 73 62 79 74 65 3a 42  |#&FF:JSRosbyte:B|
000016e0  43 53 66 61 6c 6c 73 65  74 3a 4c 44 41 23 26 38  |CSfallset:LDA#&8|
000016f0  31 3a 4c 44 58 23 26 42  36 3a 4c 44 59 23 26 46  |1:LDX#&B6:LDY#&F|
00001700  46 3a 4a 53 52 6f 73 62  79 74 65 3a 42 43 43 73  |F:JSRosbyte:BCCs|
00001710  74 61 62 6c 65 3a 4c 44  41 23 31 3a 53 54 41 75  |table:LDA#1:STAu|
00001720  70 76 65 6c 6f 3a 4a 53  52 6a 75 6d 70 75 70 3a  |pvelo:JSRjumpup:|
00001730  4a 4d 50 6f 6c 64 73 63  72 3a 2e 73 74 61 62 6c  |JMPoldscr:.stabl|
00001740  65 20 4a 4d 50 6e 6f 66  61 6c 6c 3a 2e 66 61 6c  |e JMPnofall:.fal|
00001750  6c 73 65 74 20 4a 4d 50  6c 61 64 64 6f 77 6e 0d  |lset JMPladdown.|
00001760  02 30 be 2e 62 6c 6f 63  6b 6f 6e 20 4a 53 52 6f  |.0..blockon JSRo|
00001770  62 6a 63 68 65 63 6b 3a  4a 53 52 67 65 74 62 6c  |bjcheck:JSRgetbl|
00001780  6f 63 6b 3a 4c 44 41 78  73 65 74 3a 41 53 4c 20  |ock:LDAxset:ASL |
00001790  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
000017a0  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
000017b0  53 54 41 26 37 30 3a 4c  44 41 78 73 65 74 3a 4c  |STA&70:LDAxset:L|
000017c0  53 52 20 41 3a 4c 53 52  20 41 3a 43 4c 43 3a 41  |SR A:LSR A:CLC:A|
000017d0  44 43 23 26 33 35 3a 53  54 41 26 37 31 3a 4c 44  |DC#&35:STA&71:LD|
000017e0  41 79 73 65 74 3a 43 4c  43 3a 41 44 43 26 37 31  |Ayset:CLC:ADC&71|
000017f0  3a 53 54 41 26 37 31 3a  4c 44 41 79 73 65 74 3a  |:STA&71:LDAyset:|
00001800  41 53 4c 20 41 3a 41 53  4c 20 41 3a 43 4c 43 3a  |ASL A:ASL A:CLC:|
00001810  41 44 43 26 37 31 3a 53  54 41 26 37 31 0d 02 3a  |ADC&71:STA&71..:|
00001820  67 4c 44 41 26 37 32 3a  4c 53 52 20 41 3a 4c 53  |gLDA&72:LSR A:LS|
00001830  52 20 41 3a 43 4c 43 3a  41 44 43 23 26 32 30 3a  |R A:CLC:ADC#&20:|
00001840  53 54 41 26 37 33 3a 4c  44 41 26 37 32 3a 43 4d  |STA&73:LDA&72:CM|
00001850  50 23 33 30 3a 42 45 51  64 6f 6f 72 63 6f 6c 3a  |P#30:BEQdoorcol:|
00001860  4c 53 52 20 41 3a 52 4f  52 20 41 3a 52 4f 52 20  |LSR A:ROR A:ROR |
00001870  41 3a 80 23 26 43 30 3a  53 54 41 26 37 32 3a 4c  |A:.#&C0:STA&72:L|
00001880  44 59 23 30 0d 02 44 9e  2e 74 72 61 6e 73 74 6f  |DY#0..D..transto|
00001890  70 20 4c 44 41 28 26 37  30 29 2c 59 3a 80 23 26  |p LDA(&70),Y:.#&|
000018a0  43 30 3a 43 4c 43 3a 41  44 43 28 26 37 32 29 2c  |C0:CLC:ADC(&72),|
000018b0  59 3a 53 54 41 28 26 37  30 29 2c 59 3a 49 4e 59  |Y:STA(&70),Y:INY|
000018c0  3a 43 50 59 23 26 34 30  3a 42 4e 45 74 72 61 6e  |:CPY#&40:BNEtran|
000018d0  73 74 6f 70 3a 4c 44 59  23 30 3a 4c 44 41 26 37  |stop:LDY#0:LDA&7|
000018e0  32 3a 43 4c 43 3a 41 44  43 23 26 34 30 3a 53 54  |2:CLC:ADC#&40:ST|
000018f0  41 26 37 32 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |A&72:LDA&70:CLC:|
00001900  41 44 43 23 26 38 30 3a  53 54 41 26 37 30 3a 4c  |ADC#&80:STA&70:L|
00001910  44 41 26 37 31 3a 41 44  43 23 32 3a 53 54 41 26  |DA&71:ADC#2:STA&|
00001920  37 31 0d 02 4e 69 2e 74  72 61 6e 73 62 6f 74 20  |71..Ni.transbot |
00001930  4c 44 41 28 26 37 30 29  2c 59 3a 80 23 26 43 30  |LDA(&70),Y:.#&C0|
00001940  3a 43 4c 43 3a 41 44 43  28 26 37 32 29 2c 59 3a  |:CLC:ADC(&72),Y:|
00001950  53 54 41 28 26 37 30 29  2c 59 3a 49 4e 59 3a 43  |STA(&70),Y:INY:C|
00001960  50 59 23 26 34 30 3a 42  4e 45 74 72 61 6e 73 62  |PY#&40:BNEtransb|
00001970  6f 74 3a 52 54 53 3a 2e  64 6f 6f 72 63 6f 6c 20  |ot:RTS:.doorcol |
00001980  4a 4d 50 6c 6f 63 6b 74  79 70 65 0d 02 58 5c 2e  |JMPlocktype..X\.|
00001990  67 65 74 62 6c 6f 63 6b  20 4c 44 41 23 26 33 30  |getblock LDA#&30|
000019a0  3a 43 4c 43 3a 41 44 43  78 73 63 72 3a 53 54 41  |:CLC:ADCxscr:STA|
000019b0  26 37 31 3a 4c 44 41 79  73 63 72 3a 41 53 4c 20  |&71:LDAyscr:ASL |
000019c0  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
000019d0  4c 20 41 3a 43 4c 43 3a  41 44 43 26 37 31 3a 53  |L A:CLC:ADC&71:S|
000019e0  54 41 73 63 72 6e 6f 0d  02 62 d1 4c 44 41 73 63  |TAscrno..b.LDAsc|
000019f0  72 6e 6f 3a 53 54 41 26  37 31 3a 4c 44 41 79 73  |rno:STA&71:LDAys|
00001a00  65 74 3a 53 54 41 26 37  30 3a 41 53 4c 20 41 3a  |et:STA&70:ASL A:|
00001a10  41 53 4c 20 41 3a 41 53  4c 20 41 3a 50 48 41 3a  |ASL A:ASL A:PHA:|
00001a20  43 4c 43 3a 41 44 43 26  37 30 3a 53 54 41 26 37  |CLC:ADC&70:STA&7|
00001a30  30 3a 50 4c 41 3a 41 53  4c 20 41 3a 43 4c 43 3a  |0:PLA:ASL A:CLC:|
00001a40  41 44 43 26 37 30 3a 53  54 41 26 37 30 3a 4c 44  |ADC&70:STA&70:LD|
00001a50  59 78 73 65 74 3a 4c 44  41 78 64 61 74 61 2c 59  |Yxset:LDAxdata,Y|
00001a60  3a 54 41 59 3a 4c 44 41  28 26 37 30 29 2c 59 3a  |:TAY:LDA(&70),Y:|
00001a70  52 4f 4c 20 41 3a 52 4f  4c 20 41 3a 52 4f 4c 20  |ROL A:ROL A:ROL |
00001a80  41 3a 80 23 33 3a 53 54  41 26 37 32 3a 49 4e 59  |A:.#3:STA&72:INY|
00001a90  3a 4c 44 41 28 26 37 30  29 2c 59 3a 4c 53 52 20  |:LDA(&70),Y:LSR |
00001aa0  41 3a 4c 53 52 20 41 3a  4c 53 52 20 41 3a 4c 53  |A:LSR A:LSR A:LS|
00001ab0  52 20 41 3a 80 23 31 32  0d 02 6c 7e 43 4c 43 3a  |R A:.#12..l~CLC:|
00001ac0  41 44 43 26 37 32 3a 53  54 41 26 37 32 3a 4c 44  |ADC&72:STA&72:LD|
00001ad0  41 78 73 65 74 3a 4c 53  52 20 41 3a 54 41 59 3a  |Axset:LSR A:TAY:|
00001ae0  4c 44 41 68 62 64 61 74  2c 59 3a 54 41 59 3a 4c  |LDAhbdat,Y:TAY:L|
00001af0  44 41 28 26 37 30 29 2c  59 3a 53 54 41 26 37 33  |DA(&70),Y:STA&73|
00001b00  3a 4c 44 41 78 73 65 74  3a 80 23 31 3a 42 4e 45  |:LDAxset:.#1:BNE|
00001b10  62 69 74 32 3a 4c 44 41  26 37 33 3a 41 53 4c 20  |bit2:LDA&73:ASL |
00001b20  41 3a 52 4f 4c 20 41 3a  52 4f 4c 20 41 3a 4a 4d  |A:ROL A:ROL A:JM|
00001b30  50 66 62 67 6f 74 0d 02  76 5b 2e 62 69 74 32 20  |Pfbgot..v[.bit2 |
00001b40  4c 44 41 26 37 33 3a 41  53 4c 20 41 3a 52 4f 4c  |LDA&73:ASL A:ROL|
00001b50  20 41 3a 2e 66 62 67 6f  74 20 80 23 31 3a 41 53  | A:.fbgot .#1:AS|
00001b60  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
00001b70  41 53 4c 20 41 3a 43 4c  43 3a 41 44 43 26 37 32  |ASL A:CLC:ADC&72|
00001b80  3a 41 53 4c 20 41 3a 53  54 41 26 37 32 3a 52 54  |:ASL A:STA&72:RT|
00001b90  53 0d 02 80 8f 2e 62 6c  61 73 63 72 20 4a 53 52  |S.....blascr JSR|
00001ba0  73 63 72 6f 66 66 3a 4c  44 59 23 30 3a 53 54 59  |scroff:LDY#0:STY|
00001bb0  26 37 30 3a 4c 44 41 23  26 33 30 3a 53 54 41 26  |&70:LDA#&30:STA&|
00001bc0  37 31 3a 2e 62 6c 61 6e  6c 6f 70 20 4c 44 41 28  |71:.blanlop LDA(|
00001bd0  26 37 30 29 2c 59 3a 80  23 26 43 30 3a 53 54 41  |&70),Y:.#&C0:STA|
00001be0  28 26 37 30 29 2c 59 3a  49 4e 59 3a 42 4e 45 62  |(&70),Y:INY:BNEb|
00001bf0  6c 61 6e 6c 6f 70 3a 49  4e 43 26 37 31 3a 4c 44  |lanlop:INC&71:LD|
00001c00  41 26 37 31 3a 43 4d 50  23 26 38 30 3a 42 4e 45  |A&71:CMP#&80:BNE|
00001c10  62 6c 61 6e 6c 6f 70 3a  4a 4d 50 73 63 72 6f 6e  |blanlop:JMPscron|
00001c20  0d 02 8a 43 2e 70 75 74  63 68 20 41 53 4c 20 41  |...C.putch ASL A|
00001c30  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 54 41 58  |:ASL A:ASL A:TAX|
00001c40  3a 4c 44 41 23 30 3a 53  54 41 26 37 30 3a 4c 44  |:LDA#0:STA&70:LD|
00001c50  41 23 26 33 30 3a 53 54  41 26 37 31 3a 4c 44 59  |A#&30:STA&71:LDY|
00001c60  78 63 68 0d 02 94 4e 2e  78 6c 6f 70 63 20 42 45  |xch...N.xlopc BE|
00001c70  51 6e 6f 78 63 68 3a 4c  44 41 26 37 30 3a 43 4c  |Qnoxch:LDA&70:CL|
00001c80  43 3a 41 44 43 23 26 32  30 3a 53 54 41 26 37 30  |C:ADC#&20:STA&70|
00001c90  3a 4c 44 41 26 37 31 3a  41 44 43 23 30 3a 53 54  |:LDA&71:ADC#0:ST|
00001ca0  41 26 37 31 3a 44 45 59  3a 4a 4d 50 78 6c 6f 70  |A&71:DEY:JMPxlop|
00001cb0  63 0d 02 9e 5c 2e 6e 6f  78 63 68 20 4c 44 59 79  |c...\.noxch LDYy|
00001cc0  63 68 3a 2e 79 6c 6f 70  63 20 42 45 51 6e 6f 79  |ch:.ylopc BEQnoy|
00001cd0  63 68 3a 4c 44 41 26 37  30 3a 43 4c 43 3a 41 44  |ch:LDA&70:CLC:AD|
00001ce0  43 23 26 38 30 3a 53 54  41 26 37 30 3a 4c 44 41  |C#&80:STA&70:LDA|
00001cf0  26 37 31 3a 41 44 43 23  32 3a 53 54 41 26 37 31  |&71:ADC#2:STA&71|
00001d00  3a 44 45 59 3a 4a 4d 50  79 6c 6f 70 63 0d 02 a8  |:DEY:JMPylopc...|
00001d10  d2 2e 6e 6f 79 63 68 20  4c 44 59 23 30 3a 2e 73  |..noych LDY#0:.s|
00001d20  6c 69 6e 65 20 4c 44 41  26 43 30 30 2c 58 3a 2e  |line LDA&C00,X:.|
00001d30  6c 69 6e 65 6c 6f 70 20  50 48 41 3a 41 53 4c 20  |linelop PHA:ASL |
00001d40  41 3a 52 4f 4c 20 41 3a  52 4f 4c 20 41 3a 80 23  |A:ROL A:ROL A:.#|
00001d50  33 3a 42 45 51 62 6c 61  6e 63 68 3a 53 54 41 26  |3:BEQblanch:STA&|
00001d60  38 30 3a 4c 44 41 23 30  3a 2e 63 6f 6c 63 68 20  |80:LDA#0:.colch |
00001d70  43 4c 43 3a 41 44 43 63  6f 6c 3a 44 45 43 26 38  |CLC:ADCcol:DEC&8|
00001d80  30 3a 42 4e 45 63 6f 6c  63 68 3a 2e 62 6c 61 6e  |0:BNEcolch:.blan|
00001d90  63 68 20 53 54 41 26 38  30 3a 4c 44 41 28 26 37  |ch STA&80:LDA(&7|
00001da0  30 29 2c 59 3a 80 23 26  43 30 3a 84 41 26 38 30  |0),Y:.#&C0:.A&80|
00001db0  3a 53 54 41 28 26 37 30  29 2c 59 3a 54 59 41 3a  |:STA(&70),Y:TYA:|
00001dc0  43 4c 43 3a 41 44 43 23  38 3a 54 41 59 3a 43 4d  |CLC:ADC#8:TAY:CM|
00001dd0  50 23 26 32 30 3a 42 43  53 6e 65 77 6c 69 6e 0d  |P#&20:BCSnewlin.|
00001de0  02 b2 4d 50 4c 41 3a 41  53 4c 20 41 3a 41 53 4c  |..MPLA:ASL A:ASL|
00001df0  20 41 3a 4a 4d 50 6c 69  6e 65 6c 6f 70 3a 2e 6e  | A:JMPlinelop:.n|
00001e00  65 77 6c 69 6e 20 80 23  37 3a 54 41 59 3a 50 4c  |ewlin .#7:TAY:PL|
00001e10  41 3a 49 4e 59 3a 49 4e  58 3a 43 50 59 23 38 3a  |A:INY:INX:CPY#8:|
00001e20  42 4e 45 73 6c 69 6e 65  3a 52 54 53 0d 02 bc 80  |BNEsline:RTS....|
00001e30  2e 73 74 72 69 6e 67 20  4c 44 59 23 30 3a 4c 44  |.string LDY#0:LD|
00001e40  41 28 26 37 32 29 2c 59  3a 43 4d 50 23 26 46 46  |A(&72),Y:CMP#&FF|
00001e50  3a 42 45 51 73 74 72 65  6e 64 3a 4a 53 52 70 75  |:BEQstrend:JSRpu|
00001e60  74 63 68 3a 49 4e 43 78  63 68 3a 4c 44 41 26 37  |tch:INCxch:LDA&7|
00001e70  32 3a 43 4c 43 3a 41 44  43 23 31 3a 53 54 41 26  |2:CLC:ADC#1:STA&|
00001e80  37 32 3a 4c 44 41 26 37  33 3a 41 44 43 23 30 3a  |72:LDA&73:ADC#0:|
00001e90  53 54 41 26 37 33 3a 4a  4d 50 73 74 72 69 6e 67  |STA&73:JMPstring|
00001ea0  3a 2e 73 74 72 65 6e 64  20 52 54 53 0d 02 c6 7c  |:.strend RTS...||
00001eb0  2e 71 75 69 74 63 68 20  4c 44 41 23 26 38 31 3a  |.quitch LDA#&81:|
00001ec0  4c 44 58 23 26 38 46 3a  4c 44 59 23 26 46 46 3a  |LDX#&8F:LDY#&FF:|
00001ed0  4a 53 52 6f 73 62 79 74  65 3a 42 43 53 71 75 69  |JSRosbyte:BCSqui|
00001ee0  74 6f 6b 3a 52 54 53 3a  2e 71 75 69 74 6f 6b 20  |tok:RTS:.quitok |
00001ef0  50 4c 41 3a 50 4c 41 3a  4c 44 41 23 26 38 31 3a  |PLA:PLA:LDA#&81:|
00001f00  4c 44 58 23 26 46 46 3a  4c 44 59 23 26 46 46 3a  |LDX#&FF:LDY#&FF:|
00001f10  4a 53 52 6f 73 62 79 74  65 3a 42 43 43 7a 61 70  |JSRosbyte:BCCzap|
00001f20  3a 4a 4d 50 70 72 6f 67  0d 02 d0 6d 2e 7a 61 70  |:JMPprog...m.zap|
00001f30  20 4c 44 41 78 6f 6c 64  3a 53 54 41 78 70 6f 73  | LDAxold:STAxpos|
00001f40  3a 4c 44 41 79 6f 6c 64  3a 53 54 41 79 70 6f 73  |:LDAyold:STAypos|
00001f50  3a 4c 44 41 73 6f 75 6e  64 3a 42 45 51 6e 6f 7a  |:LDAsound:BEQnoz|
00001f60  61 70 73 3a 4c 44 41 23  37 3a 4c 44 58 23 28 7a  |aps:LDA#7:LDX#(z|
00001f70  61 70 6e 20 83 20 32 35  36 29 3a 4c 44 59 23 28  |apn . 256):LDY#(|
00001f80  7a 61 70 6e 20 81 20 32  35 36 29 3a 4a 53 52 6f  |zapn . 256):JSRo|
00001f90  73 77 6f 72 64 0d 02 da  5a 2e 6e 6f 7a 61 70 73  |sword...Z.nozaps|
00001fa0  20 4c 44 41 23 31 3a 53  54 41 70 6f 77 63 68 61  | LDA#1:STApowcha|
00001fb0  6e 67 65 3a 4c 44 41 70  6f 77 65 72 3a 53 45 43  |nge:LDApower:SEC|
00001fc0  3a 53 42 43 23 26 34 30  3a 53 54 41 70 6f 77 65  |:SBC#&40:STApowe|
00001fd0  72 3a 42 45 51 79 6f 75  64 69 65 3a 42 43 43 79  |r:BEQyoudie:BCCy|
00001fe0  6f 75 64 69 65 3a 4a 4d  50 6e 65 77 73 63 72 0d  |oudie:JMPnewscr.|
00001ff0  02 e4 1f 2e 79 6f 75 64  69 65 20 4a 53 52 67 61  |....youdie JSRga|
00002000  6d 65 6f 76 65 72 3a 4a  4d 50 70 72 6f 67 0d 02  |meover:JMPprog..|
00002010  ee 7f 2e 67 61 6d 65 6f  76 65 72 20 4c 44 41 23  |...gameover LDA#|
00002020  35 3a 53 54 41 78 63 68  3a 4c 44 41 23 31 36 3a  |5:STAxch:LDA#16:|
00002030  53 54 41 79 63 68 3a 4c  44 41 23 31 3a 53 54 41  |STAych:LDA#1:STA|
00002040  63 6f 6c 3a 4c 44 41 23  28 67 61 6d 64 65 61 64  |col:LDA#(gamdead|
00002050  20 83 20 32 35 36 29 3a  53 54 41 26 37 32 3a 4c  | . 256):STA&72:L|
00002060  44 41 23 28 67 61 6d 64  65 61 64 20 81 20 32 35  |DA#(gamdead . 25|
00002070  36 29 3a 53 54 41 26 37  33 3a 4a 53 52 73 74 72  |6):STA&73:JSRstr|
00002080  69 6e 67 3a 4c 44 41 23  30 3a 50 48 41 0d 02 f8  |ing:LDA#0:PHA...|
00002090  c8 2e 62 65 6c 6c 6f 70  20 4c 44 41 23 31 3a 4c  |..bellop LDA#1:L|
000020a0  44 58 23 26 37 30 3a 4c  44 59 23 30 3a 4a 53 52  |DX#&70:LDY#0:JSR|
000020b0  6f 73 77 6f 72 64 3a 4c  44 41 26 37 30 3a 43 4c  |osword:LDA&70:CL|
000020c0  43 3a 41 44 43 23 31 30  30 3a 53 54 41 26 38 30  |C:ADC#100:STA&80|
000020d0  3a 2e 62 65 6c 77 61 69  74 20 4c 44 41 23 31 3a  |:.belwait LDA#1:|
000020e0  4c 44 58 23 26 37 30 3a  4c 44 59 23 30 3a 4a 53  |LDX#&70:LDY#0:JS|
000020f0  52 6f 73 77 6f 72 64 3a  4c 44 41 26 37 30 3a 43  |Rosword:LDA&70:C|
00002100  4d 50 26 38 30 3a 42 4e  45 62 65 6c 77 61 69 74  |MP&80:BNEbelwait|
00002110  3a 4c 44 41 73 6f 75 6e  64 3a 42 45 51 6e 6f 62  |:LDAsound:BEQnob|
00002120  65 6c 6c 3a 4c 44 41 23  37 3a 4c 44 58 23 28 6f  |ell:LDA#7:LDX#(o|
00002130  76 65 72 20 83 20 32 35  36 29 3a 4c 44 59 23 28  |ver . 256):LDY#(|
00002140  6f 76 65 72 20 81 20 32  35 36 29 3a 4a 53 52 6f  |over . 256):JSRo|
00002150  73 77 6f 72 64 0d 03 02  35 2e 6e 6f 62 65 6c 6c  |sword...5.nobell|
00002160  20 50 4c 41 3a 43 4c 43  3a 41 44 43 23 31 3a 50  | PLA:CLC:ADC#1:P|
00002170  48 41 3a 43 4d 50 23 34  3a 42 4e 45 62 65 6c 6c  |HA:CMP#4:BNEbell|
00002180  6f 70 3a 50 4c 41 3a 52  54 53 0d 03 0c 4e 2e 67  |op:PLA:RTS...N.g|
00002190  61 6d 64 65 61 64 20 45  51 55 42 37 3a 45 51 55  |amdead EQUB7:EQU|
000021a0  42 31 3a 45 51 55 42 31  32 3a 45 51 55 42 35 3a  |B1:EQUB12:EQUB5:|
000021b0  45 51 55 42 30 3a 45 51  55 42 32 32 3a 45 51 55  |EQUB0:EQUB22:EQU|
000021c0  42 31 39 3a 45 51 55 42  35 3a 45 51 55 42 31 35  |B19:EQUB5:EQUB15|
000021d0  3a 45 51 55 42 32 35 35  0d 03 16 23 2e 6f 76 65  |:EQUB255...#.ove|
000021e0  72 20 45 51 55 57 31 3a  45 51 55 57 2d 31 35 3a  |r EQUW1:EQUW-15:|
000021f0  45 51 55 57 30 3a 45 51  55 57 35 0d 03 20 9b 2e  |EQUW0:EQUW5.. ..|
00002200  73 62 6f 61 72 64 20 4c  44 41 70 6f 77 63 68 61  |sboard LDApowcha|
00002210  6e 67 65 3a 42 45 51 6e  6f 70 6f 77 65 72 3a 4c  |nge:BEQnopower:L|
00002220  44 58 23 30 3a 2e 70 6f  77 6c 6f 70 20 4c 44 41  |DX#0:.powlop LDA|
00002230  26 37 43 37 30 2c 58 3a  80 23 26 43 30 3a 84 41  |&7C70,X:.#&C0:.A|
00002240  23 34 3a 53 54 41 26 37  43 37 30 2c 58 3a 49 4e  |#4:STA&7C70,X:IN|
00002250  58 3a 43 50 58 70 6f 77  65 72 3a 42 4e 45 70 6f  |X:CPXpower:BNEpo|
00002260  77 6c 6f 70 3a 2e 70 6f  77 6e 6f 6c 20 4c 44 41  |wlop:.pownol LDA|
00002270  26 37 43 37 30 2c 58 3a  80 23 26 43 30 3a 53 54  |&7C70,X:.#&C0:ST|
00002280  41 26 37 43 37 30 2c 58  3a 49 4e 58 3a 42 4e 45  |A&7C70,X:INX:BNE|
00002290  70 6f 77 6e 6f 6c 0d 03  2a 91 2e 6e 6f 70 6f 77  |pownol..*..nopow|
000022a0  65 72 20 4c 44 41 6f 62  63 68 3a 42 45 51 6e 6f  |er LDAobch:BEQno|
000022b0  6f 62 63 68 3a 4c 44 41  23 38 3a 53 54 41 78 63  |obch:LDA#8:STAxc|
000022c0  68 3a 4c 44 41 23 32 36  3a 53 54 41 79 63 68 3a  |h:LDA#26:STAych:|
000022d0  4c 44 41 6f 62 6a 65 63  74 73 3a 43 4d 50 23 26  |LDAobjects:CMP#&|
000022e0  32 30 3a 42 43 53 62 6c  61 6e 6b 6f 62 61 3a 54  |20:BCSblankoba:T|
000022f0  41 59 3a 4a 53 52 64 72  61 77 6f 70 3a 4a 4d 50  |AY:JSRdrawop:JMP|
00002300  73 65 63 6f 6e 64 6f 3a  2e 62 6c 61 6e 6b 6f 62  |secondo:.blankob|
00002310  61 20 4a 53 52 62 6c 61  6e 6b 6f 62 3a 4a 4d 50  |a JSRblankob:JMP|
00002320  73 65 63 6f 6e 64 6f 0d  03 34 5d 2e 62 6c 61 6e  |secondo..4].blan|
00002330  6b 6f 62 20 4c 44 41 23  30 3a 4a 53 52 70 75 74  |kob LDA#0:JSRput|
00002340  63 68 3a 49 4e 43 78 63  68 3a 4c 44 41 23 30 3a  |ch:INCxch:LDA#0:|
00002350  4a 53 52 70 75 74 63 68  3a 49 4e 43 79 63 68 3a  |JSRputch:INCych:|
00002360  4c 44 41 23 30 3a 4a 53  52 70 75 74 63 68 3a 44  |LDA#0:JSRputch:D|
00002370  45 43 78 63 68 3a 4c 44  41 23 30 3a 4a 4d 50 70  |ECxch:LDA#0:JMPp|
00002380  75 74 63 68 0d 03 3e 76  2e 73 65 63 6f 6e 64 6f  |utch..>v.secondo|
00002390  20 4c 44 41 23 31 30 3a  53 54 41 78 63 68 3a 4c  | LDA#10:STAxch:L|
000023a0  44 41 23 32 36 3a 53 54  41 79 63 68 3a 4c 44 41  |DA#26:STAych:LDA|
000023b0  6f 62 6a 65 63 74 73 2b  31 3a 43 4d 50 23 26 32  |objects+1:CMP#&2|
000023c0  30 3a 42 43 53 62 6c 61  6e 6b 6f 62 62 3a 54 41  |0:BCSblankobb:TA|
000023d0  59 3a 4a 53 52 64 72 61  77 6f 70 3a 4a 4d 50 6e  |Y:JSRdrawop:JMPn|
000023e0  6f 6f 62 63 68 3a 2e 62  6c 61 6e 6b 6f 62 62 20  |oobch:.blankobb |
000023f0  4a 53 52 62 6c 61 6e 6b  6f 62 0d 03 48 a7 2e 6e  |JSRblankob..H..n|
00002400  6f 6f 62 63 68 20 4c 44  41 23 30 3a 53 54 41 6f  |oobch LDA#0:STAo|
00002410  62 63 68 3a 53 54 41 70  6f 77 63 68 61 6e 67 65  |bch:STApowchange|
00002420  3a 4c 44 41 23 31 3a 4c  44 58 23 26 37 30 3a 4c  |:LDA#1:LDX#&70:L|
00002430  44 59 23 30 3a 4a 53 52  6f 73 77 6f 72 64 3a 4c  |DY#0:JSRosword:L|
00002440  44 41 26 37 30 3a 43 4c  43 3a 41 44 43 23 34 3a  |DA&70:CLC:ADC#4:|
00002450  53 54 41 26 38 30 3a 52  54 53 3a 2e 64 72 61 77  |STA&80:RTS:.draw|
00002460  6f 70 20 4c 44 41 78 63  68 3a 4c 53 52 20 41 3a  |op LDAxch:LSR A:|
00002470  53 54 41 78 73 65 74 3a  4c 44 41 79 63 68 3a 53  |STAxset:LDAych:S|
00002480  45 43 3a 53 42 43 23 32  3a 4c 53 52 20 41 3a 53  |EC:SBC#2:LSR A:S|
00002490  54 41 79 73 65 74 3a 4a  53 52 64 72 61 77 6f 62  |TAyset:JSRdrawob|
000024a0  6a 0d 03 52 a3 2e 6f 62  6a 65 63 74 68 20 4c 44  |j..R..objecth LD|
000024b0  59 23 30 3a 2e 6f 62 6c  6f 70 20 4c 44 41 26 46  |Y#0:.oblop LDA&F|
000024c0  41 30 2c 59 3a 53 54 41  26 46 32 30 2c 59 3a 4c  |A0,Y:STA&F20,Y:L|
000024d0  44 41 26 46 43 30 2c 59  3a 53 54 41 26 46 34 30  |DA&FC0,Y:STA&F40|
000024e0  2c 59 3a 4c 44 41 26 46  45 30 2c 59 3a 4c 53 52  |,Y:LDA&FE0,Y:LSR|
000024f0  20 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 4c  | A:LSR A:LSR A:L|
00002500  53 52 20 41 3a 80 23 31  35 3a 53 54 41 26 46 36  |SR A:.#15:STA&F6|
00002510  30 2c 59 3a 4c 44 41 26  46 45 30 2c 59 3a 80 23  |0,Y:LDA&FE0,Y:.#|
00002520  31 35 3a 53 54 41 26 46  38 30 2c 59 3a 49 4e 59  |15:STA&F80,Y:INY|
00002530  3a 43 50 59 23 33 32 3a  42 4e 45 6f 62 6c 6f 70  |:CPY#32:BNEoblop|
00002540  3a 52 54 53 0d 03 5c b2  2e 6f 62 6a 63 68 65 63  |:RTS..\..objchec|
00002550  6b 20 4c 44 59 23 30 3a  2e 6f 62 63 6c 6f 70 20  |k LDY#0:.obclop |
00002560  4c 44 41 26 46 32 30 2c  59 3a 43 4d 50 78 73 65  |LDA&F20,Y:CMPxse|
00002570  74 3a 42 4e 45 6e 6f 74  74 68 61 74 3a 4c 44 41  |t:BNEnotthat:LDA|
00002580  26 46 34 30 2c 59 3a 43  4d 50 79 73 65 74 3a 42  |&F40,Y:CMPyset:B|
00002590  4e 45 6e 6f 74 74 68 61  74 3a 4c 44 41 26 46 36  |NEnotthat:LDA&F6|
000025a0  30 2c 59 3a 43 4d 50 78  73 63 72 3a 42 4e 45 6e  |0,Y:CMPxscr:BNEn|
000025b0  6f 74 74 68 61 74 3a 4c  44 41 26 46 38 30 2c 59  |otthat:LDA&F80,Y|
000025c0  3a 43 4d 50 79 73 63 72  3a 42 45 51 20 64 72 61  |:CMPyscr:BEQ dra|
000025d0  77 6f 62 6a 3a 2e 6e 6f  74 74 68 61 74 20 49 4e  |wobj:.notthat IN|
000025e0  59 3a 43 50 59 23 33 32  3a 42 4e 45 6f 62 63 6c  |Y:CPY#32:BNEobcl|
000025f0  6f 70 3a 52 54 53 0d 03  66 70 2e 64 72 61 77 6f  |op:RTS..fp.drawo|
00002600  62 6a 20 50 4c 41 3a 50  4c 41 3a 4c 44 41 78 73  |bj PLA:PLA:LDAxs|
00002610  65 74 3a 41 53 4c 20 41  3a 53 54 41 78 63 68 3a  |et:ASL A:STAxch:|
00002620  4c 44 41 79 73 65 74 3a  43 4c 43 3a 41 44 43 23  |LDAyset:CLC:ADC#|
00002630  31 3a 41 53 4c 20 41 3a  53 54 41 79 63 68 3a 4c  |1:ASL A:STAych:L|
00002640  44 41 26 46 30 30 2c 59  3a 53 54 41 63 6f 6c 3a  |DA&F00,Y:STAcol:|
00002650  54 59 41 3a 43 4c 43 3a  41 44 43 23 26 45 30 3a  |TYA:CLC:ADC#&E0:|
00002660  53 54 41 26 37 46 0d 03  70 b1 4c 44 41 23 30 3a  |STA&7F..p.LDA#0:|
00002670  53 54 41 26 37 32 3a 4c  44 41 23 26 41 3a 53 54  |STA&72:LDA#&A:ST|
00002680  41 26 37 33 3a 4a 53 52  6f 62 6a 64 69 73 70 3a  |A&73:JSRobjdisp:|
00002690  49 4e 43 78 63 68 3a 49  4e 43 26 37 33 3a 4a 53  |INCxch:INC&73:JS|
000026a0  52 6f 62 6a 64 69 73 70  3a 49 4e 43 79 63 68 3a  |Robjdisp:INCych:|
000026b0  4c 44 41 23 26 45 3a 53  54 41 26 37 33 3a 4a 53  |LDA#&E:STA&73:JS|
000026c0  52 6f 62 6a 64 69 73 70  3a 44 45 43 78 63 68 3a  |Robjdisp:DECxch:|
000026d0  44 45 43 26 37 33 3a 4a  53 52 6f 62 6a 64 69 73  |DEC&73:JSRobjdis|
000026e0  70 3a 4c 44 59 23 38 3a  4c 44 41 23 30 3a 2e 63  |p:LDY#8:LDA#0:.c|
000026f0  6c 65 61 72 73 70 6f 62  20 53 54 41 26 42 46 46  |learspob STA&BFF|
00002700  2c 59 3a 44 45 59 3a 42  4e 45 63 6c 65 61 72 73  |,Y:DEY:BNEclears|
00002710  70 6f 62 3a 52 54 53 0d  03 7a 66 2e 6f 62 6a 64  |pob:RTS..zf.objd|
00002720  69 73 70 20 4c 44 59 26  37 46 3a 4c 44 58 23 38  |isp LDY&7F:LDX#8|
00002730  3a 2e 6f 62 6a 64 6c 6f  70 20 4c 44 41 28 26 37  |:.objdlop LDA(&7|
00002740  32 29 2c 59 3a 53 54 41  26 42 46 46 2c 58 3a 54  |2),Y:STA&BFF,X:T|
00002750  59 41 3a 53 45 43 3a 53  42 43 23 33 32 3a 54 41  |YA:SEC:SBC#32:TA|
00002760  59 3a 44 45 58 3a 42 4e  45 6f 62 6a 64 6c 6f 70  |Y:DEX:BNEobjdlop|
00002770  3a 54 58 41 3a 4a 4d 50  70 75 74 63 68 0d 03 84  |:TXA:JMPputch...|
00002780  56 2e 67 65 74 6f 70 75  74 20 4c 44 41 23 26 38  |V.getoput LDA#&8|
00002790  31 3a 4c 44 58 23 26 39  44 3a 4c 44 59 23 26 46  |1:LDX#&9D:LDY#&F|
000027a0  46 3a 4a 53 52 6f 73 62  79 74 65 3a 42 43 53 70  |F:JSRosbyte:BCSp|
000027b0  69 63 6b 75 70 3a 4c 44  41 23 30 3a 53 54 41 67  |ickup:LDA#0:STAg|
000027c0  65 74 73 74 61 74 3a 2e  6b 65 79 68 61 6e 67 20  |etstat:.keyhang |
000027d0  52 54 53 0d 03 8e e1 2e  70 69 63 6b 75 70 20 4c  |RTS.....pickup L|
000027e0  44 41 67 65 74 73 74 61  74 3a 42 4e 45 6b 65 79  |DAgetstat:BNEkey|
000027f0  68 61 6e 67 3a 4c 44 41  73 6f 75 6e 64 3a 42 45  |hang:LDAsound:BE|
00002800  51 6e 6f 67 70 3a 4c 44  41 23 37 3a 4c 44 58 23  |Qnogp:LDA#7:LDX#|
00002810  28 73 77 69 74 6e 20 83  20 32 35 36 29 3a 4c 44  |(switn . 256):LD|
00002820  59 23 28 73 77 69 74 6e  20 81 20 32 35 36 29 3a  |Y#(switn . 256):|
00002830  4a 53 52 6f 73 77 6f 72  64 3a 2e 6e 6f 67 70 20  |JSRosword:.nogp |
00002840  4c 44 41 6f 62 6a 65 63  74 73 2b 31 3a 43 4d 50  |LDAobjects+1:CMP|
00002850  23 26 32 30 3a 42 43 53  6e 6f 70 75 74 64 6f 77  |#&20:BCSnoputdow|
00002860  6e 3a 54 41 59 3a 4c 44  41 78 73 63 72 3a 53 54  |n:TAY:LDAxscr:ST|
00002870  41 26 46 36 30 2c 59 3a  4c 44 41 79 73 63 72 3a  |A&F60,Y:LDAyscr:|
00002880  53 54 41 26 46 38 30 2c  59 3a 4c 44 41 78 70 6f  |STA&F80,Y:LDAxpo|
00002890  73 3a 53 54 41 26 46 32  30 2c 59 3a 4c 44 41 79  |s:STA&F20,Y:LDAy|
000028a0  70 6f 73 3a 53 54 41 26  46 34 30 2c 59 3a 53 54  |pos:STA&F40,Y:ST|
000028b0  59 26 37 30 0d 03 98 e9  2e 6e 6f 70 75 74 64 6f  |Y&70.....noputdo|
000028c0  77 6e 20 4c 44 41 6f 62  6a 65 63 74 73 3a 53 54  |wn LDAobjects:ST|
000028d0  41 6f 62 6a 65 63 74 73  2b 31 3a 4c 44 59 23 30  |Aobjects+1:LDY#0|
000028e0  3a 2e 6f 62 67 6c 6f 70  20 4c 44 41 26 46 32 30  |:.obglop LDA&F20|
000028f0  2c 59 3a 43 50 59 26 37  30 3a 42 45 51 6e 6f 74  |,Y:CPY&70:BEQnot|
00002900  67 6f 74 3a 43 4d 50 78  70 6f 73 3a 42 4e 45 6e  |got:CMPxpos:BNEn|
00002910  6f 74 67 6f 74 3a 4c 44  41 26 46 34 30 2c 59 3a  |otgot:LDA&F40,Y:|
00002920  43 4d 50 79 70 6f 73 3a  42 4e 45 6e 6f 74 67 6f  |CMPypos:BNEnotgo|
00002930  74 3a 4c 44 41 26 46 36  30 2c 59 3a 43 4d 50 78  |t:LDA&F60,Y:CMPx|
00002940  73 63 72 3a 42 4e 45 6e  6f 74 67 6f 74 3a 4c 44  |scr:BNEnotgot:LD|
00002950  41 26 46 38 30 2c 59 3a  43 4d 50 79 73 63 72 3a  |A&F80,Y:CMPyscr:|
00002960  42 45 51 67 65 74 74 6f  62 6a 3a 2e 6e 6f 74 67  |BEQgettobj:.notg|
00002970  6f 74 20 49 4e 59 3a 43  50 59 23 33 32 3a 42 4e  |ot INY:CPY#32:BN|
00002980  45 6f 62 67 6c 6f 70 3a  53 54 59 6f 62 6a 65 63  |Eobglop:STYobjec|
00002990  74 73 3a 4a 4d 50 6e 6f  67 65 74 6f 62 0d 03 a2  |ts:JMPnogetob...|
000029a0  2a 2e 67 65 74 74 6f 62  6a 20 53 54 59 20 6f 62  |*.gettobj STY ob|
000029b0  6a 65 63 74 73 3a 4c 44  41 23 26 46 46 3a 53 54  |jects:LDA#&FF:ST|
000029c0  41 26 46 32 30 2c 59 0d  03 ac 6e 2e 6e 6f 67 65  |A&F20,Y...n.noge|
000029d0  74 6f 62 20 4c 44 41 78  70 6f 73 3a 53 54 41 78  |tob LDAxpos:STAx|
000029e0  73 65 74 3a 4c 44 41 79  70 6f 73 3a 53 54 41 79  |set:LDAypos:STAy|
000029f0  73 65 74 3a 4a 53 52 62  6c 6f 63 6b 6f 6e 3a 4c  |set:JSRblockon:L|
00002a00  44 41 23 30 3a 53 54 41  77 69 70 65 72 3a 4c 44  |DA#0:STAwiper:LD|
00002a10  41 23 31 3a 53 54 41 63  68 61 6e 67 65 64 3a 53  |A#1:STAchanged:S|
00002a20  54 41 6f 62 63 68 3a 53  54 41 67 65 74 73 74 61  |TAobch:STAgetsta|
00002a30  74 3a 52 54 53 0d 03 b6  db 2e 74 69 74 6c 65 20  |t:RTS.....title |
00002a40  4a 53 52 62 6c 61 73 63  72 3a 4c 44 41 23 26 31  |JSRblascr:LDA#&1|
00002a50  35 3a 53 54 41 63 6f 6c  3a 4c 44 41 23 34 3a 53  |5:STAcol:LDA#4:S|
00002a60  54 41 78 63 68 3a 4c 44  41 23 35 3a 53 54 41 79  |TAxch:LDA#5:STAy|
00002a70  63 68 3a 4c 44 41 23 28  6e 61 6d 65 20 83 20 32  |ch:LDA#(name . 2|
00002a80  35 36 29 3a 53 54 41 26  37 32 3a 4c 44 41 23 28  |56):STA&72:LDA#(|
00002a90  6e 61 6d 65 20 81 20 32  35 36 29 3a 53 54 41 26  |name . 256):STA&|
00002aa0  37 33 3a 4a 53 52 73 74  72 69 6e 67 3a 4c 44 41  |73:JSRstring:LDA|
00002ab0  23 31 3a 53 54 41 63 6f  6c 3a 4c 44 41 23 33 3a  |#1:STAcol:LDA#3:|
00002ac0  53 54 41 78 63 68 3a 4c  44 41 23 31 36 3a 53 54  |STAxch:LDA#16:ST|
00002ad0  41 79 63 68 3a 4c 44 41  23 28 63 72 65 64 61 20  |Aych:LDA#(creda |
00002ae0  83 20 32 35 36 29 3a 53  54 41 26 37 32 3a 4c 44  |. 256):STA&72:LD|
00002af0  41 23 28 63 72 65 64 61  20 81 20 32 35 36 29 3a  |A#(creda . 256):|
00002b00  53 54 41 26 37 33 3a 4a  53 52 73 74 72 69 6e 67  |STA&73:JSRstring|
00002b10  0d 03 c0 b1 4c 44 41 23  34 3a 53 54 41 78 63 68  |....LDA#4:STAxch|
00002b20  3a 4c 44 41 23 31 38 3a  53 54 41 79 63 68 3a 4c  |:LDA#18:STAych:L|
00002b30  44 41 23 28 63 72 65 64  62 20 83 20 32 35 36 29  |DA#(credb . 256)|
00002b40  3a 53 54 41 26 37 32 3a  4c 44 41 23 28 63 72 65  |:STA&72:LDA#(cre|
00002b50  64 62 20 81 20 32 35 36  29 3a 53 54 41 26 37 33  |db . 256):STA&73|
00002b60  3a 4a 53 52 73 74 72 69  6e 67 3a 4c 44 41 23 34  |:JSRstring:LDA#4|
00002b70  3a 53 54 41 78 63 68 3a  4c 44 41 23 32 30 3a 53  |:STAxch:LDA#20:S|
00002b80  54 41 79 63 68 3a 4c 44  41 23 28 63 72 65 64 63  |TAych:LDA#(credc|
00002b90  20 83 20 32 35 36 29 3a  53 54 41 26 37 32 3a 4c  | . 256):STA&72:L|
00002ba0  44 41 23 28 63 72 65 64  63 20 81 20 32 35 36 29  |DA#(credc . 256)|
00002bb0  3a 53 54 41 26 37 33 3a  4a 53 52 73 74 72 69 6e  |:STA&73:JSRstrin|
00002bc0  67 0d 03 ca b1 4c 44 41  23 38 3a 53 54 41 78 63  |g....LDA#8:STAxc|
00002bd0  68 3a 4c 44 41 23 32 32  3a 53 54 41 79 63 68 3a  |h:LDA#22:STAych:|
00002be0  4c 44 41 23 28 63 72 65  64 64 20 83 20 32 35 36  |LDA#(credd . 256|
00002bf0  29 3a 53 54 41 26 37 32  3a 4c 44 41 23 28 63 72  |):STA&72:LDA#(cr|
00002c00  65 64 64 20 81 20 32 35  36 29 3a 53 54 41 26 37  |edd . 256):STA&7|
00002c10  33 3a 4a 53 52 73 74 72  69 6e 67 3a 4c 44 41 23  |3:JSRstring:LDA#|
00002c20  30 3a 53 54 41 78 63 68  3a 4c 44 41 23 33 30 3a  |0:STAxch:LDA#30:|
00002c30  53 54 41 79 63 68 3a 4c  44 41 23 28 73 70 61 63  |STAych:LDA#(spac|
00002c40  65 20 83 20 32 35 36 29  3a 53 54 41 26 37 32 3a  |e . 256):STA&72:|
00002c50  4c 44 41 23 28 73 70 61  63 65 20 81 20 32 35 36  |LDA#(space . 256|
00002c60  29 3a 53 54 41 26 37 33  3a 4a 53 52 73 74 72 69  |):STA&73:JSRstri|
00002c70  6e 67 0d 03 d4 af 2e 73  6f 75 6e 64 70 72 20 4c  |ng.....soundpr L|
00002c80  44 41 23 36 3a 53 54 41  78 63 68 3a 4c 44 41 23  |DA#6:STAxch:LDA#|
00002c90  32 36 3a 53 54 41 79 63  68 3a 4c 44 41 23 34 3a  |26:STAych:LDA#4:|
00002ca0  53 54 41 63 6f 6c 3a 4c  44 41 23 28 73 6e 64 6f  |STAcol:LDA#(sndo|
00002cb0  66 66 20 83 20 32 35 36  29 3a 53 54 41 26 37 32  |ff . 256):STA&72|
00002cc0  3a 4c 44 41 23 28 73 6e  64 6f 66 66 20 81 20 32  |:LDA#(sndoff . 2|
00002cd0  35 36 29 3a 53 54 41 26  37 33 3a 4c 44 41 73 6f  |56):STA&73:LDAso|
00002ce0  75 6e 64 3a 42 45 51 73  6f 75 6e 64 73 65 74 3a  |und:BEQsoundset:|
00002cf0  4c 44 41 23 28 73 6e 64  6f 6e 20 83 20 32 35 36  |LDA#(sndon . 256|
00002d00  29 3a 53 54 41 26 37 32  3a 4c 44 41 23 28 73 6e  |):STA&72:LDA#(sn|
00002d10  64 6f 6e 20 81 20 32 35  36 29 3a 53 54 41 26 37  |don . 256):STA&7|
00002d20  33 0d 03 de 49 2e 73 6f  75 6e 64 73 65 74 20 4a  |3...I.soundset J|
00002d30  53 52 73 74 72 69 6e 67  3a 2e 73 73 74 6f 70 20  |SRstring:.sstop |
00002d40  4c 44 41 23 26 38 31 3a  4c 44 58 23 26 41 45 3a  |LDA#&81:LDX#&AE:|
00002d50  4c 44 59 23 26 46 46 3a  4a 53 52 6f 73 62 79 74  |LDY#&FF:JSRosbyt|
00002d60  65 3a 42 43 53 73 73 74  6f 70 0d 03 e8 69 2e 73  |e:BCSsstop...i.s|
00002d70  70 61 63 77 61 69 74 20  4c 44 41 23 26 38 31 3a  |pacwait LDA#&81:|
00002d80  4c 44 58 23 26 41 45 3a  4c 44 59 23 26 46 46 3a  |LDX#&AE:LDY#&FF:|
00002d90  4a 53 52 6f 73 62 79 74  65 3a 42 43 53 73 65 6f  |JSRosbyte:BCSseo|
00002da0  72 3a 4c 44 41 23 26 38  31 3a 4c 44 58 23 26 39  |r:LDA#&81:LDX#&9|
00002db0  44 3a 4c 44 59 23 26 46  46 3a 4a 53 52 6f 73 62  |D:LDY#&FF:JSRosb|
00002dc0  79 74 65 3a 42 43 43 73  70 61 63 77 61 69 74 3a  |yte:BCCspacwait:|
00002dd0  52 54 53 0d 03 f2 2a 2e  73 65 6f 72 20 4c 44 41  |RTS...*.seor LDA|
00002de0  73 6f 75 6e 64 3a 82 23  31 3a 53 54 41 73 6f 75  |sound:.#1:STAsou|
00002df0  6e 64 3a 4a 4d 50 73 6f  75 6e 64 70 72 0d 03 fc  |nd:JMPsoundpr...|
00002e00  6d 2e 63 72 65 64 61 20  45 51 55 42 31 34 3a 45  |m.creda EQUB14:E|
00002e10  51 55 42 31 35 3a 45 51  55 42 32 32 3a 45 51 55  |QUB15:EQUB22:EQU|
00002e20  42 37 3a 45 51 55 42 31  35 3a 45 51 55 42 31 3a  |B7:EQUB15:EQUB1:|
00002e30  45 51 55 42 31 32 3a 45  51 55 42 31 32 3a 45 51  |EQUB12:EQUB12:EQ|
00002e40  55 42 35 3a 45 51 55 42  34 3a 45 51 55 42 30 3a  |UB5:EQUB4:EQUB0:|
00002e50  45 51 55 42 31 3a 45 51  55 42 31 33 3a 45 51 55  |EQUB1:EQUB13:EQU|
00002e60  42 34 3a 45 51 55 42 32  35 35 0d 04 06 58 2e 63  |B4:EQUB255...X.c|
00002e70  72 65 64 62 20 45 51 55  42 34 3a 45 51 55 42 35  |redb EQUB4:EQUB5|
00002e80  3a 45 51 55 42 31 36 3a  45 51 55 42 32 33 3a 45  |:EQUB16:EQUB23:E|
00002e90  51 55 42 37 3a 45 51 55  42 31 33 3a 45 51 55 42  |QUB7:EQUB13:EQUB|
00002ea0  35 3a 45 51 55 42 34 3a  45 51 55 42 30 3a 45 51  |5:EQUB4:EQUB0:EQ|
00002eb0  55 42 32 3a 45 51 55 42  32 31 3a 45 51 55 42 32  |UB2:EQUB21:EQUB2|
00002ec0  35 35 0d 04 10 61 2e 63  72 65 64 63 20 45 51 55  |55...a.credc EQU|
00002ed0  42 34 3a 45 51 55 42 32  32 3a 45 51 55 42 31 32  |B4:EQUB22:EQUB12|
00002ee0  3a 45 51 55 42 32 33 3a  45 51 55 42 31 33 3a 45  |:EQUB23:EQUB13:E|
00002ef0  51 55 42 32 33 3a 45 51  55 42 33 3a 45 51 55 42  |QUB23:EQUB3:EQUB|
00002f00  30 3a 45 51 55 42 36 3a  45 51 55 42 32 32 3a 45  |0:EQUB6:EQUB22:E|
00002f10  51 55 42 31 35 3a 45 51  55 42 34 3a 45 51 55 42  |QUB15:EQUB4:EQUB|
00002f20  32 35 35 0d 04 1a 2e 2e  63 72 65 64 64 20 45 51  |255.....credd EQ|
00002f30  55 42 32 33 3a 45 51 55  42 33 31 3a 45 51 55 42  |UB23:EQUB31:EQUB|
00002f40  33 31 3a 45 51 55 42 32  38 3a 45 51 55 42 32 35  |31:EQUB28:EQUB25|
00002f50  35 0d 04 24 c9 2e 73 62  61 72 20 45 51 55 42 31  |5..$..sbar EQUB1|
00002f60  38 3a 45 51 55 42 31 3a  45 51 55 42 34 3a 45 51  |8:EQUB1:EQUB4:EQ|
00002f70  55 42 32 35 3a 45 51 55  42 34 3a 45 51 55 57 30  |UB25:EQUB4:EQUW0|
00002f80  3a 45 51 55 57 32 35 32  3a 45 51 55 42 32 35 3a  |:EQUW252:EQUB25:|
00002f90  45 51 55 42 34 3a 45 51  55 57 35 37 36 3a 45 51  |EQUB4:EQUW576:EQ|
00002fa0  55 57 32 35 32 3a 45 51  55 42 32 35 3a 45 51 55  |UW252:EQUB25:EQU|
00002fb0  42 38 35 3a 45 51 55 57  32 38 38 3a 45 51 55 57  |B85:EQUW288:EQUW|
00002fc0  39 36 3a 45 51 55 42 32  35 3a 45 51 55 42 34 3a  |96:EQUB25:EQUB4:|
00002fd0  45 51 55 57 37 30 34 3a  45 51 55 57 32 35 32 3a  |EQUW704:EQUW252:|
00002fe0  45 51 55 42 32 35 3a 45  51 55 42 34 3a 45 51 55  |EQUB25:EQUB4:EQU|
00002ff0  57 31 32 38 30 3a 45 51  55 57 32 35 32 3a 45 51  |W1280:EQUW252:EQ|
00003000  55 42 32 35 3a 45 51 55  42 38 35 3a 45 51 55 57  |UB25:EQUB85:EQUW|
00003010  39 39 32 3a 45 51 55 57  39 36 0d 04 2e 59 45 51  |992:EQUW96...YEQ|
00003020  55 42 32 35 3a 45 51 55  42 34 3a 45 51 55 57 33  |UB25:EQUB4:EQUW3|
00003030  38 34 3a 45 51 55 57 39  36 3a 45 51 55 42 32 35  |84:EQUW96:EQUB25|
00003040  3a 45 51 55 42 34 3a 45  51 55 57 38 39 36 3a 45  |:EQUB4:EQUW896:E|
00003050  51 55 57 39 36 3a 45 51  55 42 32 35 3a 45 51 55  |QUW96:EQUB25:EQU|
00003060  42 38 35 3a 45 51 55 57  36 34 30 3a 45 51 55 57  |B85:EQUW640:EQUW|
00003070  32 35 32 0d 04 38 c6 45  51 55 42 31 38 3a 45 51  |252..8.EQUB18:EQ|
00003080  55 42 33 3a 45 51 55 42  34 3a 45 51 55 42 32 35  |UB3:EQUB4:EQUB25|
00003090  3a 45 51 55 42 34 3a 45  51 55 57 39 36 3a 45 51  |:EQUB4:EQUW96:EQ|
000030a0  55 57 32 32 34 3a 45 51  55 42 32 35 3a 45 51 55  |UW224:EQUB25:EQU|
000030b0  42 34 3a 45 51 55 57 34  38 30 3a 45 51 55 57 32  |B4:EQUW480:EQUW2|
000030c0  32 34 3a 45 51 55 42 32  35 3a 45 51 55 42 38 35  |24:EQUB25:EQUB85|
000030d0  3a 45 51 55 57 32 38 38  3a 45 51 55 57 31 32 38  |:EQUW288:EQUW128|
000030e0  3a 45 51 55 42 32 35 3a  45 51 55 42 34 3a 45 51  |:EQUB25:EQUB4:EQ|
000030f0  55 57 38 30 30 3a 45 51  55 57 32 32 34 3a 45 51  |UW800:EQUW224:EQ|
00003100  55 42 32 35 3a 45 51 55  42 34 3a 45 51 55 57 31  |UB25:EQUB4:EQUW1|
00003110  31 38 34 3a 45 51 55 57  32 32 34 3a 45 51 55 42  |184:EQUW224:EQUB|
00003120  32 35 3a 45 51 55 42 38  35 3a 45 51 55 57 39 39  |25:EQUB85:EQUW99|
00003130  32 3a 45 51 55 57 31 32  38 0d 04 42 86 45 51 55  |2:EQUW128..B.EQU|
00003140  42 31 38 3a 45 51 55 42  31 3a 45 51 55 42 31 3a  |B18:EQUB1:EQUB1:|
00003150  45 51 55 42 32 35 3a 45  51 55 42 34 3a 45 51 55  |EQUB25:EQUB4:EQU|
00003160  57 31 32 38 3a 45 51 55  57 39 32 3a 45 51 55 42  |W128:EQUW92:EQUB|
00003170  32 35 3a 45 51 55 42 34  3a 45 51 55 57 34 34 38  |25:EQUB4:EQUW448|
00003180  3a 45 51 55 57 39 32 3a  45 51 55 42 32 35 3a 45  |:EQUW92:EQUB25:E|
00003190  51 55 42 38 35 3a 45 51  55 57 31 32 38 3a 45 51  |QUB85:EQUW128:EQ|
000031a0  55 57 30 3a 45 51 55 42  32 35 3a 45 51 55 42 38  |UW0:EQUB25:EQUB8|
000031b0  35 3a 45 51 55 57 34 34  38 3a 45 51 55 57 30 0d  |5:EQUW448:EQUW0.|
000031c0  04 4c 75 45 51 55 42 32  35 3a 45 51 55 42 34 3a  |.LuEQUB25:EQUB4:|
000031d0  45 51 55 57 37 30 34 3a  45 51 55 57 39 32 3a 45  |EQUW704:EQUW92:E|
000031e0  51 55 42 32 35 3a 45 51  55 42 34 3a 45 51 55 57  |QUB25:EQUB4:EQUW|
000031f0  31 32 38 30 3a 45 51 55  57 39 32 3a 45 51 55 42  |1280:EQUW92:EQUB|
00003200  32 35 3a 45 51 55 42 38  35 3a 45 51 55 57 37 30  |25:EQUB85:EQUW70|
00003210  34 3a 45 51 55 57 30 3a  45 51 55 42 32 35 3a 45  |4:EQUW0:EQUB25:E|
00003220  51 55 42 38 35 3a 45 51  55 57 31 32 38 30 3a 45  |QUB85:EQUW1280:E|
00003230  51 55 57 30 0d 04 56 0b  45 51 55 42 26 46 46 0d  |QUW0..V.EQUB&FF.|
00003240  04 60 20 5d 3a 50 25 3d  26 34 30 30 3a 4f 25 3d  |.` ]:P%=&400:O%=|
00003250  26 35 34 30 30 3a 5b 4f  50 54 20 70 61 73 73 0d  |&5400:[OPT pass.|
00003260  04 6a 4e 2e 73 6e 64 6f  6e 20 45 51 55 42 31 36  |.jN.sndon EQUB16|
00003270  3a 45 51 55 42 32 32 3a  45 51 55 42 31 38 3a 45  |:EQUB22:EQUB18:E|
00003280  51 55 42 31 33 3a 45 51  55 42 34 3a 45 51 55 42  |QUB13:EQUB4:EQUB|
00003290  30 3a 45 51 55 42 32 32  3a 45 51 55 42 31 33 3a  |0:EQUB22:EQUB13:|
000032a0  45 51 55 42 30 3a 45 51  55 42 32 35 35 0d 04 74  |EQUB0:EQUB255..t|
000032b0  54 2e 73 6e 64 6f 66 66  20 45 51 55 42 31 36 3a  |T.sndoff EQUB16:|
000032c0  45 51 55 42 32 32 3a 45  51 55 42 31 38 3a 45 51  |EQUB22:EQUB18:EQ|
000032d0  55 42 31 33 3a 45 51 55  42 34 3a 45 51 55 42 30  |UB13:EQUB4:EQUB0|
000032e0  3a 45 51 55 42 32 32 3a  45 51 55 42 36 3a 45 51  |:EQUB22:EQUB6:EQ|
000032f0  55 42 36 3a 45 51 55 42  30 3a 45 51 55 42 32 35  |UB6:EQUB0:EQUB25|
00003300  35 0d 04 7e 96 2e 73 70  61 63 65 20 45 51 55 42  |5..~..space EQUB|
00003310  31 34 3a 45 51 55 42 31  35 3a 45 51 55 42 35 3a  |14:EQUB15:EQUB5:|
00003320  45 51 55 42 31 36 3a 45  51 55 42 31 36 3a 45 51  |EQUB16:EQUB16:EQ|
00003330  55 42 30 3a 45 51 55 42  31 36 3a 45 51 55 42 31  |UB0:EQUB16:EQUB1|
00003340  34 3a 45 51 55 42 31 3a  45 51 55 42 33 3a 45 51  |4:EQUB1:EQUB3:EQ|
00003350  55 42 35 3a 45 51 55 42  30 3a 45 51 55 42 31 37  |UB5:EQUB0:EQUB17|
00003360  3a 45 51 55 42 32 32 3a  45 51 55 42 30 3a 45 51  |:EQUB22:EQUB0:EQ|
00003370  55 42 31 36 3a 45 51 55  42 31 37 3a 45 51 55 42  |UB16:EQUB17:EQUB|
00003380  31 3a 45 51 55 42 31 35  3a 45 51 55 42 31 37 3a  |1:EQUB15:EQUB17:|
00003390  45 51 55 42 32 35 35 0d  04 88 5f 2e 6e 61 6d 65  |EQUB255..._.name|
000033a0  20 45 51 55 42 31 36 3a  45 51 55 42 38 3a 45 51  | EQUB16:EQUB8:EQ|
000033b0  55 42 32 33 3a 45 51 55  42 31 34 3a 45 51 55 42  |UB23:EQUB14:EQUB|
000033c0  30 3a 45 51 55 42 32 30  3a 45 51 55 42 31 35 3a  |0:EQUB20:EQUB15:|
000033d0  45 51 55 42 35 3a 45 51  55 42 33 3a 45 51 55 42  |EQUB5:EQUB3:EQUB|
000033e0  31 30 3a 45 51 55 42 35  3a 45 51 55 42 34 3a 45  |10:EQUB5:EQUB4:E|
000033f0  51 55 42 32 35 35 0d 04  92 e1 2e 64 6f 6f 72 63  |QUB255.....doorc|
00003400  68 20 50 48 41 3a 43 4d  50 23 33 30 3a 42 4e 45  |h PHA:CMP#30:BNE|
00003410  6e 6f 64 6f 72 3a 4c 44  41 23 26 38 31 3a 4c 44  |nodor:LDA#&81:LD|
00003420  58 23 26 43 38 3a 4c 44  59 23 26 46 46 3a 4a 53  |X#&C8:LDY#&FF:JS|
00003430  52 6f 73 62 79 74 65 3a  42 43 43 6e 6f 64 6f 72  |Rosbyte:BCCnodor|
00003440  3a 4c 44 41 79 73 63 72  3a 41 53 4c 20 41 3a 41  |:LDAyscr:ASL A:A|
00003450  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00003460  3a 43 4c 43 3a 41 44 43  78 73 63 72 3a 41 44 43  |:CLC:ADCxscr:ADC|
00003470  23 26 33 30 3a 4a 53 52  61 64 6f 66 63 6f 6c 3a  |#&30:JSRadofcol:|
00003480  53 45 43 3a 53 42 43 23  31 3a 43 4d 50 6f 62 6a  |SEC:SBC#1:CMPobj|
00003490  65 63 74 73 3a 42 45 51  64 6f 6f 72 3a 43 4d 50  |ects:BEQdoor:CMP|
000034a0  6f 62 6a 65 63 74 73 2b  31 3a 42 4e 45 6e 6f 64  |objects+1:BNEnod|
000034b0  6f 72 3a 2e 64 6f 6f 72  20 50 4c 41 3a 53 45 43  |or:.door PLA:SEC|
000034c0  3a 52 54 53 3a 2e 6e 6f  64 6f 72 20 50 4c 41 3a  |:RTS:.nodor PLA:|
000034d0  43 4c 43 3a 52 54 53 0d  04 9c 32 2e 6c 6f 63 6b  |CLC:RTS...2.lock|
000034e0  74 79 70 65 20 4c 53 52  20 41 3a 52 4f 52 20 41  |type LSR A:ROR A|
000034f0  3a 52 4f 52 20 41 3a 80  23 26 43 30 3a 53 54 41  |:ROR A:.#&C0:STA|
00003500  26 37 32 3a 4c 44 59 23  30 0d 04 a6 99 2e 74 72  |&72:LDY#0.....tr|
00003510  61 6e 73 74 6f 70 20 4c  44 41 28 26 37 30 29 2c  |anstop LDA(&70),|
00003520  59 3a 80 23 26 43 30 3a  4a 53 52 63 6f 6c 62 79  |Y:.#&C0:JSRcolby|
00003530  74 3a 53 54 41 28 26 37  30 29 2c 59 3a 49 4e 59  |t:STA(&70),Y:INY|
00003540  3a 43 50 59 23 26 34 30  3a 42 4e 45 74 72 61 6e  |:CPY#&40:BNEtran|
00003550  73 74 6f 70 3a 4c 44 59  23 30 3a 4c 44 41 26 37  |stop:LDY#0:LDA&7|
00003560  32 3a 43 4c 43 3a 41 44  43 23 26 34 30 3a 53 54  |2:CLC:ADC#&40:ST|
00003570  41 26 37 32 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |A&72:LDA&70:CLC:|
00003580  41 44 43 23 26 38 30 3a  53 54 41 26 37 30 3a 4c  |ADC#&80:STA&70:L|
00003590  44 41 26 37 31 3a 41 44  43 23 32 3a 53 54 41 26  |DA&71:ADC#2:STA&|
000035a0  37 31 0d 04 b0 4f 2e 74  72 61 6e 73 62 6f 74 20  |71...O.transbot |
000035b0  4c 44 41 28 26 37 30 29  2c 59 3a 80 23 26 43 30  |LDA(&70),Y:.#&C0|
000035c0  3a 4a 53 52 63 6f 6c 62  79 74 3a 53 54 41 28 26  |:JSRcolbyt:STA(&|
000035d0  37 30 29 2c 59 3a 49 4e  59 3a 43 50 59 23 26 34  |70),Y:INY:CPY#&4|
000035e0  30 3a 42 4e 45 74 72 61  6e 73 62 6f 74 3a 52 54  |0:BNEtransbot:RT|
000035f0  53 0d 04 ba 65 2e 63 6f  6c 62 79 74 20 50 48 41  |S...e.colbyt PHA|
00003600  3a 4c 44 41 73 63 72 6e  6f 3a 4a 53 52 61 64 6f  |:LDAscrno:JSRado|
00003610  66 63 6f 6c 3a 54 41 58  3a 4c 44 41 64 6f 6f 72  |fcol:TAX:LDAdoor|
00003620  63 2c 58 3a 54 41 58 3a  50 4c 41 3a 2e 63 6f 6c  |c,X:TAX:PLA:.col|
00003630  62 6c 6f 70 20 43 4c 43  3a 41 44 43 28 26 37 32  |blop CLC:ADC(&72|
00003640  29 2c 59 3a 44 45 58 3a  42 4e 45 63 6f 6c 62 6c  |),Y:DEX:BNEcolbl|
00003650  6f 70 3a 52 54 53 0d 04  c4 5a 2e 61 64 6f 66 63  |op:RTS...Z.adofc|
00003660  6f 6c 20 53 54 41 72 65  61 64 63 6c 6c 2b 32 3a  |ol STAreadcll+2:|
00003670  53 54 41 72 65 61 64 63  6c 68 2b 32 3a 2e 72 65  |STAreadclh+2:.re|
00003680  61 64 63 6c 6c 20 4c 44  41 26 31 30 46 45 3a 4c  |adcll LDA&10FE:L|
00003690  53 52 20 41 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |SR A:LSR A:LSR A|
000036a0  3a 4c 53 52 20 41 3a 53  54 41 73 6d 61 64 2b 31  |:LSR A:STAsmad+1|
000036b0  0d 04 ce 3f 2e 72 65 61  64 63 6c 68 20 4c 44 41  |...?.readclh LDA|
000036c0  26 31 30 46 46 3a 41 53  4c 20 41 3a 52 4f 4c 20  |&10FF:ASL A:ROL |
000036d0  41 3a 52 4f 4c 20 41 3a  43 4c 43 3a 2e 73 6d 61  |A:ROL A:CLC:.sma|
000036e0  64 20 41 44 43 23 30 3a  80 23 37 3a 52 54 53 0d  |d ADC#0:.#7:RTS.|
000036f0  04 d8 20 5d 3a 50 25 3d  26 31 30 30 3a 4f 25 3d  |.. ]:P%=&100:O%=|
00003700  26 36 38 30 30 3a 5b 4f  50 54 20 70 61 73 73 0d  |&6800:[OPT pass.|
00003710  04 e2 63 2e 6a 75 6d 70  6e 20 45 51 55 57 31 3a  |..c.jumpn EQUW1:|
00003720  45 51 55 57 31 3a 45 51  55 57 35 32 3a 45 51 55  |EQUW1:EQUW52:EQU|
00003730  57 35 3a 2e 7a 61 70 6e  20 45 51 55 57 31 3a 45  |W5:.zapn EQUW1:E|
00003740  51 55 57 32 3a 45 51 55  57 35 32 3a 45 51 55 57  |QUW2:EQUW52:EQUW|
00003750  31 30 3a 2e 73 77 69 74  6e 20 45 51 55 57 31 3a  |10:.switn EQUW1:|
00003760  45 51 55 57 33 3a 45 51  55 57 35 32 3a 45 51 55  |EQUW3:EQUW52:EQU|
00003770  57 32 0d 04 ec 8d 2e 73  63 6f 72 74 20 45 51 55  |W2.....scort EQU|
00003780  42 31 36 3a 45 51 55 42  33 3a 45 51 55 42 32 32  |B16:EQUB3:EQUB22|
00003790  3a 45 51 55 42 31 35 3a  45 51 55 42 35 3a 45 51  |:EQUB15:EQUB5:EQ|
000037a0  55 42 32 35 35 3a 2e 70  6f 77 74 20 45 51 55 42  |UB255:.powt EQUB|
000037b0  31 34 3a 45 51 55 42 32  32 3a 45 51 55 42 32 30  |14:EQUB22:EQUB20|
000037c0  3a 45 51 55 42 35 3a 45  51 55 42 31 35 3a 45 51  |:EQUB5:EQUB15:EQ|
000037d0  55 42 32 35 35 3a 2e 6f  62 73 74 78 74 20 45 51  |UB255:.obstxt EQ|
000037e0  55 42 32 32 3a 45 51 55  42 32 3a 45 51 55 42 39  |UB22:EQUB2:EQUB9|
000037f0  3a 45 51 55 42 31 36 3a  45 51 55 42 32 35 35 0d  |:EQUB16:EQUB255.|
00003800  04 f6 1f 2e 73 65 71 75  65 6e 20 45 51 55 42 30  |....sequen EQUB0|
00003810  3a 45 51 55 42 31 34 3a  45 51 55 42 32 38 0d 05  |:EQUB14:EQUB28..|
00003820  00 40 2e 6c 6f 77 61 64  20 45 51 55 42 30 3a 45  |.@.lowad EQUB0:E|
00003830  51 55 42 26 33 30 3a 45  51 55 42 26 44 30 3a 45  |QUB&30:EQUB&D0:E|
00003840  51 55 42 26 42 30 3a 45  51 55 42 26 35 30 3a 45  |QUB&B0:EQUB&50:E|
00003850  51 55 42 26 38 30 3a 45  51 55 42 26 38 30 0d 05  |QUB&80:EQUB&80..|
00003860  0a 39 2e 68 69 67 68 61  64 20 45 51 55 42 30 3a  |.9.highad EQUB0:|
00003870  45 51 55 42 30 3a 45 51  55 42 26 46 46 3a 45 51  |EQUB0:EQUB&FF:EQ|
00003880  55 42 32 3a 45 51 55 42  32 3a 45 51 55 42 26 46  |UB2:EQUB2:EQUB&F|
00003890  44 3a 45 51 55 42 32 0d  05 14 39 45 51 55 42 30  |D:EQUB2...9EQUB0|
000038a0  3a 45 51 55 42 26 32 30  3a 45 51 55 42 26 45 30  |:EQUB&20:EQUB&E0|
000038b0  3a 45 51 55 42 26 41 30  3a 45 51 55 42 26 36 30  |:EQUB&A0:EQUB&60|
000038c0  3a 45 51 55 42 26 38 30  3a 45 51 55 42 26 38 30  |:EQUB&80:EQUB&80|
000038d0  0d 05 1e 31 45 51 55 42  30 3a 45 51 55 42 30 3a  |...1EQUB0:EQUB0:|
000038e0  45 51 55 42 26 46 46 3a  45 51 55 42 32 3a 45 51  |EQUB&FF:EQUB2:EQ|
000038f0  55 42 32 3a 45 51 55 42  26 46 44 3a 45 51 55 42  |UB2:EQUB&FD:EQUB|
00003900  32 0d 05 28 35 45 51 55  42 30 3a 45 51 55 42 26  |2..(5EQUB0:EQUB&|
00003910  31 30 3a 45 51 55 42 26  46 30 3a 45 51 55 42 26  |10:EQUB&F0:EQUB&|
00003920  39 30 3a 45 51 55 42 26  37 30 3a 45 51 55 42 30  |90:EQUB&70:EQUB0|
00003930  3a 45 51 55 42 30 0d 05  32 2f 45 51 55 42 30 3a  |:EQUB0..2/EQUB0:|
00003940  45 51 55 42 30 3a 45 51  55 42 26 46 46 3a 45 51  |EQUB0:EQUB&FF:EQ|
00003950  55 42 32 3a 45 51 55 42  32 3a 45 51 55 42 30 3a  |UB2:EQUB2:EQUB0:|
00003960  45 51 55 42 30 0d 05 3c  4c 2e 78 64 61 74 61 20  |EQUB0..<L.xdata |
00003970  45 51 55 42 30 3a 45 51  55 42 32 3a 45 51 55 42  |EQUB0:EQUB2:EQUB|
00003980  35 3a 45 51 55 42 37 3a  45 51 55 42 31 30 3a 45  |5:EQUB7:EQUB10:E|
00003990  51 55 42 31 32 3a 45 51  55 42 31 35 3a 45 51 55  |QUB12:EQUB15:EQU|
000039a0  42 31 37 3a 45 51 55 42  32 30 3a 45 51 55 42 32  |B17:EQUB20:EQUB2|
000039b0  32 0d 05 46 2b 2e 68 62  64 61 74 20 45 51 55 42  |2..F+.hbdat EQUB|
000039c0  34 3a 45 51 55 42 39 3a  45 51 55 42 31 34 3a 45  |4:EQUB9:EQUB14:E|
000039d0  51 55 42 31 39 3a 45 51  55 42 32 34 0d 05 50 3e  |QUB19:EQUB24..P>|
000039e0  2e 64 6f 6f 72 63 20 45  51 55 42 30 3a 45 51 55  |.doorc EQUB0:EQU|
000039f0  42 31 3a 45 51 55 42 34  3a 45 51 55 42 35 3a 45  |B1:EQUB4:EQUB5:E|
00003a00  51 55 42 31 36 3a 45 51  55 42 31 37 3a 45 51 55  |QUB16:EQUB17:EQU|
00003a10  42 32 30 3a 45 51 55 42  32 31 0d 05 5a 09 5d 3a  |B20:EQUB21..Z.]:|
00003a20  ed 3a e1 0d ff                                    |.:...|
00003a25

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .