�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
=0.delyou LDXxmoo:LDYymoo:.mcd STXxset:STYyset
B�.dark LDY#5:CPYxscr:BNEreald:DEY:CPYyscr:BNEreald:LDA#&1A:CMPobjects:BEQreald:CMPobjects+1:BEQreald:LDA#0:STA&72:JMPblockon+6:.reald JMPblockon
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#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
�.moveyou LDA#&81:LDX#&B6:LDY#&FF:JSRosbyte:BCCnjump:JSRjump:.njump LDA#&81:LDX#&9E:LDY#&FF:JSRosbyte:BCSleft:.nleft LDA#&81:LDX#&BD:LDY#&FF:JSRosbyte: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
�i.xlop INCxset:JSRdark: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 LDA#&81:LDX#&97:LDY#&FF:JSRosbyte:BCSfallset:LDA#&81:LDX#&B6:LDY#&FF:JSRosbyte:BCCstable:LDA#1:STAupvelo:JSRjumpup:JMPoldscr:.stable JMPnofall:.fallset JMPladdown
��.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
C.putch ASL A:ASL A:ASL A:TAX:LDA#0:STA&70:LDA#&30:STA&71:LDYxch
N.xlopc BEQnoxch:LDA&70:CLC:ADC#&20:STA&70:LDA&71:ADC#0:STA&71:DEY:JMPxlopc
\.noxch LDYych:.ylopc BEQnoych:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:DEY:JMPylopc
"�.noych LDY#0:.sline LDA&C00,X:.linelop PHA:ASL A:ROL A:ROL A:�#3:BEQblanch:STA&80:LDA#0:.colch CLC:ADCcol:DEC&80:BNEcolch:.blanch STA&80:LDA(&70),Y:�#&C0:�A&80:�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
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 1e 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 0d 04 3d 30 2e 64 65  |oot EQUB0..=0.de|
00000350  6c 79 6f 75 20 4c 44 58  78 6d 6f 6f 3a 4c 44 59  |lyou LDXxmoo:LDY|
00000360  79 6d 6f 6f 3a 2e 6d 63  64 20 53 54 58 78 73 65  |ymoo:.mcd STXxse|
00000370  74 3a 53 54 59 79 73 65  74 0d 04 42 93 2e 64 61  |t:STYyset..B..da|
00000380  72 6b 20 4c 44 59 23 35  3a 43 50 59 78 73 63 72  |rk LDY#5:CPYxscr|
00000390  3a 42 4e 45 72 65 61 6c  64 3a 44 45 59 3a 43 50  |:BNEreald:DEY:CP|
000003a0  59 79 73 63 72 3a 42 4e  45 72 65 61 6c 64 3a 4c  |Yyscr:BNEreald:L|
000003b0  44 41 23 26 31 41 3a 43  4d 50 6f 62 6a 65 63 74  |DA#&1A:CMPobject|
000003c0  73 3a 42 45 51 72 65 61  6c 64 3a 43 4d 50 6f 62  |s:BEQreald:CMPob|
000003d0  6a 65 63 74 73 2b 31 3a  42 45 51 72 65 61 6c 64  |jects+1:BEQreald|
000003e0  3a 4c 44 41 23 30 3a 53  54 41 26 37 32 3a 4a 4d  |:LDA#0:STA&72:JM|
000003f0  50 62 6c 6f 63 6b 6f 6e  2b 36 3a 2e 72 65 61 6c  |Pblockon+6:.real|
00000400  64 20 4a 4d 50 62 6c 6f  63 6b 6f 6e 0d 04 4c 27  |d JMPblockon..L'|
00000410  5d 3a e7 50 25 3e 26 37  30 8c f1 22 43 6f 64 65  |]:.P%>&70.."Code|
00000420  20 4f 76 65 72 66 6c 6f  77 20 74 6f 3a 22 3b 50  | Overflow to:";P|
00000430  25 3a e0 0d 04 56 1f 50  25 3d 26 31 30 30 30 3a  |%:...V.P%=&1000:|
00000440  4f 25 3d 26 35 38 30 30  3a 5b 4f 50 54 20 70 61  |O%=&5800:[OPT pa|
00000450  73 73 0d 04 60 a6 4c 44  59 23 26 38 30 3a 4c 44  |ss..`.LDY#&80:LD|
00000460  41 23 30 3a 2e 7a 65 72  6f 6c 6f 70 20 53 54 41  |A#0:.zerolop STA|
00000470  26 31 46 46 46 2c 59 3a  44 45 59 3a 42 4e 45 7a  |&1FFF,Y:DEY:BNEz|
00000480  65 72 6f 6c 6f 70 3a 4c  44 41 23 26 46 46 3a 53  |erolop:LDA#&FF:S|
00000490  54 41 73 63 72 74 78 74  2b 33 3a 53 45 49 3a 4c  |TAscrtxt+3:SEI:L|
000004a0  44 41 26 32 30 34 3a 53  54 41 76 65 63 74 6f 72  |DA&204:STAvector|
000004b0  3a 4c 44 41 26 32 30 35  3a 53 54 41 76 65 63 74  |:LDA&205:STAvect|
000004c0  6f 72 2b 31 3a 4c 44 41  23 28 69 72 71 20 83 20  |or+1:LDA#(irq . |
000004d0  32 35 36 29 3a 53 54 41  26 32 30 34 3a 4c 44 41  |256):STA&204:LDA|
000004e0  23 28 69 72 71 20 81 20  32 35 36 29 3a 53 54 41  |#(irq . 256):STA|
000004f0  26 32 30 35 3a 43 4c 49  0d 04 6a 26 2e 70 72 6f  |&205:CLI..j&.pro|
00000500  67 20 4a 53 52 74 69 74  6c 65 3a 4a 53 52 62 6c  |g JSRtitle:JSRbl|
00000510  61 73 63 72 3a 4a 53 52  73 63 72 6f 66 66 0d 04  |ascr:JSRscroff..|
00000520  74 25 4c 44 59 23 30 3a  4c 44 41 23 33 3a 53 54  |t%LDY#0:LDA#3:ST|
00000530  41 26 37 30 3a 4c 44 41  23 26 33 30 3a 53 54 41  |A&70:LDA#&30:STA|
00000540  26 37 31 0d 04 7e 63 2e  6c 69 6e 65 73 20 4c 44  |&71..~c.lines LD|
00000550  41 28 26 37 30 29 2c 59  3a 84 41 23 31 32 3a 53  |A(&70),Y:.A#12:S|
00000560  54 41 28 26 37 30 29 2c  59 3a 4c 44 41 26 37 30  |TA(&70),Y:LDA&70|
00000570  3a 43 4c 43 3a 41 44 43  23 38 3a 53 54 41 26 37  |:CLC:ADC#8:STA&7|
00000580  30 3a 4c 44 41 26 37 31  3a 41 44 43 23 30 3a 53  |0:LDA&71:ADC#0:S|
00000590  54 41 26 37 31 3a 43 4d  50 23 26 36 43 3a 42 4e  |TA&71:CMP#&6C:BN|
000005a0  45 6c 69 6e 65 73 0d 04  88 a3 53 54 41 70 6f 77  |Elines....STApow|
000005b0  63 68 61 6e 67 65 3a 53  54 41 6f 62 63 68 3a 53  |change:STAobch:S|
000005c0  54 41 73 63 72 63 68 3a  4c 44 59 23 32 35 35 3a  |TAscrch:LDY#255:|
000005d0  53 54 59 70 6f 77 65 72  3a 53 54 59 6f 62 6a 65  |STYpower:STYobje|
000005e0  63 74 73 3a 53 54 59 6f  62 6a 65 63 74 73 2b 31  |cts:STYobjects+1|
000005f0  3a 49 4e 59 3a 53 54 59  73 63 6f 72 65 3a 53 54  |:INY:STYscore:ST|
00000600  59 73 63 6f 72 65 2b 31  3a 2e 73 63 6f 62 61 72  |Yscore+1:.scobar|
00000610  6c 6f 70 20 4c 44 41 73  62 61 72 2c 59 3a 43 4d  |lop LDAsbar,Y:CM|
00000620  50 23 26 46 46 3a 42 45  51 73 74 65 78 74 3a 4a  |P#&FF:BEQstext:J|
00000630  53 52 6f 73 77 72 63 68  3a 49 4e 59 3a 4a 4d 50  |SRoswrch:INY:JMP|
00000640  73 63 6f 62 61 72 6c 6f  70 0d 04 92 b9 2e 73 74  |scobarlop.....st|
00000650  65 78 74 20 4c 44 41 23  31 3a 53 54 41 63 6f 6c  |ext LDA#1:STAcol|
00000660  3a 4c 44 41 23 32 3a 53  54 41 78 63 68 3a 4c 44  |:LDA#2:STAxch:LD|
00000670  41 23 32 34 3a 53 54 41  79 63 68 3a 4c 44 41 23  |A#24:STAych:LDA#|
00000680  28 73 63 6f 72 74 20 83  20 32 35 36 29 3a 53 54  |(scort . 256):ST|
00000690  41 26 37 32 3a 4c 44 41  23 28 73 63 6f 72 74 20  |A&72:LDA#(scort |
000006a0  81 20 32 35 36 29 3a 53  54 41 26 37 33 3a 4a 53  |. 256):STA&73:JS|
000006b0  52 73 74 72 69 6e 67 3a  4c 44 41 23 31 33 3a 53  |Rstring:LDA#13:S|
000006c0  54 41 78 63 68 3a 49 4e  43 26 37 32 3a 4a 53 52  |TAxch:INC&72:JSR|
000006d0  73 74 72 69 6e 67 3a 4c  44 41 23 38 3a 53 54 41  |string:LDA#8:STA|
000006e0  78 63 68 3a 4c 44 41 23  32 38 3a 53 54 41 79 63  |xch:LDA#28:STAyc|
000006f0  68 3a 49 4e 43 26 37 32  3a 4a 53 52 73 74 72 69  |h:INC&72:JSRstri|
00000700  6e 67 0d 04 9c 9b 2e 67  61 6d 65 20 4c 44 41 23  |ng.....game LDA#|
00000710  30 3a 53 54 41 78 73 63  72 3a 53 54 41 79 73 63  |0:STAxscr:STAysc|
00000720  72 3a 4c 44 41 23 32 3a  53 54 41 78 70 6f 73 3a  |r:LDA#2:STAxpos:|
00000730  53 54 41 79 70 6f 73 3a  4c 44 58 23 26 33 30 3a  |STAypos:LDX#&30:|
00000740  2e 63 6c 72 70 6f 74 20  53 54 58 63 6c 72 70 6e  |.clrpot STXclrpn|
00000750  74 2b 32 3a 53 54 58 63  6c 72 70 6c 70 2b 32 3a  |t+2:STXclrplp+2:|
00000760  2e 63 6c 72 70 6c 70 20  4c 44 41 26 33 30 46 45  |.clrplp LDA&30FE|
00000770  3a 80 23 26 37 46 3a 2e  63 6c 72 70 6e 74 20 53  |:.#&7F:.clrpnt S|
00000780  54 41 26 33 30 46 45 3a  49 4e 58 3a 43 50 58 23  |TA&30FE:INX:CPX#|
00000790  26 38 30 3a 42 4e 45 63  6c 72 70 6f 74 0d 04 a6  |&80:BNEclrpot...|
000007a0  d8 2e 6e 65 77 73 63 72  20 4a 53 52 73 63 72 65  |..newscr JSRscre|
000007b0  65 6e 3a 2e 6f 6c 64 73  63 72 20 4a 53 52 71 75  |en:.oldscr JSRqu|
000007c0  69 74 63 68 3a 4a 53 52  73 62 6f 61 72 64 3a 4c  |itch:JSRsboard:L|
000007d0  44 41 23 30 3a 53 54 41  6d 6f 76 73 74 61 67 3a  |DA#0:STAmovstag:|
000007e0  4c 44 41 66 69 6e 65 3a  42 45 51 6d 6f 76 65 73  |LDAfine:BEQmoves|
000007f0  6c 6f 70 3a 53 54 41 63  68 61 6e 67 65 64 3a 4c  |lop:STAchanged:L|
00000800  44 41 77 69 70 65 72 3a  50 48 41 3a 4a 53 52 6d  |DAwiper:PHA:JSRm|
00000810  61 69 6e 63 6c 65 61 72  3a 50 4c 41 3a 53 54 41  |ainclear:PLA:STA|
00000820  77 69 70 65 72 3a 2e 6d  6f 76 65 73 6c 6f 70 20  |wiper:.moveslop |
00000830  4c 44 41 63 68 61 6e 67  65 64 3a 42 45 51 6e 6f  |LDAchanged:BEQno|
00000840  64 79 6f 75 3a 4a 53 52  64 69 73 70 79 6f 75 3a  |dyou:JSRdispyou:|
00000850  2e 6e 6f 64 79 6f 75 20  4a 53 52 64 69 73 70 6d  |.nodyou JSRdispm|
00000860  6f 6e 3a 4a 53 52 77 61  69 74 3a 49 4e 43 6d 6f  |on:JSRwait:INCmo|
00000870  76 73 74 61 67 0d 04 b0  4e 4c 44 41 6d 6f 76 73  |vstag...NLDAmovs|
00000880  74 61 67 3a 43 4d 50 23  33 3a 42 4e 45 6d 6f 76  |tag:CMP#3:BNEmov|
00000890  65 73 6c 6f 70 3a 4c 44  41 6d 66 69 6e 65 3a 50  |eslop:LDAmfine:P|
000008a0  48 41 3a 4c 44 41 66 69  6e 65 3a 53 54 41 66 6e  |HA:LDAfine:STAfn|
000008b0  73 74 3a 4c 44 41 23 30  3a 53 54 41 6d 6f 76 73  |st:LDA#0:STAmovs|
000008c0  74 61 67 0d 04 ba 57 53  54 41 63 68 61 6e 67 65  |tag...WSTAchange|
000008d0  64 3a 53 54 41 66 69 6e  65 3a 53 54 41 6d 66 69  |d:STAfine:STAmfi|
000008e0  6e 65 3a 4a 53 52 64 69  73 70 79 6f 75 3a 4a 53  |ne:JSRdispyou:JS|
000008f0  52 64 69 73 70 6d 6f 6e  3a 50 4c 41 3a 53 54 41  |Rdispmon:PLA:STA|
00000900  6d 66 69 6e 65 3a 4a 53  52 77 61 69 74 3a 4a 53  |mfine:JSRwait:JS|
00000910  52 6d 61 69 6e 63 6c 65  61 72 0d 04 c4 97 2e 66  |Rmainclear.....f|
00000920  69 6e 65 6e 64 20 4a 53  52 6c 61 73 65 72 3a 4a  |inend JSRlaser:J|
00000930  53 52 64 65 61 64 65 64  63 68 3a 4a 53 52 6d 6f  |SRdeadedch:JSRmo|
00000940  6e 70 72 6f 3a 4a 53 52  67 65 74 6f 70 75 74 3a  |npro:JSRgetoput:|
00000950  4c 44 41 75 70 76 65 6c  6f 3a 42 45 51 66 61 6c  |LDAupvelo:BEQfal|
00000960  6c 68 3a 4a 53 52 6a 75  6d 70 75 70 3a 4c 44 41  |lh:JSRjumpup:LDA|
00000970  78 70 6f 73 3a 53 54 41  78 73 65 74 3a 4c 44 41  |xpos:STAxset:LDA|
00000980  79 70 6f 73 3a 53 54 41  79 73 65 74 3a 4a 53 52  |ypos:STAyset:JSR|
00000990  67 65 74 62 6c 6f 63 6b  3a 43 4d 50 23 31 30 3a  |getblock:CMP#10:|
000009a0  42 4e 45 6e 6f 66 61 6c  6c 3a 42 45 51 77 61 74  |BNEnofall:BEQwat|
000009b0  74 0d 04 ce cc 2e 66 61  6c 6c 68 20 4c 44 41 78  |t.....fallh LDAx|
000009c0  70 6f 73 3a 53 54 41 78  73 65 74 3a 4c 44 41 79  |pos:STAxset:LDAy|
000009d0  70 6f 73 3a 53 54 41 79  73 65 74 3a 4a 53 52 67  |pos:STAyset:JSRg|
000009e0  65 74 62 6c 6f 63 6b 3a  43 4d 50 23 38 3a 42 45  |etblock:CMP#8:BE|
000009f0  51 77 61 74 74 3a 43 4d  50 23 31 30 3a 42 45 51  |Qwatt:CMP#10:BEQ|
00000a00  77 61 74 74 3a 43 4d 50  23 31 34 3a 42 45 51 6c  |watt:CMP#14:BEQl|
00000a10  61 64 64 65 72 3a 2e 6c  61 64 64 6f 77 6e 20 4c  |adder:.laddown L|
00000a20  44 41 79 70 6f 73 3a 43  4d 50 23 39 3a 42 45 51  |DAypos:CMP#9:BEQ|
00000a30  64 6f 77 6e 73 63 72 3a  49 4e 43 79 73 65 74 3a  |downscr:INCyset:|
00000a40  4a 53 52 67 65 74 62 6c  6f 63 6b 3a 4a 53 52 64  |JSRgetblock:JSRd|
00000a50  6f 6f 72 63 68 3a 42 43  53 66 61 6c 6c 64 6f 77  |oorch:BCSfalldow|
00000a60  6e 3a 80 23 26 33 30 3a  42 45 51 66 61 6c 6c 64  |n:.#&30:BEQfalld|
00000a70  6f 77 6e 3a 42 4e 45 6e  6f 66 61 6c 6c 0d 04 d8  |own:BNEnofall...|
00000a80  4d 2e 64 6f 77 6e 73 63  72 20 4c 44 41 23 30 3a  |M.downscr LDA#0:|
00000a90  53 54 41 79 70 6f 73 3a  49 4e 43 79 73 63 72 3a  |STAypos:INCyscr:|
00000aa0  4a 4d 50 6e 65 77 73 63  72 3a 2e 77 61 74 74 20  |JMPnewscr:.watt |
00000ab0  4a 4d 50 7a 61 70 3a 2e  6c 61 64 64 65 72 20 4a  |JMPzap:.ladder J|
00000ac0  4d 50 20 6c 61 64 64 65  72 62 0d 04 e2 61 2e 66  |MP ladderb...a.f|
00000ad0  61 6c 6c 64 6f 77 6e 20  4c 44 41 23 35 3a 53 54  |alldown LDA#5:ST|
00000ae0  41 66 69 6e 65 3a 49 4e  43 79 70 6f 73 3a 2e 6e  |Afine:INCypos:.n|
00000af0  6f 66 61 6c 6c 20 4c 44  41 23 28 28 6f 6c 64 73  |ofall LDA#((olds|
00000b00  63 72 2d 31 29 20 81 20  32 35 36 29 3a 50 48 41  |cr-1) . 256):PHA|
00000b10  3a 4c 44 41 23 28 28 6f  6c 64 73 63 72 2d 31 29  |:LDA#((oldscr-1)|
00000b20  20 83 20 32 35 36 29 3a  50 48 41 0d 04 ec ac 2e  | . 256):PHA.....|
00000b30  6d 6f 76 65 79 6f 75 20  4c 44 41 23 26 38 31 3a  |moveyou LDA#&81:|
00000b40  4c 44 58 23 26 42 36 3a  4c 44 59 23 26 46 46 3a  |LDX#&B6:LDY#&FF:|
00000b50  4a 53 52 6f 73 62 79 74  65 3a 42 43 43 6e 6a 75  |JSRosbyte:BCCnju|
00000b60  6d 70 3a 4a 53 52 6a 75  6d 70 3a 2e 6e 6a 75 6d  |mp:JSRjump:.njum|
00000b70  70 20 4c 44 41 23 26 38  31 3a 4c 44 58 23 26 39  |p LDA#&81:LDX#&9|
00000b80  45 3a 4c 44 59 23 26 46  46 3a 4a 53 52 6f 73 62  |E:LDY#&FF:JSRosb|
00000b90  79 74 65 3a 42 43 53 6c  65 66 74 3a 2e 6e 6c 65  |yte:BCSleft:.nle|
00000ba0  66 74 20 4c 44 41 23 26  38 31 3a 4c 44 58 23 26  |ft LDA#&81:LDX#&|
00000bb0  42 44 3a 4c 44 59 23 26  46 46 3a 4a 53 52 6f 73  |BD:LDY#&FF:JSRos|
00000bc0  62 79 74 65 3a 42 43 43  6e 72 69 67 68 74 3a 42  |byte:BCCnright:B|
00000bd0  43 53 72 69 67 68 74 0d  04 f6 d9 2e 6c 65 66 74  |CSright.....left|
00000be0  20 4c 44 41 23 30 3a 53  54 41 66 61 63 65 3a 53  | LDA#0:STAface:S|
00000bf0  54 41 72 67 68 74 73 3a  4c 44 41 78 70 6f 73 3a  |TArghts:LDAxpos:|
00000c00  42 45 51 6c 65 66 74 73  63 72 3a 53 45 43 3a 53  |BEQleftscr:SEC:S|
00000c10  42 43 23 31 3a 53 54 41  78 73 65 74 3a 4c 44 41  |BC#1:STAxset:LDA|
00000c20  79 70 6f 73 3a 53 54 41  79 73 65 74 3a 4a 53 52  |ypos:STAyset:JSR|
00000c30  67 65 74 62 6c 6f 63 6b  3a 4a 53 52 64 6f 6f 72  |getblock:JSRdoor|
00000c40  63 68 3a 42 43 53 6e 6f  75 70 6c 3a 80 23 26 33  |ch:BCSnoupl:.#&3|
00000c50  30 3a 43 4d 50 23 26 31  30 3a 42 45 51 6e 6f 6d  |0:CMP#&10:BEQnom|
00000c60  6f 76 65 3a 43 4d 50 23  26 32 30 3a 42 45 51 6e  |ove:CMP#&20:BEQn|
00000c70  6f 6d 6f 76 65 3a 43 4d  50 23 26 33 30 3a 42 4e  |omove:CMP#&30:BN|
00000c80  45 6e 6f 75 70 6c 3a 44  45 43 79 70 6f 73 3a 44  |Enoupl:DECypos:D|
00000c90  45 43 78 70 6f 73 3a 4c  44 41 23 33 3a 53 54 41  |ECxpos:LDA#3:STA|
00000ca0  66 69 6e 65 3a 2e 6e 72  69 67 68 74 20 52 54 53  |fine:.nright RTS|
00000cb0  0d 05 00 e8 2e 6e 6f 75  70 6c 20 44 45 43 78 70  |.....noupl DECxp|
00000cc0  6f 73 3a 4c 44 41 23 31  3a 53 54 41 66 69 6e 65  |os:LDA#1:STAfine|
00000cd0  3a 2e 6e 6f 6d 6f 76 65  20 52 54 53 3a 2e 72 69  |:.nomove RTS:.ri|
00000ce0  67 68 74 20 4c 44 41 23  30 3a 53 54 41 72 67 68  |ght LDA#0:STArgh|
00000cf0  74 73 3a 4c 44 41 23 31  3a 53 54 41 66 61 63 65  |ts:LDA#1:STAface|
00000d00  3a 4c 44 41 78 70 6f 73  3a 43 4d 50 23 39 3a 42  |:LDAxpos:CMP#9:B|
00000d10  45 51 72 69 67 68 74 73  63 72 3a 43 4c 43 3a 41  |EQrightscr:CLC:A|
00000d20  44 43 23 31 3a 53 54 41  78 73 65 74 3a 4c 44 41  |DC#1:STAxset:LDA|
00000d30  79 70 6f 73 3a 53 54 41  79 73 65 74 3a 4a 53 52  |ypos:STAyset:JSR|
00000d40  67 65 74 62 6c 6f 63 6b  3a 4a 53 52 64 6f 6f 72  |getblock:JSRdoor|
00000d50  63 68 3a 42 43 53 6e 6f  75 70 72 3a 80 23 26 33  |ch:BCSnoupr:.#&3|
00000d60  30 3a 43 4d 50 23 26 31  30 3a 42 45 51 6e 6f 6d  |0:CMP#&10:BEQnom|
00000d70  6f 76 65 72 3a 43 4d 50  23 26 32 30 3a 42 45 51  |over:CMP#&20:BEQ|
00000d80  6e 6f 6d 6f 76 65 72 3a  43 4d 50 23 26 33 30 3a  |nomover:CMP#&30:|
00000d90  42 4e 45 6e 6f 75 70 72  0d 05 0a cf 44 45 43 79  |BNEnoupr....DECy|
00000da0  70 6f 73 3a 4c 44 41 23  34 3a 2e 6e 6f 75 70 72  |pos:LDA#4:.noupr|
00000db0  73 20 49 4e 43 78 70 6f  73 3a 53 54 41 66 69 6e  |s INCxpos:STAfin|
00000dc0  65 3a 2e 6e 6f 73 6e 64  20 52 54 53 3a 2e 6e 6f  |e:.nosnd RTS:.no|
00000dd0  75 70 72 20 4c 44 41 23  32 3a 4a 4d 50 6e 6f 75  |upr LDA#2:JMPnou|
00000de0  70 72 73 3a 2e 6e 6f 6d  6f 76 65 72 20 4c 44 41  |prs:.nomover LDA|
00000df0  23 31 3a 53 54 41 72 67  68 74 73 3a 53 54 41 63  |#1:STArghts:STAc|
00000e00  68 61 6e 67 65 64 3a 52  54 53 3a 2e 6c 65 66 74  |hanged:RTS:.left|
00000e10  73 63 72 20 4c 44 41 23  39 3a 53 54 41 78 70 6f  |scr LDA#9:STAxpo|
00000e20  73 3a 44 45 43 78 73 63  72 3a 2e 73 63 72 70 61  |s:DECxscr:.scrpa|
00000e30  73 73 20 4a 4d 50 73 63  72 65 65 6e 3a 2e 72 69  |ss JMPscreen:.ri|
00000e40  67 68 74 73 63 72 20 4c  44 41 23 30 3a 53 54 41  |ghtscr LDA#0:STA|
00000e50  78 70 6f 73 3a 49 4e 43  78 73 63 72 3a 42 4e 45  |xpos:INCxscr:BNE|
00000e60  73 63 72 70 61 73 73 0d  05 14 b3 2e 6a 75 6d 70  |scrpass.....jump|
00000e70  20 4c 44 41 79 70 6f 73  3a 43 4d 50 23 39 3a 42  | LDAypos:CMP#9:B|
00000e80  45 51 6e 6f 73 6e 64 3a  43 4c 43 3a 41 44 43 23  |EQnosnd:CLC:ADC#|
00000e90  31 3a 53 54 41 79 73 65  74 3a 4c 44 41 78 70 6f  |1:STAyset:LDAxpo|
00000ea0  73 3a 53 54 41 78 73 65  74 3a 4a 53 52 67 65 74  |s:STAxset:JSRget|
00000eb0  62 6c 6f 63 6b 3a 80 23  26 33 30 3a 42 45 51 6e  |block:.#&30:BEQn|
00000ec0  6f 73 6e 64 3a 4c 44 41  23 33 3a 53 54 41 75 70  |osnd:LDA#3:STAup|
00000ed0  76 65 6c 6f 3a 4c 44 41  73 6f 75 6e 64 3a 42 45  |velo:LDAsound:BE|
00000ee0  51 6e 6f 73 6e 64 3a 4c  44 41 23 37 3a 4c 44 58  |Qnosnd:LDA#7:LDX|
00000ef0  23 28 6a 75 6d 70 6e 20  83 20 32 35 36 29 3a 4c  |#(jumpn . 256):L|
00000f00  44 59 23 28 6a 75 6d 70  6e 20 81 20 32 35 36 29  |DY#(jumpn . 256)|
00000f10  3a 4a 4d 50 6f 73 77 6f  72 64 0d 05 1e c6 2e 64  |:JMPosword.....d|
00000f20  69 73 70 73 68 72 20 53  45 49 3a 4c 44 41 77 69  |ispshr SEI:LDAwi|
00000f30  70 65 72 3a 42 45 51 6e  6f 77 69 70 65 3a 4c 44  |per:BEQnowipe:LD|
00000f40  59 23 30 3a 2e 77 69 70  6c 6f 70 20 4c 44 41 28  |Y#0:.wiplop LDA(|
00000f50  77 69 72 65 70 29 2c 59  3a 53 54 41 28 26 37 38  |wirep),Y:STA(&78|
00000f60  29 2c 59 3a 49 4e 59 3a  43 50 59 23 33 32 3a 42  |),Y:INY:CPY#32:B|
00000f70  4e 45 77 69 70 6c 6f 70  3a 4c 44 41 26 37 38 3a  |NEwiplop:LDA&78:|
00000f80  43 4c 43 3a 41 44 43 23  26 38 30 3a 53 54 41 26  |CLC:ADC#&80:STA&|
00000f90  37 38 3a 4c 44 41 26 37  39 3a 41 44 43 23 32 3a  |78:LDA&79:ADC#2:|
00000fa0  53 54 41 26 37 39 3a 4c  44 59 23 30 3a 2e 77 69  |STA&79:LDY#0:.wi|
00000fb0  70 65 62 20 4c 44 41 28  77 69 72 65 70 62 29 2c  |peb LDA(wirepb),|
00000fc0  59 3a 53 54 41 28 26 37  38 29 2c 59 3a 49 4e 59  |Y:STA(&78),Y:INY|
00000fd0  3a 43 50 59 23 33 32 3a  42 4e 45 77 69 70 65 62  |:CPY#32:BNEwipeb|
00000fe0  0d 05 28 ba 2e 6e 6f 77  69 70 65 20 4c 44 41 23  |..(..nowipe LDA#|
00000ff0  31 3a 53 54 41 77 69 70  65 72 3a 4c 44 41 78 70  |1:STAwiper:LDAxp|
00001000  6f 73 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  |os:ASL A:ASL A:A|
00001010  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00001020  3a 41 53 4c 20 41 3a 53  54 41 26 37 30 3a 4c 44  |:ASL A:STA&70:LD|
00001030  41 78 70 6f 73 3a 4c 53  52 20 41 3a 4c 53 52 20  |Axpos:LSR A:LSR |
00001040  41 3a 43 4c 43 3a 41 44  43 23 26 33 35 3a 53 54  |A:CLC:ADC#&35:ST|
00001050  41 26 37 31 3a 4c 44 41  79 70 6f 73 3a 43 4c 43  |A&71:LDAypos:CLC|
00001060  3a 41 44 43 26 37 31 3a  53 54 41 26 37 31 3a 4c  |:ADC&71:STA&71:L|
00001070  44 41 79 70 6f 73 3a 41  53 4c 20 41 3a 41 53 4c  |DAypos:ASL A:ASL|
00001080  20 41 3a 43 4c 43 3a 41  44 43 26 37 31 3a 53 54  | A:CLC:ADC&71:ST|
00001090  41 26 37 31 3a 4c 44 59  23 30 0d 05 32 c5 53 54  |A&71:LDY#0..2.ST|
000010a0  59 26 37 32 3a 4c 44 41  23 26 31 41 3a 53 54 41  |Y&72:LDA#&1A:STA|
000010b0  26 37 33 3a 4c 44 58 6d  6f 76 73 74 61 67 3a 4c  |&73:LDXmovstag:L|
000010c0  44 41 73 65 71 75 65 6e  2c 58 3a 43 4c 43 3a 41  |DAsequen,X:CLC:A|
000010d0  44 43 66 69 6e 65 3a 54  41 58 3a 4c 44 41 26 37  |DCfine:TAX:LDA&7|
000010e0  30 3a 43 4c 43 3a 41 44  43 6c 6f 77 61 64 2c 58  |0:CLC:ADClowad,X|
000010f0  3a 53 54 41 26 37 30 3a  4c 44 41 26 37 31 3a 41  |:STA&70:LDA&71:A|
00001100  44 43 68 69 67 68 61 64  2c 58 3a 53 54 41 26 37  |DChighad,X:STA&7|
00001110  31 3a 4c 44 41 6d 66 6c  61 67 3a 42 4e 45 6d 6f  |1:LDAmflag:BNEmo|
00001120  6e 73 61 64 72 3a 43 50  58 23 30 3a 42 45 51 6e  |nsadr:CPX#0:BEQn|
00001130  6f 70 68 61 73 65 3a 4c  44 41 6d 6f 76 73 74 61  |ophase:LDAmovsta|
00001140  67 3a 43 4d 50 23 32 3a  42 45 51 6e 6f 70 68 61  |g:CMP#2:BEQnopha|
00001150  73 65 3a 4c 44 58 70 68  61 73 65 3a 49 4e 58 0d  |se:LDXphase:INX.|
00001160  05 3c d9 2e 61 64 64 70  68 20 4c 44 41 26 37 32  |.<..addph LDA&72|
00001170  3a 43 4c 43 3a 41 44 43  23 26 38 30 3a 53 54 41  |:CLC:ADC#&80:STA|
00001180  26 37 32 3a 4c 44 41 26  37 33 3a 41 44 43 23 30  |&72:LDA&73:ADC#0|
00001190  3a 53 54 41 26 37 33 3a  44 45 58 3a 42 4e 45 61  |:STA&73:DEX:BNEa|
000011a0  64 64 70 68 3a 4c 44 41  70 68 61 73 65 3a 82 23  |ddph:LDAphase:.#|
000011b0  31 3a 53 54 41 70 68 61  73 65 3a 4a 4d 50 6e 6f  |1:STAphase:JMPno|
000011c0  70 68 61 73 65 3a 2e 6d  6f 6e 73 61 64 72 20 4c  |phase:.monsadr L|
000011d0  44 41 6d 6f 6e 73 74 61  74 3a 82 23 31 3a 53 54  |DAmonstat:.#1:ST|
000011e0  41 6d 6f 6e 73 74 61 74  3a 41 53 4c 20 41 3a 41  |Amonstat:ASL A:A|
000011f0  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00001200  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 23 26  |:ASL A:CLC:ADC#&|
00001210  38 30 3a 53 54 41 26 37  32 3a 4c 44 41 23 26 31  |80:STA&72:LDA#&1|
00001220  42 3a 53 54 41 26 37 33  3a 4c 44 41 23 31 3a 53  |B:STA&73:LDA#1:S|
00001230  54 41 77 69 70 65 72 6d  0d 05 46 5e 4c 44 41 6d  |TAwiperm..F^LDAm|
00001240  74 79 70 65 3a 43 4d 50  23 32 3a 42 4e 45 6e 6f  |type:CMP#2:BNEno|
00001250  74 79 70 74 72 3a 4c 44  41 26 37 32 3a 43 4c 43  |typtr:LDA&72:CLC|
00001260  3a 41 44 43 23 26 38 30  3a 53 54 41 26 37 32 3a  |:ADC#&80:STA&72:|
00001270  4c 44 41 26 37 33 3a 41  44 43 23 30 3a 53 54 41  |LDA&73:ADC#0:STA|
00001280  26 37 33 3a 2e 6e 6f 74  79 70 74 72 20 4a 4d 50  |&73:.notyptr JMP|
00001290  6c 65 66 61 63 65 0d 05  50 a6 2e 6e 6f 70 68 61  |leface..P..nopha|
000012a0  73 65 20 4c 44 41 72 67  68 74 73 3a 42 45 51 6e  |se LDArghts:BEQn|
000012b0  6f 74 72 67 68 74 3a 4c  44 41 26 37 30 3a 43 4c  |otrght:LDA&70:CL|
000012c0  43 3a 41 44 43 23 33 32  3a 53 54 41 26 37 30 3a  |C:ADC#32:STA&70:|
000012d0  4c 44 41 26 37 31 3a 41  44 43 23 30 3a 53 54 41  |LDA&71:ADC#0:STA|
000012e0  26 37 31 3a 2e 6e 6f 74  72 67 68 74 20 4c 44 41  |&71:.notrght LDA|
000012f0  66 61 63 65 3a 42 4e 45  6c 65 66 61 63 65 3a 4c  |face:BNEleface:L|
00001300  44 41 26 37 32 3a 43 4c  43 3a 41 44 43 23 26 32  |DA&72:CLC:ADC#&2|
00001310  30 3a 53 54 41 26 37 32  3a 2e 6c 65 66 61 63 65  |0:STA&72:.leface|
00001320  20 4c 44 41 26 37 30 3a  53 54 41 26 37 38 3a 4c  | LDA&70:STA&78:L|
00001330  44 41 26 37 31 3a 53 54  41 26 37 39 0d 05 5a af  |DA&71:STA&79..Z.|
00001340  2e 6c 61 64 69 73 70 20  4c 44 41 28 26 37 30 29  |.ladisp LDA(&70)|
00001350  2c 59 3a 53 54 41 28 77  69 72 65 70 29 2c 59 3a  |,Y:STA(wirep),Y:|
00001360  84 41 28 26 37 32 29 2c  59 3a 53 54 41 28 26 37  |.A(&72),Y:STA(&7|
00001370  30 29 2c 59 3a 49 4e 59  3a 43 50 59 23 33 32 3a  |0),Y:INY:CPY#32:|
00001380  42 4e 45 6c 61 64 69 73  70 3a 4c 44 41 26 37 32  |BNEladisp:LDA&72|
00001390  3a 43 4c 43 3a 41 44 43  23 26 34 30 3a 53 54 41  |:CLC:ADC#&40:STA|
000013a0  26 37 32 3a 4c 44 41 26  37 33 3a 41 44 43 23 30  |&72:LDA&73:ADC#0|
000013b0  3a 53 54 41 26 37 33 3a  4c 44 41 26 37 30 3a 43  |:STA&73:LDA&70:C|
000013c0  4c 43 3a 41 44 43 23 26  38 30 3a 53 54 41 26 37  |LC:ADC#&80:STA&7|
000013d0  30 3a 4c 44 41 26 37 31  3a 41 44 43 23 32 3a 53  |0:LDA&71:ADC#2:S|
000013e0  54 41 26 37 31 3a 4c 44  59 23 30 0d 05 64 56 2e  |TA&71:LDY#0..dV.|
000013f0  6c 62 64 69 73 70 20 4c  44 41 28 26 37 30 29 2c  |lbdisp LDA(&70),|
00001400  59 3a 53 54 41 28 77 69  72 65 70 62 29 2c 59 3a  |Y:STA(wirepb),Y:|
00001410  84 41 28 26 37 32 29 2c  59 3a 53 54 41 28 26 37  |.A(&72),Y:STA(&7|
00001420  30 29 2c 59 3a 49 4e 59  3a 43 50 59 23 33 32 3a  |0),Y:INY:CPY#32:|
00001430  42 4e 45 6c 62 64 69 73  70 3a 43 4c 49 3a 52 54  |BNElbdisp:CLI:RT|
00001440  53 0d 05 6e 3b 2e 77 61  69 74 20 4c 44 41 63 6c  |S..n;.wait LDAcl|
00001450  6f 63 6b 3a 43 4d 50 26  38 30 3a 42 4e 45 77 61  |ock:CMP&80:BNEwa|
00001460  69 74 3a 4c 44 41 63 6c  6f 63 6b 3a 41 44 43 23  |it:LDAclock:ADC#|
00001470  35 3a 53 54 41 26 38 30  3a 52 54 53 0d 05 78 d2  |5:STA&80:RTS..x.|
00001480  2e 6a 75 6d 70 75 70 20  44 45 43 75 70 76 65 6c  |.jumpup DECupvel|
00001490  6f 3a 4c 44 41 79 70 6f  73 3a 42 45 51 75 70 73  |o:LDAypos:BEQups|
000014a0  63 72 3a 53 45 43 3a 53  42 43 23 31 3a 53 54 41  |cr:SEC:SBC#1:STA|
000014b0  79 73 65 74 3a 4c 44 41  78 70 6f 73 3a 53 54 41  |yset:LDAxpos:STA|
000014c0  78 73 65 74 3a 4a 53 52  67 65 74 62 6c 6f 63 6b  |xset:JSRgetblock|
000014d0  3a 4a 53 52 64 6f 6f 72  63 68 3a 42 43 53 75 70  |:JSRdoorch:BCSup|
000014e0  6f 6e 65 3a 80 23 26 33  30 3a 42 45 51 75 70 6f  |one:.#&30:BEQupo|
000014f0  6e 65 3a 4c 44 41 23 30  3a 53 54 41 75 70 76 65  |ne:LDA#0:STAupve|
00001500  6c 6f 3a 52 54 53 3a 2e  75 70 6f 6e 65 20 4c 44  |lo:RTS:.upone LD|
00001510  41 23 36 3a 53 54 41 66  69 6e 65 3a 44 45 43 79  |A#6:STAfine:DECy|
00001520  70 6f 73 3a 52 54 53 3a  2e 75 70 73 63 72 20 44  |pos:RTS:.upscr D|
00001530  45 43 79 73 63 72 3a 4c  44 41 23 39 3a 53 54 41  |ECyscr:LDA#9:STA|
00001540  79 70 6f 73 3a 4a 4d 50  73 63 72 65 65 6e 0d 05  |ypos:JMPscreen..|
00001550  82 92 2e 73 63 72 65 65  6e 20 4c 44 41 23 30 3a  |...screen LDA#0:|
00001560  53 54 41 63 6c 65 61 72  75 70 3a 53 54 41 6c 61  |STAclearup:STAla|
00001570  73 74 61 74 3a 53 54 41  69 6e 76 66 6c 61 67 3a  |stat:STAinvflag:|
00001580  4a 53 52 73 63 72 6f 66  66 3a 4c 44 41 78 70 6f  |JSRscroff:LDAxpo|
00001590  73 3a 53 54 41 78 6f 6c  64 3a 4c 44 41 79 70 6f  |s:STAxold:LDAypo|
000015a0  73 3a 53 54 41 79 6f 6c  64 3a 4a 53 52 70 6f 69  |s:STAyold:JSRpoi|
000015b0  6e 74 3a 4c 44 41 23 26  46 46 3a 53 54 41 79 73  |nt:LDA#&FF:STAys|
000015c0  65 74 3a 2e 79 6c 6f 70  20 4c 44 41 23 26 46 46  |et:.ylop LDA#&FF|
000015d0  3a 53 54 41 78 73 65 74  3a 49 4e 43 79 73 65 74  |:STAxset:INCyset|
000015e0  0d 05 8c 69 2e 78 6c 6f  70 20 49 4e 43 78 73 65  |...i.xlop INCxse|
000015f0  74 3a 4a 53 52 64 61 72  6b 3a 4c 44 41 78 73 65  |t:JSRdark:LDAxse|
00001600  74 3a 43 4d 50 23 39 3a  42 45 51 6e 65 78 74 79  |t:CMP#9:BEQnexty|
00001610  3a 4a 4d 50 78 6c 6f 70  3a 2e 6e 65 78 74 79 20  |:JMPxlop:.nexty |
00001620  4c 44 41 79 73 65 74 3a  43 4d 50 23 39 3a 42 4e  |LDAyset:CMP#9:BN|
00001630  45 79 6c 6f 70 3a 4a 53  52 73 62 6f 61 72 64 3a  |Eylop:JSRsboard:|
00001640  4a 53 52 6e 61 6d 73 63  72 0d 05 96 e2 2e 73 63  |JSRnamscr.....sc|
00001650  72 6f 6e 20 4c 44 41 23  31 37 3a 53 54 41 73 63  |ron LDA#17:STAsc|
00001660  72 6f 66 64 3a 2e 73 63  72 6f 6e 6c 6f 70 20 4c  |rofd:.scronlop L|
00001670  44 41 23 26 43 3a 4c 44  58 23 28 73 63 72 6f 66  |DA#&C:LDX#(scrof|
00001680  64 20 83 32 35 36 29 3a  4c 44 59 23 28 73 63 72  |d .256):LDY#(scr|
00001690  6f 66 64 20 81 32 35 36  29 3a 4a 53 52 6f 73 77  |ofd .256):JSRosw|
000016a0  6f 72 64 3a 44 45 43 73  63 72 6f 66 64 3a 4c 44  |ord:DECscrofd:LD|
000016b0  41 73 63 72 6f 66 64 3a  80 23 37 3a 53 54 41 73  |Ascrofd:.#7:STAs|
000016c0  63 72 6f 66 64 2b 31 3a  4c 44 41 73 63 72 6f 66  |crofd+1:LDAscrof|
000016d0  64 3a 42 4e 45 73 63 72  6f 6e 6c 6f 70 3a 4c 44  |d:BNEscronlop:LD|
000016e0  41 63 6c 6f 63 6b 3a 43  4c 43 3a 41 44 43 23 34  |Aclock:CLC:ADC#4|
000016f0  3a 53 54 41 26 38 30 3a  4c 44 41 23 30 3a 53 54  |:STA&80:LDA#0:ST|
00001700  41 77 69 70 65 72 3a 53  54 41 77 69 70 65 72 6d  |Awiper:STAwiperm|
00001710  3a 4c 44 41 23 31 3a 53  54 41 63 68 61 6e 67 65  |:LDA#1:STAchange|
00001720  64 3a 4a 4d 50 6d 6f 6e  73 65 74 0d 05 a0 af 2e  |d:JMPmonset.....|
00001730  6c 61 64 64 65 72 62 20  4c 44 41 23 26 38 31 3a  |ladderb LDA#&81:|
00001740  4c 44 58 23 26 39 37 3a  4c 44 59 23 26 46 46 3a  |LDX#&97:LDY#&FF:|
00001750  4a 53 52 6f 73 62 79 74  65 3a 42 43 53 66 61 6c  |JSRosbyte:BCSfal|
00001760  6c 73 65 74 3a 4c 44 41  23 26 38 31 3a 4c 44 58  |lset:LDA#&81:LDX|
00001770  23 26 42 36 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |#&B6:LDY#&FF:JSR|
00001780  6f 73 62 79 74 65 3a 42  43 43 73 74 61 62 6c 65  |osbyte:BCCstable|
00001790  3a 4c 44 41 23 31 3a 53  54 41 75 70 76 65 6c 6f  |:LDA#1:STAupvelo|
000017a0  3a 4a 53 52 6a 75 6d 70  75 70 3a 4a 4d 50 6f 6c  |:JSRjumpup:JMPol|
000017b0  64 73 63 72 3a 2e 73 74  61 62 6c 65 20 4a 4d 50  |dscr:.stable JMP|
000017c0  6e 6f 66 61 6c 6c 3a 2e  66 61 6c 6c 73 65 74 20  |nofall:.fallset |
000017d0  4a 4d 50 6c 61 64 64 6f  77 6e 0d 05 aa be 2e 62  |JMPladdown.....b|
000017e0  6c 6f 63 6b 6f 6e 20 4a  53 52 6f 62 6a 63 68 65  |lockon JSRobjche|
000017f0  63 6b 3a 4a 53 52 67 65  74 62 6c 6f 63 6b 3a 4c  |ck:JSRgetblock:L|
00001800  44 41 78 73 65 74 3a 41  53 4c 20 41 3a 41 53 4c  |DAxset:ASL A:ASL|
00001810  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
00001820  53 4c 20 41 3a 41 53 4c  20 41 3a 53 54 41 26 37  |SL A:ASL A:STA&7|
00001830  30 3a 4c 44 41 78 73 65  74 3a 4c 53 52 20 41 3a  |0:LDAxset:LSR A:|
00001840  4c 53 52 20 41 3a 43 4c  43 3a 41 44 43 23 26 33  |LSR A:CLC:ADC#&3|
00001850  35 3a 53 54 41 26 37 31  3a 4c 44 41 79 73 65 74  |5:STA&71:LDAyset|
00001860  3a 43 4c 43 3a 41 44 43  26 37 31 3a 53 54 41 26  |:CLC:ADC&71:STA&|
00001870  37 31 3a 4c 44 41 79 73  65 74 3a 41 53 4c 20 41  |71:LDAyset:ASL A|
00001880  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 37  |:ASL A:CLC:ADC&7|
00001890  31 3a 53 54 41 26 37 31  0d 05 b4 67 4c 44 41 26  |1:STA&71...gLDA&|
000018a0  37 32 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 43  |72:LSR A:LSR A:C|
000018b0  4c 43 3a 41 44 43 23 26  32 30 3a 53 54 41 26 37  |LC:ADC#&20:STA&7|
000018c0  33 3a 4c 44 41 26 37 32  3a 43 4d 50 23 33 30 3a  |3:LDA&72:CMP#30:|
000018d0  42 45 51 64 6f 6f 72 63  6f 6c 3a 4c 53 52 20 41  |BEQdoorcol:LSR A|
000018e0  3a 52 4f 52 20 41 3a 52  4f 52 20 41 3a 80 23 26  |:ROR A:ROR A:.#&|
000018f0  43 30 3a 53 54 41 26 37  32 3a 4c 44 59 23 30 0d  |C0:STA&72:LDY#0.|
00001900  05 be 9e 2e 74 72 61 6e  73 74 6f 70 20 4c 44 41  |....transtop LDA|
00001910  28 26 37 30 29 2c 59 3a  80 23 26 43 30 3a 43 4c  |(&70),Y:.#&C0:CL|
00001920  43 3a 41 44 43 28 26 37  32 29 2c 59 3a 53 54 41  |C:ADC(&72),Y:STA|
00001930  28 26 37 30 29 2c 59 3a  49 4e 59 3a 43 50 59 23  |(&70),Y:INY:CPY#|
00001940  26 34 30 3a 42 4e 45 74  72 61 6e 73 74 6f 70 3a  |&40:BNEtranstop:|
00001950  4c 44 59 23 30 3a 4c 44  41 26 37 32 3a 43 4c 43  |LDY#0:LDA&72:CLC|
00001960  3a 41 44 43 23 26 34 30  3a 53 54 41 26 37 32 3a  |:ADC#&40:STA&72:|
00001970  4c 44 41 26 37 30 3a 43  4c 43 3a 41 44 43 23 26  |LDA&70:CLC:ADC#&|
00001980  38 30 3a 53 54 41 26 37  30 3a 4c 44 41 26 37 31  |80:STA&70:LDA&71|
00001990  3a 41 44 43 23 32 3a 53  54 41 26 37 31 0d 05 c8  |:ADC#2:STA&71...|
000019a0  69 2e 74 72 61 6e 73 62  6f 74 20 4c 44 41 28 26  |i.transbot LDA(&|
000019b0  37 30 29 2c 59 3a 80 23  26 43 30 3a 43 4c 43 3a  |70),Y:.#&C0:CLC:|
000019c0  41 44 43 28 26 37 32 29  2c 59 3a 53 54 41 28 26  |ADC(&72),Y:STA(&|
000019d0  37 30 29 2c 59 3a 49 4e  59 3a 43 50 59 23 26 34  |70),Y:INY:CPY#&4|
000019e0  30 3a 42 4e 45 74 72 61  6e 73 62 6f 74 3a 52 54  |0:BNEtransbot:RT|
000019f0  53 3a 2e 64 6f 6f 72 63  6f 6c 20 4a 4d 50 6c 6f  |S:.doorcol JMPlo|
00001a00  63 6b 74 79 70 65 0d 05  d2 5c 2e 67 65 74 62 6c  |cktype...\.getbl|
00001a10  6f 63 6b 20 4c 44 41 23  26 33 30 3a 43 4c 43 3a  |ock LDA#&30:CLC:|
00001a20  41 44 43 78 73 63 72 3a  53 54 41 26 37 31 3a 4c  |ADCxscr:STA&71:L|
00001a30  44 41 79 73 63 72 3a 41  53 4c 20 41 3a 41 53 4c  |DAyscr:ASL A:ASL|
00001a40  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 43  | A:ASL A:ASL A:C|
00001a50  4c 43 3a 41 44 43 26 37  31 3a 53 54 41 73 63 72  |LC:ADC&71:STAscr|
00001a60  6e 6f 0d 05 dc c8 53 54  41 26 37 31 3a 4c 44 41  |no....STA&71:LDA|
00001a70  79 73 65 74 3a 53 54 41  26 37 30 3a 41 53 4c 20  |yset:STA&70:ASL |
00001a80  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 50 48  |A:ASL A:ASL A:PH|
00001a90  41 3a 43 4c 43 3a 41 44  43 26 37 30 3a 53 54 41  |A:CLC:ADC&70:STA|
00001aa0  26 37 30 3a 50 4c 41 3a  41 53 4c 20 41 3a 43 4c  |&70:PLA:ASL A:CL|
00001ab0  43 3a 41 44 43 26 37 30  3a 53 54 41 26 37 30 3a  |C:ADC&70:STA&70:|
00001ac0  4c 44 59 78 73 65 74 3a  4c 44 41 78 64 61 74 61  |LDYxset:LDAxdata|
00001ad0  2c 59 3a 54 41 59 3a 4c  44 41 28 26 37 30 29 2c  |,Y:TAY:LDA(&70),|
00001ae0  59 3a 52 4f 4c 20 41 3a  52 4f 4c 20 41 3a 52 4f  |Y:ROL A:ROL A:RO|
00001af0  4c 20 41 3a 80 23 33 3a  53 54 41 26 37 32 3a 49  |L A:.#3:STA&72:I|
00001b00  4e 59 3a 4c 44 41 28 26  37 30 29 2c 59 3a 4c 53  |NY:LDA(&70),Y:LS|
00001b10  52 20 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |R A:LSR A:LSR A:|
00001b20  4c 53 52 20 41 3a 80 23  31 32 0d 05 e6 7e 43 4c  |LSR A:.#12...~CL|
00001b30  43 3a 41 44 43 26 37 32  3a 53 54 41 26 37 32 3a  |C:ADC&72:STA&72:|
00001b40  4c 44 41 78 73 65 74 3a  4c 53 52 20 41 3a 54 41  |LDAxset:LSR A:TA|
00001b50  59 3a 4c 44 41 68 62 64  61 74 2c 59 3a 54 41 59  |Y:LDAhbdat,Y:TAY|
00001b60  3a 4c 44 41 28 26 37 30  29 2c 59 3a 53 54 41 26  |:LDA(&70),Y:STA&|
00001b70  37 33 3a 4c 44 41 78 73  65 74 3a 80 23 31 3a 42  |73:LDAxset:.#1:B|
00001b80  4e 45 62 69 74 32 3a 4c  44 41 26 37 33 3a 41 53  |NEbit2:LDA&73:AS|
00001b90  4c 20 41 3a 52 4f 4c 20  41 3a 52 4f 4c 20 41 3a  |L A:ROL A:ROL A:|
00001ba0  4a 4d 50 66 62 67 6f 74  0d 05 f0 5b 2e 62 69 74  |JMPfbgot...[.bit|
00001bb0  32 20 4c 44 41 26 37 33  3a 41 53 4c 20 41 3a 52  |2 LDA&73:ASL A:R|
00001bc0  4f 4c 20 41 3a 2e 66 62  67 6f 74 20 80 23 31 3a  |OL A:.fbgot .#1:|
00001bd0  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00001be0  41 3a 41 53 4c 20 41 3a  43 4c 43 3a 41 44 43 26  |A:ASL A:CLC:ADC&|
00001bf0  37 32 3a 41 53 4c 20 41  3a 53 54 41 26 37 32 3a  |72:ASL A:STA&72:|
00001c00  52 54 53 0d 05 fa 8f 2e  62 6c 61 73 63 72 20 4a  |RTS.....blascr J|
00001c10  53 52 73 63 72 6f 66 66  3a 4c 44 59 23 30 3a 53  |SRscroff:LDY#0:S|
00001c20  54 59 26 37 30 3a 4c 44  41 23 26 33 30 3a 53 54  |TY&70:LDA#&30:ST|
00001c30  41 26 37 31 3a 2e 62 6c  61 6e 6c 6f 70 20 4c 44  |A&71:.blanlop LD|
00001c40  41 28 26 37 30 29 2c 59  3a 80 23 26 43 30 3a 53  |A(&70),Y:.#&C0:S|
00001c50  54 41 28 26 37 30 29 2c  59 3a 49 4e 59 3a 42 4e  |TA(&70),Y:INY:BN|
00001c60  45 62 6c 61 6e 6c 6f 70  3a 49 4e 43 26 37 31 3a  |Eblanlop:INC&71:|
00001c70  4c 44 41 26 37 31 3a 43  4d 50 23 26 38 30 3a 42  |LDA&71:CMP#&80:B|
00001c80  4e 45 62 6c 61 6e 6c 6f  70 3a 4a 4d 50 73 63 72  |NEblanlop:JMPscr|
00001c90  6f 6e 0d 06 04 43 2e 70  75 74 63 68 20 41 53 4c  |on...C.putch ASL|
00001ca0  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 54  | A:ASL A:ASL A:T|
00001cb0  41 58 3a 4c 44 41 23 30  3a 53 54 41 26 37 30 3a  |AX:LDA#0:STA&70:|
00001cc0  4c 44 41 23 26 33 30 3a  53 54 41 26 37 31 3a 4c  |LDA#&30:STA&71:L|
00001cd0  44 59 78 63 68 0d 06 0e  4e 2e 78 6c 6f 70 63 20  |DYxch...N.xlopc |
00001ce0  42 45 51 6e 6f 78 63 68  3a 4c 44 41 26 37 30 3a  |BEQnoxch:LDA&70:|
00001cf0  43 4c 43 3a 41 44 43 23  26 32 30 3a 53 54 41 26  |CLC:ADC#&20:STA&|
00001d00  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |70:LDA&71:ADC#0:|
00001d10  53 54 41 26 37 31 3a 44  45 59 3a 4a 4d 50 78 6c  |STA&71:DEY:JMPxl|
00001d20  6f 70 63 0d 06 18 5c 2e  6e 6f 78 63 68 20 4c 44  |opc...\.noxch LD|
00001d30  59 79 63 68 3a 2e 79 6c  6f 70 63 20 42 45 51 6e  |Yych:.ylopc BEQn|
00001d40  6f 79 63 68 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |oych:LDA&70:CLC:|
00001d50  41 44 43 23 26 38 30 3a  53 54 41 26 37 30 3a 4c  |ADC#&80:STA&70:L|
00001d60  44 41 26 37 31 3a 41 44  43 23 32 3a 53 54 41 26  |DA&71:ADC#2:STA&|
00001d70  37 31 3a 44 45 59 3a 4a  4d 50 79 6c 6f 70 63 0d  |71:DEY:JMPylopc.|
00001d80  06 22 db 2e 6e 6f 79 63  68 20 4c 44 59 23 30 3a  |."..noych LDY#0:|
00001d90  2e 73 6c 69 6e 65 20 4c  44 41 26 43 30 30 2c 58  |.sline LDA&C00,X|
00001da0  3a 2e 6c 69 6e 65 6c 6f  70 20 50 48 41 3a 41 53  |:.linelop PHA:AS|
00001db0  4c 20 41 3a 52 4f 4c 20  41 3a 52 4f 4c 20 41 3a  |L A:ROL A:ROL A:|
00001dc0  80 23 33 3a 42 45 51 62  6c 61 6e 63 68 3a 53 54  |.#3:BEQblanch:ST|
00001dd0  41 26 38 30 3a 4c 44 41  23 30 3a 2e 63 6f 6c 63  |A&80:LDA#0:.colc|
00001de0  68 20 43 4c 43 3a 41 44  43 63 6f 6c 3a 44 45 43  |h CLC:ADCcol:DEC|
00001df0  26 38 30 3a 42 4e 45 63  6f 6c 63 68 3a 2e 62 6c  |&80:BNEcolch:.bl|
00001e00  61 6e 63 68 20 53 54 41  26 38 30 3a 4c 44 41 28  |anch STA&80:LDA(|
00001e10  26 37 30 29 2c 59 3a 80  23 26 43 30 3a 84 41 26  |&70),Y:.#&C0:.A&|
00001e20  38 30 3a 82 69 6e 76 66  6c 61 67 3a 53 54 41 28  |80:.invflag:STA(|
00001e30  26 37 30 29 2c 59 3a 54  59 41 3a 43 4c 43 3a 41  |&70),Y:TYA:CLC:A|
00001e40  44 43 23 38 3a 54 41 59  3a 43 4d 50 23 26 32 30  |DC#8:TAY:CMP#&20|
00001e50  3a 42 43 53 6e 65 77 6c  69 6e 0d 06 2c 4d 50 4c  |:BCSnewlin..,MPL|
00001e60  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 4a 4d  |A:ASL A:ASL A:JM|
00001e70  50 6c 69 6e 65 6c 6f 70  3a 2e 6e 65 77 6c 69 6e  |Plinelop:.newlin|
00001e80  20 80 23 37 3a 54 41 59  3a 50 4c 41 3a 49 4e 59  | .#7:TAY:PLA:INY|
00001e90  3a 49 4e 58 3a 43 50 59  23 38 3a 42 4e 45 73 6c  |:INX:CPY#8:BNEsl|
00001ea0  69 6e 65 3a 52 54 53 0d  06 36 07 5d 3a e1 0d ff  |ine:RTS..6.]:...|
00001eb0