�8osbyte=&FFF4:osword=&FFF1:oswrch=&FFEE:P%=0:O%=&5300
�
[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
y.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
$�.vector EQUW0:.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
.X.scrofd EQUB0:EQUD0:.deaded EQUB0:.clearup EQUB0:.xmoo EQUB0:.ymoo EQUB0:.fnst EQUB0
8+.scrtxt EQUD0:.shoot EQUB0:.itemp EQUB0
=0.delyou LDXxmoo:LDYymoo:.mcd STXxset:STYyset
L']:�P%>&70��"Code Overflow to:";P%:�
VP%=&1000:O%=&5800:[OPT pass
`�LDY#&80:LDA#&30:.zerolop STA&1FFF,Y:DEY:BNEzerolop:LDA#&FF:STAscrtxt+3:SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#(irq � 256):STA&204:LDA#(irq � 256):STA&205:CLI
j&.prog JSRtitle:JSRblascr:JSRscroff
t%LDY#0:LDA#3:STA&70:LDA#&30:STA&71
~�.lines LDA(&70),Y:�A#3:STA(&70),Y:INY:LDA(&70),Y:�A#12:STA(&70),Y:DEY: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:STAinvflag:LDA#4:STAcol:LDA#2:STAxch:LDA#25:STAych:LDA#(scort � 256):STA&72:LDA#(scort � 256):STA&73:JSRstring:LDA#13:STAxch:INC&72:JSRstring:LDA#4:STAcol:LDA#8:STAxch:LDA#28:STAych:INC&72:JSRstring
��.game LDA#0:STAxscr:STAyscr:LDA#2:STAxpos:STAypos:LDX#&20:.clrpot STXclrpnt+2:STXclrplp+2:.clrplp LDA&20FE:�#&7F:.clrpnt STA&20FE: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#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
�.moveyou LDX#&B6:JSRkeybyte:BCCnjump:JSRjump:.njump LDX#&9E:JSRkeybyte:BCSleft:.nleft LDX#&BD: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

�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
�.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
(�.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
2�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
<�.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
F^LDAmtype:CMP#2:BNEnotyptr:LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#0:STA&73:.notyptr JMPleface
P�.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
Z�.ladisp LDA(&70),Y:STA(wirep),Y:�(&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
dU.lbdisp LDA(&70),Y:STA(wirepb),Y:�(&72),Y:STA(&70),Y:INY:CPY#32:BNElbdisp:CLI:RTS
n;.wait LDAclock:CMP&80:BNEwait:LDAclock:ADC#5:STA&80:RTS
x�.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
�l.xlop INCxset:JSRblockon:LDAxset:CMP#9:BEQnexty:JMPxlop:.nexty LDAyset:CMP#9:BNEylop:JSRsboard:JSRnamscr
��.scron LDA#17:STAscrofd:.scronlop LDA#&C:LDX#(scrofd �256):LDY#(scrofd �256):JSRosword:DECscrofd:LDAscrofd:�#7:STAscrofd+1:LDAscrofd:BNEscronlop:LDAclock:CLC:ADC#4:STA&80:LDA#0:STAwiper:STAwiperm:LDA#1:STAchanged:JMPmonset
��.ladderb LDX#&97:JSRkeybyte:BCSfallset:LDX#&B6: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(&72),Y:�#&3F:STA&74:LDA(&70),Y:�#&C0:CLC:ADC&74: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
�}.transbot LDA(&72),Y:�#&3F:STA&74:LDA(&70),Y:�#&C0:CLC:ADC&74:STA(&70),Y:INY:CPY#&40:BNEtransbot:RTS:.doorcol JMPlocktype
�\.getblock LDA#&20: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
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:STAitemp:LDA#0
'�.colch CLC:ADCcol:DECitemp:BNEcolch:.blanch STAitemp:LDA(&70),Y:�#&C0:�Aitemp:�invflag: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
1&.keybyte LDA#&81:LDY#&FF:JMPosbyte
6]:�
�

00000000  0d 03 e8 38 6f 73 62 79  74 65 3d 26 46 46 46 34  |...8osbyte=&FFF4|
00000010  3a 6f 73 77 6f 72 64 3d  26 46 46 46 31 3a 6f 73  |:osword=&FFF1:os|
00000020  77 72 63 68 3d 26 46 46  45 45 3a 50 25 3d 30 3a  |wrch=&FFEE:P%=0:|
00000030  4f 25 3d 26 35 33 30 30  0d 03 f2 0d 5b 4f 50 54  |O%=&5300....[OPT|
00000040  20 70 61 73 73 0d 03 fc  59 2e 78 63 68 20 45 51  | pass...Y.xch EQ|
00000050  55 42 30 3a 2e 79 63 68  20 45 51 55 42 30 3a 2e  |UB0:.ych EQUB0:.|
00000060  63 6f 6c 20 45 51 55 42  30 3a 2e 73 63 6f 72 65  |col EQUB0:.score|
00000070  20 45 51 55 57 30 3a 2e  73 63 72 63 68 20 45 51  | EQUW0:.scrch EQ|
00000080  55 42 30 3a 2e 74 69 74  73 74 61 74 20 45 51 55  |UB0:.titstat EQU|
00000090  42 30 3a 2e 6d 64 69 72  20 45 51 55 42 30 0d 04  |B0:.mdir EQUB0..|
000000a0  06 65 2e 78 73 65 74 20  45 51 55 42 30 3a 2e 79  |.e.xset EQUB0:.y|
000000b0  73 65 74 20 45 51 55 42  30 3a 2e 78 73 63 72 20  |set EQUB0:.xscr |
000000c0  45 51 55 42 30 3a 2e 79  73 63 72 20 45 51 55 42  |EQUB0:.yscr EQUB|
000000d0  30 3a 2e 78 70 6f 73 20  45 51 55 42 30 3a 2e 79  |0:.xpos EQUB0:.y|
000000e0  70 6f 73 20 45 51 55 42  30 3a 2e 6d 66 69 6e 65  |pos EQUB0:.mfine|
000000f0  20 45 51 55 42 30 3a 2e  6d 74 79 70 65 20 45 51  | EQUB0:.mtype EQ|
00000100  55 42 30 0d 04 10 79 2e  73 63 72 6e 6f 20 45 51  |UB0...y.scrno EQ|
00000110  55 42 30 3a 2e 75 70 76  65 6c 6f 20 45 51 55 42  |UB0:.upvelo EQUB|
00000120  30 3a 2e 78 6f 6c 64 20  45 51 55 42 30 3a 2e 79  |0:.xold EQUB0:.y|
00000130  6f 6c 64 20 45 51 55 42  30 3a 2e 66 69 6e 65 20  |old EQUB0:.fine |
00000140  45 51 55 42 30 3a 2e 73  6f 75 6e 64 20 45 51 55  |EQUB0:.sound EQU|
00000150  42 31 3a 2e 63 6c 6f 63  6b 20 45 51 55 42 30 3a  |B1:.clock EQUB0:|
00000160  2e 74 69 74 63 79 63 20  45 51 55 42 30 3a 2e 69  |.titcyc EQUB0:.i|
00000170  6e 76 66 6c 61 67 20 45  51 55 42 30 0d 04 1a 9c  |nvflag EQUB0....|
00000180  2e 66 61 63 65 20 45 51  55 42 31 3a 2e 70 68 61  |.face EQUB1:.pha|
00000190  73 65 20 45 51 55 42 30  3a 2e 72 67 68 74 73 20  |se EQUB0:.rghts |
000001a0  45 51 55 42 30 3a 2e 77  69 70 65 72 20 45 51 55  |EQUB0:.wiper EQU|
000001b0  42 30 3a 2e 6d 6f 76 73  74 61 67 20 45 51 55 42  |B0:.movstag EQUB|
000001c0  30 3a 2e 63 68 61 6e 67  65 64 20 45 51 55 42 30  |0:.changed EQUB0|
000001d0  3a 2e 70 6f 77 65 72 20  45 51 55 42 30 3a 2e 70  |:.power EQUB0:.p|
000001e0  6f 77 63 68 61 6e 67 65  20 45 51 55 42 30 3a 2e  |owchange EQUB0:.|
000001f0  6f 62 6a 65 63 74 73 20  45 51 55 57 30 3a 2e 6f  |objects EQUW0:.o|
00000200  62 63 68 20 45 51 55 42  30 3a 2e 67 65 74 73 74  |bch EQUB0:.getst|
00000210  61 74 20 45 51 55 42 30  0d 04 24 bb 2e 76 65 63  |at EQUB0..$..vec|
00000220  74 6f 72 20 45 51 55 57  30 3a 2e 6c 61 73 74 61  |tor EQUW0:.lasta|
00000230  74 20 45 51 55 42 30 3a  2e 6c 61 73 61 64 20 45  |t EQUB0:.lasad E|
00000240  51 55 57 30 3a 2e 6c 61  73 64 69 72 20 45 51 55  |QUW0:.lasdir EQU|
00000250  42 30 3a 2e 6c 61 73 74  65 70 20 45 51 55 42 30  |B0:.lastep EQUB0|
00000260  3a 2e 78 66 20 45 51 55  42 30 3a 2e 79 66 20 45  |:.xf EQUB0:.yf E|
00000270  51 55 42 30 3a 2e 77 69  72 65 70 20 45 51 55 57  |QUB0:.wirep EQUW|
00000280  30 3a 2e 77 69 72 65 70  62 20 45 51 55 57 30 3a  |0:.wirepb EQUW0:|
00000290  2e 78 6d 6f 6e 74 20 45  51 55 42 30 3a 2e 79 6d  |.xmont EQUB0:.ym|
000002a0  6f 6e 74 20 45 51 55 42  30 3a 2e 6d 66 6c 61 67  |ont EQUB0:.mflag|
000002b0  20 45 51 55 42 30 3a 2e  6d 6f 6e 73 74 61 74 20  | EQUB0:.monstat |
000002c0  45 51 55 42 30 3a 2e 77  69 70 65 72 6d 20 45 51  |EQUB0:.wiperm EQ|
000002d0  55 42 30 0d 04 2e 58 2e  73 63 72 6f 66 64 20 45  |UB0...X.scrofd E|
000002e0  51 55 42 30 3a 45 51 55  44 30 3a 2e 64 65 61 64  |QUB0:EQUD0:.dead|
000002f0  65 64 20 45 51 55 42 30  3a 2e 63 6c 65 61 72 75  |ed EQUB0:.clearu|
00000300  70 20 45 51 55 42 30 3a  2e 78 6d 6f 6f 20 45 51  |p EQUB0:.xmoo EQ|
00000310  55 42 30 3a 2e 79 6d 6f  6f 20 45 51 55 42 30 3a  |UB0:.ymoo EQUB0:|
00000320  2e 66 6e 73 74 20 45 51  55 42 30 0d 04 38 2b 2e  |.fnst EQUB0..8+.|
00000330  73 63 72 74 78 74 20 45  51 55 44 30 3a 2e 73 68  |scrtxt EQUD0:.sh|
00000340  6f 6f 74 20 45 51 55 42  30 3a 2e 69 74 65 6d 70  |oot EQUB0:.itemp|
00000350  20 45 51 55 42 30 0d 04  3d 30 2e 64 65 6c 79 6f  | EQUB0..=0.delyo|
00000360  75 20 4c 44 58 78 6d 6f  6f 3a 4c 44 59 79 6d 6f  |u LDXxmoo:LDYymo|
00000370  6f 3a 2e 6d 63 64 20 53  54 58 78 73 65 74 3a 53  |o:.mcd STXxset:S|
00000380  54 59 79 73 65 74 0d 04  4c 27 5d 3a e7 50 25 3e  |TYyset..L']:.P%>|
00000390  26 37 30 8c f1 22 43 6f  64 65 20 4f 76 65 72 66  |&70.."Code Overf|
000003a0  6c 6f 77 20 74 6f 3a 22  3b 50 25 3a e0 0d 04 56  |low to:";P%:...V|
000003b0  1f 50 25 3d 26 31 30 30  30 3a 4f 25 3d 26 35 38  |.P%=&1000:O%=&58|
000003c0  30 30 3a 5b 4f 50 54 20  70 61 73 73 0d 04 60 a8  |00:[OPT pass..`.|
000003d0  4c 44 59 23 26 38 30 3a  4c 44 41 23 26 33 30 3a  |LDY#&80:LDA#&30:|
000003e0  2e 7a 65 72 6f 6c 6f 70  20 53 54 41 26 31 46 46  |.zerolop STA&1FF|
000003f0  46 2c 59 3a 44 45 59 3a  42 4e 45 7a 65 72 6f 6c  |F,Y:DEY:BNEzerol|
00000400  6f 70 3a 4c 44 41 23 26  46 46 3a 53 54 41 73 63  |op:LDA#&FF:STAsc|
00000410  72 74 78 74 2b 33 3a 53  45 49 3a 4c 44 41 26 32  |rtxt+3:SEI:LDA&2|
00000420  30 34 3a 53 54 41 76 65  63 74 6f 72 3a 4c 44 41  |04:STAvector:LDA|
00000430  26 32 30 35 3a 53 54 41  76 65 63 74 6f 72 2b 31  |&205:STAvector+1|
00000440  3a 4c 44 41 23 28 69 72  71 20 83 20 32 35 36 29  |:LDA#(irq . 256)|
00000450  3a 53 54 41 26 32 30 34  3a 4c 44 41 23 28 69 72  |:STA&204:LDA#(ir|
00000460  71 20 81 20 32 35 36 29  3a 53 54 41 26 32 30 35  |q . 256):STA&205|
00000470  3a 43 4c 49 0d 04 6a 26  2e 70 72 6f 67 20 4a 53  |:CLI..j&.prog JS|
00000480  52 74 69 74 6c 65 3a 4a  53 52 62 6c 61 73 63 72  |Rtitle:JSRblascr|
00000490  3a 4a 53 52 73 63 72 6f  66 66 0d 04 74 25 4c 44  |:JSRscroff..t%LD|
000004a0  59 23 30 3a 4c 44 41 23  33 3a 53 54 41 26 37 30  |Y#0:LDA#3:STA&70|
000004b0  3a 4c 44 41 23 26 33 30  3a 53 54 41 26 37 31 0d  |:LDA#&30:STA&71.|
000004c0  04 7e 86 2e 6c 69 6e 65  73 20 4c 44 41 28 26 37  |.~..lines LDA(&7|
000004d0  30 29 2c 59 3a 84 41 23  33 3a 53 54 41 28 26 37  |0),Y:.A#3:STA(&7|
000004e0  30 29 2c 59 3a 49 4e 59  3a 4c 44 41 28 26 37 30  |0),Y:INY:LDA(&70|
000004f0  29 2c 59 3a 84 41 23 31  32 3a 53 54 41 28 26 37  |),Y:.A#12:STA(&7|
00000500  30 29 2c 59 3a 44 45 59  3a 4c 44 41 26 37 30 3a  |0),Y:DEY:LDA&70:|
00000510  43 4c 43 3a 41 44 43 23  38 3a 53 54 41 26 37 30  |CLC:ADC#8:STA&70|
00000520  3a 4c 44 41 26 37 31 3a  41 44 43 23 30 3a 53 54  |:LDA&71:ADC#0:ST|
00000530  41 26 37 31 3a 43 4d 50  23 26 36 43 3a 42 4e 45  |A&71:CMP#&6C:BNE|
00000540  6c 69 6e 65 73 0d 04 88  a3 53 54 41 70 6f 77 63  |lines....STApowc|
00000550  68 61 6e 67 65 3a 53 54  41 6f 62 63 68 3a 53 54  |hange:STAobch:ST|
00000560  41 73 63 72 63 68 3a 4c  44 59 23 32 35 35 3a 53  |Ascrch:LDY#255:S|
00000570  54 59 70 6f 77 65 72 3a  53 54 59 6f 62 6a 65 63  |TYpower:STYobjec|
00000580  74 73 3a 53 54 59 6f 62  6a 65 63 74 73 2b 31 3a  |ts:STYobjects+1:|
00000590  49 4e 59 3a 53 54 59 73  63 6f 72 65 3a 53 54 59  |INY:STYscore:STY|
000005a0  73 63 6f 72 65 2b 31 3a  2e 73 63 6f 62 61 72 6c  |score+1:.scobarl|
000005b0  6f 70 20 4c 44 41 73 62  61 72 2c 59 3a 43 4d 50  |op LDAsbar,Y:CMP|
000005c0  23 26 46 46 3a 42 45 51  73 74 65 78 74 3a 4a 53  |#&FF:BEQstext:JS|
000005d0  52 6f 73 77 72 63 68 3a  49 4e 59 3a 4a 4d 50 73  |Roswrch:INY:JMPs|
000005e0  63 6f 62 61 72 6c 6f 70  0d 04 92 d7 2e 73 74 65  |cobarlop.....ste|
000005f0  78 74 20 4c 44 41 23 31  3a 53 54 41 69 6e 76 66  |xt LDA#1:STAinvf|
00000600  6c 61 67 3a 4c 44 41 23  34 3a 53 54 41 63 6f 6c  |lag:LDA#4:STAcol|
00000610  3a 4c 44 41 23 32 3a 53  54 41 78 63 68 3a 4c 44  |:LDA#2:STAxch:LD|
00000620  41 23 32 35 3a 53 54 41  79 63 68 3a 4c 44 41 23  |A#25:STAych:LDA#|
00000630  28 73 63 6f 72 74 20 83  20 32 35 36 29 3a 53 54  |(scort . 256):ST|
00000640  41 26 37 32 3a 4c 44 41  23 28 73 63 6f 72 74 20  |A&72:LDA#(scort |
00000650  81 20 32 35 36 29 3a 53  54 41 26 37 33 3a 4a 53  |. 256):STA&73:JS|
00000660  52 73 74 72 69 6e 67 3a  4c 44 41 23 31 33 3a 53  |Rstring:LDA#13:S|
00000670  54 41 78 63 68 3a 49 4e  43 26 37 32 3a 4a 53 52  |TAxch:INC&72:JSR|
00000680  73 74 72 69 6e 67 3a 4c  44 41 23 34 3a 53 54 41  |string:LDA#4:STA|
00000690  63 6f 6c 3a 4c 44 41 23  38 3a 53 54 41 78 63 68  |col:LDA#8:STAxch|
000006a0  3a 4c 44 41 23 32 38 3a  53 54 41 79 63 68 3a 49  |:LDA#28:STAych:I|
000006b0  4e 43 26 37 32 3a 4a 53  52 73 74 72 69 6e 67 0d  |NC&72:JSRstring.|
000006c0  04 9c 9b 2e 67 61 6d 65  20 4c 44 41 23 30 3a 53  |....game LDA#0:S|
000006d0  54 41 78 73 63 72 3a 53  54 41 79 73 63 72 3a 4c  |TAxscr:STAyscr:L|
000006e0  44 41 23 32 3a 53 54 41  78 70 6f 73 3a 53 54 41  |DA#2:STAxpos:STA|
000006f0  79 70 6f 73 3a 4c 44 58  23 26 32 30 3a 2e 63 6c  |ypos:LDX#&20:.cl|
00000700  72 70 6f 74 20 53 54 58  63 6c 72 70 6e 74 2b 32  |rpot STXclrpnt+2|
00000710  3a 53 54 58 63 6c 72 70  6c 70 2b 32 3a 2e 63 6c  |:STXclrplp+2:.cl|
00000720  72 70 6c 70 20 4c 44 41  26 32 30 46 45 3a 80 23  |rplp LDA&20FE:.#|
00000730  26 37 46 3a 2e 63 6c 72  70 6e 74 20 53 54 41 26  |&7F:.clrpnt STA&|
00000740  32 30 46 45 3a 49 4e 58  3a 43 50 58 23 26 38 30  |20FE:INX:CPX#&80|
00000750  3a 42 4e 45 63 6c 72 70  6f 74 0d 04 a6 d8 2e 6e  |:BNEclrpot.....n|
00000760  65 77 73 63 72 20 4a 53  52 73 63 72 65 65 6e 3a  |ewscr JSRscreen:|
00000770  2e 6f 6c 64 73 63 72 20  4a 53 52 71 75 69 74 63  |.oldscr JSRquitc|
00000780  68 3a 4a 53 52 73 62 6f  61 72 64 3a 4c 44 41 23  |h:JSRsboard:LDA#|
00000790  30 3a 53 54 41 6d 6f 76  73 74 61 67 3a 4c 44 41  |0:STAmovstag:LDA|
000007a0  66 69 6e 65 3a 42 45 51  6d 6f 76 65 73 6c 6f 70  |fine:BEQmoveslop|
000007b0  3a 53 54 41 63 68 61 6e  67 65 64 3a 4c 44 41 77  |:STAchanged:LDAw|
000007c0  69 70 65 72 3a 50 48 41  3a 4a 53 52 6d 61 69 6e  |iper:PHA:JSRmain|
000007d0  63 6c 65 61 72 3a 50 4c  41 3a 53 54 41 77 69 70  |clear:PLA:STAwip|
000007e0  65 72 3a 2e 6d 6f 76 65  73 6c 6f 70 20 4c 44 41  |er:.moveslop LDA|
000007f0  63 68 61 6e 67 65 64 3a  42 45 51 6e 6f 64 79 6f  |changed:BEQnodyo|
00000800  75 3a 4a 53 52 64 69 73  70 79 6f 75 3a 2e 6e 6f  |u:JSRdispyou:.no|
00000810  64 79 6f 75 20 4a 53 52  64 69 73 70 6d 6f 6e 3a  |dyou JSRdispmon:|
00000820  4a 53 52 77 61 69 74 3a  49 4e 43 6d 6f 76 73 74  |JSRwait:INCmovst|
00000830  61 67 0d 04 b0 4e 4c 44  41 6d 6f 76 73 74 61 67  |ag...NLDAmovstag|
00000840  3a 43 4d 50 23 33 3a 42  4e 45 6d 6f 76 65 73 6c  |:CMP#3:BNEmovesl|
00000850  6f 70 3a 4c 44 41 6d 66  69 6e 65 3a 50 48 41 3a  |op:LDAmfine:PHA:|
00000860  4c 44 41 66 69 6e 65 3a  53 54 41 66 6e 73 74 3a  |LDAfine:STAfnst:|
00000870  4c 44 41 23 30 3a 53 54  41 6d 6f 76 73 74 61 67  |LDA#0:STAmovstag|
00000880  0d 04 ba 57 53 54 41 63  68 61 6e 67 65 64 3a 53  |...WSTAchanged:S|
00000890  54 41 66 69 6e 65 3a 53  54 41 6d 66 69 6e 65 3a  |TAfine:STAmfine:|
000008a0  4a 53 52 64 69 73 70 79  6f 75 3a 4a 53 52 64 69  |JSRdispyou:JSRdi|
000008b0  73 70 6d 6f 6e 3a 50 4c  41 3a 53 54 41 6d 66 69  |spmon:PLA:STAmfi|
000008c0  6e 65 3a 4a 53 52 77 61  69 74 3a 4a 53 52 6d 61  |ne:JSRwait:JSRma|
000008d0  69 6e 63 6c 65 61 72 0d  04 c4 97 2e 66 69 6e 65  |inclear.....fine|
000008e0  6e 64 20 4a 53 52 6c 61  73 65 72 3a 4a 53 52 64  |nd JSRlaser:JSRd|
000008f0  65 61 64 65 64 63 68 3a  4a 53 52 6d 6f 6e 70 72  |eadedch:JSRmonpr|
00000900  6f 3a 4a 53 52 67 65 74  6f 70 75 74 3a 4c 44 41  |o:JSRgetoput:LDA|
00000910  75 70 76 65 6c 6f 3a 42  45 51 66 61 6c 6c 68 3a  |upvelo:BEQfallh:|
00000920  4a 53 52 6a 75 6d 70 75  70 3a 4c 44 41 78 70 6f  |JSRjumpup:LDAxpo|
00000930  73 3a 53 54 41 78 73 65  74 3a 4c 44 41 79 70 6f  |s:STAxset:LDAypo|
00000940  73 3a 53 54 41 79 73 65  74 3a 4a 53 52 67 65 74  |s:STAyset:JSRget|
00000950  62 6c 6f 63 6b 3a 43 4d  50 23 31 30 3a 42 4e 45  |block:CMP#10:BNE|
00000960  6e 6f 66 61 6c 6c 3a 42  45 51 77 61 74 74 0d 04  |nofall:BEQwatt..|
00000970  ce bd 2e 66 61 6c 6c 68  20 4c 44 41 78 70 6f 73  |...fallh LDAxpos|
00000980  3a 53 54 41 78 73 65 74  3a 4c 44 41 79 70 6f 73  |:STAxset:LDAypos|
00000990  3a 53 54 41 79 73 65 74  3a 4a 53 52 67 65 74 62  |:STAyset:JSRgetb|
000009a0  6c 6f 63 6b 3a 43 4d 50  23 38 3a 42 45 51 77 61  |lock:CMP#8:BEQwa|
000009b0  74 74 3a 43 4d 50 23 31  34 3a 42 45 51 6c 61 64  |tt:CMP#14:BEQlad|
000009c0  64 65 72 3a 2e 6c 61 64  64 6f 77 6e 20 4c 44 41  |der:.laddown LDA|
000009d0  79 70 6f 73 3a 43 4d 50  23 39 3a 42 45 51 64 6f  |ypos:CMP#9:BEQdo|
000009e0  77 6e 73 63 72 3a 49 4e  43 79 73 65 74 3a 4a 53  |wnscr:INCyset:JS|
000009f0  52 67 65 74 62 6c 6f 63  6b 3a 4a 53 52 64 6f 6f  |Rgetblock:JSRdoo|
00000a00  72 63 68 3a 42 43 53 66  61 6c 6c 64 6f 77 6e 3a  |rch:BCSfalldown:|
00000a10  80 23 26 33 30 3a 42 45  51 66 61 6c 6c 64 6f 77  |.#&30:BEQfalldow|
00000a20  6e 3a 42 4e 45 6e 6f 66  61 6c 6c 0d 04 d8 4d 2e  |n:BNEnofall...M.|
00000a30  64 6f 77 6e 73 63 72 20  4c 44 41 23 30 3a 53 54  |downscr LDA#0:ST|
00000a40  41 79 70 6f 73 3a 49 4e  43 79 73 63 72 3a 4a 4d  |Aypos:INCyscr:JM|
00000a50  50 6e 65 77 73 63 72 3a  2e 77 61 74 74 20 4a 4d  |Pnewscr:.watt JM|
00000a60  50 7a 61 70 3a 2e 6c 61  64 64 65 72 20 4a 4d 50  |Pzap:.ladder JMP|
00000a70  20 6c 61 64 64 65 72 62  0d 04 e2 61 2e 66 61 6c  | ladderb...a.fal|
00000a80  6c 64 6f 77 6e 20 4c 44  41 23 35 3a 53 54 41 66  |ldown LDA#5:STAf|
00000a90  69 6e 65 3a 49 4e 43 79  70 6f 73 3a 2e 6e 6f 66  |ine:INCypos:.nof|
00000aa0  61 6c 6c 20 4c 44 41 23  28 28 6f 6c 64 73 63 72  |all LDA#((oldscr|
00000ab0  2d 31 29 20 81 20 32 35  36 29 3a 50 48 41 3a 4c  |-1) . 256):PHA:L|
00000ac0  44 41 23 28 28 6f 6c 64  73 63 72 2d 31 29 20 83  |DA#((oldscr-1) .|
00000ad0  20 32 35 36 29 3a 50 48  41 0d 04 ec 7f 2e 6d 6f  | 256):PHA.....mo|
00000ae0  76 65 79 6f 75 20 4c 44  58 23 26 42 36 3a 4a 53  |veyou LDX#&B6:JS|
00000af0  52 6b 65 79 62 79 74 65  3a 42 43 43 6e 6a 75 6d  |Rkeybyte:BCCnjum|
00000b00  70 3a 4a 53 52 6a 75 6d  70 3a 2e 6e 6a 75 6d 70  |p:JSRjump:.njump|
00000b10  20 4c 44 58 23 26 39 45  3a 4a 53 52 6b 65 79 62  | LDX#&9E:JSRkeyb|
00000b20  79 74 65 3a 42 43 53 6c  65 66 74 3a 2e 6e 6c 65  |yte:BCSleft:.nle|
00000b30  66 74 20 4c 44 58 23 26  42 44 3a 4a 53 52 6b 65  |ft LDX#&BD:JSRke|
00000b40  79 62 79 74 65 3a 42 43  43 6e 72 69 67 68 74 3a  |ybyte:BCCnright:|
00000b50  42 43 53 72 69 67 68 74  0d 04 f6 d9 2e 6c 65 66  |BCSright.....lef|
00000b60  74 20 4c 44 41 23 30 3a  53 54 41 66 61 63 65 3a  |t LDA#0:STAface:|
00000b70  53 54 41 72 67 68 74 73  3a 4c 44 41 78 70 6f 73  |STArghts:LDAxpos|
00000b80  3a 42 45 51 6c 65 66 74  73 63 72 3a 53 45 43 3a  |:BEQleftscr:SEC:|
00000b90  53 42 43 23 31 3a 53 54  41 78 73 65 74 3a 4c 44  |SBC#1:STAxset:LD|
00000ba0  41 79 70 6f 73 3a 53 54  41 79 73 65 74 3a 4a 53  |Aypos:STAyset:JS|
00000bb0  52 67 65 74 62 6c 6f 63  6b 3a 4a 53 52 64 6f 6f  |Rgetblock:JSRdoo|
00000bc0  72 63 68 3a 42 43 53 6e  6f 75 70 6c 3a 80 23 26  |rch:BCSnoupl:.#&|
00000bd0  33 30 3a 43 4d 50 23 26  31 30 3a 42 45 51 6e 6f  |30:CMP#&10:BEQno|
00000be0  6d 6f 76 65 3a 43 4d 50  23 26 32 30 3a 42 45 51  |move:CMP#&20:BEQ|
00000bf0  6e 6f 6d 6f 76 65 3a 43  4d 50 23 26 33 30 3a 42  |nomove:CMP#&30:B|
00000c00  4e 45 6e 6f 75 70 6c 3a  44 45 43 79 70 6f 73 3a  |NEnoupl:DECypos:|
00000c10  44 45 43 78 70 6f 73 3a  4c 44 41 23 33 3a 53 54  |DECxpos:LDA#3:ST|
00000c20  41 66 69 6e 65 3a 2e 6e  72 69 67 68 74 20 52 54  |Afine:.nright RT|
00000c30  53 0d 05 00 e8 2e 6e 6f  75 70 6c 20 44 45 43 78  |S.....noupl DECx|
00000c40  70 6f 73 3a 4c 44 41 23  31 3a 53 54 41 66 69 6e  |pos:LDA#1:STAfin|
00000c50  65 3a 2e 6e 6f 6d 6f 76  65 20 52 54 53 3a 2e 72  |e:.nomove RTS:.r|
00000c60  69 67 68 74 20 4c 44 41  23 30 3a 53 54 41 72 67  |ight LDA#0:STArg|
00000c70  68 74 73 3a 4c 44 41 23  31 3a 53 54 41 66 61 63  |hts:LDA#1:STAfac|
00000c80  65 3a 4c 44 41 78 70 6f  73 3a 43 4d 50 23 39 3a  |e:LDAxpos:CMP#9:|
00000c90  42 45 51 72 69 67 68 74  73 63 72 3a 43 4c 43 3a  |BEQrightscr:CLC:|
00000ca0  41 44 43 23 31 3a 53 54  41 78 73 65 74 3a 4c 44  |ADC#1:STAxset:LD|
00000cb0  41 79 70 6f 73 3a 53 54  41 79 73 65 74 3a 4a 53  |Aypos:STAyset:JS|
00000cc0  52 67 65 74 62 6c 6f 63  6b 3a 4a 53 52 64 6f 6f  |Rgetblock:JSRdoo|
00000cd0  72 63 68 3a 42 43 53 6e  6f 75 70 72 3a 80 23 26  |rch:BCSnoupr:.#&|
00000ce0  33 30 3a 43 4d 50 23 26  31 30 3a 42 45 51 6e 6f  |30:CMP#&10:BEQno|
00000cf0  6d 6f 76 65 72 3a 43 4d  50 23 26 32 30 3a 42 45  |mover:CMP#&20:BE|
00000d00  51 6e 6f 6d 6f 76 65 72  3a 43 4d 50 23 26 33 30  |Qnomover:CMP#&30|
00000d10  3a 42 4e 45 6e 6f 75 70  72 0d 05 0a cf 44 45 43  |:BNEnoupr....DEC|
00000d20  79 70 6f 73 3a 4c 44 41  23 34 3a 2e 6e 6f 75 70  |ypos:LDA#4:.noup|
00000d30  72 73 20 49 4e 43 78 70  6f 73 3a 53 54 41 66 69  |rs INCxpos:STAfi|
00000d40  6e 65 3a 2e 6e 6f 73 6e  64 20 52 54 53 3a 2e 6e  |ne:.nosnd RTS:.n|
00000d50  6f 75 70 72 20 4c 44 41  23 32 3a 4a 4d 50 6e 6f  |oupr LDA#2:JMPno|
00000d60  75 70 72 73 3a 2e 6e 6f  6d 6f 76 65 72 20 4c 44  |uprs:.nomover LD|
00000d70  41 23 31 3a 53 54 41 72  67 68 74 73 3a 53 54 41  |A#1:STArghts:STA|
00000d80  63 68 61 6e 67 65 64 3a  52 54 53 3a 2e 6c 65 66  |changed:RTS:.lef|
00000d90  74 73 63 72 20 4c 44 41  23 39 3a 53 54 41 78 70  |tscr LDA#9:STAxp|
00000da0  6f 73 3a 44 45 43 78 73  63 72 3a 2e 73 63 72 70  |os:DECxscr:.scrp|
00000db0  61 73 73 20 4a 4d 50 73  63 72 65 65 6e 3a 2e 72  |ass JMPscreen:.r|
00000dc0  69 67 68 74 73 63 72 20  4c 44 41 23 30 3a 53 54  |ightscr LDA#0:ST|
00000dd0  41 78 70 6f 73 3a 49 4e  43 78 73 63 72 3a 42 4e  |Axpos:INCxscr:BN|
00000de0  45 73 63 72 70 61 73 73  0d 05 14 b3 2e 6a 75 6d  |Escrpass.....jum|
00000df0  70 20 4c 44 41 79 70 6f  73 3a 43 4d 50 23 39 3a  |p LDAypos:CMP#9:|
00000e00  42 45 51 6e 6f 73 6e 64  3a 43 4c 43 3a 41 44 43  |BEQnosnd:CLC:ADC|
00000e10  23 31 3a 53 54 41 79 73  65 74 3a 4c 44 41 78 70  |#1:STAyset:LDAxp|
00000e20  6f 73 3a 53 54 41 78 73  65 74 3a 4a 53 52 67 65  |os:STAxset:JSRge|
00000e30  74 62 6c 6f 63 6b 3a 80  23 26 33 30 3a 42 45 51  |tblock:.#&30:BEQ|
00000e40  6e 6f 73 6e 64 3a 4c 44  41 23 33 3a 53 54 41 75  |nosnd:LDA#3:STAu|
00000e50  70 76 65 6c 6f 3a 4c 44  41 73 6f 75 6e 64 3a 42  |pvelo:LDAsound:B|
00000e60  45 51 6e 6f 73 6e 64 3a  4c 44 41 23 37 3a 4c 44  |EQnosnd:LDA#7:LD|
00000e70  58 23 28 6a 75 6d 70 6e  20 83 20 32 35 36 29 3a  |X#(jumpn . 256):|
00000e80  4c 44 59 23 28 6a 75 6d  70 6e 20 81 20 32 35 36  |LDY#(jumpn . 256|
00000e90  29 3a 4a 4d 50 6f 73 77  6f 72 64 0d 05 1e c6 2e  |):JMPosword.....|
00000ea0  64 69 73 70 73 68 72 20  53 45 49 3a 4c 44 41 77  |dispshr SEI:LDAw|
00000eb0  69 70 65 72 3a 42 45 51  6e 6f 77 69 70 65 3a 4c  |iper:BEQnowipe:L|
00000ec0  44 59 23 30 3a 2e 77 69  70 6c 6f 70 20 4c 44 41  |DY#0:.wiplop LDA|
00000ed0  28 77 69 72 65 70 29 2c  59 3a 53 54 41 28 26 37  |(wirep),Y:STA(&7|
00000ee0  38 29 2c 59 3a 49 4e 59  3a 43 50 59 23 33 32 3a  |8),Y:INY:CPY#32:|
00000ef0  42 4e 45 77 69 70 6c 6f  70 3a 4c 44 41 26 37 38  |BNEwiplop:LDA&78|
00000f00  3a 43 4c 43 3a 41 44 43  23 26 38 30 3a 53 54 41  |:CLC:ADC#&80:STA|
00000f10  26 37 38 3a 4c 44 41 26  37 39 3a 41 44 43 23 32  |&78:LDA&79:ADC#2|
00000f20  3a 53 54 41 26 37 39 3a  4c 44 59 23 30 3a 2e 77  |:STA&79:LDY#0:.w|
00000f30  69 70 65 62 20 4c 44 41  28 77 69 72 65 70 62 29  |ipeb LDA(wirepb)|
00000f40  2c 59 3a 53 54 41 28 26  37 38 29 2c 59 3a 49 4e  |,Y:STA(&78),Y:IN|
00000f50  59 3a 43 50 59 23 33 32  3a 42 4e 45 77 69 70 65  |Y:CPY#32:BNEwipe|
00000f60  62 0d 05 28 ba 2e 6e 6f  77 69 70 65 20 4c 44 41  |b..(..nowipe LDA|
00000f70  23 31 3a 53 54 41 77 69  70 65 72 3a 4c 44 41 78  |#1:STAwiper:LDAx|
00000f80  70 6f 73 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |pos:ASL A:ASL A:|
00000f90  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00000fa0  41 3a 41 53 4c 20 41 3a  53 54 41 26 37 30 3a 4c  |A:ASL A:STA&70:L|
00000fb0  44 41 78 70 6f 73 3a 4c  53 52 20 41 3a 4c 53 52  |DAxpos:LSR A:LSR|
00000fc0  20 41 3a 43 4c 43 3a 41  44 43 23 26 33 35 3a 53  | A:CLC:ADC#&35:S|
00000fd0  54 41 26 37 31 3a 4c 44  41 79 70 6f 73 3a 43 4c  |TA&71:LDAypos:CL|
00000fe0  43 3a 41 44 43 26 37 31  3a 53 54 41 26 37 31 3a  |C:ADC&71:STA&71:|
00000ff0  4c 44 41 79 70 6f 73 3a  41 53 4c 20 41 3a 41 53  |LDAypos:ASL A:AS|
00001000  4c 20 41 3a 43 4c 43 3a  41 44 43 26 37 31 3a 53  |L A:CLC:ADC&71:S|
00001010  54 41 26 37 31 3a 4c 44  59 23 30 0d 05 32 c5 53  |TA&71:LDY#0..2.S|
00001020  54 59 26 37 32 3a 4c 44  41 23 26 31 41 3a 53 54  |TY&72:LDA#&1A:ST|
00001030  41 26 37 33 3a 4c 44 58  6d 6f 76 73 74 61 67 3a  |A&73:LDXmovstag:|
00001040  4c 44 41 73 65 71 75 65  6e 2c 58 3a 43 4c 43 3a  |LDAsequen,X:CLC:|
00001050  41 44 43 66 69 6e 65 3a  54 41 58 3a 4c 44 41 26  |ADCfine:TAX:LDA&|
00001060  37 30 3a 43 4c 43 3a 41  44 43 6c 6f 77 61 64 2c  |70:CLC:ADClowad,|
00001070  58 3a 53 54 41 26 37 30  3a 4c 44 41 26 37 31 3a  |X:STA&70:LDA&71:|
00001080  41 44 43 68 69 67 68 61  64 2c 58 3a 53 54 41 26  |ADChighad,X:STA&|
00001090  37 31 3a 4c 44 41 6d 66  6c 61 67 3a 42 4e 45 6d  |71:LDAmflag:BNEm|
000010a0  6f 6e 73 61 64 72 3a 43  50 58 23 30 3a 42 45 51  |onsadr:CPX#0:BEQ|
000010b0  6e 6f 70 68 61 73 65 3a  4c 44 41 6d 6f 76 73 74  |nophase:LDAmovst|
000010c0  61 67 3a 43 4d 50 23 32  3a 42 45 51 6e 6f 70 68  |ag:CMP#2:BEQnoph|
000010d0  61 73 65 3a 4c 44 58 70  68 61 73 65 3a 49 4e 58  |ase:LDXphase:INX|
000010e0  0d 05 3c d9 2e 61 64 64  70 68 20 4c 44 41 26 37  |..<..addph LDA&7|
000010f0  32 3a 43 4c 43 3a 41 44  43 23 26 38 30 3a 53 54  |2:CLC:ADC#&80:ST|
00001100  41 26 37 32 3a 4c 44 41  26 37 33 3a 41 44 43 23  |A&72:LDA&73:ADC#|
00001110  30 3a 53 54 41 26 37 33  3a 44 45 58 3a 42 4e 45  |0:STA&73:DEX:BNE|
00001120  61 64 64 70 68 3a 4c 44  41 70 68 61 73 65 3a 82  |addph:LDAphase:.|
00001130  23 31 3a 53 54 41 70 68  61 73 65 3a 4a 4d 50 6e  |#1:STAphase:JMPn|
00001140  6f 70 68 61 73 65 3a 2e  6d 6f 6e 73 61 64 72 20  |ophase:.monsadr |
00001150  4c 44 41 6d 6f 6e 73 74  61 74 3a 82 23 31 3a 53  |LDAmonstat:.#1:S|
00001160  54 41 6d 6f 6e 73 74 61  74 3a 41 53 4c 20 41 3a  |TAmonstat:ASL A:|
00001170  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00001180  41 3a 41 53 4c 20 41 3a  43 4c 43 3a 41 44 43 23  |A:ASL A:CLC:ADC#|
00001190  26 38 30 3a 53 54 41 26  37 32 3a 4c 44 41 23 26  |&80:STA&72:LDA#&|
000011a0  31 42 3a 53 54 41 26 37  33 3a 4c 44 41 23 31 3a  |1B:STA&73:LDA#1:|
000011b0  53 54 41 77 69 70 65 72  6d 0d 05 46 5e 4c 44 41  |STAwiperm..F^LDA|
000011c0  6d 74 79 70 65 3a 43 4d  50 23 32 3a 42 4e 45 6e  |mtype:CMP#2:BNEn|
000011d0  6f 74 79 70 74 72 3a 4c  44 41 26 37 32 3a 43 4c  |otyptr:LDA&72:CL|
000011e0  43 3a 41 44 43 23 26 38  30 3a 53 54 41 26 37 32  |C:ADC#&80:STA&72|
000011f0  3a 4c 44 41 26 37 33 3a  41 44 43 23 30 3a 53 54  |:LDA&73:ADC#0:ST|
00001200  41 26 37 33 3a 2e 6e 6f  74 79 70 74 72 20 4a 4d  |A&73:.notyptr JM|
00001210  50 6c 65 66 61 63 65 0d  05 50 a6 2e 6e 6f 70 68  |Pleface..P..noph|
00001220  61 73 65 20 4c 44 41 72  67 68 74 73 3a 42 45 51  |ase LDArghts:BEQ|
00001230  6e 6f 74 72 67 68 74 3a  4c 44 41 26 37 30 3a 43  |notrght:LDA&70:C|
00001240  4c 43 3a 41 44 43 23 33  32 3a 53 54 41 26 37 30  |LC:ADC#32:STA&70|
00001250  3a 4c 44 41 26 37 31 3a  41 44 43 23 30 3a 53 54  |:LDA&71:ADC#0:ST|
00001260  41 26 37 31 3a 2e 6e 6f  74 72 67 68 74 20 4c 44  |A&71:.notrght LD|
00001270  41 66 61 63 65 3a 42 4e  45 6c 65 66 61 63 65 3a  |Aface:BNEleface:|
00001280  4c 44 41 26 37 32 3a 43  4c 43 3a 41 44 43 23 26  |LDA&72:CLC:ADC#&|
00001290  32 30 3a 53 54 41 26 37  32 3a 2e 6c 65 66 61 63  |20:STA&72:.lefac|
000012a0  65 20 4c 44 41 26 37 30  3a 53 54 41 26 37 38 3a  |e LDA&70:STA&78:|
000012b0  4c 44 41 26 37 31 3a 53  54 41 26 37 39 0d 05 5a  |LDA&71:STA&79..Z|
000012c0  ae 2e 6c 61 64 69 73 70  20 4c 44 41 28 26 37 30  |..ladisp LDA(&70|
000012d0  29 2c 59 3a 53 54 41 28  77 69 72 65 70 29 2c 59  |),Y:STA(wirep),Y|
000012e0  3a 82 28 26 37 32 29 2c  59 3a 53 54 41 28 26 37  |:.(&72),Y:STA(&7|
000012f0  30 29 2c 59 3a 49 4e 59  3a 43 50 59 23 33 32 3a  |0),Y:INY:CPY#32:|
00001300  42 4e 45 6c 61 64 69 73  70 3a 4c 44 41 26 37 32  |BNEladisp:LDA&72|
00001310  3a 43 4c 43 3a 41 44 43  23 26 34 30 3a 53 54 41  |:CLC:ADC#&40:STA|
00001320  26 37 32 3a 4c 44 41 26  37 33 3a 41 44 43 23 30  |&72:LDA&73:ADC#0|
00001330  3a 53 54 41 26 37 33 3a  4c 44 41 26 37 30 3a 43  |:STA&73:LDA&70:C|
00001340  4c 43 3a 41 44 43 23 26  38 30 3a 53 54 41 26 37  |LC:ADC#&80:STA&7|
00001350  30 3a 4c 44 41 26 37 31  3a 41 44 43 23 32 3a 53  |0:LDA&71:ADC#2:S|
00001360  54 41 26 37 31 3a 4c 44  59 23 30 0d 05 64 55 2e  |TA&71:LDY#0..dU.|
00001370  6c 62 64 69 73 70 20 4c  44 41 28 26 37 30 29 2c  |lbdisp LDA(&70),|
00001380  59 3a 53 54 41 28 77 69  72 65 70 62 29 2c 59 3a  |Y:STA(wirepb),Y:|
00001390  82 28 26 37 32 29 2c 59  3a 53 54 41 28 26 37 30  |.(&72),Y:STA(&70|
000013a0  29 2c 59 3a 49 4e 59 3a  43 50 59 23 33 32 3a 42  |),Y:INY:CPY#32:B|
000013b0  4e 45 6c 62 64 69 73 70  3a 43 4c 49 3a 52 54 53  |NElbdisp:CLI:RTS|
000013c0  0d 05 6e 3b 2e 77 61 69  74 20 4c 44 41 63 6c 6f  |..n;.wait LDAclo|
000013d0  63 6b 3a 43 4d 50 26 38  30 3a 42 4e 45 77 61 69  |ck:CMP&80:BNEwai|
000013e0  74 3a 4c 44 41 63 6c 6f  63 6b 3a 41 44 43 23 35  |t:LDAclock:ADC#5|
000013f0  3a 53 54 41 26 38 30 3a  52 54 53 0d 05 78 d2 2e  |:STA&80:RTS..x..|
00001400  6a 75 6d 70 75 70 20 44  45 43 75 70 76 65 6c 6f  |jumpup DECupvelo|
00001410  3a 4c 44 41 79 70 6f 73  3a 42 45 51 75 70 73 63  |:LDAypos:BEQupsc|
00001420  72 3a 53 45 43 3a 53 42  43 23 31 3a 53 54 41 79  |r:SEC:SBC#1:STAy|
00001430  73 65 74 3a 4c 44 41 78  70 6f 73 3a 53 54 41 78  |set:LDAxpos:STAx|
00001440  73 65 74 3a 4a 53 52 67  65 74 62 6c 6f 63 6b 3a  |set:JSRgetblock:|
00001450  4a 53 52 64 6f 6f 72 63  68 3a 42 43 53 75 70 6f  |JSRdoorch:BCSupo|
00001460  6e 65 3a 80 23 26 33 30  3a 42 45 51 75 70 6f 6e  |ne:.#&30:BEQupon|
00001470  65 3a 4c 44 41 23 30 3a  53 54 41 75 70 76 65 6c  |e:LDA#0:STAupvel|
00001480  6f 3a 52 54 53 3a 2e 75  70 6f 6e 65 20 4c 44 41  |o:RTS:.upone LDA|
00001490  23 36 3a 53 54 41 66 69  6e 65 3a 44 45 43 79 70  |#6:STAfine:DECyp|
000014a0  6f 73 3a 52 54 53 3a 2e  75 70 73 63 72 20 44 45  |os:RTS:.upscr DE|
000014b0  43 79 73 63 72 3a 4c 44  41 23 39 3a 53 54 41 79  |Cyscr:LDA#9:STAy|
000014c0  70 6f 73 3a 4a 4d 50 73  63 72 65 65 6e 0d 05 82  |pos:JMPscreen...|
000014d0  92 2e 73 63 72 65 65 6e  20 4c 44 41 23 30 3a 53  |..screen LDA#0:S|
000014e0  54 41 63 6c 65 61 72 75  70 3a 53 54 41 6c 61 73  |TAclearup:STAlas|
000014f0  74 61 74 3a 53 54 41 69  6e 76 66 6c 61 67 3a 4a  |tat:STAinvflag:J|
00001500  53 52 73 63 72 6f 66 66  3a 4c 44 41 78 70 6f 73  |SRscroff:LDAxpos|
00001510  3a 53 54 41 78 6f 6c 64  3a 4c 44 41 79 70 6f 73  |:STAxold:LDAypos|
00001520  3a 53 54 41 79 6f 6c 64  3a 4a 53 52 70 6f 69 6e  |:STAyold:JSRpoin|
00001530  74 3a 4c 44 41 23 26 46  46 3a 53 54 41 79 73 65  |t:LDA#&FF:STAyse|
00001540  74 3a 2e 79 6c 6f 70 20  4c 44 41 23 26 46 46 3a  |t:.ylop LDA#&FF:|
00001550  53 54 41 78 73 65 74 3a  49 4e 43 79 73 65 74 0d  |STAxset:INCyset.|
00001560  05 8c 6c 2e 78 6c 6f 70  20 49 4e 43 78 73 65 74  |..l.xlop INCxset|
00001570  3a 4a 53 52 62 6c 6f 63  6b 6f 6e 3a 4c 44 41 78  |:JSRblockon:LDAx|
00001580  73 65 74 3a 43 4d 50 23  39 3a 42 45 51 6e 65 78  |set:CMP#9:BEQnex|
00001590  74 79 3a 4a 4d 50 78 6c  6f 70 3a 2e 6e 65 78 74  |ty:JMPxlop:.next|
000015a0  79 20 4c 44 41 79 73 65  74 3a 43 4d 50 23 39 3a  |y LDAyset:CMP#9:|
000015b0  42 4e 45 79 6c 6f 70 3a  4a 53 52 73 62 6f 61 72  |BNEylop:JSRsboar|
000015c0  64 3a 4a 53 52 6e 61 6d  73 63 72 0d 05 96 e2 2e  |d:JSRnamscr.....|
000015d0  73 63 72 6f 6e 20 4c 44  41 23 31 37 3a 53 54 41  |scron LDA#17:STA|
000015e0  73 63 72 6f 66 64 3a 2e  73 63 72 6f 6e 6c 6f 70  |scrofd:.scronlop|
000015f0  20 4c 44 41 23 26 43 3a  4c 44 58 23 28 73 63 72  | LDA#&C:LDX#(scr|
00001600  6f 66 64 20 83 32 35 36  29 3a 4c 44 59 23 28 73  |ofd .256):LDY#(s|
00001610  63 72 6f 66 64 20 81 32  35 36 29 3a 4a 53 52 6f  |crofd .256):JSRo|
00001620  73 77 6f 72 64 3a 44 45  43 73 63 72 6f 66 64 3a  |sword:DECscrofd:|
00001630  4c 44 41 73 63 72 6f 66  64 3a 80 23 37 3a 53 54  |LDAscrofd:.#7:ST|
00001640  41 73 63 72 6f 66 64 2b  31 3a 4c 44 41 73 63 72  |Ascrofd+1:LDAscr|
00001650  6f 66 64 3a 42 4e 45 73  63 72 6f 6e 6c 6f 70 3a  |ofd:BNEscronlop:|
00001660  4c 44 41 63 6c 6f 63 6b  3a 43 4c 43 3a 41 44 43  |LDAclock:CLC:ADC|
00001670  23 34 3a 53 54 41 26 38  30 3a 4c 44 41 23 30 3a  |#4:STA&80:LDA#0:|
00001680  53 54 41 77 69 70 65 72  3a 53 54 41 77 69 70 65  |STAwiper:STAwipe|
00001690  72 6d 3a 4c 44 41 23 31  3a 53 54 41 63 68 61 6e  |rm:LDA#1:STAchan|
000016a0  67 65 64 3a 4a 4d 50 6d  6f 6e 73 65 74 0d 05 a0  |ged:JMPmonset...|
000016b0  91 2e 6c 61 64 64 65 72  62 20 4c 44 58 23 26 39  |..ladderb LDX#&9|
000016c0  37 3a 4a 53 52 6b 65 79  62 79 74 65 3a 42 43 53  |7:JSRkeybyte:BCS|
000016d0  66 61 6c 6c 73 65 74 3a  4c 44 58 23 26 42 36 3a  |fallset:LDX#&B6:|
000016e0  4a 53 52 6b 65 79 62 79  74 65 3a 42 43 43 73 74  |JSRkeybyte:BCCst|
000016f0  61 62 6c 65 3a 4c 44 41  23 31 3a 53 54 41 75 70  |able:LDA#1:STAup|
00001700  76 65 6c 6f 3a 4a 53 52  6a 75 6d 70 75 70 3a 4a  |velo:JSRjumpup:J|
00001710  4d 50 6f 6c 64 73 63 72  3a 2e 73 74 61 62 6c 65  |MPoldscr:.stable|
00001720  20 4a 4d 50 6e 6f 66 61  6c 6c 3a 2e 66 61 6c 6c  | JMPnofall:.fall|
00001730  73 65 74 20 4a 4d 50 6c  61 64 64 6f 77 6e 0d 05  |set JMPladdown..|
00001740  aa be 2e 62 6c 6f 63 6b  6f 6e 20 4a 53 52 6f 62  |...blockon JSRob|
00001750  6a 63 68 65 63 6b 3a 4a  53 52 67 65 74 62 6c 6f  |jcheck:JSRgetblo|
00001760  63 6b 3a 4c 44 41 78 73  65 74 3a 41 53 4c 20 41  |ck:LDAxset:ASL A|
00001770  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
00001780  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 53  | A:ASL A:ASL A:S|
00001790  54 41 26 37 30 3a 4c 44  41 78 73 65 74 3a 4c 53  |TA&70:LDAxset:LS|
000017a0  52 20 41 3a 4c 53 52 20  41 3a 43 4c 43 3a 41 44  |R A:LSR A:CLC:AD|
000017b0  43 23 26 33 35 3a 53 54  41 26 37 31 3a 4c 44 41  |C#&35:STA&71:LDA|
000017c0  79 73 65 74 3a 43 4c 43  3a 41 44 43 26 37 31 3a  |yset:CLC:ADC&71:|
000017d0  53 54 41 26 37 31 3a 4c  44 41 79 73 65 74 3a 41  |STA&71:LDAyset:A|
000017e0  53 4c 20 41 3a 41 53 4c  20 41 3a 43 4c 43 3a 41  |SL A:ASL A:CLC:A|
000017f0  44 43 26 37 31 3a 53 54  41 26 37 31 0d 05 b4 67  |DC&71:STA&71...g|
00001800  4c 44 41 26 37 32 3a 4c  53 52 20 41 3a 4c 53 52  |LDA&72:LSR A:LSR|
00001810  20 41 3a 43 4c 43 3a 41  44 43 23 26 32 30 3a 53  | A:CLC:ADC#&20:S|
00001820  54 41 26 37 33 3a 4c 44  41 26 37 32 3a 43 4d 50  |TA&73:LDA&72:CMP|
00001830  23 33 30 3a 42 45 51 64  6f 6f 72 63 6f 6c 3a 4c  |#30:BEQdoorcol:L|
00001840  53 52 20 41 3a 52 4f 52  20 41 3a 52 4f 52 20 41  |SR A:ROR A:ROR A|
00001850  3a 80 23 26 43 30 3a 53  54 41 26 37 32 3a 4c 44  |:.#&C0:STA&72:LD|
00001860  59 23 30 0d 05 be b2 2e  74 72 61 6e 73 74 6f 70  |Y#0.....transtop|
00001870  20 4c 44 41 28 26 37 32  29 2c 59 3a 80 23 26 33  | LDA(&72),Y:.#&3|
00001880  46 3a 53 54 41 26 37 34  3a 4c 44 41 28 26 37 30  |F:STA&74:LDA(&70|
00001890  29 2c 59 3a 80 23 26 43  30 3a 43 4c 43 3a 41 44  |),Y:.#&C0:CLC:AD|
000018a0  43 26 37 34 3a 53 54 41  28 26 37 30 29 2c 59 3a  |C&74:STA(&70),Y:|
000018b0  49 4e 59 3a 43 50 59 23  26 34 30 3a 42 4e 45 74  |INY:CPY#&40:BNEt|
000018c0  72 61 6e 73 74 6f 70 3a  4c 44 59 23 30 3a 4c 44  |ranstop:LDY#0:LD|
000018d0  41 26 37 32 3a 43 4c 43  3a 41 44 43 23 26 34 30  |A&72:CLC:ADC#&40|
000018e0  3a 53 54 41 26 37 32 3a  4c 44 41 26 37 30 3a 43  |:STA&72:LDA&70:C|
000018f0  4c 43 3a 41 44 43 23 26  38 30 3a 53 54 41 26 37  |LC:ADC#&80:STA&7|
00001900  30 3a 4c 44 41 26 37 31  3a 41 44 43 23 32 3a 53  |0:LDA&71:ADC#2:S|
00001910  54 41 26 37 31 0d 05 c8  7d 2e 74 72 61 6e 73 62  |TA&71...}.transb|
00001920  6f 74 20 4c 44 41 28 26  37 32 29 2c 59 3a 80 23  |ot LDA(&72),Y:.#|
00001930  26 33 46 3a 53 54 41 26  37 34 3a 4c 44 41 28 26  |&3F:STA&74:LDA(&|
00001940  37 30 29 2c 59 3a 80 23  26 43 30 3a 43 4c 43 3a  |70),Y:.#&C0:CLC:|
00001950  41 44 43 26 37 34 3a 53  54 41 28 26 37 30 29 2c  |ADC&74:STA(&70),|
00001960  59 3a 49 4e 59 3a 43 50  59 23 26 34 30 3a 42 4e  |Y:INY:CPY#&40:BN|
00001970  45 74 72 61 6e 73 62 6f  74 3a 52 54 53 3a 2e 64  |Etransbot:RTS:.d|
00001980  6f 6f 72 63 6f 6c 20 4a  4d 50 6c 6f 63 6b 74 79  |oorcol JMPlockty|
00001990  70 65 0d 05 d2 5c 2e 67  65 74 62 6c 6f 63 6b 20  |pe...\.getblock |
000019a0  4c 44 41 23 26 32 30 3a  43 4c 43 3a 41 44 43 78  |LDA#&20:CLC:ADCx|
000019b0  73 63 72 3a 53 54 41 26  37 31 3a 4c 44 41 79 73  |scr:STA&71:LDAys|
000019c0  63 72 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  |cr:ASL A:ASL A:A|
000019d0  53 4c 20 41 3a 41 53 4c  20 41 3a 43 4c 43 3a 41  |SL A:ASL A:CLC:A|
000019e0  44 43 26 37 31 3a 53 54  41 73 63 72 6e 6f 0d 05  |DC&71:STAscrno..|
000019f0  dc c8 53 54 41 26 37 31  3a 4c 44 41 79 73 65 74  |..STA&71:LDAyset|
00001a00  3a 53 54 41 26 37 30 3a  41 53 4c 20 41 3a 41 53  |:STA&70:ASL A:AS|
00001a10  4c 20 41 3a 41 53 4c 20  41 3a 50 48 41 3a 43 4c  |L A:ASL A:PHA:CL|
00001a20  43 3a 41 44 43 26 37 30  3a 53 54 41 26 37 30 3a  |C:ADC&70:STA&70:|
00001a30  50 4c 41 3a 41 53 4c 20  41 3a 43 4c 43 3a 41 44  |PLA:ASL A:CLC:AD|
00001a40  43 26 37 30 3a 53 54 41  26 37 30 3a 4c 44 59 78  |C&70:STA&70:LDYx|
00001a50  73 65 74 3a 4c 44 41 78  64 61 74 61 2c 59 3a 54  |set:LDAxdata,Y:T|
00001a60  41 59 3a 4c 44 41 28 26  37 30 29 2c 59 3a 52 4f  |AY:LDA(&70),Y:RO|
00001a70  4c 20 41 3a 52 4f 4c 20  41 3a 52 4f 4c 20 41 3a  |L A:ROL A:ROL A:|
00001a80  80 23 33 3a 53 54 41 26  37 32 3a 49 4e 59 3a 4c  |.#3:STA&72:INY:L|
00001a90  44 41 28 26 37 30 29 2c  59 3a 4c 53 52 20 41 3a  |DA(&70),Y:LSR A:|
00001aa0  4c 53 52 20 41 3a 4c 53  52 20 41 3a 4c 53 52 20  |LSR A:LSR A:LSR |
00001ab0  41 3a 80 23 31 32 0d 05  e6 7e 43 4c 43 3a 41 44  |A:.#12...~CLC:AD|
00001ac0  43 26 37 32 3a 53 54 41  26 37 32 3a 4c 44 41 78  |C&72:STA&72:LDAx|
00001ad0  73 65 74 3a 4c 53 52 20  41 3a 54 41 59 3a 4c 44  |set:LSR A:TAY:LD|
00001ae0  41 68 62 64 61 74 2c 59  3a 54 41 59 3a 4c 44 41  |Ahbdat,Y:TAY:LDA|
00001af0  28 26 37 30 29 2c 59 3a  53 54 41 26 37 33 3a 4c  |(&70),Y:STA&73:L|
00001b00  44 41 78 73 65 74 3a 80  23 31 3a 42 4e 45 62 69  |DAxset:.#1:BNEbi|
00001b10  74 32 3a 4c 44 41 26 37  33 3a 41 53 4c 20 41 3a  |t2:LDA&73:ASL A:|
00001b20  52 4f 4c 20 41 3a 52 4f  4c 20 41 3a 4a 4d 50 66  |ROL A:ROL A:JMPf|
00001b30  62 67 6f 74 0d 05 f0 5b  2e 62 69 74 32 20 4c 44  |bgot...[.bit2 LD|
00001b40  41 26 37 33 3a 41 53 4c  20 41 3a 52 4f 4c 20 41  |A&73:ASL A:ROL A|
00001b50  3a 2e 66 62 67 6f 74 20  80 23 31 3a 41 53 4c 20  |:.fbgot .#1:ASL |
00001b60  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
00001b70  4c 20 41 3a 43 4c 43 3a  41 44 43 26 37 32 3a 41  |L A:CLC:ADC&72:A|
00001b80  53 4c 20 41 3a 53 54 41  26 37 32 3a 52 54 53 0d  |SL A:STA&72:RTS.|
00001b90  05 fa 8f 2e 62 6c 61 73  63 72 20 4a 53 52 73 63  |....blascr JSRsc|
00001ba0  72 6f 66 66 3a 4c 44 59  23 30 3a 53 54 59 26 37  |roff:LDY#0:STY&7|
00001bb0  30 3a 4c 44 41 23 26 33  30 3a 53 54 41 26 37 31  |0:LDA#&30:STA&71|
00001bc0  3a 2e 62 6c 61 6e 6c 6f  70 20 4c 44 41 28 26 37  |:.blanlop LDA(&7|
00001bd0  30 29 2c 59 3a 80 23 26  43 30 3a 53 54 41 28 26  |0),Y:.#&C0:STA(&|
00001be0  37 30 29 2c 59 3a 49 4e  59 3a 42 4e 45 62 6c 61  |70),Y:INY:BNEbla|
00001bf0  6e 6c 6f 70 3a 49 4e 43  26 37 31 3a 4c 44 41 26  |nlop:INC&71:LDA&|
00001c00  37 31 3a 43 4d 50 23 26  38 30 3a 42 4e 45 62 6c  |71:CMP#&80:BNEbl|
00001c10  61 6e 6c 6f 70 3a 4a 4d  50 73 63 72 6f 6e 0d 06  |anlop:JMPscron..|
00001c20  04 43 2e 70 75 74 63 68  20 41 53 4c 20 41 3a 41  |.C.putch ASL A:A|
00001c30  53 4c 20 41 3a 41 53 4c  20 41 3a 54 41 58 3a 4c  |SL A:ASL A:TAX:L|
00001c40  44 41 23 30 3a 53 54 41  26 37 30 3a 4c 44 41 23  |DA#0:STA&70:LDA#|
00001c50  26 33 30 3a 53 54 41 26  37 31 3a 4c 44 59 78 63  |&30:STA&71:LDYxc|
00001c60  68 0d 06 0e 4e 2e 78 6c  6f 70 63 20 42 45 51 6e  |h...N.xlopc BEQn|
00001c70  6f 78 63 68 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |oxch:LDA&70:CLC:|
00001c80  41 44 43 23 26 32 30 3a  53 54 41 26 37 30 3a 4c  |ADC#&20:STA&70:L|
00001c90  44 41 26 37 31 3a 41 44  43 23 30 3a 53 54 41 26  |DA&71:ADC#0:STA&|
00001ca0  37 31 3a 44 45 59 3a 4a  4d 50 78 6c 6f 70 63 0d  |71:DEY:JMPxlopc.|
00001cb0  06 18 5c 2e 6e 6f 78 63  68 20 4c 44 59 79 63 68  |..\.noxch LDYych|
00001cc0  3a 2e 79 6c 6f 70 63 20  42 45 51 6e 6f 79 63 68  |:.ylopc BEQnoych|
00001cd0  3a 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 23  |:LDA&70:CLC:ADC#|
00001ce0  26 38 30 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |&80:STA&70:LDA&7|
00001cf0  31 3a 41 44 43 23 32 3a  53 54 41 26 37 31 3a 44  |1:ADC#2:STA&71:D|
00001d00  45 59 3a 4a 4d 50 79 6c  6f 70 63 0d 06 22 5d 2e  |EY:JMPylopc.."].|
00001d10  6e 6f 79 63 68 20 4c 44  59 23 30 3a 2e 73 6c 69  |noych LDY#0:.sli|
00001d20  6e 65 20 4c 44 41 26 43  30 30 2c 58 3a 2e 6c 69  |ne LDA&C00,X:.li|
00001d30  6e 65 6c 6f 70 20 50 48  41 3a 41 53 4c 20 41 3a  |nelop PHA:ASL A:|
00001d40  52 4f 4c 20 41 3a 52 4f  4c 20 41 3a 80 23 33 3a  |ROL A:ROL A:.#3:|
00001d50  42 45 51 62 6c 61 6e 63  68 3a 53 54 41 69 74 65  |BEQblanch:STAite|
00001d60  6d 70 3a 4c 44 41 23 30  0d 06 27 89 2e 63 6f 6c  |mp:LDA#0..'..col|
00001d70  63 68 20 43 4c 43 3a 41  44 43 63 6f 6c 3a 44 45  |ch CLC:ADCcol:DE|
00001d80  43 69 74 65 6d 70 3a 42  4e 45 63 6f 6c 63 68 3a  |Citemp:BNEcolch:|
00001d90  2e 62 6c 61 6e 63 68 20  53 54 41 69 74 65 6d 70  |.blanch STAitemp|
00001da0  3a 4c 44 41 28 26 37 30  29 2c 59 3a 80 23 26 43  |:LDA(&70),Y:.#&C|
00001db0  30 3a 84 41 69 74 65 6d  70 3a 82 69 6e 76 66 6c  |0:.Aitemp:.invfl|
00001dc0  61 67 3a 53 54 41 28 26  37 30 29 2c 59 3a 54 59  |ag:STA(&70),Y:TY|
00001dd0  41 3a 43 4c 43 3a 41 44  43 23 38 3a 54 41 59 3a  |A:CLC:ADC#8:TAY:|
00001de0  43 4d 50 23 26 32 30 3a  42 43 53 6e 65 77 6c 69  |CMP#&20:BCSnewli|
00001df0  6e 0d 06 2c 4d 50 4c 41  3a 41 53 4c 20 41 3a 41  |n..,MPLA:ASL A:A|
00001e00  53 4c 20 41 3a 4a 4d 50  6c 69 6e 65 6c 6f 70 3a  |SL A:JMPlinelop:|
00001e10  2e 6e 65 77 6c 69 6e 20  80 23 37 3a 54 41 59 3a  |.newlin .#7:TAY:|
00001e20  50 4c 41 3a 49 4e 59 3a  49 4e 58 3a 43 50 59 23  |PLA:INY:INX:CPY#|
00001e30  38 3a 42 4e 45 73 6c 69  6e 65 3a 52 54 53 0d 06  |8:BNEsline:RTS..|
00001e40  31 26 2e 6b 65 79 62 79  74 65 20 4c 44 41 23 26  |1&.keybyte LDA#&|
00001e50  38 31 3a 4c 44 59 23 26  46 46 3a 4a 4d 50 6f 73  |81:LDY#&FF:JMPos|
00001e60  62 79 74 65 0d 06 36 07  5d 3a e1 0d ff           |byte..6.]:...|
00001e6d