�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
=;.delyou LDXxmoo:LDYymoo:.mcd STXxset:STYyset:JMPblockon
L']:�P%>&70��"Code Overflow to:";P%:�
VP%=&1000:O%=&5800:[OPT pass
`�LDY#&80:LDA#&30:.zerolop STA&1FFF,Y:DEY:BNEzerolop:LDA#&FF:STAscrtxt+3:SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#(irq � 256):STA&204:LDA#(irq � 256):STA&205:CLI
j&.prog JSRtitle:JSRblascr:JSRscroff
t%LDY#0:LDA#3:STA&70:LDA#&30:STA&71
~�.lines LDA(&70),Y:�A#3:STA(&70),Y:INY:LDA(&70),Y:�A#12:STA(&70),Y:DEY:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:CMP#&6C:BNElines
��STApowchange:STAobch:STAscrch:LDY#255:STYpower:STYobjects:STYobjects+1:INY:STYscore:STYscore+1:.scobarlop LDAsbar,Y:CMP#&FF:BEQstext:JSRoswrch:INY:JMPscobarlop
��.stext LDA#1:STAinvflag:LDA#4:STAcol:LDA#2:STAxch:LDA#25:STAych:LDA#(scort � 256):STA&72:LDA#(scort � 256):STA&73:JSRstring:LDA#13:STAxch:INC&72:JSRstring:LDA#4:STAcol:LDA#8:STAxch:LDA#28:STAych:INC&72:JSRstring
��.game LDA#0:STAxscr:STAyscr:LDA#2:STAxpos:STAypos:LDX#&20:.clrpot STXclrpnt+2:STXclrplp+2:.clrplp LDA&20FE:�#&7F:.clrpnt STA&20FE:INX:CPX#&80:BNEclrpot
��.newscr JSRscreen:.oldscr JSRquitch:JSRsboard:LDA#0:STAmovstag:LDAfine:BEQmoveslop:STAchanged:LDAwiper:PHA:JSRmainclear:PLA:STAwiper:.moveslop LDAchanged:BEQnodyou:JSRdispyou:.nodyou JSRdispmon:JSRwait:INCmovstag
�NLDAmovstag:CMP#3:BNEmoveslop:LDAmfine:PHA:LDAfine:STAfnst:LDA#0:STAmovstag
�WSTAchanged:STAfine:STAmfine:JSRdispyou:JSRdispmon:PLA:STAmfine:JSRwait:JSRmainclear
ė.finend JSRlaser:JSRdeadedch:JSRmonpro:JSRgetoput:LDAupvelo:BEQfallh:JSRjumpup:LDAxpos:STAxset:LDAypos:STAyset:JSRgetblock:CMP#10:BNEnofall:BEQwatt
ν.fallh LDAxpos:STAxset:LDAypos:STAyset:JSRgetblock:CMP#8:BEQwatt:CMP#14:BEQladder:.laddown LDAypos:CMP#9:BEQdownscr:INCyset:JSRgetblock:JSRdoorch:BCSfalldown:�#&30:BEQfalldown:BNEnofall
�M.downscr LDA#0:STAypos:INCyscr:JMPnewscr:.watt JMPzap:.ladder JMP ladderb
�a.falldown LDA#5:STAfine:INCypos:.nofall LDA#((oldscr-1) � 256):PHA:LDA#((oldscr-1) � 256):PHA
�.moveyou LDX#&B6:JSRkeybyte:BCCnjump:JSRjump:.njump LDX#&9E:JSRkeybyte:BCSleft:.nleft LDX#&BD:JSRkeybyte:BCCnright:BCSright
��.left LDA#0:STAface:STArghts:LDAxpos:BEQleftscr:SEC:SBC#1:STAxset:LDAypos:STAyset:JSRgetblock:JSRdoorch:BCSnoupl:�#&30:CMP#&10:BEQnomove:CMP#&20:BEQnomove:CMP#&30:BNEnoupl:DECypos:DECxpos:LDA#3:STAfine:.nright RTS
�.noupl DECxpos:LDA#1:STAfine:.nomove RTS:.right LDA#0:STArghts:LDA#1:STAface:LDAxpos:CMP#9:BEQrightscr:CLC:ADC#1:STAxset:LDAypos:STAyset:JSRgetblock:JSRdoorch:BCSnoupr:�#&30:CMP#&10:BEQnomover:CMP#&20:BEQnomover:CMP#&30:BNEnoupr

�DECypos:LDA#4:.nouprs INCxpos:STAfine:.nosnd RTS:.noupr LDA#2:JMPnouprs:.nomover LDA#1:STArghts:STAchanged:RTS:.leftscr LDA#9:STAxpos:DECxscr:.scrpass JMPscreen:.rightscr LDA#0:STAxpos:INCxscr:BNEscrpass
�.jump LDAypos:CMP#9:BEQnosnd:CLC:ADC#1:STAyset:LDAxpos:STAxset:JSRgetblock:�#&30:BEQnosnd:LDA#3:STAupvelo:LDAsound:BEQnosnd:LDA#7:LDX#(jumpn � 256):LDY#(jumpn � 256):JMPosword
�.dispshr SEI:LDAwiper:BEQnowipe:LDY#0:.wiplop LDA(wirep),Y:STA(&78),Y:INY:CPY#32:BNEwiplop:LDA&78:CLC:ADC#&80:STA&78:LDA&79:ADC#2:STA&79:LDY#0:.wipeb LDA(wirepb),Y:STA(&78),Y:INY:CPY#32:BNEwipeb
(�.nowipe LDA#1:STAwiper:LDAxpos:ASL A:ASL A:ASL A:ASL A:ASL A:ASL A:STA&70:LDAxpos:LSR A:LSR A:CLC:ADC#&35:STA&71:LDAypos:CLC:ADC&71:STA&71:LDAypos:ASL A:ASL A:CLC:ADC&71:STA&71:LDY#0
2�STY&72:LDA#&1A:STA&73:LDXmovstag:LDAsequen,X:CLC:ADCfine:TAX:LDA&70:CLC:ADClowad,X:STA&70:LDA&71:ADChighad,X:STA&71:LDAmflag:BNEmonsadr:CPX#0:BEQnophase:LDAmovstag:CMP#2:BEQnophase:LDXphase:INX
<�.addph LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#0:STA&73:DEX:BNEaddph:LDAphase:�#1:STAphase:JMPnophase:.monsadr LDAmonstat:�#1:STAmonstat:ASL A:ASL A:ASL A:ASL A:ASL A:CLC:ADC#&80:STA&72:LDA#&1B:STA&73:LDA#1:STAwiperm
F^LDAmtype:CMP#2:BNEnotyptr:LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#0:STA&73:.notyptr JMPleface
P�.nophase LDArghts:BEQnotrght:LDA&70:CLC:ADC#32:STA&70:LDA&71:ADC#0:STA&71:.notrght LDAface:BNEleface:LDA&72:CLC:ADC#&20:STA&72:.leface LDA&70:STA&78:LDA&71:STA&79
Z�.ladisp LDA(&70),Y:STA(wirep),Y:�(&72),Y:STA(&70),Y:INY:CPY#32:BNEladisp:LDA&72:CLC:ADC#&40:STA&72:LDA&73:ADC#0:STA&73:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:LDY#0
dU.lbdisp LDA(&70),Y:STA(wirepb),Y:�(&72),Y:STA(&70),Y:INY:CPY#32:BNElbdisp:CLI:RTS
n<.wait LDAclock:CMP&80:BNEwait:LDAclock:ADC#10: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 3b 2e 64 65 6c 79 6f  | EQUB0..=;.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 3a 4a  4d 50 62 6c 6f 63 6b 6f  |TYyset:JMPblocko|
00000390  6e 0d 04 4c 27 5d 3a e7  50 25 3e 26 37 30 8c f1  |n..L']:.P%>&70..|
000003a0  22 43 6f 64 65 20 4f 76  65 72 66 6c 6f 77 20 74  |"Code Overflow t|
000003b0  6f 3a 22 3b 50 25 3a e0  0d 04 56 1f 50 25 3d 26  |o:";P%:...V.P%=&|
000003c0  31 30 30 30 3a 4f 25 3d  26 35 38 30 30 3a 5b 4f  |1000:O%=&5800:[O|
000003d0  50 54 20 70 61 73 73 0d  04 60 a8 4c 44 59 23 26  |PT pass..`.LDY#&|
000003e0  38 30 3a 4c 44 41 23 26  33 30 3a 2e 7a 65 72 6f  |80:LDA#&30:.zero|
000003f0  6c 6f 70 20 53 54 41 26  31 46 46 46 2c 59 3a 44  |lop STA&1FFF,Y:D|
00000400  45 59 3a 42 4e 45 7a 65  72 6f 6c 6f 70 3a 4c 44  |EY:BNEzerolop:LD|
00000410  41 23 26 46 46 3a 53 54  41 73 63 72 74 78 74 2b  |A#&FF:STAscrtxt+|
00000420  33 3a 53 45 49 3a 4c 44  41 26 32 30 34 3a 53 54  |3:SEI:LDA&204:ST|
00000430  41 76 65 63 74 6f 72 3a  4c 44 41 26 32 30 35 3a  |Avector:LDA&205:|
00000440  53 54 41 76 65 63 74 6f  72 2b 31 3a 4c 44 41 23  |STAvector+1:LDA#|
00000450  28 69 72 71 20 83 20 32  35 36 29 3a 53 54 41 26  |(irq . 256):STA&|
00000460  32 30 34 3a 4c 44 41 23  28 69 72 71 20 81 20 32  |204:LDA#(irq . 2|
00000470  35 36 29 3a 53 54 41 26  32 30 35 3a 43 4c 49 0d  |56):STA&205:CLI.|
00000480  04 6a 26 2e 70 72 6f 67  20 4a 53 52 74 69 74 6c  |.j&.prog JSRtitl|
00000490  65 3a 4a 53 52 62 6c 61  73 63 72 3a 4a 53 52 73  |e:JSRblascr:JSRs|
000004a0  63 72 6f 66 66 0d 04 74  25 4c 44 59 23 30 3a 4c  |croff..t%LDY#0:L|
000004b0  44 41 23 33 3a 53 54 41  26 37 30 3a 4c 44 41 23  |DA#3:STA&70:LDA#|
000004c0  26 33 30 3a 53 54 41 26  37 31 0d 04 7e 86 2e 6c  |&30:STA&71..~..l|
000004d0  69 6e 65 73 20 4c 44 41  28 26 37 30 29 2c 59 3a  |ines LDA(&70),Y:|
000004e0  84 41 23 33 3a 53 54 41  28 26 37 30 29 2c 59 3a  |.A#3:STA(&70),Y:|
000004f0  49 4e 59 3a 4c 44 41 28  26 37 30 29 2c 59 3a 84  |INY:LDA(&70),Y:.|
00000500  41 23 31 32 3a 53 54 41  28 26 37 30 29 2c 59 3a  |A#12:STA(&70),Y:|
00000510  44 45 59 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |DEY:LDA&70:CLC:A|
00000520  44 43 23 38 3a 53 54 41  26 37 30 3a 4c 44 41 26  |DC#8:STA&70:LDA&|
00000530  37 31 3a 41 44 43 23 30  3a 53 54 41 26 37 31 3a  |71:ADC#0:STA&71:|
00000540  43 4d 50 23 26 36 43 3a  42 4e 45 6c 69 6e 65 73  |CMP#&6C:BNElines|
00000550  0d 04 88 a3 53 54 41 70  6f 77 63 68 61 6e 67 65  |....STApowchange|
00000560  3a 53 54 41 6f 62 63 68  3a 53 54 41 73 63 72 63  |:STAobch:STAscrc|
00000570  68 3a 4c 44 59 23 32 35  35 3a 53 54 59 70 6f 77  |h:LDY#255:STYpow|
00000580  65 72 3a 53 54 59 6f 62  6a 65 63 74 73 3a 53 54  |er:STYobjects:ST|
00000590  59 6f 62 6a 65 63 74 73  2b 31 3a 49 4e 59 3a 53  |Yobjects+1:INY:S|
000005a0  54 59 73 63 6f 72 65 3a  53 54 59 73 63 6f 72 65  |TYscore:STYscore|
000005b0  2b 31 3a 2e 73 63 6f 62  61 72 6c 6f 70 20 4c 44  |+1:.scobarlop LD|
000005c0  41 73 62 61 72 2c 59 3a  43 4d 50 23 26 46 46 3a  |Asbar,Y:CMP#&FF:|
000005d0  42 45 51 73 74 65 78 74  3a 4a 53 52 6f 73 77 72  |BEQstext:JSRoswr|
000005e0  63 68 3a 49 4e 59 3a 4a  4d 50 73 63 6f 62 61 72  |ch:INY:JMPscobar|
000005f0  6c 6f 70 0d 04 92 d7 2e  73 74 65 78 74 20 4c 44  |lop.....stext LD|
00000600  41 23 31 3a 53 54 41 69  6e 76 66 6c 61 67 3a 4c  |A#1:STAinvflag:L|
00000610  44 41 23 34 3a 53 54 41  63 6f 6c 3a 4c 44 41 23  |DA#4:STAcol:LDA#|
00000620  32 3a 53 54 41 78 63 68  3a 4c 44 41 23 32 35 3a  |2:STAxch:LDA#25:|
00000630  53 54 41 79 63 68 3a 4c  44 41 23 28 73 63 6f 72  |STAych:LDA#(scor|
00000640  74 20 83 20 32 35 36 29  3a 53 54 41 26 37 32 3a  |t . 256):STA&72:|
00000650  4c 44 41 23 28 73 63 6f  72 74 20 81 20 32 35 36  |LDA#(scort . 256|
00000660  29 3a 53 54 41 26 37 33  3a 4a 53 52 73 74 72 69  |):STA&73:JSRstri|
00000670  6e 67 3a 4c 44 41 23 31  33 3a 53 54 41 78 63 68  |ng:LDA#13:STAxch|
00000680  3a 49 4e 43 26 37 32 3a  4a 53 52 73 74 72 69 6e  |:INC&72:JSRstrin|
00000690  67 3a 4c 44 41 23 34 3a  53 54 41 63 6f 6c 3a 4c  |g:LDA#4:STAcol:L|
000006a0  44 41 23 38 3a 53 54 41  78 63 68 3a 4c 44 41 23  |DA#8:STAxch:LDA#|
000006b0  32 38 3a 53 54 41 79 63  68 3a 49 4e 43 26 37 32  |28:STAych:INC&72|
000006c0  3a 4a 53 52 73 74 72 69  6e 67 0d 04 9c 9b 2e 67  |:JSRstring.....g|
000006d0  61 6d 65 20 4c 44 41 23  30 3a 53 54 41 78 73 63  |ame LDA#0:STAxsc|
000006e0  72 3a 53 54 41 79 73 63  72 3a 4c 44 41 23 32 3a  |r:STAyscr:LDA#2:|
000006f0  53 54 41 78 70 6f 73 3a  53 54 41 79 70 6f 73 3a  |STAxpos:STAypos:|
00000700  4c 44 58 23 26 32 30 3a  2e 63 6c 72 70 6f 74 20  |LDX#&20:.clrpot |
00000710  53 54 58 63 6c 72 70 6e  74 2b 32 3a 53 54 58 63  |STXclrpnt+2:STXc|
00000720  6c 72 70 6c 70 2b 32 3a  2e 63 6c 72 70 6c 70 20  |lrplp+2:.clrplp |
00000730  4c 44 41 26 32 30 46 45  3a 80 23 26 37 46 3a 2e  |LDA&20FE:.#&7F:.|
00000740  63 6c 72 70 6e 74 20 53  54 41 26 32 30 46 45 3a  |clrpnt STA&20FE:|
00000750  49 4e 58 3a 43 50 58 23  26 38 30 3a 42 4e 45 63  |INX:CPX#&80:BNEc|
00000760  6c 72 70 6f 74 0d 04 a6  d8 2e 6e 65 77 73 63 72  |lrpot.....newscr|
00000770  20 4a 53 52 73 63 72 65  65 6e 3a 2e 6f 6c 64 73  | JSRscreen:.olds|
00000780  63 72 20 4a 53 52 71 75  69 74 63 68 3a 4a 53 52  |cr JSRquitch:JSR|
00000790  73 62 6f 61 72 64 3a 4c  44 41 23 30 3a 53 54 41  |sboard:LDA#0:STA|
000007a0  6d 6f 76 73 74 61 67 3a  4c 44 41 66 69 6e 65 3a  |movstag:LDAfine:|
000007b0  42 45 51 6d 6f 76 65 73  6c 6f 70 3a 53 54 41 63  |BEQmoveslop:STAc|
000007c0  68 61 6e 67 65 64 3a 4c  44 41 77 69 70 65 72 3a  |hanged:LDAwiper:|
000007d0  50 48 41 3a 4a 53 52 6d  61 69 6e 63 6c 65 61 72  |PHA:JSRmainclear|
000007e0  3a 50 4c 41 3a 53 54 41  77 69 70 65 72 3a 2e 6d  |:PLA:STAwiper:.m|
000007f0  6f 76 65 73 6c 6f 70 20  4c 44 41 63 68 61 6e 67  |oveslop LDAchang|
00000800  65 64 3a 42 45 51 6e 6f  64 79 6f 75 3a 4a 53 52  |ed:BEQnodyou:JSR|
00000810  64 69 73 70 79 6f 75 3a  2e 6e 6f 64 79 6f 75 20  |dispyou:.nodyou |
00000820  4a 53 52 64 69 73 70 6d  6f 6e 3a 4a 53 52 77 61  |JSRdispmon:JSRwa|
00000830  69 74 3a 49 4e 43 6d 6f  76 73 74 61 67 0d 04 b0  |it:INCmovstag...|
00000840  4e 4c 44 41 6d 6f 76 73  74 61 67 3a 43 4d 50 23  |NLDAmovstag:CMP#|
00000850  33 3a 42 4e 45 6d 6f 76  65 73 6c 6f 70 3a 4c 44  |3:BNEmoveslop:LD|
00000860  41 6d 66 69 6e 65 3a 50  48 41 3a 4c 44 41 66 69  |Amfine:PHA:LDAfi|
00000870  6e 65 3a 53 54 41 66 6e  73 74 3a 4c 44 41 23 30  |ne:STAfnst:LDA#0|
00000880  3a 53 54 41 6d 6f 76 73  74 61 67 0d 04 ba 57 53  |:STAmovstag...WS|
00000890  54 41 63 68 61 6e 67 65  64 3a 53 54 41 66 69 6e  |TAchanged:STAfin|
000008a0  65 3a 53 54 41 6d 66 69  6e 65 3a 4a 53 52 64 69  |e:STAmfine:JSRdi|
000008b0  73 70 79 6f 75 3a 4a 53  52 64 69 73 70 6d 6f 6e  |spyou:JSRdispmon|
000008c0  3a 50 4c 41 3a 53 54 41  6d 66 69 6e 65 3a 4a 53  |:PLA:STAmfine:JS|
000008d0  52 77 61 69 74 3a 4a 53  52 6d 61 69 6e 63 6c 65  |Rwait:JSRmaincle|
000008e0  61 72 0d 04 c4 97 2e 66  69 6e 65 6e 64 20 4a 53  |ar.....finend JS|
000008f0  52 6c 61 73 65 72 3a 4a  53 52 64 65 61 64 65 64  |Rlaser:JSRdeaded|
00000900  63 68 3a 4a 53 52 6d 6f  6e 70 72 6f 3a 4a 53 52  |ch:JSRmonpro:JSR|
00000910  67 65 74 6f 70 75 74 3a  4c 44 41 75 70 76 65 6c  |getoput:LDAupvel|
00000920  6f 3a 42 45 51 66 61 6c  6c 68 3a 4a 53 52 6a 75  |o:BEQfallh:JSRju|
00000930  6d 70 75 70 3a 4c 44 41  78 70 6f 73 3a 53 54 41  |mpup:LDAxpos:STA|
00000940  78 73 65 74 3a 4c 44 41  79 70 6f 73 3a 53 54 41  |xset:LDAypos:STA|
00000950  79 73 65 74 3a 4a 53 52  67 65 74 62 6c 6f 63 6b  |yset:JSRgetblock|
00000960  3a 43 4d 50 23 31 30 3a  42 4e 45 6e 6f 66 61 6c  |:CMP#10:BNEnofal|
00000970  6c 3a 42 45 51 77 61 74  74 0d 04 ce bd 2e 66 61  |l:BEQwatt.....fa|
00000980  6c 6c 68 20 4c 44 41 78  70 6f 73 3a 53 54 41 78  |llh LDAxpos:STAx|
00000990  73 65 74 3a 4c 44 41 79  70 6f 73 3a 53 54 41 79  |set:LDAypos:STAy|
000009a0  73 65 74 3a 4a 53 52 67  65 74 62 6c 6f 63 6b 3a  |set:JSRgetblock:|
000009b0  43 4d 50 23 38 3a 42 45  51 77 61 74 74 3a 43 4d  |CMP#8:BEQwatt:CM|
000009c0  50 23 31 34 3a 42 45 51  6c 61 64 64 65 72 3a 2e  |P#14:BEQladder:.|
000009d0  6c 61 64 64 6f 77 6e 20  4c 44 41 79 70 6f 73 3a  |laddown LDAypos:|
000009e0  43 4d 50 23 39 3a 42 45  51 64 6f 77 6e 73 63 72  |CMP#9:BEQdownscr|
000009f0  3a 49 4e 43 79 73 65 74  3a 4a 53 52 67 65 74 62  |:INCyset:JSRgetb|
00000a00  6c 6f 63 6b 3a 4a 53 52  64 6f 6f 72 63 68 3a 42  |lock:JSRdoorch:B|
00000a10  43 53 66 61 6c 6c 64 6f  77 6e 3a 80 23 26 33 30  |CSfalldown:.#&30|
00000a20  3a 42 45 51 66 61 6c 6c  64 6f 77 6e 3a 42 4e 45  |:BEQfalldown:BNE|
00000a30  6e 6f 66 61 6c 6c 0d 04  d8 4d 2e 64 6f 77 6e 73  |nofall...M.downs|
00000a40  63 72 20 4c 44 41 23 30  3a 53 54 41 79 70 6f 73  |cr LDA#0:STAypos|
00000a50  3a 49 4e 43 79 73 63 72  3a 4a 4d 50 6e 65 77 73  |:INCyscr:JMPnews|
00000a60  63 72 3a 2e 77 61 74 74  20 4a 4d 50 7a 61 70 3a  |cr:.watt JMPzap:|
00000a70  2e 6c 61 64 64 65 72 20  4a 4d 50 20 6c 61 64 64  |.ladder JMP ladd|
00000a80  65 72 62 0d 04 e2 61 2e  66 61 6c 6c 64 6f 77 6e  |erb...a.falldown|
00000a90  20 4c 44 41 23 35 3a 53  54 41 66 69 6e 65 3a 49  | LDA#5:STAfine:I|
00000aa0  4e 43 79 70 6f 73 3a 2e  6e 6f 66 61 6c 6c 20 4c  |NCypos:.nofall L|
00000ab0  44 41 23 28 28 6f 6c 64  73 63 72 2d 31 29 20 81  |DA#((oldscr-1) .|
00000ac0  20 32 35 36 29 3a 50 48  41 3a 4c 44 41 23 28 28  | 256):PHA:LDA#((|
00000ad0  6f 6c 64 73 63 72 2d 31  29 20 83 20 32 35 36 29  |oldscr-1) . 256)|
00000ae0  3a 50 48 41 0d 04 ec 7f  2e 6d 6f 76 65 79 6f 75  |:PHA.....moveyou|
00000af0  20 4c 44 58 23 26 42 36  3a 4a 53 52 6b 65 79 62  | LDX#&B6:JSRkeyb|
00000b00  79 74 65 3a 42 43 43 6e  6a 75 6d 70 3a 4a 53 52  |yte:BCCnjump:JSR|
00000b10  6a 75 6d 70 3a 2e 6e 6a  75 6d 70 20 4c 44 58 23  |jump:.njump LDX#|
00000b20  26 39 45 3a 4a 53 52 6b  65 79 62 79 74 65 3a 42  |&9E:JSRkeybyte:B|
00000b30  43 53 6c 65 66 74 3a 2e  6e 6c 65 66 74 20 4c 44  |CSleft:.nleft LD|
00000b40  58 23 26 42 44 3a 4a 53  52 6b 65 79 62 79 74 65  |X#&BD:JSRkeybyte|
00000b50  3a 42 43 43 6e 72 69 67  68 74 3a 42 43 53 72 69  |:BCCnright:BCSri|
00000b60  67 68 74 0d 04 f6 d9 2e  6c 65 66 74 20 4c 44 41  |ght.....left LDA|
00000b70  23 30 3a 53 54 41 66 61  63 65 3a 53 54 41 72 67  |#0:STAface:STArg|
00000b80  68 74 73 3a 4c 44 41 78  70 6f 73 3a 42 45 51 6c  |hts:LDAxpos:BEQl|
00000b90  65 66 74 73 63 72 3a 53  45 43 3a 53 42 43 23 31  |eftscr:SEC:SBC#1|
00000ba0  3a 53 54 41 78 73 65 74  3a 4c 44 41 79 70 6f 73  |:STAxset:LDAypos|
00000bb0  3a 53 54 41 79 73 65 74  3a 4a 53 52 67 65 74 62  |:STAyset:JSRgetb|
00000bc0  6c 6f 63 6b 3a 4a 53 52  64 6f 6f 72 63 68 3a 42  |lock:JSRdoorch:B|
00000bd0  43 53 6e 6f 75 70 6c 3a  80 23 26 33 30 3a 43 4d  |CSnoupl:.#&30:CM|
00000be0  50 23 26 31 30 3a 42 45  51 6e 6f 6d 6f 76 65 3a  |P#&10:BEQnomove:|
00000bf0  43 4d 50 23 26 32 30 3a  42 45 51 6e 6f 6d 6f 76  |CMP#&20:BEQnomov|
00000c00  65 3a 43 4d 50 23 26 33  30 3a 42 4e 45 6e 6f 75  |e:CMP#&30:BNEnou|
00000c10  70 6c 3a 44 45 43 79 70  6f 73 3a 44 45 43 78 70  |pl:DECypos:DECxp|
00000c20  6f 73 3a 4c 44 41 23 33  3a 53 54 41 66 69 6e 65  |os:LDA#3:STAfine|
00000c30  3a 2e 6e 72 69 67 68 74  20 52 54 53 0d 05 00 e8  |:.nright RTS....|
00000c40  2e 6e 6f 75 70 6c 20 44  45 43 78 70 6f 73 3a 4c  |.noupl DECxpos:L|
00000c50  44 41 23 31 3a 53 54 41  66 69 6e 65 3a 2e 6e 6f  |DA#1:STAfine:.no|
00000c60  6d 6f 76 65 20 52 54 53  3a 2e 72 69 67 68 74 20  |move RTS:.right |
00000c70  4c 44 41 23 30 3a 53 54  41 72 67 68 74 73 3a 4c  |LDA#0:STArghts:L|
00000c80  44 41 23 31 3a 53 54 41  66 61 63 65 3a 4c 44 41  |DA#1:STAface:LDA|
00000c90  78 70 6f 73 3a 43 4d 50  23 39 3a 42 45 51 72 69  |xpos:CMP#9:BEQri|
00000ca0  67 68 74 73 63 72 3a 43  4c 43 3a 41 44 43 23 31  |ghtscr:CLC:ADC#1|
00000cb0  3a 53 54 41 78 73 65 74  3a 4c 44 41 79 70 6f 73  |:STAxset:LDAypos|
00000cc0  3a 53 54 41 79 73 65 74  3a 4a 53 52 67 65 74 62  |:STAyset:JSRgetb|
00000cd0  6c 6f 63 6b 3a 4a 53 52  64 6f 6f 72 63 68 3a 42  |lock:JSRdoorch:B|
00000ce0  43 53 6e 6f 75 70 72 3a  80 23 26 33 30 3a 43 4d  |CSnoupr:.#&30:CM|
00000cf0  50 23 26 31 30 3a 42 45  51 6e 6f 6d 6f 76 65 72  |P#&10:BEQnomover|
00000d00  3a 43 4d 50 23 26 32 30  3a 42 45 51 6e 6f 6d 6f  |:CMP#&20:BEQnomo|
00000d10  76 65 72 3a 43 4d 50 23  26 33 30 3a 42 4e 45 6e  |ver:CMP#&30:BNEn|
00000d20  6f 75 70 72 0d 05 0a cf  44 45 43 79 70 6f 73 3a  |oupr....DECypos:|
00000d30  4c 44 41 23 34 3a 2e 6e  6f 75 70 72 73 20 49 4e  |LDA#4:.nouprs IN|
00000d40  43 78 70 6f 73 3a 53 54  41 66 69 6e 65 3a 2e 6e  |Cxpos:STAfine:.n|
00000d50  6f 73 6e 64 20 52 54 53  3a 2e 6e 6f 75 70 72 20  |osnd RTS:.noupr |
00000d60  4c 44 41 23 32 3a 4a 4d  50 6e 6f 75 70 72 73 3a  |LDA#2:JMPnouprs:|
00000d70  2e 6e 6f 6d 6f 76 65 72  20 4c 44 41 23 31 3a 53  |.nomover LDA#1:S|
00000d80  54 41 72 67 68 74 73 3a  53 54 41 63 68 61 6e 67  |TArghts:STAchang|
00000d90  65 64 3a 52 54 53 3a 2e  6c 65 66 74 73 63 72 20  |ed:RTS:.leftscr |
00000da0  4c 44 41 23 39 3a 53 54  41 78 70 6f 73 3a 44 45  |LDA#9:STAxpos:DE|
00000db0  43 78 73 63 72 3a 2e 73  63 72 70 61 73 73 20 4a  |Cxscr:.scrpass J|
00000dc0  4d 50 73 63 72 65 65 6e  3a 2e 72 69 67 68 74 73  |MPscreen:.rights|
00000dd0  63 72 20 4c 44 41 23 30  3a 53 54 41 78 70 6f 73  |cr LDA#0:STAxpos|
00000de0  3a 49 4e 43 78 73 63 72  3a 42 4e 45 73 63 72 70  |:INCxscr:BNEscrp|
00000df0  61 73 73 0d 05 14 b3 2e  6a 75 6d 70 20 4c 44 41  |ass.....jump LDA|
00000e00  79 70 6f 73 3a 43 4d 50  23 39 3a 42 45 51 6e 6f  |ypos:CMP#9:BEQno|
00000e10  73 6e 64 3a 43 4c 43 3a  41 44 43 23 31 3a 53 54  |snd:CLC:ADC#1:ST|
00000e20  41 79 73 65 74 3a 4c 44  41 78 70 6f 73 3a 53 54  |Ayset:LDAxpos:ST|
00000e30  41 78 73 65 74 3a 4a 53  52 67 65 74 62 6c 6f 63  |Axset:JSRgetbloc|
00000e40  6b 3a 80 23 26 33 30 3a  42 45 51 6e 6f 73 6e 64  |k:.#&30:BEQnosnd|
00000e50  3a 4c 44 41 23 33 3a 53  54 41 75 70 76 65 6c 6f  |:LDA#3:STAupvelo|
00000e60  3a 4c 44 41 73 6f 75 6e  64 3a 42 45 51 6e 6f 73  |:LDAsound:BEQnos|
00000e70  6e 64 3a 4c 44 41 23 37  3a 4c 44 58 23 28 6a 75  |nd:LDA#7:LDX#(ju|
00000e80  6d 70 6e 20 83 20 32 35  36 29 3a 4c 44 59 23 28  |mpn . 256):LDY#(|
00000e90  6a 75 6d 70 6e 20 81 20  32 35 36 29 3a 4a 4d 50  |jumpn . 256):JMP|
00000ea0  6f 73 77 6f 72 64 0d 05  1e c6 2e 64 69 73 70 73  |osword.....disps|
00000eb0  68 72 20 53 45 49 3a 4c  44 41 77 69 70 65 72 3a  |hr SEI:LDAwiper:|
00000ec0  42 45 51 6e 6f 77 69 70  65 3a 4c 44 59 23 30 3a  |BEQnowipe:LDY#0:|
00000ed0  2e 77 69 70 6c 6f 70 20  4c 44 41 28 77 69 72 65  |.wiplop LDA(wire|
00000ee0  70 29 2c 59 3a 53 54 41  28 26 37 38 29 2c 59 3a  |p),Y:STA(&78),Y:|
00000ef0  49 4e 59 3a 43 50 59 23  33 32 3a 42 4e 45 77 69  |INY:CPY#32:BNEwi|
00000f00  70 6c 6f 70 3a 4c 44 41  26 37 38 3a 43 4c 43 3a  |plop:LDA&78:CLC:|
00000f10  41 44 43 23 26 38 30 3a  53 54 41 26 37 38 3a 4c  |ADC#&80:STA&78:L|
00000f20  44 41 26 37 39 3a 41 44  43 23 32 3a 53 54 41 26  |DA&79:ADC#2:STA&|
00000f30  37 39 3a 4c 44 59 23 30  3a 2e 77 69 70 65 62 20  |79:LDY#0:.wipeb |
00000f40  4c 44 41 28 77 69 72 65  70 62 29 2c 59 3a 53 54  |LDA(wirepb),Y:ST|
00000f50  41 28 26 37 38 29 2c 59  3a 49 4e 59 3a 43 50 59  |A(&78),Y:INY:CPY|
00000f60  23 33 32 3a 42 4e 45 77  69 70 65 62 0d 05 28 ba  |#32:BNEwipeb..(.|
00000f70  2e 6e 6f 77 69 70 65 20  4c 44 41 23 31 3a 53 54  |.nowipe LDA#1:ST|
00000f80  41 77 69 70 65 72 3a 4c  44 41 78 70 6f 73 3a 41  |Awiper:LDAxpos:A|
00000f90  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00000fa0  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
00000fb0  20 41 3a 53 54 41 26 37  30 3a 4c 44 41 78 70 6f  | A:STA&70:LDAxpo|
00000fc0  73 3a 4c 53 52 20 41 3a  4c 53 52 20 41 3a 43 4c  |s:LSR A:LSR A:CL|
00000fd0  43 3a 41 44 43 23 26 33  35 3a 53 54 41 26 37 31  |C:ADC#&35:STA&71|
00000fe0  3a 4c 44 41 79 70 6f 73  3a 43 4c 43 3a 41 44 43  |:LDAypos:CLC:ADC|
00000ff0  26 37 31 3a 53 54 41 26  37 31 3a 4c 44 41 79 70  |&71:STA&71:LDAyp|
00001000  6f 73 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 43  |os:ASL A:ASL A:C|
00001010  4c 43 3a 41 44 43 26 37  31 3a 53 54 41 26 37 31  |LC:ADC&71:STA&71|
00001020  3a 4c 44 59 23 30 0d 05  32 c5 53 54 59 26 37 32  |:LDY#0..2.STY&72|
00001030  3a 4c 44 41 23 26 31 41  3a 53 54 41 26 37 33 3a  |:LDA#&1A:STA&73:|
00001040  4c 44 58 6d 6f 76 73 74  61 67 3a 4c 44 41 73 65  |LDXmovstag:LDAse|
00001050  71 75 65 6e 2c 58 3a 43  4c 43 3a 41 44 43 66 69  |quen,X:CLC:ADCfi|
00001060  6e 65 3a 54 41 58 3a 4c  44 41 26 37 30 3a 43 4c  |ne:TAX:LDA&70:CL|
00001070  43 3a 41 44 43 6c 6f 77  61 64 2c 58 3a 53 54 41  |C:ADClowad,X:STA|
00001080  26 37 30 3a 4c 44 41 26  37 31 3a 41 44 43 68 69  |&70:LDA&71:ADChi|
00001090  67 68 61 64 2c 58 3a 53  54 41 26 37 31 3a 4c 44  |ghad,X:STA&71:LD|
000010a0  41 6d 66 6c 61 67 3a 42  4e 45 6d 6f 6e 73 61 64  |Amflag:BNEmonsad|
000010b0  72 3a 43 50 58 23 30 3a  42 45 51 6e 6f 70 68 61  |r:CPX#0:BEQnopha|
000010c0  73 65 3a 4c 44 41 6d 6f  76 73 74 61 67 3a 43 4d  |se:LDAmovstag:CM|
000010d0  50 23 32 3a 42 45 51 6e  6f 70 68 61 73 65 3a 4c  |P#2:BEQnophase:L|
000010e0  44 58 70 68 61 73 65 3a  49 4e 58 0d 05 3c d9 2e  |DXphase:INX..<..|
000010f0  61 64 64 70 68 20 4c 44  41 26 37 32 3a 43 4c 43  |addph LDA&72:CLC|
00001100  3a 41 44 43 23 26 38 30  3a 53 54 41 26 37 32 3a  |:ADC#&80:STA&72:|
00001110  4c 44 41 26 37 33 3a 41  44 43 23 30 3a 53 54 41  |LDA&73:ADC#0:STA|
00001120  26 37 33 3a 44 45 58 3a  42 4e 45 61 64 64 70 68  |&73:DEX:BNEaddph|
00001130  3a 4c 44 41 70 68 61 73  65 3a 82 23 31 3a 53 54  |:LDAphase:.#1:ST|
00001140  41 70 68 61 73 65 3a 4a  4d 50 6e 6f 70 68 61 73  |Aphase:JMPnophas|
00001150  65 3a 2e 6d 6f 6e 73 61  64 72 20 4c 44 41 6d 6f  |e:.monsadr LDAmo|
00001160  6e 73 74 61 74 3a 82 23  31 3a 53 54 41 6d 6f 6e  |nstat:.#1:STAmon|
00001170  73 74 61 74 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |stat:ASL A:ASL A|
00001180  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
00001190  20 41 3a 43 4c 43 3a 41  44 43 23 26 38 30 3a 53  | A:CLC:ADC#&80:S|
000011a0  54 41 26 37 32 3a 4c 44  41 23 26 31 42 3a 53 54  |TA&72:LDA#&1B:ST|
000011b0  41 26 37 33 3a 4c 44 41  23 31 3a 53 54 41 77 69  |A&73:LDA#1:STAwi|
000011c0  70 65 72 6d 0d 05 46 5e  4c 44 41 6d 74 79 70 65  |perm..F^LDAmtype|
000011d0  3a 43 4d 50 23 32 3a 42  4e 45 6e 6f 74 79 70 74  |:CMP#2:BNEnotypt|
000011e0  72 3a 4c 44 41 26 37 32  3a 43 4c 43 3a 41 44 43  |r:LDA&72:CLC:ADC|
000011f0  23 26 38 30 3a 53 54 41  26 37 32 3a 4c 44 41 26  |#&80:STA&72:LDA&|
00001200  37 33 3a 41 44 43 23 30  3a 53 54 41 26 37 33 3a  |73:ADC#0:STA&73:|
00001210  2e 6e 6f 74 79 70 74 72  20 4a 4d 50 6c 65 66 61  |.notyptr JMPlefa|
00001220  63 65 0d 05 50 a6 2e 6e  6f 70 68 61 73 65 20 4c  |ce..P..nophase L|
00001230  44 41 72 67 68 74 73 3a  42 45 51 6e 6f 74 72 67  |DArghts:BEQnotrg|
00001240  68 74 3a 4c 44 41 26 37  30 3a 43 4c 43 3a 41 44  |ht:LDA&70:CLC:AD|
00001250  43 23 33 32 3a 53 54 41  26 37 30 3a 4c 44 41 26  |C#32:STA&70:LDA&|
00001260  37 31 3a 41 44 43 23 30  3a 53 54 41 26 37 31 3a  |71:ADC#0:STA&71:|
00001270  2e 6e 6f 74 72 67 68 74  20 4c 44 41 66 61 63 65  |.notrght LDAface|
00001280  3a 42 4e 45 6c 65 66 61  63 65 3a 4c 44 41 26 37  |:BNEleface:LDA&7|
00001290  32 3a 43 4c 43 3a 41 44  43 23 26 32 30 3a 53 54  |2:CLC:ADC#&20:ST|
000012a0  41 26 37 32 3a 2e 6c 65  66 61 63 65 20 4c 44 41  |A&72:.leface LDA|
000012b0  26 37 30 3a 53 54 41 26  37 38 3a 4c 44 41 26 37  |&70:STA&78:LDA&7|
000012c0  31 3a 53 54 41 26 37 39  0d 05 5a ae 2e 6c 61 64  |1:STA&79..Z..lad|
000012d0  69 73 70 20 4c 44 41 28  26 37 30 29 2c 59 3a 53  |isp LDA(&70),Y:S|
000012e0  54 41 28 77 69 72 65 70  29 2c 59 3a 82 28 26 37  |TA(wirep),Y:.(&7|
000012f0  32 29 2c 59 3a 53 54 41  28 26 37 30 29 2c 59 3a  |2),Y:STA(&70),Y:|
00001300  49 4e 59 3a 43 50 59 23  33 32 3a 42 4e 45 6c 61  |INY:CPY#32:BNEla|
00001310  64 69 73 70 3a 4c 44 41  26 37 32 3a 43 4c 43 3a  |disp:LDA&72:CLC:|
00001320  41 44 43 23 26 34 30 3a  53 54 41 26 37 32 3a 4c  |ADC#&40:STA&72:L|
00001330  44 41 26 37 33 3a 41 44  43 23 30 3a 53 54 41 26  |DA&73:ADC#0:STA&|
00001340  37 33 3a 4c 44 41 26 37  30 3a 43 4c 43 3a 41 44  |73:LDA&70:CLC:AD|
00001350  43 23 26 38 30 3a 53 54  41 26 37 30 3a 4c 44 41  |C#&80:STA&70:LDA|
00001360  26 37 31 3a 41 44 43 23  32 3a 53 54 41 26 37 31  |&71:ADC#2:STA&71|
00001370  3a 4c 44 59 23 30 0d 05  64 55 2e 6c 62 64 69 73  |:LDY#0..dU.lbdis|
00001380  70 20 4c 44 41 28 26 37  30 29 2c 59 3a 53 54 41  |p LDA(&70),Y:STA|
00001390  28 77 69 72 65 70 62 29  2c 59 3a 82 28 26 37 32  |(wirepb),Y:.(&72|
000013a0  29 2c 59 3a 53 54 41 28  26 37 30 29 2c 59 3a 49  |),Y:STA(&70),Y:I|
000013b0  4e 59 3a 43 50 59 23 33  32 3a 42 4e 45 6c 62 64  |NY:CPY#32:BNElbd|
000013c0  69 73 70 3a 43 4c 49 3a  52 54 53 0d 05 6e 3c 2e  |isp:CLI:RTS..n<.|
000013d0  77 61 69 74 20 4c 44 41  63 6c 6f 63 6b 3a 43 4d  |wait LDAclock:CM|
000013e0  50 26 38 30 3a 42 4e 45  77 61 69 74 3a 4c 44 41  |P&80:BNEwait:LDA|
000013f0  63 6c 6f 63 6b 3a 41 44  43 23 31 30 3a 53 54 41  |clock:ADC#10:STA|
00001400  26 38 30 3a 52 54 53 0d  05 78 d2 2e 6a 75 6d 70  |&80:RTS..x..jump|
00001410  75 70 20 44 45 43 75 70  76 65 6c 6f 3a 4c 44 41  |up DECupvelo:LDA|
00001420  79 70 6f 73 3a 42 45 51  75 70 73 63 72 3a 53 45  |ypos:BEQupscr:SE|
00001430  43 3a 53 42 43 23 31 3a  53 54 41 79 73 65 74 3a  |C:SBC#1:STAyset:|
00001440  4c 44 41 78 70 6f 73 3a  53 54 41 78 73 65 74 3a  |LDAxpos:STAxset:|
00001450  4a 53 52 67 65 74 62 6c  6f 63 6b 3a 4a 53 52 64  |JSRgetblock:JSRd|
00001460  6f 6f 72 63 68 3a 42 43  53 75 70 6f 6e 65 3a 80  |oorch:BCSupone:.|
00001470  23 26 33 30 3a 42 45 51  75 70 6f 6e 65 3a 4c 44  |#&30:BEQupone:LD|
00001480  41 23 30 3a 53 54 41 75  70 76 65 6c 6f 3a 52 54  |A#0:STAupvelo:RT|
00001490  53 3a 2e 75 70 6f 6e 65  20 4c 44 41 23 36 3a 53  |S:.upone LDA#6:S|
000014a0  54 41 66 69 6e 65 3a 44  45 43 79 70 6f 73 3a 52  |TAfine:DECypos:R|
000014b0  54 53 3a 2e 75 70 73 63  72 20 44 45 43 79 73 63  |TS:.upscr DECysc|
000014c0  72 3a 4c 44 41 23 39 3a  53 54 41 79 70 6f 73 3a  |r:LDA#9:STAypos:|
000014d0  4a 4d 50 73 63 72 65 65  6e 0d 05 82 92 2e 73 63  |JMPscreen.....sc|
000014e0  72 65 65 6e 20 4c 44 41  23 30 3a 53 54 41 63 6c  |reen LDA#0:STAcl|
000014f0  65 61 72 75 70 3a 53 54  41 6c 61 73 74 61 74 3a  |earup:STAlastat:|
00001500  53 54 41 69 6e 76 66 6c  61 67 3a 4a 53 52 73 63  |STAinvflag:JSRsc|
00001510  72 6f 66 66 3a 4c 44 41  78 70 6f 73 3a 53 54 41  |roff:LDAxpos:STA|
00001520  78 6f 6c 64 3a 4c 44 41  79 70 6f 73 3a 53 54 41  |xold:LDAypos:STA|
00001530  79 6f 6c 64 3a 4a 53 52  70 6f 69 6e 74 3a 4c 44  |yold:JSRpoint:LD|
00001540  41 23 26 46 46 3a 53 54  41 79 73 65 74 3a 2e 79  |A#&FF:STAyset:.y|
00001550  6c 6f 70 20 4c 44 41 23  26 46 46 3a 53 54 41 78  |lop LDA#&FF:STAx|
00001560  73 65 74 3a 49 4e 43 79  73 65 74 0d 05 8c 6c 2e  |set:INCyset...l.|
00001570  78 6c 6f 70 20 49 4e 43  78 73 65 74 3a 4a 53 52  |xlop INCxset:JSR|
00001580  62 6c 6f 63 6b 6f 6e 3a  4c 44 41 78 73 65 74 3a  |blockon:LDAxset:|
00001590  43 4d 50 23 39 3a 42 45  51 6e 65 78 74 79 3a 4a  |CMP#9:BEQnexty:J|
000015a0  4d 50 78 6c 6f 70 3a 2e  6e 65 78 74 79 20 4c 44  |MPxlop:.nexty LD|
000015b0  41 79 73 65 74 3a 43 4d  50 23 39 3a 42 4e 45 79  |Ayset:CMP#9:BNEy|
000015c0  6c 6f 70 3a 4a 53 52 73  62 6f 61 72 64 3a 4a 53  |lop:JSRsboard:JS|
000015d0  52 6e 61 6d 73 63 72 0d  05 96 e2 2e 73 63 72 6f  |Rnamscr.....scro|
000015e0  6e 20 4c 44 41 23 31 37  3a 53 54 41 73 63 72 6f  |n LDA#17:STAscro|
000015f0  66 64 3a 2e 73 63 72 6f  6e 6c 6f 70 20 4c 44 41  |fd:.scronlop LDA|
00001600  23 26 43 3a 4c 44 58 23  28 73 63 72 6f 66 64 20  |#&C:LDX#(scrofd |
00001610  83 32 35 36 29 3a 4c 44  59 23 28 73 63 72 6f 66  |.256):LDY#(scrof|
00001620  64 20 81 32 35 36 29 3a  4a 53 52 6f 73 77 6f 72  |d .256):JSRoswor|
00001630  64 3a 44 45 43 73 63 72  6f 66 64 3a 4c 44 41 73  |d:DECscrofd:LDAs|
00001640  63 72 6f 66 64 3a 80 23  37 3a 53 54 41 73 63 72  |crofd:.#7:STAscr|
00001650  6f 66 64 2b 31 3a 4c 44  41 73 63 72 6f 66 64 3a  |ofd+1:LDAscrofd:|
00001660  42 4e 45 73 63 72 6f 6e  6c 6f 70 3a 4c 44 41 63  |BNEscronlop:LDAc|
00001670  6c 6f 63 6b 3a 43 4c 43  3a 41 44 43 23 34 3a 53  |lock:CLC:ADC#4:S|
00001680  54 41 26 38 30 3a 4c 44  41 23 30 3a 53 54 41 77  |TA&80:LDA#0:STAw|
00001690  69 70 65 72 3a 53 54 41  77 69 70 65 72 6d 3a 4c  |iper:STAwiperm:L|
000016a0  44 41 23 31 3a 53 54 41  63 68 61 6e 67 65 64 3a  |DA#1:STAchanged:|
000016b0  4a 4d 50 6d 6f 6e 73 65  74 0d 05 a0 91 2e 6c 61  |JMPmonset.....la|
000016c0  64 64 65 72 62 20 4c 44  58 23 26 39 37 3a 4a 53  |dderb LDX#&97:JS|
000016d0  52 6b 65 79 62 79 74 65  3a 42 43 53 66 61 6c 6c  |Rkeybyte:BCSfall|
000016e0  73 65 74 3a 4c 44 58 23  26 42 36 3a 4a 53 52 6b  |set:LDX#&B6:JSRk|
000016f0  65 79 62 79 74 65 3a 42  43 43 73 74 61 62 6c 65  |eybyte:BCCstable|
00001700  3a 4c 44 41 23 31 3a 53  54 41 75 70 76 65 6c 6f  |:LDA#1:STAupvelo|
00001710  3a 4a 53 52 6a 75 6d 70  75 70 3a 4a 4d 50 6f 6c  |:JSRjumpup:JMPol|
00001720  64 73 63 72 3a 2e 73 74  61 62 6c 65 20 4a 4d 50  |dscr:.stable JMP|
00001730  6e 6f 66 61 6c 6c 3a 2e  66 61 6c 6c 73 65 74 20  |nofall:.fallset |
00001740  4a 4d 50 6c 61 64 64 6f  77 6e 0d 05 aa be 2e 62  |JMPladdown.....b|
00001750  6c 6f 63 6b 6f 6e 20 4a  53 52 6f 62 6a 63 68 65  |lockon JSRobjche|
00001760  63 6b 3a 4a 53 52 67 65  74 62 6c 6f 63 6b 3a 4c  |ck:JSRgetblock:L|
00001770  44 41 78 73 65 74 3a 41  53 4c 20 41 3a 41 53 4c  |DAxset:ASL A:ASL|
00001780  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
00001790  53 4c 20 41 3a 41 53 4c  20 41 3a 53 54 41 26 37  |SL A:ASL A:STA&7|
000017a0  30 3a 4c 44 41 78 73 65  74 3a 4c 53 52 20 41 3a  |0:LDAxset:LSR A:|
000017b0  4c 53 52 20 41 3a 43 4c  43 3a 41 44 43 23 26 33  |LSR A:CLC:ADC#&3|
000017c0  35 3a 53 54 41 26 37 31  3a 4c 44 41 79 73 65 74  |5:STA&71:LDAyset|
000017d0  3a 43 4c 43 3a 41 44 43  26 37 31 3a 53 54 41 26  |:CLC:ADC&71:STA&|
000017e0  37 31 3a 4c 44 41 79 73  65 74 3a 41 53 4c 20 41  |71:LDAyset:ASL A|
000017f0  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 37  |:ASL A:CLC:ADC&7|
00001800  31 3a 53 54 41 26 37 31  0d 05 b4 67 4c 44 41 26  |1:STA&71...gLDA&|
00001810  37 32 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 43  |72:LSR A:LSR A:C|
00001820  4c 43 3a 41 44 43 23 26  32 30 3a 53 54 41 26 37  |LC:ADC#&20:STA&7|
00001830  33 3a 4c 44 41 26 37 32  3a 43 4d 50 23 33 30 3a  |3:LDA&72:CMP#30:|
00001840  42 45 51 64 6f 6f 72 63  6f 6c 3a 4c 53 52 20 41  |BEQdoorcol:LSR A|
00001850  3a 52 4f 52 20 41 3a 52  4f 52 20 41 3a 80 23 26  |:ROR A:ROR A:.#&|
00001860  43 30 3a 53 54 41 26 37  32 3a 4c 44 59 23 30 0d  |C0:STA&72:LDY#0.|
00001870  05 be b2 2e 74 72 61 6e  73 74 6f 70 20 4c 44 41  |....transtop LDA|
00001880  28 26 37 32 29 2c 59 3a  80 23 26 33 46 3a 53 54  |(&72),Y:.#&3F:ST|
00001890  41 26 37 34 3a 4c 44 41  28 26 37 30 29 2c 59 3a  |A&74:LDA(&70),Y:|
000018a0  80 23 26 43 30 3a 43 4c  43 3a 41 44 43 26 37 34  |.#&C0:CLC:ADC&74|
000018b0  3a 53 54 41 28 26 37 30  29 2c 59 3a 49 4e 59 3a  |:STA(&70),Y:INY:|
000018c0  43 50 59 23 26 34 30 3a  42 4e 45 74 72 61 6e 73  |CPY#&40:BNEtrans|
000018d0  74 6f 70 3a 4c 44 59 23  30 3a 4c 44 41 26 37 32  |top:LDY#0:LDA&72|
000018e0  3a 43 4c 43 3a 41 44 43  23 26 34 30 3a 53 54 41  |:CLC:ADC#&40:STA|
000018f0  26 37 32 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |&72:LDA&70:CLC:A|
00001900  44 43 23 26 38 30 3a 53  54 41 26 37 30 3a 4c 44  |DC#&80:STA&70:LD|
00001910  41 26 37 31 3a 41 44 43  23 32 3a 53 54 41 26 37  |A&71:ADC#2:STA&7|
00001920  31 0d 05 c8 7d 2e 74 72  61 6e 73 62 6f 74 20 4c  |1...}.transbot L|
00001930  44 41 28 26 37 32 29 2c  59 3a 80 23 26 33 46 3a  |DA(&72),Y:.#&3F:|
00001940  53 54 41 26 37 34 3a 4c  44 41 28 26 37 30 29 2c  |STA&74:LDA(&70),|
00001950  59 3a 80 23 26 43 30 3a  43 4c 43 3a 41 44 43 26  |Y:.#&C0:CLC:ADC&|
00001960  37 34 3a 53 54 41 28 26  37 30 29 2c 59 3a 49 4e  |74:STA(&70),Y:IN|
00001970  59 3a 43 50 59 23 26 34  30 3a 42 4e 45 74 72 61  |Y:CPY#&40:BNEtra|
00001980  6e 73 62 6f 74 3a 52 54  53 3a 2e 64 6f 6f 72 63  |nsbot:RTS:.doorc|
00001990  6f 6c 20 4a 4d 50 6c 6f  63 6b 74 79 70 65 0d 05  |ol JMPlocktype..|
000019a0  d2 5c 2e 67 65 74 62 6c  6f 63 6b 20 4c 44 41 23  |.\.getblock LDA#|
000019b0  26 32 30 3a 43 4c 43 3a  41 44 43 78 73 63 72 3a  |&20:CLC:ADCxscr:|
000019c0  53 54 41 26 37 31 3a 4c  44 41 79 73 63 72 3a 41  |STA&71:LDAyscr:A|
000019d0  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
000019e0  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 37  |:ASL A:CLC:ADC&7|
000019f0  31 3a 53 54 41 73 63 72  6e 6f 0d 05 dc c8 53 54  |1:STAscrno....ST|
00001a00  41 26 37 31 3a 4c 44 41  79 73 65 74 3a 53 54 41  |A&71:LDAyset:STA|
00001a10  26 37 30 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |&70:ASL A:ASL A:|
00001a20  41 53 4c 20 41 3a 50 48  41 3a 43 4c 43 3a 41 44  |ASL A:PHA:CLC:AD|
00001a30  43 26 37 30 3a 53 54 41  26 37 30 3a 50 4c 41 3a  |C&70:STA&70:PLA:|
00001a40  41 53 4c 20 41 3a 43 4c  43 3a 41 44 43 26 37 30  |ASL A:CLC:ADC&70|
00001a50  3a 53 54 41 26 37 30 3a  4c 44 59 78 73 65 74 3a  |:STA&70:LDYxset:|
00001a60  4c 44 41 78 64 61 74 61  2c 59 3a 54 41 59 3a 4c  |LDAxdata,Y:TAY:L|
00001a70  44 41 28 26 37 30 29 2c  59 3a 52 4f 4c 20 41 3a  |DA(&70),Y:ROL A:|
00001a80  52 4f 4c 20 41 3a 52 4f  4c 20 41 3a 80 23 33 3a  |ROL A:ROL A:.#3:|
00001a90  53 54 41 26 37 32 3a 49  4e 59 3a 4c 44 41 28 26  |STA&72:INY:LDA(&|
00001aa0  37 30 29 2c 59 3a 4c 53  52 20 41 3a 4c 53 52 20  |70),Y:LSR A:LSR |
00001ab0  41 3a 4c 53 52 20 41 3a  4c 53 52 20 41 3a 80 23  |A:LSR A:LSR A:.#|
00001ac0  31 32 0d 05 e6 7e 43 4c  43 3a 41 44 43 26 37 32  |12...~CLC:ADC&72|
00001ad0  3a 53 54 41 26 37 32 3a  4c 44 41 78 73 65 74 3a  |:STA&72:LDAxset:|
00001ae0  4c 53 52 20 41 3a 54 41  59 3a 4c 44 41 68 62 64  |LSR A:TAY:LDAhbd|
00001af0  61 74 2c 59 3a 54 41 59  3a 4c 44 41 28 26 37 30  |at,Y:TAY:LDA(&70|
00001b00  29 2c 59 3a 53 54 41 26  37 33 3a 4c 44 41 78 73  |),Y:STA&73:LDAxs|
00001b10  65 74 3a 80 23 31 3a 42  4e 45 62 69 74 32 3a 4c  |et:.#1:BNEbit2:L|
00001b20  44 41 26 37 33 3a 41 53  4c 20 41 3a 52 4f 4c 20  |DA&73:ASL A:ROL |
00001b30  41 3a 52 4f 4c 20 41 3a  4a 4d 50 66 62 67 6f 74  |A:ROL A:JMPfbgot|
00001b40  0d 05 f0 5b 2e 62 69 74  32 20 4c 44 41 26 37 33  |...[.bit2 LDA&73|
00001b50  3a 41 53 4c 20 41 3a 52  4f 4c 20 41 3a 2e 66 62  |:ASL A:ROL A:.fb|
00001b60  67 6f 74 20 80 23 31 3a  41 53 4c 20 41 3a 41 53  |got .#1:ASL A:AS|
00001b70  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
00001b80  43 4c 43 3a 41 44 43 26  37 32 3a 41 53 4c 20 41  |CLC:ADC&72:ASL A|
00001b90  3a 53 54 41 26 37 32 3a  52 54 53 0d 05 fa 8f 2e  |:STA&72:RTS.....|
00001ba0  62 6c 61 73 63 72 20 4a  53 52 73 63 72 6f 66 66  |blascr JSRscroff|
00001bb0  3a 4c 44 59 23 30 3a 53  54 59 26 37 30 3a 4c 44  |:LDY#0:STY&70:LD|
00001bc0  41 23 26 33 30 3a 53 54  41 26 37 31 3a 2e 62 6c  |A#&30:STA&71:.bl|
00001bd0  61 6e 6c 6f 70 20 4c 44  41 28 26 37 30 29 2c 59  |anlop LDA(&70),Y|
00001be0  3a 80 23 26 43 30 3a 53  54 41 28 26 37 30 29 2c  |:.#&C0:STA(&70),|
00001bf0  59 3a 49 4e 59 3a 42 4e  45 62 6c 61 6e 6c 6f 70  |Y:INY:BNEblanlop|
00001c00  3a 49 4e 43 26 37 31 3a  4c 44 41 26 37 31 3a 43  |:INC&71:LDA&71:C|
00001c10  4d 50 23 26 38 30 3a 42  4e 45 62 6c 61 6e 6c 6f  |MP#&80:BNEblanlo|
00001c20  70 3a 4a 4d 50 73 63 72  6f 6e 0d 06 04 43 2e 70  |p:JMPscron...C.p|
00001c30  75 74 63 68 20 41 53 4c  20 41 3a 41 53 4c 20 41  |utch ASL A:ASL A|
00001c40  3a 41 53 4c 20 41 3a 54  41 58 3a 4c 44 41 23 30  |:ASL A:TAX:LDA#0|
00001c50  3a 53 54 41 26 37 30 3a  4c 44 41 23 26 33 30 3a  |:STA&70:LDA#&30:|
00001c60  53 54 41 26 37 31 3a 4c  44 59 78 63 68 0d 06 0e  |STA&71:LDYxch...|
00001c70  4e 2e 78 6c 6f 70 63 20  42 45 51 6e 6f 78 63 68  |N.xlopc BEQnoxch|
00001c80  3a 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 23  |:LDA&70:CLC:ADC#|
00001c90  26 32 30 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |&20:STA&70:LDA&7|
00001ca0  31 3a 41 44 43 23 30 3a  53 54 41 26 37 31 3a 44  |1:ADC#0:STA&71:D|
00001cb0  45 59 3a 4a 4d 50 78 6c  6f 70 63 0d 06 18 5c 2e  |EY:JMPxlopc...\.|
00001cc0  6e 6f 78 63 68 20 4c 44  59 79 63 68 3a 2e 79 6c  |noxch LDYych:.yl|
00001cd0  6f 70 63 20 42 45 51 6e  6f 79 63 68 3a 4c 44 41  |opc BEQnoych:LDA|
00001ce0  26 37 30 3a 43 4c 43 3a  41 44 43 23 26 38 30 3a  |&70:CLC:ADC#&80:|
00001cf0  53 54 41 26 37 30 3a 4c  44 41 26 37 31 3a 41 44  |STA&70:LDA&71:AD|
00001d00  43 23 32 3a 53 54 41 26  37 31 3a 44 45 59 3a 4a  |C#2:STA&71:DEY:J|
00001d10  4d 50 79 6c 6f 70 63 0d  06 22 5d 2e 6e 6f 79 63  |MPylopc.."].noyc|
00001d20  68 20 4c 44 59 23 30 3a  2e 73 6c 69 6e 65 20 4c  |h LDY#0:.sline L|
00001d30  44 41 26 43 30 30 2c 58  3a 2e 6c 69 6e 65 6c 6f  |DA&C00,X:.linelo|
00001d40  70 20 50 48 41 3a 41 53  4c 20 41 3a 52 4f 4c 20  |p PHA:ASL A:ROL |
00001d50  41 3a 52 4f 4c 20 41 3a  80 23 33 3a 42 45 51 62  |A:ROL A:.#3:BEQb|
00001d60  6c 61 6e 63 68 3a 53 54  41 69 74 65 6d 70 3a 4c  |lanch:STAitemp:L|
00001d70  44 41 23 30 0d 06 27 89  2e 63 6f 6c 63 68 20 43  |DA#0..'..colch C|
00001d80  4c 43 3a 41 44 43 63 6f  6c 3a 44 45 43 69 74 65  |LC:ADCcol:DECite|
00001d90  6d 70 3a 42 4e 45 63 6f  6c 63 68 3a 2e 62 6c 61  |mp:BNEcolch:.bla|
00001da0  6e 63 68 20 53 54 41 69  74 65 6d 70 3a 4c 44 41  |nch STAitemp:LDA|
00001db0  28 26 37 30 29 2c 59 3a  80 23 26 43 30 3a 84 41  |(&70),Y:.#&C0:.A|
00001dc0  69 74 65 6d 70 3a 82 69  6e 76 66 6c 61 67 3a 53  |itemp:.invflag:S|
00001dd0  54 41 28 26 37 30 29 2c  59 3a 54 59 41 3a 43 4c  |TA(&70),Y:TYA:CL|
00001de0  43 3a 41 44 43 23 38 3a  54 41 59 3a 43 4d 50 23  |C:ADC#8:TAY:CMP#|
00001df0  26 32 30 3a 42 43 53 6e  65 77 6c 69 6e 0d 06 2c  |&20:BCSnewlin..,|
00001e00  4d 50 4c 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |MPLA:ASL A:ASL A|
00001e10  3a 4a 4d 50 6c 69 6e 65  6c 6f 70 3a 2e 6e 65 77  |:JMPlinelop:.new|
00001e20  6c 69 6e 20 80 23 37 3a  54 41 59 3a 50 4c 41 3a  |lin .#7:TAY:PLA:|
00001e30  49 4e 59 3a 49 4e 58 3a  43 50 59 23 38 3a 42 4e  |INY:INX:CPY#8:BN|
00001e40  45 73 6c 69 6e 65 3a 52  54 53 0d 06 31 26 2e 6b  |Esline:RTS..1&.k|
00001e50  65 79 62 79 74 65 20 4c  44 41 23 26 38 31 3a 4c  |eybyte LDA#&81:L|
00001e60  44 59 23 26 46 46 3a 4a  4d 50 6f 73 62 79 74 65  |DY#&FF:JMPosbyte|
00001e70  0d 06 36 07 5d 3a e1 0d  ff                       |..6.]:...|
00001e79