P%=2:O%=&5302

[OPT pass
Y.xch EQUB0:.ych EQUB0:.col EQUB0:.score EQUW0:.scrch EQUB0:.titstat EQUB0:.mdir EQUB0
(e.xset EQUB0:.yset EQUB0:.xscr EQUB0:.yscr EQUB0:.xpos EQUB0:.ypos EQUB0:.mfine EQUB0:.mtype EQUB0
2y.scrno EQUB0:.upvelo EQUB0:.xold EQUB0:.yold EQUB0:.fine EQUB0:.sound EQUB1:.clock EQUB0:.titcyc EQUB0:.invflag EQUB0
<�.face EQUB1:.phase EQUB0:.rghts EQUB0:.wiper EQUB0:.movstag EQUB0:.changed EQUB0:.power EQUB0:.powchange EQUB0:.objects EQUW0:.obch EQUB0:.getstat EQUB0
F�.lastat EQUB0:.lasad EQUW0:.lasdir EQUB0:.lastep EQUB0:.xf EQUB0:.yf EQUB0:.wirep EQUW0:.wirepb EQUW0:.xmont EQUB0:.ymont EQUB0:.mflag EQUB0:.monstat EQUB0:.wiperm EQUB0
PD.deaded EQUB0:.clearup EQUB0:.xmoo EQUB0:.ymoo EQUB0:.fnst EQUB0
Z.scrtxt EQUD0:.shoot EQUB0
d0.delyou LDXxmoo:LDYymoo:.mcd STXxset:STYyset
n�.dark LDY#5:CPYxscr:BNEreald:DEY:CPYyscr:BNEreald:LDA#&1A:CMPobjects:BEQreald:CMPobjects+1:BEQreald:LDA#0:STA&72:JMPblockon+6:.reald JMPblockon
x']:�P%>&70��"Code Overflow to:";P%:�
�P%=&1000:O%=&5800:[OPT pass
�OLDA#&FF:STAscrtxt+3:SEI:LDA#(irq � 256):STA&314:LDA#(irq � 256):STA&315:CLI
�&.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
��STApowchange:STAobch:STAscrch:LDY#255:STYpower:STYobjects:STYobjects+1:INY:STYscore:STYscore+1:.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 LDA#0:STAxscr:STAyscr:LDA#2:STAxpos:STAypos:LDX#&30:.clrpot STXclrpnt+2:STXclrplp+2:.clrplp LDA&30FE:�#&7F:.clrpnt STA&30FE:INX:CPX#&80:BNEclrpot
��.newscr JSRscreen:.oldscr JSRquitch:JSRsboard:LDA#0:STAmovstag:LDAfine:BEQmoveslop:STAchanged:LDAwiper:PHA:JSRmainclear:PLA:STAwiper:.moveslop LDAchanged:BEQnodyou:JSRdispyou:.nodyou JSRdispmon:JSRwait:INCmovstag
�NLDAmovstag:CMP#3:BNEmoveslop:LDAmfine:PHA:LDAfine:STAfnst:LDA#0:STAmovstag
�WSTAchanged:STAfine:STAmfine:JSRdispyou:JSRdispmon:PLA:STAmfine:JSRwait:JSRmainclear
�.finend JSRlaser:JSRdeadedch:JSRmonpro:JSRgetoput:LDAupvelo:BEQfallh:JSRjumpup:LDAxpos:STAxset:LDAypos:STAyset:JSRgetblock:CMP#10:BNEnofall:BEQwatt
��.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

a.falldown LDA#5:STAfine:INCypos:.nofall LDA#((oldscr-1) � 256):PHA:LDA#((oldscr-1) � 256):PHA

y.moveyou LDA#2:JSRkeybyte:BCCnjump:JSRjump:.njump LDA#0:JSRkeybyte:BCSleft:.nleft LDA#1:JSRkeybyte:BCCnright:BCSright

"�.left LDA#0:STAface:STArghts:LDAxpos:BEQleftscr:SEC:SBC#1:STAxset:LDAypos:STAyset:JSRgetblock:JSRdoorch:BCSnoupl:�#&30:CMP#&10:BEQnomove:CMP#&20:BEQnomove:CMP#&30:BNEnoupl:DECypos:DECxpos:LDA#3:STAfine:.nright 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

6�DECypos:LDA#4:.nouprs INCxpos:STAfine:.nosnd RTS:.noupr LDA#2:JMPnouprs:.nomover LDA#1:STArghts:STAchanged:RTS:.leftscr LDA#9:STAxpos:DECxscr:.scrpass JMPscreen:.rightscr LDA#0:STAxpos:INCxscr:BNEscrpass

@�.jump LDAypos:CMP#9:BEQnosnd:CLC:ADC#1:STAyset:LDAxpos:STAxset:JSRgetblock:�#&30:BEQnosnd:LDA#3:STAupvelo:LDAsound:BEQnosnd:LDA#7:LDX#(jumpn � 256):LDY#(jumpn � 256):JMPosword

J�.dispshr SEI:LDAwiper:BEQnowipe:LDY#0:.wiplop LDA(wirep),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(wirepb),Y:STA(&78),Y:INY:CPY#32:BNEwipeb

T�.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:LDAmflag:BNEmonsadr:CPX#0:BEQnophase:LDAmovstag:CMP#2:BEQnophase:LDXphase:INX

h�.addph LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#0:STA&73:DEX:BNEaddph:LDAphase:�#1:STAphase:JMPnophase:.monsadr LDAmonstat:�#1:STAmonstat:ASL A:ASL A:ASL A:ASL A:ASL A:CLC:ADC#&80:STA&72:LDA#&1B:STA&73:LDA#1:STAwiperm

r^LDAmtype:CMP#2:BNEnotyptr:LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#0:STA&73:.notyptr JMPleface

|�.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(wirep),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

�V.lbdisp LDA(&70),Y:STA(wirepb),Y:�A(&72),Y:STA(&70),Y:INY:CPY#32:BNElbdisp:CLI:RTS

�;.wait LDAclock:CMP&80:BNEwait:LDAclock:ADC#5: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 LDA#0:STAclearup:STAlastat:STAinvflag:JSRscroff:LDAxpos:STAxold:LDAypos:STAyold:JSRpoint:LDA#&FF:STAyset:.ylop LDA#&FF:STAxset:INCyset

�i.xlop INCxset:JSRdark:LDAxset:CMP#9:BEQnexty:JMPxlop:.nexty LDAyset:CMP#9:BNEylop:JSRsboard:JSRnamscr

�q.scron LDA&D011:�A#&10:STA&D011:LDAclock:CLC:ADC#4:STA&80:LDA#0:STAwiper:STAwiperm:LDA#1:STAchanged:JMPmonset

̍.ladderb LDA#3:JSRkeybyte:BCSfallset:LDA#2:JSRkeybyte:BCCstable:LDA#1:STAupvelo:JSRjumpup:JMPoldscr:.stable JMPnofall:.fallset JMPladdown

־.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

�.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

�i.transbot LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:STA(&70),Y:INY:CPY#&40:BNEtransbot:RTS:.doorcol JMPlocktype

�\.getblock LDA#&30:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STAscrno
�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
~CLC:ADC&72:STA&72:LDAxset:LSR A:TAY:LDAhbdat,Y:TAY:LDA(&70),Y:STA&73:LDAxset:�#1:BNEbit2:LDA&73:ASL A:ROL A:ROL A:JMPfbgot
[.bit2 LDA&73:ASL A:ROL A:.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
0C.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
D\.noxch LDYych:.ylopc BEQnoych:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:DEY:JMPylopc
N�.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:�invflag:STA(&70),Y:TYA:CLC:ADC#8:TAY:CMP#&20:BCSnewlin
XMPLA:ASL A:ASL A:JMPlinelop:.newlin �#7:TAY:PLA:INY:INX:CPY#8:BNEsline:RTS
b]:�
�

00000000  0d 00 0a 11 50 25 3d 32  3a 4f 25 3d 26 35 33 30  |....P%=2:O%=&530|
00000010  32 0d 00 14 0d 5b 4f 50  54 20 70 61 73 73 0d 00  |2....[OPT pass..|
00000020  1e 59 2e 78 63 68 20 45  51 55 42 30 3a 2e 79 63  |.Y.xch EQUB0:.yc|
00000030  68 20 45 51 55 42 30 3a  2e 63 6f 6c 20 45 51 55  |h EQUB0:.col EQU|
00000040  42 30 3a 2e 73 63 6f 72  65 20 45 51 55 57 30 3a  |B0:.score EQUW0:|
00000050  2e 73 63 72 63 68 20 45  51 55 42 30 3a 2e 74 69  |.scrch EQUB0:.ti|
00000060  74 73 74 61 74 20 45 51  55 42 30 3a 2e 6d 64 69  |tstat EQUB0:.mdi|
00000070  72 20 45 51 55 42 30 0d  00 28 65 2e 78 73 65 74  |r EQUB0..(e.xset|
00000080  20 45 51 55 42 30 3a 2e  79 73 65 74 20 45 51 55  | EQUB0:.yset EQU|
00000090  42 30 3a 2e 78 73 63 72  20 45 51 55 42 30 3a 2e  |B0:.xscr EQUB0:.|
000000a0  79 73 63 72 20 45 51 55  42 30 3a 2e 78 70 6f 73  |yscr EQUB0:.xpos|
000000b0  20 45 51 55 42 30 3a 2e  79 70 6f 73 20 45 51 55  | EQUB0:.ypos EQU|
000000c0  42 30 3a 2e 6d 66 69 6e  65 20 45 51 55 42 30 3a  |B0:.mfine EQUB0:|
000000d0  2e 6d 74 79 70 65 20 45  51 55 42 30 0d 00 32 79  |.mtype EQUB0..2y|
000000e0  2e 73 63 72 6e 6f 20 45  51 55 42 30 3a 2e 75 70  |.scrno EQUB0:.up|
000000f0  76 65 6c 6f 20 45 51 55  42 30 3a 2e 78 6f 6c 64  |velo EQUB0:.xold|
00000100  20 45 51 55 42 30 3a 2e  79 6f 6c 64 20 45 51 55  | EQUB0:.yold EQU|
00000110  42 30 3a 2e 66 69 6e 65  20 45 51 55 42 30 3a 2e  |B0:.fine EQUB0:.|
00000120  73 6f 75 6e 64 20 45 51  55 42 31 3a 2e 63 6c 6f  |sound EQUB1:.clo|
00000130  63 6b 20 45 51 55 42 30  3a 2e 74 69 74 63 79 63  |ck EQUB0:.titcyc|
00000140  20 45 51 55 42 30 3a 2e  69 6e 76 66 6c 61 67 20  | EQUB0:.invflag |
00000150  45 51 55 42 30 0d 00 3c  9c 2e 66 61 63 65 20 45  |EQUB0..<..face E|
00000160  51 55 42 31 3a 2e 70 68  61 73 65 20 45 51 55 42  |QUB1:.phase EQUB|
00000170  30 3a 2e 72 67 68 74 73  20 45 51 55 42 30 3a 2e  |0:.rghts EQUB0:.|
00000180  77 69 70 65 72 20 45 51  55 42 30 3a 2e 6d 6f 76  |wiper EQUB0:.mov|
00000190  73 74 61 67 20 45 51 55  42 30 3a 2e 63 68 61 6e  |stag EQUB0:.chan|
000001a0  67 65 64 20 45 51 55 42  30 3a 2e 70 6f 77 65 72  |ged EQUB0:.power|
000001b0  20 45 51 55 42 30 3a 2e  70 6f 77 63 68 61 6e 67  | EQUB0:.powchang|
000001c0  65 20 45 51 55 42 30 3a  2e 6f 62 6a 65 63 74 73  |e EQUB0:.objects|
000001d0  20 45 51 55 57 30 3a 2e  6f 62 63 68 20 45 51 55  | EQUW0:.obch EQU|
000001e0  42 30 3a 2e 67 65 74 73  74 61 74 20 45 51 55 42  |B0:.getstat EQUB|
000001f0  30 0d 00 46 ad 2e 6c 61  73 74 61 74 20 45 51 55  |0..F..lastat EQU|
00000200  42 30 3a 2e 6c 61 73 61  64 20 45 51 55 57 30 3a  |B0:.lasad EQUW0:|
00000210  2e 6c 61 73 64 69 72 20  45 51 55 42 30 3a 2e 6c  |.lasdir EQUB0:.l|
00000220  61 73 74 65 70 20 45 51  55 42 30 3a 2e 78 66 20  |astep EQUB0:.xf |
00000230  45 51 55 42 30 3a 2e 79  66 20 45 51 55 42 30 3a  |EQUB0:.yf EQUB0:|
00000240  2e 77 69 72 65 70 20 45  51 55 57 30 3a 2e 77 69  |.wirep EQUW0:.wi|
00000250  72 65 70 62 20 45 51 55  57 30 3a 2e 78 6d 6f 6e  |repb EQUW0:.xmon|
00000260  74 20 45 51 55 42 30 3a  2e 79 6d 6f 6e 74 20 45  |t EQUB0:.ymont E|
00000270  51 55 42 30 3a 2e 6d 66  6c 61 67 20 45 51 55 42  |QUB0:.mflag EQUB|
00000280  30 3a 2e 6d 6f 6e 73 74  61 74 20 45 51 55 42 30  |0:.monstat EQUB0|
00000290  3a 2e 77 69 70 65 72 6d  20 45 51 55 42 30 0d 00  |:.wiperm EQUB0..|
000002a0  50 44 2e 64 65 61 64 65  64 20 45 51 55 42 30 3a  |PD.deaded EQUB0:|
000002b0  2e 63 6c 65 61 72 75 70  20 45 51 55 42 30 3a 2e  |.clearup EQUB0:.|
000002c0  78 6d 6f 6f 20 45 51 55  42 30 3a 2e 79 6d 6f 6f  |xmoo EQUB0:.ymoo|
000002d0  20 45 51 55 42 30 3a 2e  66 6e 73 74 20 45 51 55  | EQUB0:.fnst EQU|
000002e0  42 30 0d 00 5a 1e 2e 73  63 72 74 78 74 20 45 51  |B0..Z..scrtxt EQ|
000002f0  55 44 30 3a 2e 73 68 6f  6f 74 20 45 51 55 42 30  |UD0:.shoot EQUB0|
00000300  0d 00 64 30 2e 64 65 6c  79 6f 75 20 4c 44 58 78  |..d0.delyou LDXx|
00000310  6d 6f 6f 3a 4c 44 59 79  6d 6f 6f 3a 2e 6d 63 64  |moo:LDYymoo:.mcd|
00000320  20 53 54 58 78 73 65 74  3a 53 54 59 79 73 65 74  | STXxset:STYyset|
00000330  0d 00 6e 93 2e 64 61 72  6b 20 4c 44 59 23 35 3a  |..n..dark LDY#5:|
00000340  43 50 59 78 73 63 72 3a  42 4e 45 72 65 61 6c 64  |CPYxscr:BNEreald|
00000350  3a 44 45 59 3a 43 50 59  79 73 63 72 3a 42 4e 45  |:DEY:CPYyscr:BNE|
00000360  72 65 61 6c 64 3a 4c 44  41 23 26 31 41 3a 43 4d  |reald:LDA#&1A:CM|
00000370  50 6f 62 6a 65 63 74 73  3a 42 45 51 72 65 61 6c  |Pobjects:BEQreal|
00000380  64 3a 43 4d 50 6f 62 6a  65 63 74 73 2b 31 3a 42  |d:CMPobjects+1:B|
00000390  45 51 72 65 61 6c 64 3a  4c 44 41 23 30 3a 53 54  |EQreald:LDA#0:ST|
000003a0  41 26 37 32 3a 4a 4d 50  62 6c 6f 63 6b 6f 6e 2b  |A&72:JMPblockon+|
000003b0  36 3a 2e 72 65 61 6c 64  20 4a 4d 50 62 6c 6f 63  |6:.reald JMPbloc|
000003c0  6b 6f 6e 0d 00 78 27 5d  3a e7 50 25 3e 26 37 30  |kon..x']:.P%>&70|
000003d0  8c f1 22 43 6f 64 65 20  4f 76 65 72 66 6c 6f 77  |.."Code Overflow|
000003e0  20 74 6f 3a 22 3b 50 25  3a e0 0d 00 82 1f 50 25  | to:";P%:.....P%|
000003f0  3d 26 31 30 30 30 3a 4f  25 3d 26 35 38 30 30 3a  |=&1000:O%=&5800:|
00000400  5b 4f 50 54 20 70 61 73  73 0d 00 8c 4f 4c 44 41  |[OPT pass...OLDA|
00000410  23 26 46 46 3a 53 54 41  73 63 72 74 78 74 2b 33  |#&FF:STAscrtxt+3|
00000420  3a 53 45 49 3a 4c 44 41  23 28 69 72 71 20 83 20  |:SEI:LDA#(irq . |
00000430  32 35 36 29 3a 53 54 41  26 33 31 34 3a 4c 44 41  |256):STA&314:LDA|
00000440  23 28 69 72 71 20 81 20  32 35 36 29 3a 53 54 41  |#(irq . 256):STA|
00000450  26 33 31 35 3a 43 4c 49  0d 00 96 26 2e 70 72 6f  |&315:CLI...&.pro|
00000460  67 20 4a 53 52 74 69 74  6c 65 3a 4a 53 52 62 6c  |g JSRtitle:JSRbl|
00000470  61 73 63 72 3a 4a 53 52  73 63 72 6f 66 66 0d 00  |ascr:JSRscroff..|
00000480  a0 25 4c 44 59 23 30 3a  4c 44 41 23 33 3a 53 54  |.%LDY#0:LDA#3:ST|
00000490  41 26 37 30 3a 4c 44 41  23 26 33 30 3a 53 54 41  |A&70:LDA#&30:STA|
000004a0  26 37 31 0d 00 aa 63 2e  6c 69 6e 65 73 20 4c 44  |&71...c.lines LD|
000004b0  41 28 26 37 30 29 2c 59  3a 84 41 23 31 32 3a 53  |A(&70),Y:.A#12:S|
000004c0  54 41 28 26 37 30 29 2c  59 3a 4c 44 41 26 37 30  |TA(&70),Y:LDA&70|
000004d0  3a 43 4c 43 3a 41 44 43  23 38 3a 53 54 41 26 37  |:CLC:ADC#8:STA&7|
000004e0  30 3a 4c 44 41 26 37 31  3a 41 44 43 23 30 3a 53  |0:LDA&71:ADC#0:S|
000004f0  54 41 26 37 31 3a 43 4d  50 23 26 36 43 3a 42 4e  |TA&71:CMP#&6C:BN|
00000500  45 6c 69 6e 65 73 0d 00  b4 a3 53 54 41 70 6f 77  |Elines....STApow|
00000510  63 68 61 6e 67 65 3a 53  54 41 6f 62 63 68 3a 53  |change:STAobch:S|
00000520  54 41 73 63 72 63 68 3a  4c 44 59 23 32 35 35 3a  |TAscrch:LDY#255:|
00000530  53 54 59 70 6f 77 65 72  3a 53 54 59 6f 62 6a 65  |STYpower:STYobje|
00000540  63 74 73 3a 53 54 59 6f  62 6a 65 63 74 73 2b 31  |cts:STYobjects+1|
00000550  3a 49 4e 59 3a 53 54 59  73 63 6f 72 65 3a 53 54  |:INY:STYscore:ST|
00000560  59 73 63 6f 72 65 2b 31  3a 2e 73 63 6f 62 61 72  |Yscore+1:.scobar|
00000570  6c 6f 70 20 4c 44 41 73  62 61 72 2c 59 3a 43 4d  |lop LDAsbar,Y:CM|
00000580  50 23 26 46 46 3a 42 45  51 73 74 65 78 74 3a 4a  |P#&FF:BEQstext:J|
00000590  53 52 6f 73 77 72 63 68  3a 49 4e 59 3a 4a 4d 50  |SRoswrch:INY:JMP|
000005a0  73 63 6f 62 61 72 6c 6f  70 0d 00 be b9 2e 73 74  |scobarlop.....st|
000005b0  65 78 74 20 4c 44 41 23  31 3a 53 54 41 63 6f 6c  |ext LDA#1:STAcol|
000005c0  3a 4c 44 41 23 32 3a 53  54 41 78 63 68 3a 4c 44  |:LDA#2:STAxch:LD|
000005d0  41 23 32 34 3a 53 54 41  79 63 68 3a 4c 44 41 23  |A#24:STAych:LDA#|
000005e0  28 73 63 6f 72 74 20 83  20 32 35 36 29 3a 53 54  |(scort . 256):ST|
000005f0  41 26 37 32 3a 4c 44 41  23 28 73 63 6f 72 74 20  |A&72:LDA#(scort |
00000600  81 20 32 35 36 29 3a 53  54 41 26 37 33 3a 4a 53  |. 256):STA&73:JS|
00000610  52 73 74 72 69 6e 67 3a  4c 44 41 23 31 33 3a 53  |Rstring:LDA#13:S|
00000620  54 41 78 63 68 3a 49 4e  43 26 37 32 3a 4a 53 52  |TAxch:INC&72:JSR|
00000630  73 74 72 69 6e 67 3a 4c  44 41 23 38 3a 53 54 41  |string:LDA#8:STA|
00000640  78 63 68 3a 4c 44 41 23  32 38 3a 53 54 41 79 63  |xch:LDA#28:STAyc|
00000650  68 3a 49 4e 43 26 37 32  3a 4a 53 52 73 74 72 69  |h:INC&72:JSRstri|
00000660  6e 67 0d 00 c8 9b 2e 67  61 6d 65 20 4c 44 41 23  |ng.....game LDA#|
00000670  30 3a 53 54 41 78 73 63  72 3a 53 54 41 79 73 63  |0:STAxscr:STAysc|
00000680  72 3a 4c 44 41 23 32 3a  53 54 41 78 70 6f 73 3a  |r:LDA#2:STAxpos:|
00000690  53 54 41 79 70 6f 73 3a  4c 44 58 23 26 33 30 3a  |STAypos:LDX#&30:|
000006a0  2e 63 6c 72 70 6f 74 20  53 54 58 63 6c 72 70 6e  |.clrpot STXclrpn|
000006b0  74 2b 32 3a 53 54 58 63  6c 72 70 6c 70 2b 32 3a  |t+2:STXclrplp+2:|
000006c0  2e 63 6c 72 70 6c 70 20  4c 44 41 26 33 30 46 45  |.clrplp LDA&30FE|
000006d0  3a 80 23 26 37 46 3a 2e  63 6c 72 70 6e 74 20 53  |:.#&7F:.clrpnt S|
000006e0  54 41 26 33 30 46 45 3a  49 4e 58 3a 43 50 58 23  |TA&30FE:INX:CPX#|
000006f0  26 38 30 3a 42 4e 45 63  6c 72 70 6f 74 0d 00 d2  |&80:BNEclrpot...|
00000700  d8 2e 6e 65 77 73 63 72  20 4a 53 52 73 63 72 65  |..newscr JSRscre|
00000710  65 6e 3a 2e 6f 6c 64 73  63 72 20 4a 53 52 71 75  |en:.oldscr JSRqu|
00000720  69 74 63 68 3a 4a 53 52  73 62 6f 61 72 64 3a 4c  |itch:JSRsboard:L|
00000730  44 41 23 30 3a 53 54 41  6d 6f 76 73 74 61 67 3a  |DA#0:STAmovstag:|
00000740  4c 44 41 66 69 6e 65 3a  42 45 51 6d 6f 76 65 73  |LDAfine:BEQmoves|
00000750  6c 6f 70 3a 53 54 41 63  68 61 6e 67 65 64 3a 4c  |lop:STAchanged:L|
00000760  44 41 77 69 70 65 72 3a  50 48 41 3a 4a 53 52 6d  |DAwiper:PHA:JSRm|
00000770  61 69 6e 63 6c 65 61 72  3a 50 4c 41 3a 53 54 41  |ainclear:PLA:STA|
00000780  77 69 70 65 72 3a 2e 6d  6f 76 65 73 6c 6f 70 20  |wiper:.moveslop |
00000790  4c 44 41 63 68 61 6e 67  65 64 3a 42 45 51 6e 6f  |LDAchanged:BEQno|
000007a0  64 79 6f 75 3a 4a 53 52  64 69 73 70 79 6f 75 3a  |dyou:JSRdispyou:|
000007b0  2e 6e 6f 64 79 6f 75 20  4a 53 52 64 69 73 70 6d  |.nodyou JSRdispm|
000007c0  6f 6e 3a 4a 53 52 77 61  69 74 3a 49 4e 43 6d 6f  |on:JSRwait:INCmo|
000007d0  76 73 74 61 67 0d 00 dc  4e 4c 44 41 6d 6f 76 73  |vstag...NLDAmovs|
000007e0  74 61 67 3a 43 4d 50 23  33 3a 42 4e 45 6d 6f 76  |tag:CMP#3:BNEmov|
000007f0  65 73 6c 6f 70 3a 4c 44  41 6d 66 69 6e 65 3a 50  |eslop:LDAmfine:P|
00000800  48 41 3a 4c 44 41 66 69  6e 65 3a 53 54 41 66 6e  |HA:LDAfine:STAfn|
00000810  73 74 3a 4c 44 41 23 30  3a 53 54 41 6d 6f 76 73  |st:LDA#0:STAmovs|
00000820  74 61 67 0d 00 e6 57 53  54 41 63 68 61 6e 67 65  |tag...WSTAchange|
00000830  64 3a 53 54 41 66 69 6e  65 3a 53 54 41 6d 66 69  |d:STAfine:STAmfi|
00000840  6e 65 3a 4a 53 52 64 69  73 70 79 6f 75 3a 4a 53  |ne:JSRdispyou:JS|
00000850  52 64 69 73 70 6d 6f 6e  3a 50 4c 41 3a 53 54 41  |Rdispmon:PLA:STA|
00000860  6d 66 69 6e 65 3a 4a 53  52 77 61 69 74 3a 4a 53  |mfine:JSRwait:JS|
00000870  52 6d 61 69 6e 63 6c 65  61 72 0d 00 f0 97 2e 66  |Rmainclear.....f|
00000880  69 6e 65 6e 64 20 4a 53  52 6c 61 73 65 72 3a 4a  |inend JSRlaser:J|
00000890  53 52 64 65 61 64 65 64  63 68 3a 4a 53 52 6d 6f  |SRdeadedch:JSRmo|
000008a0  6e 70 72 6f 3a 4a 53 52  67 65 74 6f 70 75 74 3a  |npro:JSRgetoput:|
000008b0  4c 44 41 75 70 76 65 6c  6f 3a 42 45 51 66 61 6c  |LDAupvelo:BEQfal|
000008c0  6c 68 3a 4a 53 52 6a 75  6d 70 75 70 3a 4c 44 41  |lh:JSRjumpup:LDA|
000008d0  78 70 6f 73 3a 53 54 41  78 73 65 74 3a 4c 44 41  |xpos:STAxset:LDA|
000008e0  79 70 6f 73 3a 53 54 41  79 73 65 74 3a 4a 53 52  |ypos:STAyset:JSR|
000008f0  67 65 74 62 6c 6f 63 6b  3a 43 4d 50 23 31 30 3a  |getblock:CMP#10:|
00000900  42 4e 45 6e 6f 66 61 6c  6c 3a 42 45 51 77 61 74  |BNEnofall:BEQwat|
00000910  74 0d 00 fa cc 2e 66 61  6c 6c 68 20 4c 44 41 78  |t.....fallh LDAx|
00000920  70 6f 73 3a 53 54 41 78  73 65 74 3a 4c 44 41 79  |pos:STAxset:LDAy|
00000930  70 6f 73 3a 53 54 41 79  73 65 74 3a 4a 53 52 67  |pos:STAyset:JSRg|
00000940  65 74 62 6c 6f 63 6b 3a  43 4d 50 23 38 3a 42 45  |etblock:CMP#8:BE|
00000950  51 77 61 74 74 3a 43 4d  50 23 31 30 3a 42 45 51  |Qwatt:CMP#10:BEQ|
00000960  77 61 74 74 3a 43 4d 50  23 31 34 3a 42 45 51 6c  |watt:CMP#14:BEQl|
00000970  61 64 64 65 72 3a 2e 6c  61 64 64 6f 77 6e 20 4c  |adder:.laddown L|
00000980  44 41 79 70 6f 73 3a 43  4d 50 23 39 3a 42 45 51  |DAypos:CMP#9:BEQ|
00000990  64 6f 77 6e 73 63 72 3a  49 4e 43 79 73 65 74 3a  |downscr:INCyset:|
000009a0  4a 53 52 67 65 74 62 6c  6f 63 6b 3a 4a 53 52 64  |JSRgetblock:JSRd|
000009b0  6f 6f 72 63 68 3a 42 43  53 66 61 6c 6c 64 6f 77  |oorch:BCSfalldow|
000009c0  6e 3a 80 23 26 33 30 3a  42 45 51 66 61 6c 6c 64  |n:.#&30:BEQfalld|
000009d0  6f 77 6e 3a 42 4e 45 6e  6f 66 61 6c 6c 0d 01 04  |own:BNEnofall...|
000009e0  4d 2e 64 6f 77 6e 73 63  72 20 4c 44 41 23 30 3a  |M.downscr LDA#0:|
000009f0  53 54 41 79 70 6f 73 3a  49 4e 43 79 73 63 72 3a  |STAypos:INCyscr:|
00000a00  4a 4d 50 6e 65 77 73 63  72 3a 2e 77 61 74 74 20  |JMPnewscr:.watt |
00000a10  4a 4d 50 7a 61 70 3a 2e  6c 61 64 64 65 72 20 4a  |JMPzap:.ladder J|
00000a20  4d 50 20 6c 61 64 64 65  72 62 0d 01 0e 61 2e 66  |MP ladderb...a.f|
00000a30  61 6c 6c 64 6f 77 6e 20  4c 44 41 23 35 3a 53 54  |alldown LDA#5:ST|
00000a40  41 66 69 6e 65 3a 49 4e  43 79 70 6f 73 3a 2e 6e  |Afine:INCypos:.n|
00000a50  6f 66 61 6c 6c 20 4c 44  41 23 28 28 6f 6c 64 73  |ofall LDA#((olds|
00000a60  63 72 2d 31 29 20 81 20  32 35 36 29 3a 50 48 41  |cr-1) . 256):PHA|
00000a70  3a 4c 44 41 23 28 28 6f  6c 64 73 63 72 2d 31 29  |:LDA#((oldscr-1)|
00000a80  20 83 20 32 35 36 29 3a  50 48 41 0d 01 18 79 2e  | . 256):PHA...y.|
00000a90  6d 6f 76 65 79 6f 75 20  4c 44 41 23 32 3a 4a 53  |moveyou LDA#2:JS|
00000aa0  52 6b 65 79 62 79 74 65  3a 42 43 43 6e 6a 75 6d  |Rkeybyte:BCCnjum|
00000ab0  70 3a 4a 53 52 6a 75 6d  70 3a 2e 6e 6a 75 6d 70  |p:JSRjump:.njump|
00000ac0  20 4c 44 41 23 30 3a 4a  53 52 6b 65 79 62 79 74  | LDA#0:JSRkeybyt|
00000ad0  65 3a 42 43 53 6c 65 66  74 3a 2e 6e 6c 65 66 74  |e:BCSleft:.nleft|
00000ae0  20 4c 44 41 23 31 3a 4a  53 52 6b 65 79 62 79 74  | LDA#1:JSRkeybyt|
00000af0  65 3a 42 43 43 6e 72 69  67 68 74 3a 42 43 53 72  |e:BCCnright:BCSr|
00000b00  69 67 68 74 0d 01 22 d9  2e 6c 65 66 74 20 4c 44  |ight.."..left LD|
00000b10  41 23 30 3a 53 54 41 66  61 63 65 3a 53 54 41 72  |A#0:STAface:STAr|
00000b20  67 68 74 73 3a 4c 44 41  78 70 6f 73 3a 42 45 51  |ghts:LDAxpos:BEQ|
00000b30  6c 65 66 74 73 63 72 3a  53 45 43 3a 53 42 43 23  |leftscr:SEC:SBC#|
00000b40  31 3a 53 54 41 78 73 65  74 3a 4c 44 41 79 70 6f  |1:STAxset:LDAypo|
00000b50  73 3a 53 54 41 79 73 65  74 3a 4a 53 52 67 65 74  |s:STAyset:JSRget|
00000b60  62 6c 6f 63 6b 3a 4a 53  52 64 6f 6f 72 63 68 3a  |block:JSRdoorch:|
00000b70  42 43 53 6e 6f 75 70 6c  3a 80 23 26 33 30 3a 43  |BCSnoupl:.#&30:C|
00000b80  4d 50 23 26 31 30 3a 42  45 51 6e 6f 6d 6f 76 65  |MP#&10:BEQnomove|
00000b90  3a 43 4d 50 23 26 32 30  3a 42 45 51 6e 6f 6d 6f  |:CMP#&20:BEQnomo|
00000ba0  76 65 3a 43 4d 50 23 26  33 30 3a 42 4e 45 6e 6f  |ve:CMP#&30:BNEno|
00000bb0  75 70 6c 3a 44 45 43 79  70 6f 73 3a 44 45 43 78  |upl:DECypos:DECx|
00000bc0  70 6f 73 3a 4c 44 41 23  33 3a 53 54 41 66 69 6e  |pos:LDA#3:STAfin|
00000bd0  65 3a 2e 6e 72 69 67 68  74 20 52 54 53 0d 01 2c  |e:.nright RTS..,|
00000be0  e8 2e 6e 6f 75 70 6c 20  44 45 43 78 70 6f 73 3a  |..noupl DECxpos:|
00000bf0  4c 44 41 23 31 3a 53 54  41 66 69 6e 65 3a 2e 6e  |LDA#1:STAfine:.n|
00000c00  6f 6d 6f 76 65 20 52 54  53 3a 2e 72 69 67 68 74  |omove RTS:.right|
00000c10  20 4c 44 41 23 30 3a 53  54 41 72 67 68 74 73 3a  | LDA#0:STArghts:|
00000c20  4c 44 41 23 31 3a 53 54  41 66 61 63 65 3a 4c 44  |LDA#1:STAface:LD|
00000c30  41 78 70 6f 73 3a 43 4d  50 23 39 3a 42 45 51 72  |Axpos:CMP#9:BEQr|
00000c40  69 67 68 74 73 63 72 3a  43 4c 43 3a 41 44 43 23  |ightscr:CLC:ADC#|
00000c50  31 3a 53 54 41 78 73 65  74 3a 4c 44 41 79 70 6f  |1:STAxset:LDAypo|
00000c60  73 3a 53 54 41 79 73 65  74 3a 4a 53 52 67 65 74  |s:STAyset:JSRget|
00000c70  62 6c 6f 63 6b 3a 4a 53  52 64 6f 6f 72 63 68 3a  |block:JSRdoorch:|
00000c80  42 43 53 6e 6f 75 70 72  3a 80 23 26 33 30 3a 43  |BCSnoupr:.#&30:C|
00000c90  4d 50 23 26 31 30 3a 42  45 51 6e 6f 6d 6f 76 65  |MP#&10:BEQnomove|
00000ca0  72 3a 43 4d 50 23 26 32  30 3a 42 45 51 6e 6f 6d  |r:CMP#&20:BEQnom|
00000cb0  6f 76 65 72 3a 43 4d 50  23 26 33 30 3a 42 4e 45  |over:CMP#&30:BNE|
00000cc0  6e 6f 75 70 72 0d 01 36  cf 44 45 43 79 70 6f 73  |noupr..6.DECypos|
00000cd0  3a 4c 44 41 23 34 3a 2e  6e 6f 75 70 72 73 20 49  |:LDA#4:.nouprs I|
00000ce0  4e 43 78 70 6f 73 3a 53  54 41 66 69 6e 65 3a 2e  |NCxpos:STAfine:.|
00000cf0  6e 6f 73 6e 64 20 52 54  53 3a 2e 6e 6f 75 70 72  |nosnd RTS:.noupr|
00000d00  20 4c 44 41 23 32 3a 4a  4d 50 6e 6f 75 70 72 73  | LDA#2:JMPnouprs|
00000d10  3a 2e 6e 6f 6d 6f 76 65  72 20 4c 44 41 23 31 3a  |:.nomover LDA#1:|
00000d20  53 54 41 72 67 68 74 73  3a 53 54 41 63 68 61 6e  |STArghts:STAchan|
00000d30  67 65 64 3a 52 54 53 3a  2e 6c 65 66 74 73 63 72  |ged:RTS:.leftscr|
00000d40  20 4c 44 41 23 39 3a 53  54 41 78 70 6f 73 3a 44  | LDA#9:STAxpos:D|
00000d50  45 43 78 73 63 72 3a 2e  73 63 72 70 61 73 73 20  |ECxscr:.scrpass |
00000d60  4a 4d 50 73 63 72 65 65  6e 3a 2e 72 69 67 68 74  |JMPscreen:.right|
00000d70  73 63 72 20 4c 44 41 23  30 3a 53 54 41 78 70 6f  |scr LDA#0:STAxpo|
00000d80  73 3a 49 4e 43 78 73 63  72 3a 42 4e 45 73 63 72  |s:INCxscr:BNEscr|
00000d90  70 61 73 73 0d 01 40 b3  2e 6a 75 6d 70 20 4c 44  |pass..@..jump LD|
00000da0  41 79 70 6f 73 3a 43 4d  50 23 39 3a 42 45 51 6e  |Aypos:CMP#9:BEQn|
00000db0  6f 73 6e 64 3a 43 4c 43  3a 41 44 43 23 31 3a 53  |osnd:CLC:ADC#1:S|
00000dc0  54 41 79 73 65 74 3a 4c  44 41 78 70 6f 73 3a 53  |TAyset:LDAxpos:S|
00000dd0  54 41 78 73 65 74 3a 4a  53 52 67 65 74 62 6c 6f  |TAxset:JSRgetblo|
00000de0  63 6b 3a 80 23 26 33 30  3a 42 45 51 6e 6f 73 6e  |ck:.#&30:BEQnosn|
00000df0  64 3a 4c 44 41 23 33 3a  53 54 41 75 70 76 65 6c  |d:LDA#3:STAupvel|
00000e00  6f 3a 4c 44 41 73 6f 75  6e 64 3a 42 45 51 6e 6f  |o:LDAsound:BEQno|
00000e10  73 6e 64 3a 4c 44 41 23  37 3a 4c 44 58 23 28 6a  |snd:LDA#7:LDX#(j|
00000e20  75 6d 70 6e 20 83 20 32  35 36 29 3a 4c 44 59 23  |umpn . 256):LDY#|
00000e30  28 6a 75 6d 70 6e 20 81  20 32 35 36 29 3a 4a 4d  |(jumpn . 256):JM|
00000e40  50 6f 73 77 6f 72 64 0d  01 4a c6 2e 64 69 73 70  |Posword..J..disp|
00000e50  73 68 72 20 53 45 49 3a  4c 44 41 77 69 70 65 72  |shr SEI:LDAwiper|
00000e60  3a 42 45 51 6e 6f 77 69  70 65 3a 4c 44 59 23 30  |:BEQnowipe:LDY#0|
00000e70  3a 2e 77 69 70 6c 6f 70  20 4c 44 41 28 77 69 72  |:.wiplop LDA(wir|
00000e80  65 70 29 2c 59 3a 53 54  41 28 26 37 38 29 2c 59  |ep),Y:STA(&78),Y|
00000e90  3a 49 4e 59 3a 43 50 59  23 33 32 3a 42 4e 45 77  |:INY:CPY#32:BNEw|
00000ea0  69 70 6c 6f 70 3a 4c 44  41 26 37 38 3a 43 4c 43  |iplop:LDA&78:CLC|
00000eb0  3a 41 44 43 23 26 38 30  3a 53 54 41 26 37 38 3a  |:ADC#&80:STA&78:|
00000ec0  4c 44 41 26 37 39 3a 41  44 43 23 32 3a 53 54 41  |LDA&79:ADC#2:STA|
00000ed0  26 37 39 3a 4c 44 59 23  30 3a 2e 77 69 70 65 62  |&79:LDY#0:.wipeb|
00000ee0  20 4c 44 41 28 77 69 72  65 70 62 29 2c 59 3a 53  | LDA(wirepb),Y:S|
00000ef0  54 41 28 26 37 38 29 2c  59 3a 49 4e 59 3a 43 50  |TA(&78),Y:INY:CP|
00000f00  59 23 33 32 3a 42 4e 45  77 69 70 65 62 0d 01 54  |Y#32:BNEwipeb..T|
00000f10  ba 2e 6e 6f 77 69 70 65  20 4c 44 41 23 31 3a 53  |..nowipe LDA#1:S|
00000f20  54 41 77 69 70 65 72 3a  4c 44 41 78 70 6f 73 3a  |TAwiper:LDAxpos:|
00000f30  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00000f40  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
00000f50  4c 20 41 3a 53 54 41 26  37 30 3a 4c 44 41 78 70  |L A:STA&70:LDAxp|
00000f60  6f 73 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 43  |os:LSR A:LSR A:C|
00000f70  4c 43 3a 41 44 43 23 26  33 35 3a 53 54 41 26 37  |LC:ADC#&35:STA&7|
00000f80  31 3a 4c 44 41 79 70 6f  73 3a 43 4c 43 3a 41 44  |1:LDAypos:CLC:AD|
00000f90  43 26 37 31 3a 53 54 41  26 37 31 3a 4c 44 41 79  |C&71:STA&71:LDAy|
00000fa0  70 6f 73 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |pos:ASL A:ASL A:|
00000fb0  43 4c 43 3a 41 44 43 26  37 31 3a 53 54 41 26 37  |CLC:ADC&71:STA&7|
00000fc0  31 3a 4c 44 59 23 30 0d  01 5e c5 53 54 59 26 37  |1:LDY#0..^.STY&7|
00000fd0  32 3a 4c 44 41 23 26 31  41 3a 53 54 41 26 37 33  |2:LDA#&1A:STA&73|
00000fe0  3a 4c 44 58 6d 6f 76 73  74 61 67 3a 4c 44 41 73  |:LDXmovstag:LDAs|
00000ff0  65 71 75 65 6e 2c 58 3a  43 4c 43 3a 41 44 43 66  |equen,X:CLC:ADCf|
00001000  69 6e 65 3a 54 41 58 3a  4c 44 41 26 37 30 3a 43  |ine:TAX:LDA&70:C|
00001010  4c 43 3a 41 44 43 6c 6f  77 61 64 2c 58 3a 53 54  |LC:ADClowad,X:ST|
00001020  41 26 37 30 3a 4c 44 41  26 37 31 3a 41 44 43 68  |A&70:LDA&71:ADCh|
00001030  69 67 68 61 64 2c 58 3a  53 54 41 26 37 31 3a 4c  |ighad,X:STA&71:L|
00001040  44 41 6d 66 6c 61 67 3a  42 4e 45 6d 6f 6e 73 61  |DAmflag:BNEmonsa|
00001050  64 72 3a 43 50 58 23 30  3a 42 45 51 6e 6f 70 68  |dr:CPX#0:BEQnoph|
00001060  61 73 65 3a 4c 44 41 6d  6f 76 73 74 61 67 3a 43  |ase:LDAmovstag:C|
00001070  4d 50 23 32 3a 42 45 51  6e 6f 70 68 61 73 65 3a  |MP#2:BEQnophase:|
00001080  4c 44 58 70 68 61 73 65  3a 49 4e 58 0d 01 68 d9  |LDXphase:INX..h.|
00001090  2e 61 64 64 70 68 20 4c  44 41 26 37 32 3a 43 4c  |.addph LDA&72:CL|
000010a0  43 3a 41 44 43 23 26 38  30 3a 53 54 41 26 37 32  |C:ADC#&80:STA&72|
000010b0  3a 4c 44 41 26 37 33 3a  41 44 43 23 30 3a 53 54  |:LDA&73:ADC#0:ST|
000010c0  41 26 37 33 3a 44 45 58  3a 42 4e 45 61 64 64 70  |A&73:DEX:BNEaddp|
000010d0  68 3a 4c 44 41 70 68 61  73 65 3a 82 23 31 3a 53  |h:LDAphase:.#1:S|
000010e0  54 41 70 68 61 73 65 3a  4a 4d 50 6e 6f 70 68 61  |TAphase:JMPnopha|
000010f0  73 65 3a 2e 6d 6f 6e 73  61 64 72 20 4c 44 41 6d  |se:.monsadr LDAm|
00001100  6f 6e 73 74 61 74 3a 82  23 31 3a 53 54 41 6d 6f  |onstat:.#1:STAmo|
00001110  6e 73 74 61 74 3a 41 53  4c 20 41 3a 41 53 4c 20  |nstat:ASL A:ASL |
00001120  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
00001130  4c 20 41 3a 43 4c 43 3a  41 44 43 23 26 38 30 3a  |L A:CLC:ADC#&80:|
00001140  53 54 41 26 37 32 3a 4c  44 41 23 26 31 42 3a 53  |STA&72:LDA#&1B:S|
00001150  54 41 26 37 33 3a 4c 44  41 23 31 3a 53 54 41 77  |TA&73:LDA#1:STAw|
00001160  69 70 65 72 6d 0d 01 72  5e 4c 44 41 6d 74 79 70  |iperm..r^LDAmtyp|
00001170  65 3a 43 4d 50 23 32 3a  42 4e 45 6e 6f 74 79 70  |e:CMP#2:BNEnotyp|
00001180  74 72 3a 4c 44 41 26 37  32 3a 43 4c 43 3a 41 44  |tr:LDA&72:CLC:AD|
00001190  43 23 26 38 30 3a 53 54  41 26 37 32 3a 4c 44 41  |C#&80:STA&72:LDA|
000011a0  26 37 33 3a 41 44 43 23  30 3a 53 54 41 26 37 33  |&73:ADC#0:STA&73|
000011b0  3a 2e 6e 6f 74 79 70 74  72 20 4a 4d 50 6c 65 66  |:.notyptr JMPlef|
000011c0  61 63 65 0d 01 7c a6 2e  6e 6f 70 68 61 73 65 20  |ace..|..nophase |
000011d0  4c 44 41 72 67 68 74 73  3a 42 45 51 6e 6f 74 72  |LDArghts:BEQnotr|
000011e0  67 68 74 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |ght:LDA&70:CLC:A|
000011f0  44 43 23 33 32 3a 53 54  41 26 37 30 3a 4c 44 41  |DC#32:STA&70:LDA|
00001200  26 37 31 3a 41 44 43 23  30 3a 53 54 41 26 37 31  |&71:ADC#0:STA&71|
00001210  3a 2e 6e 6f 74 72 67 68  74 20 4c 44 41 66 61 63  |:.notrght LDAfac|
00001220  65 3a 42 4e 45 6c 65 66  61 63 65 3a 4c 44 41 26  |e:BNEleface:LDA&|
00001230  37 32 3a 43 4c 43 3a 41  44 43 23 26 32 30 3a 53  |72:CLC:ADC#&20:S|
00001240  54 41 26 37 32 3a 2e 6c  65 66 61 63 65 20 4c 44  |TA&72:.leface LD|
00001250  41 26 37 30 3a 53 54 41  26 37 38 3a 4c 44 41 26  |A&70:STA&78:LDA&|
00001260  37 31 3a 53 54 41 26 37  39 0d 01 86 af 2e 6c 61  |71:STA&79.....la|
00001270  64 69 73 70 20 4c 44 41  28 26 37 30 29 2c 59 3a  |disp LDA(&70),Y:|
00001280  53 54 41 28 77 69 72 65  70 29 2c 59 3a 84 41 28  |STA(wirep),Y:.A(|
00001290  26 37 32 29 2c 59 3a 53  54 41 28 26 37 30 29 2c  |&72),Y:STA(&70),|
000012a0  59 3a 49 4e 59 3a 43 50  59 23 33 32 3a 42 4e 45  |Y:INY:CPY#32:BNE|
000012b0  6c 61 64 69 73 70 3a 4c  44 41 26 37 32 3a 43 4c  |ladisp:LDA&72:CL|
000012c0  43 3a 41 44 43 23 26 34  30 3a 53 54 41 26 37 32  |C:ADC#&40:STA&72|
000012d0  3a 4c 44 41 26 37 33 3a  41 44 43 23 30 3a 53 54  |:LDA&73:ADC#0:ST|
000012e0  41 26 37 33 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |A&73:LDA&70:CLC:|
000012f0  41 44 43 23 26 38 30 3a  53 54 41 26 37 30 3a 4c  |ADC#&80:STA&70:L|
00001300  44 41 26 37 31 3a 41 44  43 23 32 3a 53 54 41 26  |DA&71:ADC#2:STA&|
00001310  37 31 3a 4c 44 59 23 30  0d 01 90 56 2e 6c 62 64  |71:LDY#0...V.lbd|
00001320  69 73 70 20 4c 44 41 28  26 37 30 29 2c 59 3a 53  |isp LDA(&70),Y:S|
00001330  54 41 28 77 69 72 65 70  62 29 2c 59 3a 84 41 28  |TA(wirepb),Y:.A(|
00001340  26 37 32 29 2c 59 3a 53  54 41 28 26 37 30 29 2c  |&72),Y:STA(&70),|
00001350  59 3a 49 4e 59 3a 43 50  59 23 33 32 3a 42 4e 45  |Y:INY:CPY#32:BNE|
00001360  6c 62 64 69 73 70 3a 43  4c 49 3a 52 54 53 0d 01  |lbdisp:CLI:RTS..|
00001370  9a 3b 2e 77 61 69 74 20  4c 44 41 63 6c 6f 63 6b  |.;.wait LDAclock|
00001380  3a 43 4d 50 26 38 30 3a  42 4e 45 77 61 69 74 3a  |:CMP&80:BNEwait:|
00001390  4c 44 41 63 6c 6f 63 6b  3a 41 44 43 23 35 3a 53  |LDAclock:ADC#5:S|
000013a0  54 41 26 38 30 3a 52 54  53 0d 01 a4 d2 2e 6a 75  |TA&80:RTS.....ju|
000013b0  6d 70 75 70 20 44 45 43  75 70 76 65 6c 6f 3a 4c  |mpup DECupvelo:L|
000013c0  44 41 79 70 6f 73 3a 42  45 51 75 70 73 63 72 3a  |DAypos:BEQupscr:|
000013d0  53 45 43 3a 53 42 43 23  31 3a 53 54 41 79 73 65  |SEC:SBC#1:STAyse|
000013e0  74 3a 4c 44 41 78 70 6f  73 3a 53 54 41 78 73 65  |t:LDAxpos:STAxse|
000013f0  74 3a 4a 53 52 67 65 74  62 6c 6f 63 6b 3a 4a 53  |t:JSRgetblock:JS|
00001400  52 64 6f 6f 72 63 68 3a  42 43 53 75 70 6f 6e 65  |Rdoorch:BCSupone|
00001410  3a 80 23 26 33 30 3a 42  45 51 75 70 6f 6e 65 3a  |:.#&30:BEQupone:|
00001420  4c 44 41 23 30 3a 53 54  41 75 70 76 65 6c 6f 3a  |LDA#0:STAupvelo:|
00001430  52 54 53 3a 2e 75 70 6f  6e 65 20 4c 44 41 23 36  |RTS:.upone LDA#6|
00001440  3a 53 54 41 66 69 6e 65  3a 44 45 43 79 70 6f 73  |:STAfine:DECypos|
00001450  3a 52 54 53 3a 2e 75 70  73 63 72 20 44 45 43 79  |:RTS:.upscr DECy|
00001460  73 63 72 3a 4c 44 41 23  39 3a 53 54 41 79 70 6f  |scr:LDA#9:STAypo|
00001470  73 3a 4a 4d 50 73 63 72  65 65 6e 0d 01 ae 92 2e  |s:JMPscreen.....|
00001480  73 63 72 65 65 6e 20 4c  44 41 23 30 3a 53 54 41  |screen LDA#0:STA|
00001490  63 6c 65 61 72 75 70 3a  53 54 41 6c 61 73 74 61  |clearup:STAlasta|
000014a0  74 3a 53 54 41 69 6e 76  66 6c 61 67 3a 4a 53 52  |t:STAinvflag:JSR|
000014b0  73 63 72 6f 66 66 3a 4c  44 41 78 70 6f 73 3a 53  |scroff:LDAxpos:S|
000014c0  54 41 78 6f 6c 64 3a 4c  44 41 79 70 6f 73 3a 53  |TAxold:LDAypos:S|
000014d0  54 41 79 6f 6c 64 3a 4a  53 52 70 6f 69 6e 74 3a  |TAyold:JSRpoint:|
000014e0  4c 44 41 23 26 46 46 3a  53 54 41 79 73 65 74 3a  |LDA#&FF:STAyset:|
000014f0  2e 79 6c 6f 70 20 4c 44  41 23 26 46 46 3a 53 54  |.ylop LDA#&FF:ST|
00001500  41 78 73 65 74 3a 49 4e  43 79 73 65 74 0d 01 b8  |Axset:INCyset...|
00001510  69 2e 78 6c 6f 70 20 49  4e 43 78 73 65 74 3a 4a  |i.xlop INCxset:J|
00001520  53 52 64 61 72 6b 3a 4c  44 41 78 73 65 74 3a 43  |SRdark:LDAxset:C|
00001530  4d 50 23 39 3a 42 45 51  6e 65 78 74 79 3a 4a 4d  |MP#9:BEQnexty:JM|
00001540  50 78 6c 6f 70 3a 2e 6e  65 78 74 79 20 4c 44 41  |Pxlop:.nexty LDA|
00001550  79 73 65 74 3a 43 4d 50  23 39 3a 42 4e 45 79 6c  |yset:CMP#9:BNEyl|
00001560  6f 70 3a 4a 53 52 73 62  6f 61 72 64 3a 4a 53 52  |op:JSRsboard:JSR|
00001570  6e 61 6d 73 63 72 0d 01  c2 71 2e 73 63 72 6f 6e  |namscr...q.scron|
00001580  20 4c 44 41 26 44 30 31  31 3a 84 41 23 26 31 30  | LDA&D011:.A#&10|
00001590  3a 53 54 41 26 44 30 31  31 3a 4c 44 41 63 6c 6f  |:STA&D011:LDAclo|
000015a0  63 6b 3a 43 4c 43 3a 41  44 43 23 34 3a 53 54 41  |ck:CLC:ADC#4:STA|
000015b0  26 38 30 3a 4c 44 41 23  30 3a 53 54 41 77 69 70  |&80:LDA#0:STAwip|
000015c0  65 72 3a 53 54 41 77 69  70 65 72 6d 3a 4c 44 41  |er:STAwiperm:LDA|
000015d0  23 31 3a 53 54 41 63 68  61 6e 67 65 64 3a 4a 4d  |#1:STAchanged:JM|
000015e0  50 6d 6f 6e 73 65 74 0d  01 cc 8d 2e 6c 61 64 64  |Pmonset.....ladd|
000015f0  65 72 62 20 4c 44 41 23  33 3a 4a 53 52 6b 65 79  |erb LDA#3:JSRkey|
00001600  62 79 74 65 3a 42 43 53  66 61 6c 6c 73 65 74 3a  |byte:BCSfallset:|
00001610  4c 44 41 23 32 3a 4a 53  52 6b 65 79 62 79 74 65  |LDA#2:JSRkeybyte|
00001620  3a 42 43 43 73 74 61 62  6c 65 3a 4c 44 41 23 31  |:BCCstable:LDA#1|
00001630  3a 53 54 41 75 70 76 65  6c 6f 3a 4a 53 52 6a 75  |:STAupvelo:JSRju|
00001640  6d 70 75 70 3a 4a 4d 50  6f 6c 64 73 63 72 3a 2e  |mpup:JMPoldscr:.|
00001650  73 74 61 62 6c 65 20 4a  4d 50 6e 6f 66 61 6c 6c  |stable JMPnofall|
00001660  3a 2e 66 61 6c 6c 73 65  74 20 4a 4d 50 6c 61 64  |:.fallset JMPlad|
00001670  64 6f 77 6e 0d 01 d6 be  2e 62 6c 6f 63 6b 6f 6e  |down.....blockon|
00001680  20 4a 53 52 6f 62 6a 63  68 65 63 6b 3a 4a 53 52  | JSRobjcheck:JSR|
00001690  67 65 74 62 6c 6f 63 6b  3a 4c 44 41 78 73 65 74  |getblock:LDAxset|
000016a0  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
000016b0  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
000016c0  53 4c 20 41 3a 53 54 41  26 37 30 3a 4c 44 41 78  |SL A:STA&70:LDAx|
000016d0  73 65 74 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |set:LSR A:LSR A:|
000016e0  43 4c 43 3a 41 44 43 23  26 33 35 3a 53 54 41 26  |CLC:ADC#&35:STA&|
000016f0  37 31 3a 4c 44 41 79 73  65 74 3a 43 4c 43 3a 41  |71:LDAyset:CLC:A|
00001700  44 43 26 37 31 3a 53 54  41 26 37 31 3a 4c 44 41  |DC&71:STA&71:LDA|
00001710  79 73 65 74 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |yset:ASL A:ASL A|
00001720  3a 43 4c 43 3a 41 44 43  26 37 31 3a 53 54 41 26  |:CLC:ADC&71:STA&|
00001730  37 31 0d 01 e0 67 4c 44  41 26 37 32 3a 4c 53 52  |71...gLDA&72:LSR|
00001740  20 41 3a 4c 53 52 20 41  3a 43 4c 43 3a 41 44 43  | A:LSR A:CLC:ADC|
00001750  23 26 32 30 3a 53 54 41  26 37 33 3a 4c 44 41 26  |#&20:STA&73:LDA&|
00001760  37 32 3a 43 4d 50 23 33  30 3a 42 45 51 64 6f 6f  |72:CMP#30:BEQdoo|
00001770  72 63 6f 6c 3a 4c 53 52  20 41 3a 52 4f 52 20 41  |rcol:LSR A:ROR A|
00001780  3a 52 4f 52 20 41 3a 80  23 26 43 30 3a 53 54 41  |:ROR A:.#&C0:STA|
00001790  26 37 32 3a 4c 44 59 23  30 0d 01 ea 9e 2e 74 72  |&72:LDY#0.....tr|
000017a0  61 6e 73 74 6f 70 20 4c  44 41 28 26 37 30 29 2c  |anstop LDA(&70),|
000017b0  59 3a 80 23 26 43 30 3a  43 4c 43 3a 41 44 43 28  |Y:.#&C0:CLC:ADC(|
000017c0  26 37 32 29 2c 59 3a 53  54 41 28 26 37 30 29 2c  |&72),Y:STA(&70),|
000017d0  59 3a 49 4e 59 3a 43 50  59 23 26 34 30 3a 42 4e  |Y:INY:CPY#&40:BN|
000017e0  45 74 72 61 6e 73 74 6f  70 3a 4c 44 59 23 30 3a  |Etranstop:LDY#0:|
000017f0  4c 44 41 26 37 32 3a 43  4c 43 3a 41 44 43 23 26  |LDA&72:CLC:ADC#&|
00001800  34 30 3a 53 54 41 26 37  32 3a 4c 44 41 26 37 30  |40:STA&72:LDA&70|
00001810  3a 43 4c 43 3a 41 44 43  23 26 38 30 3a 53 54 41  |:CLC:ADC#&80:STA|
00001820  26 37 30 3a 4c 44 41 26  37 31 3a 41 44 43 23 32  |&70:LDA&71:ADC#2|
00001830  3a 53 54 41 26 37 31 0d  01 f4 69 2e 74 72 61 6e  |:STA&71...i.tran|
00001840  73 62 6f 74 20 4c 44 41  28 26 37 30 29 2c 59 3a  |sbot LDA(&70),Y:|
00001850  80 23 26 43 30 3a 43 4c  43 3a 41 44 43 28 26 37  |.#&C0:CLC:ADC(&7|
00001860  32 29 2c 59 3a 53 54 41  28 26 37 30 29 2c 59 3a  |2),Y:STA(&70),Y:|
00001870  49 4e 59 3a 43 50 59 23  26 34 30 3a 42 4e 45 74  |INY:CPY#&40:BNEt|
00001880  72 61 6e 73 62 6f 74 3a  52 54 53 3a 2e 64 6f 6f  |ransbot:RTS:.doo|
00001890  72 63 6f 6c 20 4a 4d 50  6c 6f 63 6b 74 79 70 65  |rcol JMPlocktype|
000018a0  0d 01 fe 5c 2e 67 65 74  62 6c 6f 63 6b 20 4c 44  |...\.getblock LD|
000018b0  41 23 26 33 30 3a 43 4c  43 3a 41 44 43 78 73 63  |A#&30:CLC:ADCxsc|
000018c0  72 3a 53 54 41 26 37 31  3a 4c 44 41 79 73 63 72  |r:STA&71:LDAyscr|
000018d0  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
000018e0  20 41 3a 41 53 4c 20 41  3a 43 4c 43 3a 41 44 43  | A:ASL A:CLC:ADC|
000018f0  26 37 31 3a 53 54 41 73  63 72 6e 6f 0d 02 08 c8  |&71:STAscrno....|
00001900  53 54 41 26 37 31 3a 4c  44 41 79 73 65 74 3a 53  |STA&71:LDAyset:S|
00001910  54 41 26 37 30 3a 41 53  4c 20 41 3a 41 53 4c 20  |TA&70:ASL A:ASL |
00001920  41 3a 41 53 4c 20 41 3a  50 48 41 3a 43 4c 43 3a  |A:ASL A:PHA:CLC:|
00001930  41 44 43 26 37 30 3a 53  54 41 26 37 30 3a 50 4c  |ADC&70:STA&70:PL|
00001940  41 3a 41 53 4c 20 41 3a  43 4c 43 3a 41 44 43 26  |A:ASL A:CLC:ADC&|
00001950  37 30 3a 53 54 41 26 37  30 3a 4c 44 59 78 73 65  |70:STA&70:LDYxse|
00001960  74 3a 4c 44 41 78 64 61  74 61 2c 59 3a 54 41 59  |t:LDAxdata,Y:TAY|
00001970  3a 4c 44 41 28 26 37 30  29 2c 59 3a 52 4f 4c 20  |:LDA(&70),Y:ROL |
00001980  41 3a 52 4f 4c 20 41 3a  52 4f 4c 20 41 3a 80 23  |A:ROL A:ROL A:.#|
00001990  33 3a 53 54 41 26 37 32  3a 49 4e 59 3a 4c 44 41  |3:STA&72:INY:LDA|
000019a0  28 26 37 30 29 2c 59 3a  4c 53 52 20 41 3a 4c 53  |(&70),Y:LSR A:LS|
000019b0  52 20 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |R A:LSR A:LSR A:|
000019c0  80 23 31 32 0d 02 12 7e  43 4c 43 3a 41 44 43 26  |.#12...~CLC:ADC&|
000019d0  37 32 3a 53 54 41 26 37  32 3a 4c 44 41 78 73 65  |72:STA&72:LDAxse|
000019e0  74 3a 4c 53 52 20 41 3a  54 41 59 3a 4c 44 41 68  |t:LSR A:TAY:LDAh|
000019f0  62 64 61 74 2c 59 3a 54  41 59 3a 4c 44 41 28 26  |bdat,Y:TAY:LDA(&|
00001a00  37 30 29 2c 59 3a 53 54  41 26 37 33 3a 4c 44 41  |70),Y:STA&73:LDA|
00001a10  78 73 65 74 3a 80 23 31  3a 42 4e 45 62 69 74 32  |xset:.#1:BNEbit2|
00001a20  3a 4c 44 41 26 37 33 3a  41 53 4c 20 41 3a 52 4f  |:LDA&73:ASL A:RO|
00001a30  4c 20 41 3a 52 4f 4c 20  41 3a 4a 4d 50 66 62 67  |L A:ROL A:JMPfbg|
00001a40  6f 74 0d 02 1c 5b 2e 62  69 74 32 20 4c 44 41 26  |ot...[.bit2 LDA&|
00001a50  37 33 3a 41 53 4c 20 41  3a 52 4f 4c 20 41 3a 2e  |73:ASL A:ROL A:.|
00001a60  66 62 67 6f 74 20 80 23  31 3a 41 53 4c 20 41 3a  |fbgot .#1:ASL A:|
00001a70  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00001a80  41 3a 43 4c 43 3a 41 44  43 26 37 32 3a 41 53 4c  |A:CLC:ADC&72:ASL|
00001a90  20 41 3a 53 54 41 26 37  32 3a 52 54 53 0d 02 26  | A:STA&72:RTS..&|
00001aa0  8f 2e 62 6c 61 73 63 72  20 4a 53 52 73 63 72 6f  |..blascr JSRscro|
00001ab0  66 66 3a 4c 44 59 23 30  3a 53 54 59 26 37 30 3a  |ff:LDY#0:STY&70:|
00001ac0  4c 44 41 23 26 33 30 3a  53 54 41 26 37 31 3a 2e  |LDA#&30:STA&71:.|
00001ad0  62 6c 61 6e 6c 6f 70 20  4c 44 41 28 26 37 30 29  |blanlop LDA(&70)|
00001ae0  2c 59 3a 80 23 26 43 30  3a 53 54 41 28 26 37 30  |,Y:.#&C0:STA(&70|
00001af0  29 2c 59 3a 49 4e 59 3a  42 4e 45 62 6c 61 6e 6c  |),Y:INY:BNEblanl|
00001b00  6f 70 3a 49 4e 43 26 37  31 3a 4c 44 41 26 37 31  |op:INC&71:LDA&71|
00001b10  3a 43 4d 50 23 26 38 30  3a 42 4e 45 62 6c 61 6e  |:CMP#&80:BNEblan|
00001b20  6c 6f 70 3a 4a 4d 50 73  63 72 6f 6e 0d 02 30 43  |lop:JMPscron..0C|
00001b30  2e 70 75 74 63 68 20 41  53 4c 20 41 3a 41 53 4c  |.putch ASL A:ASL|
00001b40  20 41 3a 41 53 4c 20 41  3a 54 41 58 3a 4c 44 41  | A:ASL A:TAX:LDA|
00001b50  23 30 3a 53 54 41 26 37  30 3a 4c 44 41 23 26 33  |#0:STA&70:LDA#&3|
00001b60  30 3a 53 54 41 26 37 31  3a 4c 44 59 78 63 68 0d  |0:STA&71:LDYxch.|
00001b70  02 3a 4e 2e 78 6c 6f 70  63 20 42 45 51 6e 6f 78  |.:N.xlopc BEQnox|
00001b80  63 68 3a 4c 44 41 26 37  30 3a 43 4c 43 3a 41 44  |ch:LDA&70:CLC:AD|
00001b90  43 23 26 32 30 3a 53 54  41 26 37 30 3a 4c 44 41  |C#&20:STA&70:LDA|
00001ba0  26 37 31 3a 41 44 43 23  30 3a 53 54 41 26 37 31  |&71:ADC#0:STA&71|
00001bb0  3a 44 45 59 3a 4a 4d 50  78 6c 6f 70 63 0d 02 44  |:DEY:JMPxlopc..D|
00001bc0  5c 2e 6e 6f 78 63 68 20  4c 44 59 79 63 68 3a 2e  |\.noxch LDYych:.|
00001bd0  79 6c 6f 70 63 20 42 45  51 6e 6f 79 63 68 3a 4c  |ylopc BEQnoych:L|
00001be0  44 41 26 37 30 3a 43 4c  43 3a 41 44 43 23 26 38  |DA&70:CLC:ADC#&8|
00001bf0  30 3a 53 54 41 26 37 30  3a 4c 44 41 26 37 31 3a  |0:STA&70:LDA&71:|
00001c00  41 44 43 23 32 3a 53 54  41 26 37 31 3a 44 45 59  |ADC#2:STA&71:DEY|
00001c10  3a 4a 4d 50 79 6c 6f 70  63 0d 02 4e db 2e 6e 6f  |:JMPylopc..N..no|
00001c20  79 63 68 20 4c 44 59 23  30 3a 2e 73 6c 69 6e 65  |ych LDY#0:.sline|
00001c30  20 4c 44 41 26 43 30 30  2c 58 3a 2e 6c 69 6e 65  | LDA&C00,X:.line|
00001c40  6c 6f 70 20 50 48 41 3a  41 53 4c 20 41 3a 52 4f  |lop PHA:ASL A:RO|
00001c50  4c 20 41 3a 52 4f 4c 20  41 3a 80 23 33 3a 42 45  |L A:ROL A:.#3:BE|
00001c60  51 62 6c 61 6e 63 68 3a  53 54 41 26 38 30 3a 4c  |Qblanch:STA&80:L|
00001c70  44 41 23 30 3a 2e 63 6f  6c 63 68 20 43 4c 43 3a  |DA#0:.colch CLC:|
00001c80  41 44 43 63 6f 6c 3a 44  45 43 26 38 30 3a 42 4e  |ADCcol:DEC&80:BN|
00001c90  45 63 6f 6c 63 68 3a 2e  62 6c 61 6e 63 68 20 53  |Ecolch:.blanch S|
00001ca0  54 41 26 38 30 3a 4c 44  41 28 26 37 30 29 2c 59  |TA&80:LDA(&70),Y|
00001cb0  3a 80 23 26 43 30 3a 84  41 26 38 30 3a 82 69 6e  |:.#&C0:.A&80:.in|
00001cc0  76 66 6c 61 67 3a 53 54  41 28 26 37 30 29 2c 59  |vflag:STA(&70),Y|
00001cd0  3a 54 59 41 3a 43 4c 43  3a 41 44 43 23 38 3a 54  |:TYA:CLC:ADC#8:T|
00001ce0  41 59 3a 43 4d 50 23 26  32 30 3a 42 43 53 6e 65  |AY:CMP#&20:BCSne|
00001cf0  77 6c 69 6e 0d 02 58 4d  50 4c 41 3a 41 53 4c 20  |wlin..XMPLA:ASL |
00001d00  41 3a 41 53 4c 20 41 3a  4a 4d 50 6c 69 6e 65 6c  |A:ASL A:JMPlinel|
00001d10  6f 70 3a 2e 6e 65 77 6c  69 6e 20 80 23 37 3a 54  |op:.newlin .#7:T|
00001d20  41 59 3a 50 4c 41 3a 49  4e 59 3a 49 4e 58 3a 43  |AY:PLA:INY:INX:C|
00001d30  50 59 23 38 3a 42 4e 45  73 6c 69 6e 65 3a 52 54  |PY#8:BNEsline:RT|
00001d40  53 0d 02 62 07 5d 3a e1  0d ff                    |S..b.]:...|
00001d4a