�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#0:.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
~c.lines LDA(&70),Y:�A#12:STA(&70),Y:LDA&70:CLC:ADC#9: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#25: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#&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:�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
dV.lbdisp LDA(&70),Y:STA(wirepb),Y:�A(&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 a6  |00:[OPT pass..`.|
000003d0  4c 44 59 23 26 38 30 3a  4c 44 41 23 30 3a 2e 7a  |LDY#&80:LDA#0:.z|
000003e0  65 72 6f 6c 6f 70 20 53  54 41 26 31 46 46 46 2c  |erolop STA&1FFF,|
000003f0  59 3a 44 45 59 3a 42 4e  45 7a 65 72 6f 6c 6f 70  |Y:DEY:BNEzerolop|
00000400  3a 4c 44 41 23 26 46 46  3a 53 54 41 73 63 72 74  |:LDA#&FF:STAscrt|
00000410  78 74 2b 33 3a 53 45 49  3a 4c 44 41 26 32 30 34  |xt+3:SEI:LDA&204|
00000420  3a 53 54 41 76 65 63 74  6f 72 3a 4c 44 41 26 32  |:STAvector:LDA&2|
00000430  30 35 3a 53 54 41 76 65  63 74 6f 72 2b 31 3a 4c  |05:STAvector+1:L|
00000440  44 41 23 28 69 72 71 20  83 20 32 35 36 29 3a 53  |DA#(irq . 256):S|
00000450  54 41 26 32 30 34 3a 4c  44 41 23 28 69 72 71 20  |TA&204:LDA#(irq |
00000460  81 20 32 35 36 29 3a 53  54 41 26 32 30 35 3a 43  |. 256):STA&205:C|
00000470  4c 49 0d 04 6a 26 2e 70  72 6f 67 20 4a 53 52 74  |LI..j&.prog JSRt|
00000480  69 74 6c 65 3a 4a 53 52  62 6c 61 73 63 72 3a 4a  |itle:JSRblascr:J|
00000490  53 52 73 63 72 6f 66 66  0d 04 74 25 4c 44 59 23  |SRscroff..t%LDY#|
000004a0  30 3a 4c 44 41 23 33 3a  53 54 41 26 37 30 3a 4c  |0:LDA#3:STA&70:L|
000004b0  44 41 23 26 33 30 3a 53  54 41 26 37 31 0d 04 7e  |DA#&30:STA&71..~|
000004c0  63 2e 6c 69 6e 65 73 20  4c 44 41 28 26 37 30 29  |c.lines LDA(&70)|
000004d0  2c 59 3a 84 41 23 31 32  3a 53 54 41 28 26 37 30  |,Y:.A#12:STA(&70|
000004e0  29 2c 59 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |),Y:LDA&70:CLC:A|
000004f0  44 43 23 39 3a 53 54 41  26 37 30 3a 4c 44 41 26  |DC#9:STA&70:LDA&|
00000500  37 31 3a 41 44 43 23 30  3a 53 54 41 26 37 31 3a  |71:ADC#0:STA&71:|
00000510  43 4d 50 23 26 36 43 3a  42 4e 45 6c 69 6e 65 73  |CMP#&6C:BNElines|
00000520  0d 04 88 a3 53 54 41 70  6f 77 63 68 61 6e 67 65  |....STApowchange|
00000530  3a 53 54 41 6f 62 63 68  3a 53 54 41 73 63 72 63  |:STAobch:STAscrc|
00000540  68 3a 4c 44 59 23 32 35  35 3a 53 54 59 70 6f 77  |h:LDY#255:STYpow|
00000550  65 72 3a 53 54 59 6f 62  6a 65 63 74 73 3a 53 54  |er:STYobjects:ST|
00000560  59 6f 62 6a 65 63 74 73  2b 31 3a 49 4e 59 3a 53  |Yobjects+1:INY:S|
00000570  54 59 73 63 6f 72 65 3a  53 54 59 73 63 6f 72 65  |TYscore:STYscore|
00000580  2b 31 3a 2e 73 63 6f 62  61 72 6c 6f 70 20 4c 44  |+1:.scobarlop LD|
00000590  41 73 62 61 72 2c 59 3a  43 4d 50 23 26 46 46 3a  |Asbar,Y:CMP#&FF:|
000005a0  42 45 51 73 74 65 78 74  3a 4a 53 52 6f 73 77 72  |BEQstext:JSRoswr|
000005b0  63 68 3a 49 4e 59 3a 4a  4d 50 73 63 6f 62 61 72  |ch:INY:JMPscobar|
000005c0  6c 6f 70 0d 04 92 b9 2e  73 74 65 78 74 20 4c 44  |lop.....stext LD|
000005d0  41 23 31 3a 53 54 41 63  6f 6c 3a 4c 44 41 23 32  |A#1:STAcol:LDA#2|
000005e0  3a 53 54 41 78 63 68 3a  4c 44 41 23 32 35 3a 53  |:STAxch:LDA#25:S|
000005f0  54 41 79 63 68 3a 4c 44  41 23 28 73 63 6f 72 74  |TAych:LDA#(scort|
00000600  20 83 20 32 35 36 29 3a  53 54 41 26 37 32 3a 4c  | . 256):STA&72:L|
00000610  44 41 23 28 73 63 6f 72  74 20 81 20 32 35 36 29  |DA#(scort . 256)|
00000620  3a 53 54 41 26 37 33 3a  4a 53 52 73 74 72 69 6e  |:STA&73:JSRstrin|
00000630  67 3a 4c 44 41 23 31 33  3a 53 54 41 78 63 68 3a  |g:LDA#13:STAxch:|
00000640  49 4e 43 26 37 32 3a 4a  53 52 73 74 72 69 6e 67  |INC&72:JSRstring|
00000650  3a 4c 44 41 23 38 3a 53  54 41 78 63 68 3a 4c 44  |:LDA#8:STAxch:LD|
00000660  41 23 32 38 3a 53 54 41  79 63 68 3a 49 4e 43 26  |A#28:STAych:INC&|
00000670  37 32 3a 4a 53 52 73 74  72 69 6e 67 0d 04 9c 9b  |72:JSRstring....|
00000680  2e 67 61 6d 65 20 4c 44  41 23 30 3a 53 54 41 78  |.game LDA#0:STAx|
00000690  73 63 72 3a 53 54 41 79  73 63 72 3a 4c 44 41 23  |scr:STAyscr:LDA#|
000006a0  32 3a 53 54 41 78 70 6f  73 3a 53 54 41 79 70 6f  |2:STAxpos:STAypo|
000006b0  73 3a 4c 44 58 23 26 32  30 3a 2e 63 6c 72 70 6f  |s:LDX#&20:.clrpo|
000006c0  74 20 53 54 58 63 6c 72  70 6e 74 2b 32 3a 53 54  |t STXclrpnt+2:ST|
000006d0  58 63 6c 72 70 6c 70 2b  32 3a 2e 63 6c 72 70 6c  |Xclrplp+2:.clrpl|
000006e0  70 20 4c 44 41 26 32 30  46 45 3a 80 23 26 37 46  |p LDA&20FE:.#&7F|
000006f0  3a 2e 63 6c 72 70 6e 74  20 53 54 41 26 32 30 46  |:.clrpnt STA&20F|
00000700  45 3a 49 4e 58 3a 43 50  58 23 26 38 30 3a 42 4e  |E:INX:CPX#&80:BN|
00000710  45 63 6c 72 70 6f 74 0d  04 a6 d8 2e 6e 65 77 73  |Eclrpot.....news|
00000720  63 72 20 4a 53 52 73 63  72 65 65 6e 3a 2e 6f 6c  |cr JSRscreen:.ol|
00000730  64 73 63 72 20 4a 53 52  71 75 69 74 63 68 3a 4a  |dscr JSRquitch:J|
00000740  53 52 73 62 6f 61 72 64  3a 4c 44 41 23 30 3a 53  |SRsboard:LDA#0:S|
00000750  54 41 6d 6f 76 73 74 61  67 3a 4c 44 41 66 69 6e  |TAmovstag:LDAfin|
00000760  65 3a 42 45 51 6d 6f 76  65 73 6c 6f 70 3a 53 54  |e:BEQmoveslop:ST|
00000770  41 63 68 61 6e 67 65 64  3a 4c 44 41 77 69 70 65  |Achanged:LDAwipe|
00000780  72 3a 50 48 41 3a 4a 53  52 6d 61 69 6e 63 6c 65  |r:PHA:JSRmaincle|
00000790  61 72 3a 50 4c 41 3a 53  54 41 77 69 70 65 72 3a  |ar:PLA:STAwiper:|
000007a0  2e 6d 6f 76 65 73 6c 6f  70 20 4c 44 41 63 68 61  |.moveslop LDAcha|
000007b0  6e 67 65 64 3a 42 45 51  6e 6f 64 79 6f 75 3a 4a  |nged:BEQnodyou:J|
000007c0  53 52 64 69 73 70 79 6f  75 3a 2e 6e 6f 64 79 6f  |SRdispyou:.nodyo|
000007d0  75 20 4a 53 52 64 69 73  70 6d 6f 6e 3a 4a 53 52  |u JSRdispmon:JSR|
000007e0  77 61 69 74 3a 49 4e 43  6d 6f 76 73 74 61 67 0d  |wait:INCmovstag.|
000007f0  04 b0 4e 4c 44 41 6d 6f  76 73 74 61 67 3a 43 4d  |..NLDAmovstag:CM|
00000800  50 23 33 3a 42 4e 45 6d  6f 76 65 73 6c 6f 70 3a  |P#3:BNEmoveslop:|
00000810  4c 44 41 6d 66 69 6e 65  3a 50 48 41 3a 4c 44 41  |LDAmfine:PHA:LDA|
00000820  66 69 6e 65 3a 53 54 41  66 6e 73 74 3a 4c 44 41  |fine:STAfnst:LDA|
00000830  23 30 3a 53 54 41 6d 6f  76 73 74 61 67 0d 04 ba  |#0:STAmovstag...|
00000840  57 53 54 41 63 68 61 6e  67 65 64 3a 53 54 41 66  |WSTAchanged:STAf|
00000850  69 6e 65 3a 53 54 41 6d  66 69 6e 65 3a 4a 53 52  |ine:STAmfine:JSR|
00000860  64 69 73 70 79 6f 75 3a  4a 53 52 64 69 73 70 6d  |dispyou:JSRdispm|
00000870  6f 6e 3a 50 4c 41 3a 53  54 41 6d 66 69 6e 65 3a  |on:PLA:STAmfine:|
00000880  4a 53 52 77 61 69 74 3a  4a 53 52 6d 61 69 6e 63  |JSRwait:JSRmainc|
00000890  6c 65 61 72 0d 04 c4 97  2e 66 69 6e 65 6e 64 20  |lear.....finend |
000008a0  4a 53 52 6c 61 73 65 72  3a 4a 53 52 64 65 61 64  |JSRlaser:JSRdead|
000008b0  65 64 63 68 3a 4a 53 52  6d 6f 6e 70 72 6f 3a 4a  |edch:JSRmonpro:J|
000008c0  53 52 67 65 74 6f 70 75  74 3a 4c 44 41 75 70 76  |SRgetoput:LDAupv|
000008d0  65 6c 6f 3a 42 45 51 66  61 6c 6c 68 3a 4a 53 52  |elo:BEQfallh:JSR|
000008e0  6a 75 6d 70 75 70 3a 4c  44 41 78 70 6f 73 3a 53  |jumpup:LDAxpos:S|
000008f0  54 41 78 73 65 74 3a 4c  44 41 79 70 6f 73 3a 53  |TAxset:LDAypos:S|
00000900  54 41 79 73 65 74 3a 4a  53 52 67 65 74 62 6c 6f  |TAyset:JSRgetblo|
00000910  63 6b 3a 43 4d 50 23 31  30 3a 42 4e 45 6e 6f 66  |ck:CMP#10:BNEnof|
00000920  61 6c 6c 3a 42 45 51 77  61 74 74 0d 04 ce bd 2e  |all:BEQwatt.....|
00000930  66 61 6c 6c 68 20 4c 44  41 78 70 6f 73 3a 53 54  |fallh LDAxpos:ST|
00000940  41 78 73 65 74 3a 4c 44  41 79 70 6f 73 3a 53 54  |Axset:LDAypos:ST|
00000950  41 79 73 65 74 3a 4a 53  52 67 65 74 62 6c 6f 63  |Ayset:JSRgetbloc|
00000960  6b 3a 43 4d 50 23 38 3a  42 45 51 77 61 74 74 3a  |k:CMP#8:BEQwatt:|
00000970  43 4d 50 23 31 34 3a 42  45 51 6c 61 64 64 65 72  |CMP#14:BEQladder|
00000980  3a 2e 6c 61 64 64 6f 77  6e 20 4c 44 41 79 70 6f  |:.laddown LDAypo|
00000990  73 3a 43 4d 50 23 39 3a  42 45 51 64 6f 77 6e 73  |s:CMP#9:BEQdowns|
000009a0  63 72 3a 49 4e 43 79 73  65 74 3a 4a 53 52 67 65  |cr:INCyset:JSRge|
000009b0  74 62 6c 6f 63 6b 3a 4a  53 52 64 6f 6f 72 63 68  |tblock:JSRdoorch|
000009c0  3a 42 43 53 66 61 6c 6c  64 6f 77 6e 3a 80 23 26  |:BCSfalldown:.#&|
000009d0  33 30 3a 42 45 51 66 61  6c 6c 64 6f 77 6e 3a 42  |30:BEQfalldown:B|
000009e0  4e 45 6e 6f 66 61 6c 6c  0d 04 d8 4d 2e 64 6f 77  |NEnofall...M.dow|
000009f0  6e 73 63 72 20 4c 44 41  23 30 3a 53 54 41 79 70  |nscr LDA#0:STAyp|
00000a00  6f 73 3a 49 4e 43 79 73  63 72 3a 4a 4d 50 6e 65  |os:INCyscr:JMPne|
00000a10  77 73 63 72 3a 2e 77 61  74 74 20 4a 4d 50 7a 61  |wscr:.watt JMPza|
00000a20  70 3a 2e 6c 61 64 64 65  72 20 4a 4d 50 20 6c 61  |p:.ladder JMP la|
00000a30  64 64 65 72 62 0d 04 e2  61 2e 66 61 6c 6c 64 6f  |dderb...a.falldo|
00000a40  77 6e 20 4c 44 41 23 35  3a 53 54 41 66 69 6e 65  |wn LDA#5:STAfine|
00000a50  3a 49 4e 43 79 70 6f 73  3a 2e 6e 6f 66 61 6c 6c  |:INCypos:.nofall|
00000a60  20 4c 44 41 23 28 28 6f  6c 64 73 63 72 2d 31 29  | LDA#((oldscr-1)|
00000a70  20 81 20 32 35 36 29 3a  50 48 41 3a 4c 44 41 23  | . 256):PHA:LDA#|
00000a80  28 28 6f 6c 64 73 63 72  2d 31 29 20 83 20 32 35  |((oldscr-1) . 25|
00000a90  36 29 3a 50 48 41 0d 04  ec 7f 2e 6d 6f 76 65 79  |6):PHA.....movey|
00000aa0  6f 75 20 4c 44 58 23 26  42 36 3a 4a 53 52 6b 65  |ou LDX#&B6:JSRke|
00000ab0  79 62 79 74 65 3a 42 43  43 6e 6a 75 6d 70 3a 4a  |ybyte:BCCnjump:J|
00000ac0  53 52 6a 75 6d 70 3a 2e  6e 6a 75 6d 70 20 4c 44  |SRjump:.njump LD|
00000ad0  58 23 26 39 45 3a 4a 53  52 6b 65 79 62 79 74 65  |X#&9E:JSRkeybyte|
00000ae0  3a 42 43 53 6c 65 66 74  3a 2e 6e 6c 65 66 74 20  |:BCSleft:.nleft |
00000af0  4c 44 58 23 26 42 44 3a  4a 53 52 6b 65 79 62 79  |LDX#&BD:JSRkeyby|
00000b00  74 65 3a 42 43 43 6e 72  69 67 68 74 3a 42 43 53  |te:BCCnright:BCS|
00000b10  72 69 67 68 74 0d 04 f6  d9 2e 6c 65 66 74 20 4c  |right.....left L|
00000b20  44 41 23 30 3a 53 54 41  66 61 63 65 3a 53 54 41  |DA#0:STAface:STA|
00000b30  72 67 68 74 73 3a 4c 44  41 78 70 6f 73 3a 42 45  |rghts:LDAxpos:BE|
00000b40  51 6c 65 66 74 73 63 72  3a 53 45 43 3a 53 42 43  |Qleftscr:SEC:SBC|
00000b50  23 31 3a 53 54 41 78 73  65 74 3a 4c 44 41 79 70  |#1:STAxset:LDAyp|
00000b60  6f 73 3a 53 54 41 79 73  65 74 3a 4a 53 52 67 65  |os:STAyset:JSRge|
00000b70  74 62 6c 6f 63 6b 3a 4a  53 52 64 6f 6f 72 63 68  |tblock:JSRdoorch|
00000b80  3a 42 43 53 6e 6f 75 70  6c 3a 80 23 26 33 30 3a  |:BCSnoupl:.#&30:|
00000b90  43 4d 50 23 26 31 30 3a  42 45 51 6e 6f 6d 6f 76  |CMP#&10:BEQnomov|
00000ba0  65 3a 43 4d 50 23 26 32  30 3a 42 45 51 6e 6f 6d  |e:CMP#&20:BEQnom|
00000bb0  6f 76 65 3a 43 4d 50 23  26 33 30 3a 42 4e 45 6e  |ove:CMP#&30:BNEn|
00000bc0  6f 75 70 6c 3a 44 45 43  79 70 6f 73 3a 44 45 43  |oupl:DECypos:DEC|
00000bd0  78 70 6f 73 3a 4c 44 41  23 33 3a 53 54 41 66 69  |xpos:LDA#3:STAfi|
00000be0  6e 65 3a 2e 6e 72 69 67  68 74 20 52 54 53 0d 05  |ne:.nright RTS..|
00000bf0  00 e8 2e 6e 6f 75 70 6c  20 44 45 43 78 70 6f 73  |...noupl DECxpos|
00000c00  3a 4c 44 41 23 31 3a 53  54 41 66 69 6e 65 3a 2e  |:LDA#1:STAfine:.|
00000c10  6e 6f 6d 6f 76 65 20 52  54 53 3a 2e 72 69 67 68  |nomove RTS:.righ|
00000c20  74 20 4c 44 41 23 30 3a  53 54 41 72 67 68 74 73  |t LDA#0:STArghts|
00000c30  3a 4c 44 41 23 31 3a 53  54 41 66 61 63 65 3a 4c  |:LDA#1:STAface:L|
00000c40  44 41 78 70 6f 73 3a 43  4d 50 23 39 3a 42 45 51  |DAxpos:CMP#9:BEQ|
00000c50  72 69 67 68 74 73 63 72  3a 43 4c 43 3a 41 44 43  |rightscr:CLC:ADC|
00000c60  23 31 3a 53 54 41 78 73  65 74 3a 4c 44 41 79 70  |#1:STAxset:LDAyp|
00000c70  6f 73 3a 53 54 41 79 73  65 74 3a 4a 53 52 67 65  |os:STAyset:JSRge|
00000c80  74 62 6c 6f 63 6b 3a 4a  53 52 64 6f 6f 72 63 68  |tblock:JSRdoorch|
00000c90  3a 42 43 53 6e 6f 75 70  72 3a 80 23 26 33 30 3a  |:BCSnoupr:.#&30:|
00000ca0  43 4d 50 23 26 31 30 3a  42 45 51 6e 6f 6d 6f 76  |CMP#&10:BEQnomov|
00000cb0  65 72 3a 43 4d 50 23 26  32 30 3a 42 45 51 6e 6f  |er:CMP#&20:BEQno|
00000cc0  6d 6f 76 65 72 3a 43 4d  50 23 26 33 30 3a 42 4e  |mover:CMP#&30:BN|
00000cd0  45 6e 6f 75 70 72 0d 05  0a cf 44 45 43 79 70 6f  |Enoupr....DECypo|
00000ce0  73 3a 4c 44 41 23 34 3a  2e 6e 6f 75 70 72 73 20  |s:LDA#4:.nouprs |
00000cf0  49 4e 43 78 70 6f 73 3a  53 54 41 66 69 6e 65 3a  |INCxpos:STAfine:|
00000d00  2e 6e 6f 73 6e 64 20 52  54 53 3a 2e 6e 6f 75 70  |.nosnd RTS:.noup|
00000d10  72 20 4c 44 41 23 32 3a  4a 4d 50 6e 6f 75 70 72  |r LDA#2:JMPnoupr|
00000d20  73 3a 2e 6e 6f 6d 6f 76  65 72 20 4c 44 41 23 31  |s:.nomover LDA#1|
00000d30  3a 53 54 41 72 67 68 74  73 3a 53 54 41 63 68 61  |:STArghts:STAcha|
00000d40  6e 67 65 64 3a 52 54 53  3a 2e 6c 65 66 74 73 63  |nged:RTS:.leftsc|
00000d50  72 20 4c 44 41 23 39 3a  53 54 41 78 70 6f 73 3a  |r LDA#9:STAxpos:|
00000d60  44 45 43 78 73 63 72 3a  2e 73 63 72 70 61 73 73  |DECxscr:.scrpass|
00000d70  20 4a 4d 50 73 63 72 65  65 6e 3a 2e 72 69 67 68  | JMPscreen:.righ|
00000d80  74 73 63 72 20 4c 44 41  23 30 3a 53 54 41 78 70  |tscr LDA#0:STAxp|
00000d90  6f 73 3a 49 4e 43 78 73  63 72 3a 42 4e 45 73 63  |os:INCxscr:BNEsc|
00000da0  72 70 61 73 73 0d 05 14  b3 2e 6a 75 6d 70 20 4c  |rpass.....jump L|
00000db0  44 41 79 70 6f 73 3a 43  4d 50 23 39 3a 42 45 51  |DAypos:CMP#9:BEQ|
00000dc0  6e 6f 73 6e 64 3a 43 4c  43 3a 41 44 43 23 31 3a  |nosnd:CLC:ADC#1:|
00000dd0  53 54 41 79 73 65 74 3a  4c 44 41 78 70 6f 73 3a  |STAyset:LDAxpos:|
00000de0  53 54 41 78 73 65 74 3a  4a 53 52 67 65 74 62 6c  |STAxset:JSRgetbl|
00000df0  6f 63 6b 3a 80 23 26 33  30 3a 42 45 51 6e 6f 73  |ock:.#&30:BEQnos|
00000e00  6e 64 3a 4c 44 41 23 33  3a 53 54 41 75 70 76 65  |nd:LDA#3:STAupve|
00000e10  6c 6f 3a 4c 44 41 73 6f  75 6e 64 3a 42 45 51 6e  |lo:LDAsound:BEQn|
00000e20  6f 73 6e 64 3a 4c 44 41  23 37 3a 4c 44 58 23 28  |osnd:LDA#7:LDX#(|
00000e30  6a 75 6d 70 6e 20 83 20  32 35 36 29 3a 4c 44 59  |jumpn . 256):LDY|
00000e40  23 28 6a 75 6d 70 6e 20  81 20 32 35 36 29 3a 4a  |#(jumpn . 256):J|
00000e50  4d 50 6f 73 77 6f 72 64  0d 05 1e c6 2e 64 69 73  |MPosword.....dis|
00000e60  70 73 68 72 20 53 45 49  3a 4c 44 41 77 69 70 65  |pshr SEI:LDAwipe|
00000e70  72 3a 42 45 51 6e 6f 77  69 70 65 3a 4c 44 59 23  |r:BEQnowipe:LDY#|
00000e80  30 3a 2e 77 69 70 6c 6f  70 20 4c 44 41 28 77 69  |0:.wiplop LDA(wi|
00000e90  72 65 70 29 2c 59 3a 53  54 41 28 26 37 38 29 2c  |rep),Y:STA(&78),|
00000ea0  59 3a 49 4e 59 3a 43 50  59 23 33 32 3a 42 4e 45  |Y:INY:CPY#32:BNE|
00000eb0  77 69 70 6c 6f 70 3a 4c  44 41 26 37 38 3a 43 4c  |wiplop:LDA&78:CL|
00000ec0  43 3a 41 44 43 23 26 38  30 3a 53 54 41 26 37 38  |C:ADC#&80:STA&78|
00000ed0  3a 4c 44 41 26 37 39 3a  41 44 43 23 32 3a 53 54  |:LDA&79:ADC#2:ST|
00000ee0  41 26 37 39 3a 4c 44 59  23 30 3a 2e 77 69 70 65  |A&79:LDY#0:.wipe|
00000ef0  62 20 4c 44 41 28 77 69  72 65 70 62 29 2c 59 3a  |b LDA(wirepb),Y:|
00000f00  53 54 41 28 26 37 38 29  2c 59 3a 49 4e 59 3a 43  |STA(&78),Y:INY:C|
00000f10  50 59 23 33 32 3a 42 4e  45 77 69 70 65 62 0d 05  |PY#32:BNEwipeb..|
00000f20  28 ba 2e 6e 6f 77 69 70  65 20 4c 44 41 23 31 3a  |(..nowipe LDA#1:|
00000f30  53 54 41 77 69 70 65 72  3a 4c 44 41 78 70 6f 73  |STAwiper:LDAxpos|
00000f40  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
00000f50  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
00000f60  53 4c 20 41 3a 53 54 41  26 37 30 3a 4c 44 41 78  |SL A:STA&70:LDAx|
00000f70  70 6f 73 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |pos:LSR A:LSR A:|
00000f80  43 4c 43 3a 41 44 43 23  26 33 35 3a 53 54 41 26  |CLC:ADC#&35:STA&|
00000f90  37 31 3a 4c 44 41 79 70  6f 73 3a 43 4c 43 3a 41  |71:LDAypos:CLC:A|
00000fa0  44 43 26 37 31 3a 53 54  41 26 37 31 3a 4c 44 41  |DC&71:STA&71:LDA|
00000fb0  79 70 6f 73 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |ypos:ASL A:ASL A|
00000fc0  3a 43 4c 43 3a 41 44 43  26 37 31 3a 53 54 41 26  |:CLC:ADC&71:STA&|
00000fd0  37 31 3a 4c 44 59 23 30  0d 05 32 c5 53 54 59 26  |71:LDY#0..2.STY&|
00000fe0  37 32 3a 4c 44 41 23 26  31 41 3a 53 54 41 26 37  |72:LDA#&1A:STA&7|
00000ff0  33 3a 4c 44 58 6d 6f 76  73 74 61 67 3a 4c 44 41  |3:LDXmovstag:LDA|
00001000  73 65 71 75 65 6e 2c 58  3a 43 4c 43 3a 41 44 43  |sequen,X:CLC:ADC|
00001010  66 69 6e 65 3a 54 41 58  3a 4c 44 41 26 37 30 3a  |fine:TAX:LDA&70:|
00001020  43 4c 43 3a 41 44 43 6c  6f 77 61 64 2c 58 3a 53  |CLC:ADClowad,X:S|
00001030  54 41 26 37 30 3a 4c 44  41 26 37 31 3a 41 44 43  |TA&70:LDA&71:ADC|
00001040  68 69 67 68 61 64 2c 58  3a 53 54 41 26 37 31 3a  |highad,X:STA&71:|
00001050  4c 44 41 6d 66 6c 61 67  3a 42 4e 45 6d 6f 6e 73  |LDAmflag:BNEmons|
00001060  61 64 72 3a 43 50 58 23  30 3a 42 45 51 6e 6f 70  |adr:CPX#0:BEQnop|
00001070  68 61 73 65 3a 4c 44 41  6d 6f 76 73 74 61 67 3a  |hase:LDAmovstag:|
00001080  43 4d 50 23 32 3a 42 45  51 6e 6f 70 68 61 73 65  |CMP#2:BEQnophase|
00001090  3a 4c 44 58 70 68 61 73  65 3a 49 4e 58 0d 05 3c  |:LDXphase:INX..<|
000010a0  d9 2e 61 64 64 70 68 20  4c 44 41 26 37 32 3a 43  |..addph LDA&72:C|
000010b0  4c 43 3a 41 44 43 23 26  38 30 3a 53 54 41 26 37  |LC:ADC#&80:STA&7|
000010c0  32 3a 4c 44 41 26 37 33  3a 41 44 43 23 30 3a 53  |2:LDA&73:ADC#0:S|
000010d0  54 41 26 37 33 3a 44 45  58 3a 42 4e 45 61 64 64  |TA&73:DEX:BNEadd|
000010e0  70 68 3a 4c 44 41 70 68  61 73 65 3a 82 23 31 3a  |ph:LDAphase:.#1:|
000010f0  53 54 41 70 68 61 73 65  3a 4a 4d 50 6e 6f 70 68  |STAphase:JMPnoph|
00001100  61 73 65 3a 2e 6d 6f 6e  73 61 64 72 20 4c 44 41  |ase:.monsadr LDA|
00001110  6d 6f 6e 73 74 61 74 3a  82 23 31 3a 53 54 41 6d  |monstat:.#1:STAm|
00001120  6f 6e 73 74 61 74 3a 41  53 4c 20 41 3a 41 53 4c  |onstat:ASL A:ASL|
00001130  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
00001140  53 4c 20 41 3a 43 4c 43  3a 41 44 43 23 26 38 30  |SL A:CLC:ADC#&80|
00001150  3a 53 54 41 26 37 32 3a  4c 44 41 23 26 31 42 3a  |:STA&72:LDA#&1B:|
00001160  53 54 41 26 37 33 3a 4c  44 41 23 31 3a 53 54 41  |STA&73:LDA#1:STA|
00001170  77 69 70 65 72 6d 0d 05  46 5e 4c 44 41 6d 74 79  |wiperm..F^LDAmty|
00001180  70 65 3a 43 4d 50 23 32  3a 42 4e 45 6e 6f 74 79  |pe:CMP#2:BNEnoty|
00001190  70 74 72 3a 4c 44 41 26  37 32 3a 43 4c 43 3a 41  |ptr:LDA&72:CLC:A|
000011a0  44 43 23 26 38 30 3a 53  54 41 26 37 32 3a 4c 44  |DC#&80:STA&72:LD|
000011b0  41 26 37 33 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&73:ADC#0:STA&7|
000011c0  33 3a 2e 6e 6f 74 79 70  74 72 20 4a 4d 50 6c 65  |3:.notyptr JMPle|
000011d0  66 61 63 65 0d 05 50 a6  2e 6e 6f 70 68 61 73 65  |face..P..nophase|
000011e0  20 4c 44 41 72 67 68 74  73 3a 42 45 51 6e 6f 74  | LDArghts:BEQnot|
000011f0  72 67 68 74 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |rght:LDA&70:CLC:|
00001200  41 44 43 23 33 32 3a 53  54 41 26 37 30 3a 4c 44  |ADC#32:STA&70:LD|
00001210  41 26 37 31 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&71:ADC#0:STA&7|
00001220  31 3a 2e 6e 6f 74 72 67  68 74 20 4c 44 41 66 61  |1:.notrght LDAfa|
00001230  63 65 3a 42 4e 45 6c 65  66 61 63 65 3a 4c 44 41  |ce:BNEleface:LDA|
00001240  26 37 32 3a 43 4c 43 3a  41 44 43 23 26 32 30 3a  |&72:CLC:ADC#&20:|
00001250  53 54 41 26 37 32 3a 2e  6c 65 66 61 63 65 20 4c  |STA&72:.leface L|
00001260  44 41 26 37 30 3a 53 54  41 26 37 38 3a 4c 44 41  |DA&70:STA&78:LDA|
00001270  26 37 31 3a 53 54 41 26  37 39 0d 05 5a af 2e 6c  |&71:STA&79..Z..l|
00001280  61 64 69 73 70 20 4c 44  41 28 26 37 30 29 2c 59  |adisp LDA(&70),Y|
00001290  3a 53 54 41 28 77 69 72  65 70 29 2c 59 3a 84 41  |:STA(wirep),Y:.A|
000012a0  28 26 37 32 29 2c 59 3a  53 54 41 28 26 37 30 29  |(&72),Y:STA(&70)|
000012b0  2c 59 3a 49 4e 59 3a 43  50 59 23 33 32 3a 42 4e  |,Y:INY:CPY#32:BN|
000012c0  45 6c 61 64 69 73 70 3a  4c 44 41 26 37 32 3a 43  |Eladisp:LDA&72:C|
000012d0  4c 43 3a 41 44 43 23 26  34 30 3a 53 54 41 26 37  |LC:ADC#&40:STA&7|
000012e0  32 3a 4c 44 41 26 37 33  3a 41 44 43 23 30 3a 53  |2:LDA&73:ADC#0:S|
000012f0  54 41 26 37 33 3a 4c 44  41 26 37 30 3a 43 4c 43  |TA&73:LDA&70:CLC|
00001300  3a 41 44 43 23 26 38 30  3a 53 54 41 26 37 30 3a  |:ADC#&80:STA&70:|
00001310  4c 44 41 26 37 31 3a 41  44 43 23 32 3a 53 54 41  |LDA&71:ADC#2:STA|
00001320  26 37 31 3a 4c 44 59 23  30 0d 05 64 56 2e 6c 62  |&71:LDY#0..dV.lb|
00001330  64 69 73 70 20 4c 44 41  28 26 37 30 29 2c 59 3a  |disp LDA(&70),Y:|
00001340  53 54 41 28 77 69 72 65  70 62 29 2c 59 3a 84 41  |STA(wirepb),Y:.A|
00001350  28 26 37 32 29 2c 59 3a  53 54 41 28 26 37 30 29  |(&72),Y:STA(&70)|
00001360  2c 59 3a 49 4e 59 3a 43  50 59 23 33 32 3a 42 4e  |,Y:INY:CPY#32:BN|
00001370  45 6c 62 64 69 73 70 3a  43 4c 49 3a 52 54 53 0d  |Elbdisp:CLI:RTS.|
00001380  05 6e 3b 2e 77 61 69 74  20 4c 44 41 63 6c 6f 63  |.n;.wait LDAcloc|
00001390  6b 3a 43 4d 50 26 38 30  3a 42 4e 45 77 61 69 74  |k:CMP&80:BNEwait|
000013a0  3a 4c 44 41 63 6c 6f 63  6b 3a 41 44 43 23 35 3a  |:LDAclock:ADC#5:|
000013b0  53 54 41 26 38 30 3a 52  54 53 0d 05 78 d2 2e 6a  |STA&80:RTS..x..j|
000013c0  75 6d 70 75 70 20 44 45  43 75 70 76 65 6c 6f 3a  |umpup DECupvelo:|
000013d0  4c 44 41 79 70 6f 73 3a  42 45 51 75 70 73 63 72  |LDAypos:BEQupscr|
000013e0  3a 53 45 43 3a 53 42 43  23 31 3a 53 54 41 79 73  |:SEC:SBC#1:STAys|
000013f0  65 74 3a 4c 44 41 78 70  6f 73 3a 53 54 41 78 73  |et:LDAxpos:STAxs|
00001400  65 74 3a 4a 53 52 67 65  74 62 6c 6f 63 6b 3a 4a  |et:JSRgetblock:J|
00001410  53 52 64 6f 6f 72 63 68  3a 42 43 53 75 70 6f 6e  |SRdoorch:BCSupon|
00001420  65 3a 80 23 26 33 30 3a  42 45 51 75 70 6f 6e 65  |e:.#&30:BEQupone|
00001430  3a 4c 44 41 23 30 3a 53  54 41 75 70 76 65 6c 6f  |:LDA#0:STAupvelo|
00001440  3a 52 54 53 3a 2e 75 70  6f 6e 65 20 4c 44 41 23  |:RTS:.upone LDA#|
00001450  36 3a 53 54 41 66 69 6e  65 3a 44 45 43 79 70 6f  |6:STAfine:DECypo|
00001460  73 3a 52 54 53 3a 2e 75  70 73 63 72 20 44 45 43  |s:RTS:.upscr DEC|
00001470  79 73 63 72 3a 4c 44 41  23 39 3a 53 54 41 79 70  |yscr:LDA#9:STAyp|
00001480  6f 73 3a 4a 4d 50 73 63  72 65 65 6e 0d 05 82 92  |os:JMPscreen....|
00001490  2e 73 63 72 65 65 6e 20  4c 44 41 23 30 3a 53 54  |.screen LDA#0:ST|
000014a0  41 63 6c 65 61 72 75 70  3a 53 54 41 6c 61 73 74  |Aclearup:STAlast|
000014b0  61 74 3a 53 54 41 69 6e  76 66 6c 61 67 3a 4a 53  |at:STAinvflag:JS|
000014c0  52 73 63 72 6f 66 66 3a  4c 44 41 78 70 6f 73 3a  |Rscroff:LDAxpos:|
000014d0  53 54 41 78 6f 6c 64 3a  4c 44 41 79 70 6f 73 3a  |STAxold:LDAypos:|
000014e0  53 54 41 79 6f 6c 64 3a  4a 53 52 70 6f 69 6e 74  |STAyold:JSRpoint|
000014f0  3a 4c 44 41 23 26 46 46  3a 53 54 41 79 73 65 74  |:LDA#&FF:STAyset|
00001500  3a 2e 79 6c 6f 70 20 4c  44 41 23 26 46 46 3a 53  |:.ylop LDA#&FF:S|
00001510  54 41 78 73 65 74 3a 49  4e 43 79 73 65 74 0d 05  |TAxset:INCyset..|
00001520  8c 6c 2e 78 6c 6f 70 20  49 4e 43 78 73 65 74 3a  |.l.xlop INCxset:|
00001530  4a 53 52 62 6c 6f 63 6b  6f 6e 3a 4c 44 41 78 73  |JSRblockon:LDAxs|
00001540  65 74 3a 43 4d 50 23 39  3a 42 45 51 6e 65 78 74  |et:CMP#9:BEQnext|
00001550  79 3a 4a 4d 50 78 6c 6f  70 3a 2e 6e 65 78 74 79  |y:JMPxlop:.nexty|
00001560  20 4c 44 41 79 73 65 74  3a 43 4d 50 23 39 3a 42  | LDAyset:CMP#9:B|
00001570  4e 45 79 6c 6f 70 3a 4a  53 52 73 62 6f 61 72 64  |NEylop:JSRsboard|
00001580  3a 4a 53 52 6e 61 6d 73  63 72 0d 05 96 e2 2e 73  |:JSRnamscr.....s|
00001590  63 72 6f 6e 20 4c 44 41  23 31 37 3a 53 54 41 73  |cron LDA#17:STAs|
000015a0  63 72 6f 66 64 3a 2e 73  63 72 6f 6e 6c 6f 70 20  |crofd:.scronlop |
000015b0  4c 44 41 23 26 43 3a 4c  44 58 23 28 73 63 72 6f  |LDA#&C:LDX#(scro|
000015c0  66 64 20 83 32 35 36 29  3a 4c 44 59 23 28 73 63  |fd .256):LDY#(sc|
000015d0  72 6f 66 64 20 81 32 35  36 29 3a 4a 53 52 6f 73  |rofd .256):JSRos|
000015e0  77 6f 72 64 3a 44 45 43  73 63 72 6f 66 64 3a 4c  |word:DECscrofd:L|
000015f0  44 41 73 63 72 6f 66 64  3a 80 23 37 3a 53 54 41  |DAscrofd:.#7:STA|
00001600  73 63 72 6f 66 64 2b 31  3a 4c 44 41 73 63 72 6f  |scrofd+1:LDAscro|
00001610  66 64 3a 42 4e 45 73 63  72 6f 6e 6c 6f 70 3a 4c  |fd:BNEscronlop:L|
00001620  44 41 63 6c 6f 63 6b 3a  43 4c 43 3a 41 44 43 23  |DAclock:CLC:ADC#|
00001630  34 3a 53 54 41 26 38 30  3a 4c 44 41 23 30 3a 53  |4:STA&80:LDA#0:S|
00001640  54 41 77 69 70 65 72 3a  53 54 41 77 69 70 65 72  |TAwiper:STAwiper|
00001650  6d 3a 4c 44 41 23 31 3a  53 54 41 63 68 61 6e 67  |m:LDA#1:STAchang|
00001660  65 64 3a 4a 4d 50 6d 6f  6e 73 65 74 0d 05 a0 91  |ed:JMPmonset....|
00001670  2e 6c 61 64 64 65 72 62  20 4c 44 58 23 26 39 37  |.ladderb LDX#&97|
00001680  3a 4a 53 52 6b 65 79 62  79 74 65 3a 42 43 53 66  |:JSRkeybyte:BCSf|
00001690  61 6c 6c 73 65 74 3a 4c  44 58 23 26 42 36 3a 4a  |allset:LDX#&B6:J|
000016a0  53 52 6b 65 79 62 79 74  65 3a 42 43 43 73 74 61  |SRkeybyte:BCCsta|
000016b0  62 6c 65 3a 4c 44 41 23  31 3a 53 54 41 75 70 76  |ble:LDA#1:STAupv|
000016c0  65 6c 6f 3a 4a 53 52 6a  75 6d 70 75 70 3a 4a 4d  |elo:JSRjumpup:JM|
000016d0  50 6f 6c 64 73 63 72 3a  2e 73 74 61 62 6c 65 20  |Poldscr:.stable |
000016e0  4a 4d 50 6e 6f 66 61 6c  6c 3a 2e 66 61 6c 6c 73  |JMPnofall:.falls|
000016f0  65 74 20 4a 4d 50 6c 61  64 64 6f 77 6e 0d 05 aa  |et JMPladdown...|
00001700  be 2e 62 6c 6f 63 6b 6f  6e 20 4a 53 52 6f 62 6a  |..blockon JSRobj|
00001710  63 68 65 63 6b 3a 4a 53  52 67 65 74 62 6c 6f 63  |check:JSRgetbloc|
00001720  6b 3a 4c 44 41 78 73 65  74 3a 41 53 4c 20 41 3a  |k:LDAxset:ASL A:|
00001730  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00001740  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 53 54  |A:ASL A:ASL A:ST|
00001750  41 26 37 30 3a 4c 44 41  78 73 65 74 3a 4c 53 52  |A&70:LDAxset:LSR|
00001760  20 41 3a 4c 53 52 20 41  3a 43 4c 43 3a 41 44 43  | A:LSR A:CLC:ADC|
00001770  23 26 33 35 3a 53 54 41  26 37 31 3a 4c 44 41 79  |#&35:STA&71:LDAy|
00001780  73 65 74 3a 43 4c 43 3a  41 44 43 26 37 31 3a 53  |set:CLC:ADC&71:S|
00001790  54 41 26 37 31 3a 4c 44  41 79 73 65 74 3a 41 53  |TA&71:LDAyset:AS|
000017a0  4c 20 41 3a 41 53 4c 20  41 3a 43 4c 43 3a 41 44  |L A:ASL A:CLC:AD|
000017b0  43 26 37 31 3a 53 54 41  26 37 31 0d 05 b4 67 4c  |C&71:STA&71...gL|
000017c0  44 41 26 37 32 3a 4c 53  52 20 41 3a 4c 53 52 20  |DA&72:LSR A:LSR |
000017d0  41 3a 43 4c 43 3a 41 44  43 23 26 32 30 3a 53 54  |A:CLC:ADC#&20:ST|
000017e0  41 26 37 33 3a 4c 44 41  26 37 32 3a 43 4d 50 23  |A&73:LDA&72:CMP#|
000017f0  33 30 3a 42 45 51 64 6f  6f 72 63 6f 6c 3a 4c 53  |30:BEQdoorcol:LS|
00001800  52 20 41 3a 52 4f 52 20  41 3a 52 4f 52 20 41 3a  |R A:ROR A:ROR A:|
00001810  80 23 26 43 30 3a 53 54  41 26 37 32 3a 4c 44 59  |.#&C0:STA&72:LDY|
00001820  23 30 0d 05 be b2 2e 74  72 61 6e 73 74 6f 70 20  |#0.....transtop |
00001830  4c 44 41 28 26 37 32 29  2c 59 3a 80 23 26 33 46  |LDA(&72),Y:.#&3F|
00001840  3a 53 54 41 26 37 34 3a  4c 44 41 28 26 37 30 29  |:STA&74:LDA(&70)|
00001850  2c 59 3a 80 23 26 43 30  3a 43 4c 43 3a 41 44 43  |,Y:.#&C0:CLC:ADC|
00001860  26 37 34 3a 53 54 41 28  26 37 30 29 2c 59 3a 49  |&74:STA(&70),Y:I|
00001870  4e 59 3a 43 50 59 23 26  34 30 3a 42 4e 45 74 72  |NY:CPY#&40:BNEtr|
00001880  61 6e 73 74 6f 70 3a 4c  44 59 23 30 3a 4c 44 41  |anstop:LDY#0:LDA|
00001890  26 37 32 3a 43 4c 43 3a  41 44 43 23 26 34 30 3a  |&72:CLC:ADC#&40:|
000018a0  53 54 41 26 37 32 3a 4c  44 41 26 37 30 3a 43 4c  |STA&72:LDA&70:CL|
000018b0  43 3a 41 44 43 23 26 38  30 3a 53 54 41 26 37 30  |C:ADC#&80:STA&70|
000018c0  3a 4c 44 41 26 37 31 3a  41 44 43 23 32 3a 53 54  |:LDA&71:ADC#2:ST|
000018d0  41 26 37 31 0d 05 c8 7d  2e 74 72 61 6e 73 62 6f  |A&71...}.transbo|
000018e0  74 20 4c 44 41 28 26 37  32 29 2c 59 3a 80 23 26  |t LDA(&72),Y:.#&|
000018f0  33 46 3a 53 54 41 26 37  34 3a 4c 44 41 28 26 37  |3F:STA&74:LDA(&7|
00001900  30 29 2c 59 3a 80 23 26  43 30 3a 43 4c 43 3a 41  |0),Y:.#&C0:CLC:A|
00001910  44 43 26 37 34 3a 53 54  41 28 26 37 30 29 2c 59  |DC&74:STA(&70),Y|
00001920  3a 49 4e 59 3a 43 50 59  23 26 34 30 3a 42 4e 45  |:INY:CPY#&40:BNE|
00001930  74 72 61 6e 73 62 6f 74  3a 52 54 53 3a 2e 64 6f  |transbot:RTS:.do|
00001940  6f 72 63 6f 6c 20 4a 4d  50 6c 6f 63 6b 74 79 70  |orcol JMPlocktyp|
00001950  65 0d 05 d2 5c 2e 67 65  74 62 6c 6f 63 6b 20 4c  |e...\.getblock L|
00001960  44 41 23 26 32 30 3a 43  4c 43 3a 41 44 43 78 73  |DA#&20:CLC:ADCxs|
00001970  63 72 3a 53 54 41 26 37  31 3a 4c 44 41 79 73 63  |cr:STA&71:LDAysc|
00001980  72 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |r:ASL A:ASL A:AS|
00001990  4c 20 41 3a 41 53 4c 20  41 3a 43 4c 43 3a 41 44  |L A:ASL A:CLC:AD|
000019a0  43 26 37 31 3a 53 54 41  73 63 72 6e 6f 0d 05 dc  |C&71:STAscrno...|
000019b0  c8 53 54 41 26 37 31 3a  4c 44 41 79 73 65 74 3a  |.STA&71:LDAyset:|
000019c0  53 54 41 26 37 30 3a 41  53 4c 20 41 3a 41 53 4c  |STA&70:ASL A:ASL|
000019d0  20 41 3a 41 53 4c 20 41  3a 50 48 41 3a 43 4c 43  | A:ASL A:PHA:CLC|
000019e0  3a 41 44 43 26 37 30 3a  53 54 41 26 37 30 3a 50  |:ADC&70:STA&70:P|
000019f0  4c 41 3a 41 53 4c 20 41  3a 43 4c 43 3a 41 44 43  |LA:ASL A:CLC:ADC|
00001a00  26 37 30 3a 53 54 41 26  37 30 3a 4c 44 59 78 73  |&70:STA&70:LDYxs|
00001a10  65 74 3a 4c 44 41 78 64  61 74 61 2c 59 3a 54 41  |et:LDAxdata,Y:TA|
00001a20  59 3a 4c 44 41 28 26 37  30 29 2c 59 3a 52 4f 4c  |Y:LDA(&70),Y:ROL|
00001a30  20 41 3a 52 4f 4c 20 41  3a 52 4f 4c 20 41 3a 80  | A:ROL A:ROL A:.|
00001a40  23 33 3a 53 54 41 26 37  32 3a 49 4e 59 3a 4c 44  |#3:STA&72:INY:LD|
00001a50  41 28 26 37 30 29 2c 59  3a 4c 53 52 20 41 3a 4c  |A(&70),Y:LSR A:L|
00001a60  53 52 20 41 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |SR A:LSR A:LSR A|
00001a70  3a 80 23 31 32 0d 05 e6  7e 43 4c 43 3a 41 44 43  |:.#12...~CLC:ADC|
00001a80  26 37 32 3a 53 54 41 26  37 32 3a 4c 44 41 78 73  |&72:STA&72:LDAxs|
00001a90  65 74 3a 4c 53 52 20 41  3a 54 41 59 3a 4c 44 41  |et:LSR A:TAY:LDA|
00001aa0  68 62 64 61 74 2c 59 3a  54 41 59 3a 4c 44 41 28  |hbdat,Y:TAY:LDA(|
00001ab0  26 37 30 29 2c 59 3a 53  54 41 26 37 33 3a 4c 44  |&70),Y:STA&73:LD|
00001ac0  41 78 73 65 74 3a 80 23  31 3a 42 4e 45 62 69 74  |Axset:.#1:BNEbit|
00001ad0  32 3a 4c 44 41 26 37 33  3a 41 53 4c 20 41 3a 52  |2:LDA&73:ASL A:R|
00001ae0  4f 4c 20 41 3a 52 4f 4c  20 41 3a 4a 4d 50 66 62  |OL A:ROL A:JMPfb|
00001af0  67 6f 74 0d 05 f0 5b 2e  62 69 74 32 20 4c 44 41  |got...[.bit2 LDA|
00001b00  26 37 33 3a 41 53 4c 20  41 3a 52 4f 4c 20 41 3a  |&73:ASL A:ROL A:|
00001b10  2e 66 62 67 6f 74 20 80  23 31 3a 41 53 4c 20 41  |.fbgot .#1:ASL A|
00001b20  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
00001b30  20 41 3a 43 4c 43 3a 41  44 43 26 37 32 3a 41 53  | A:CLC:ADC&72:AS|
00001b40  4c 20 41 3a 53 54 41 26  37 32 3a 52 54 53 0d 05  |L A:STA&72:RTS..|
00001b50  fa 8f 2e 62 6c 61 73 63  72 20 4a 53 52 73 63 72  |...blascr JSRscr|
00001b60  6f 66 66 3a 4c 44 59 23  30 3a 53 54 59 26 37 30  |off:LDY#0:STY&70|
00001b70  3a 4c 44 41 23 26 33 30  3a 53 54 41 26 37 31 3a  |:LDA#&30:STA&71:|
00001b80  2e 62 6c 61 6e 6c 6f 70  20 4c 44 41 28 26 37 30  |.blanlop LDA(&70|
00001b90  29 2c 59 3a 80 23 26 43  30 3a 53 54 41 28 26 37  |),Y:.#&C0:STA(&7|
00001ba0  30 29 2c 59 3a 49 4e 59  3a 42 4e 45 62 6c 61 6e  |0),Y:INY:BNEblan|
00001bb0  6c 6f 70 3a 49 4e 43 26  37 31 3a 4c 44 41 26 37  |lop:INC&71:LDA&7|
00001bc0  31 3a 43 4d 50 23 26 38  30 3a 42 4e 45 62 6c 61  |1:CMP#&80:BNEbla|
00001bd0  6e 6c 6f 70 3a 4a 4d 50  73 63 72 6f 6e 0d 06 04  |nlop:JMPscron...|
00001be0  43 2e 70 75 74 63 68 20  41 53 4c 20 41 3a 41 53  |C.putch ASL A:AS|
00001bf0  4c 20 41 3a 41 53 4c 20  41 3a 54 41 58 3a 4c 44  |L A:ASL A:TAX:LD|
00001c00  41 23 30 3a 53 54 41 26  37 30 3a 4c 44 41 23 26  |A#0:STA&70:LDA#&|
00001c10  33 30 3a 53 54 41 26 37  31 3a 4c 44 59 78 63 68  |30:STA&71:LDYxch|
00001c20  0d 06 0e 4e 2e 78 6c 6f  70 63 20 42 45 51 6e 6f  |...N.xlopc BEQno|
00001c30  78 63 68 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |xch:LDA&70:CLC:A|
00001c40  44 43 23 26 32 30 3a 53  54 41 26 37 30 3a 4c 44  |DC#&20:STA&70:LD|
00001c50  41 26 37 31 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&71:ADC#0:STA&7|
00001c60  31 3a 44 45 59 3a 4a 4d  50 78 6c 6f 70 63 0d 06  |1:DEY:JMPxlopc..|
00001c70  18 5c 2e 6e 6f 78 63 68  20 4c 44 59 79 63 68 3a  |.\.noxch LDYych:|
00001c80  2e 79 6c 6f 70 63 20 42  45 51 6e 6f 79 63 68 3a  |.ylopc BEQnoych:|
00001c90  4c 44 41 26 37 30 3a 43  4c 43 3a 41 44 43 23 26  |LDA&70:CLC:ADC#&|
00001ca0  38 30 3a 53 54 41 26 37  30 3a 4c 44 41 26 37 31  |80:STA&70:LDA&71|
00001cb0  3a 41 44 43 23 32 3a 53  54 41 26 37 31 3a 44 45  |:ADC#2:STA&71:DE|
00001cc0  59 3a 4a 4d 50 79 6c 6f  70 63 0d 06 22 5d 2e 6e  |Y:JMPylopc.."].n|
00001cd0  6f 79 63 68 20 4c 44 59  23 30 3a 2e 73 6c 69 6e  |oych LDY#0:.slin|
00001ce0  65 20 4c 44 41 26 43 30  30 2c 58 3a 2e 6c 69 6e  |e LDA&C00,X:.lin|
00001cf0  65 6c 6f 70 20 50 48 41  3a 41 53 4c 20 41 3a 52  |elop PHA:ASL A:R|
00001d00  4f 4c 20 41 3a 52 4f 4c  20 41 3a 80 23 33 3a 42  |OL A:ROL A:.#3:B|
00001d10  45 51 62 6c 61 6e 63 68  3a 53 54 41 69 74 65 6d  |EQblanch:STAitem|
00001d20  70 3a 4c 44 41 23 30 0d  06 27 89 2e 63 6f 6c 63  |p:LDA#0..'..colc|
00001d30  68 20 43 4c 43 3a 41 44  43 63 6f 6c 3a 44 45 43  |h CLC:ADCcol:DEC|
00001d40  69 74 65 6d 70 3a 42 4e  45 63 6f 6c 63 68 3a 2e  |itemp:BNEcolch:.|
00001d50  62 6c 61 6e 63 68 20 53  54 41 69 74 65 6d 70 3a  |blanch STAitemp:|
00001d60  4c 44 41 28 26 37 30 29  2c 59 3a 80 23 26 43 30  |LDA(&70),Y:.#&C0|
00001d70  3a 84 41 69 74 65 6d 70  3a 82 69 6e 76 66 6c 61  |:.Aitemp:.invfla|
00001d80  67 3a 53 54 41 28 26 37  30 29 2c 59 3a 54 59 41  |g:STA(&70),Y:TYA|
00001d90  3a 43 4c 43 3a 41 44 43  23 38 3a 54 41 59 3a 43  |:CLC:ADC#8:TAY:C|
00001da0  4d 50 23 26 32 30 3a 42  43 53 6e 65 77 6c 69 6e  |MP#&20:BCSnewlin|
00001db0  0d 06 2c 4d 50 4c 41 3a  41 53 4c 20 41 3a 41 53  |..,MPLA:ASL A:AS|
00001dc0  4c 20 41 3a 4a 4d 50 6c  69 6e 65 6c 6f 70 3a 2e  |L A:JMPlinelop:.|
00001dd0  6e 65 77 6c 69 6e 20 80  23 37 3a 54 41 59 3a 50  |newlin .#7:TAY:P|
00001de0  4c 41 3a 49 4e 59 3a 49  4e 58 3a 43 50 59 23 38  |LA:INY:INX:CPY#8|
00001df0  3a 42 4e 45 73 6c 69 6e  65 3a 52 54 53 0d 06 31  |:BNEsline:RTS..1|
00001e00  26 2e 6b 65 79 62 79 74  65 20 4c 44 41 23 26 38  |&.keybyte LDA#&8|
00001e10  31 3a 4c 44 59 23 26 46  46 3a 4a 4d 50 6f 73 62  |1:LDY#&FF:JMPosb|
00001e20  79 74 65 0d 06 36 07 5d  3a e1 0d ff              |yte..6.]:...|
00001e2c