Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape12b_acorn_eu_1990_june.wav » RADIUM1

RADIUM1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape12b_acorn_eu_1990_june.wav
Filename: RADIUM1
Read OK:
File size: 3047 bytes
Load address: 2000
Exec address: 1900
File contents
   10IFPAGE>&E00 GOTO 770
   20VDU23,1,0;0;0;0;:COLOUR128:VDU4,28,2,27,17,14:CLS:DIM code 3500:PROCmach:CALLog:END
   30DEFPROCmach:FORpass=0TO2STEP2:P%=code:[OPTpass
   40.og:LDA#1:STA&92F:STA&923:LDA#0:STA&931:JSRlvl:JSRuno:RTS:.uno:JSRvar:.hf:JSRball:JSRscr:JSRsync:JSRspc:JSRmess:JSRcor:JSRroc:JMPhf:RTS
   50.lj:LDA&931:CMP#3:BEQtym:RTS:.tym:LDA#0:STA&935:.kz:JSRflr:JSRtba:INC&935:LDA&935:CMP#10:BNEkz:JSRog:RTS:.go:JSRlj:JSRset:JSRhmm:JSRlvl:JSRvar:JSRcnt:JSRball:JSRwml:JSRrkt:JSRloop:RTS
   60.var:LDA#&20:STA&70:LDA#&70:STA&71:LDA#&60:STA&76:LDA#&77:STA&77:LDA#&A0:STA&78:LDA#&78:STA&79:LDA#&28:STA&7A:LDA#&55:STA&7B:LDA#&D0:STA&7C:LDA#&70:STA&7D:LDA#&10:STA&80:LDA#&6D:STA&81:LDA#&88:STA&88:LDA#&7C:STA&89
   70LDA#4:STA&928:LDA#0:STA&925:LDA#4:STA&928
   80LDA#11:STA&900:STA&929:LDA#&0:STA&922:STA&91E:STA&901:STA&902:STA&905:STA&910:STA&915:STA&917:STA&91B:STA&91C:STA&91D:LDA#10:STA&904:LDA#&00:STA&84:LDA#&58:STA&85:LDA#&90:STA&86:LDA#&68:STA&87:LDA#49:STA&91F:LDA#1:STA&926:STA&927:RTS
   90.loop:JSRlvl:.lop:JSRblk:JSRlsim:JSRx:JSRz:JSRu:JSRd:JSRntr:JSRball:JSRtyy:JSRism:JSRsync:JSRck:JSRhit:JSRbad:JSRqqq:JSRscr:JSRhrt:JMPlop:RTS
  100.ball:LDA&70:STA&72:LDA&71:STA&73:LDX#0:LDY#0:.pw:LDA&56CD,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEpw:LDY#0:LDA&70:CLC:ADC#8:STA&72:LDA&71:ADC#0:STA&73:.wp:LDA&56CD,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEwp
  110LDY#0:LDA&70:CLC:ADC#&10:STA&72:LDA&71:ADC#00:STA&73:.ct:LDA&56CD,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEct:RTS
  120.expl:LDA&70:STA&72:LDA&71:STA&73:LDX#0:LDY#0:.hl:LDA&547A,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEhl:LDY#0:LDA&70:CLC:ADC#8:STA&72:LDA&71:ADC#0:STA&73:.lh:LDA&547A,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNElh
  130LDY#0:LDA&70:CLC:ADC#&10:STA&72:LDA&71:ADC#00:STA&73:.vt:LDA&547A,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEvt:RTS
  140.xpl:LDA&7E:STA&72:LDA&7F:STA&73:LDX#0:LDY#0:.zo:LDA&547A,X:EOR(&72),Y:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEzo:LDY#0:LDA&7E:CLC:ADC#8:STA&72:LDA&7F:ADC#0:STA&73:.zp:LDA&547A,X:EOR(&72),Y:STA(&72),Y
  150JSRtst:INX:INY:CPY#&10:BNEzp:LDY#0:LDA&7E:CLC:ADC#&10:STA&72:LDA&7F:ADC#00:STA&73:.zu:LDA&547A,X:EOR(&72),Y:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEzu:RTS
  160.guard:LDY#0:LDX#0:.sy:LDA&54E7,X:STA&6D10,Y:INX:INY:CPY#&10:BNEsy:LDY#0:.ys:LDA&54E7,X:STA&6E50,Y:INX:INY:CPY#&10:BNEys:LDY#0:.ao:LDA&54E7,X:STA&6F90,Y:INX:INY:CPY#&10:BNEao:LDY#0:.oa:LDA&54E7,X:STA&70D0,Y:INX:INY:CPY#&10:BNEoa:RTS
  170.jaw:LDY#0:LDX#0:.gj:LDA&5459,X:STA&6F90,Y:INX:INY:CPY#&10:BNEgj:LDY#0:.jg:LDA&5459,X:STA&70D0,Y:INX:INY:CPY#&10:BNEjg:RTS
  180.bad:LDA&91D:CMP#&FF:BEQsss:LDA&90C:CMP#8:BNEpod:BEQmisl:RTS:.sss:LDA&7C:STA&72:LDA&7D:STA&73:LDX#0:LDY#0:.zz:LDA&9AE,X:STA(&72),Y:INX:INY:CPY#&10:BNEzz:RTS
  190.misl:LDA&7C:STA&72:LDA&7D:STA&73:LDX#0:LDY#0:.kz:LDA&54D6,X:STA(&72),Y:INX:INY:CPY#&10:BNEkz:RTS:.pod:LDA&7C:STA&72:LDA&7D:STA&73:LDX#0:LDY#0:.la:LDA&54C5,X:STA(&72),Y:INX:INY:CPY#&10:BNEla:RTS
  200.dop:LDA&91C:CMP#&FF:BNEtpo:RTS:.tpo:LDA&84:STA&72:LDA&85:STA&73:LDX#0:LDY#0:.cb:LDA&54B4,X:STA(&84),Y:INX:INY:CPY#&10:BNEcb:RTS
  210.klb:LDA&84:STA&72:LDA&85:STA&73:LDX#0:LDY#0:.cc:LDA#&00:STA(&84),Y:INX:INY:CPY#&10:BNEcc:RTS:.hmm:LDA&923:CMP#2:BEQrrk:RTS
  220.rrk:LDA&8A:STA&72:LDA&8B:STA&73:LDY#0:.mm:LDA&9AE,Y:STA(&72),Y:INY:CPY#&10:BNEmm:RTS:.bnc:LDA&8A:STA&72:LDA&8B:STA&73:LDY#0:.oo:LDA&9AE,Y:STA(&72),Y:INY:CPY#&10:BNEoo:RTS
  230.ftr:LDA&8A:STA&72:LDA&8B:STA&73:LDY#0:.mm:LDA#&00:STA(&72),Y:INY:CPY#&10:BNEmm:RTS:.yyy:LDA&929:CMP&904:BEQxxx:RTS
  240.xxx:LDA&900:CLC:ADC#1:STA&92C:LDA&900:CLC:ADC#2:STA&92D:LDA&928:CMP&900:BEQnok:LDA&928:CMP&92C:BEQnok:LDA&928:CMP&92D:BEQnok:RTS
  250.nok:JSRflr:LDA#0:STA&92E:JSRflr:.ux:JSRkkk:INC&92E:LDA&92E:CMP#8:BNEux:RTS:.ckc:LDA&927:CMP#1:BEQbrt:BNEtrb:RTS:.brt:LDA&928:CMP#31:BEQder:BNErrd:RTS
  260.rrd:LDA&8A:CLC:ADC#&08:STA&8A:LDA&8B:ADC#&00:STA&8B:INC&928:RTS:.trb:LDA&928:CMP#4:BEQred:BNEfuu:RTS
  270.fuu:LDA&8A:SEC:SBC#&08:STA&8A:LDA&8B:SBC#&00:STA&8B:DEC&928:RTS:.der:LDA#0:STA&927:RTS:.red:LDA#1:STA&927:RTS:.bck:JSRftr:JSRbkk:JSRckc:JSRbnc:JSRyyy:RTS:.bkk:LDA&926:CMP#1:BEQbup:BNEbdn:RTS
  280.bup:LDA&929:CMP#15:BEQtyp:BNEpud:RTS:.typ:LDA#0:STA&926:RTS:.pud:LDA&8A:SEC:SBC#&40:STA&8A:LDA&8B:SBC#&01:STA&8B:INC&929:RTS:.bdn:LDA&929:CMP#4:BEQpyt:BNEndb:RTS:.pyt:LDA#1:STA&926:RTS
  290.ndb:LDA&8A:CLC:ADC#&40:STA&8A:LDA&8B:ADC#&01:STA&8B:DEC&929:RTS
  300.lsim:LDA&7C:STA&72:LDA&7D:STA&73:LDX#0:LDY#0:.hm:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&08:BNEhm:LDY#0:LDA&7C:CLC:ADC#8:STA&72:LDA&7D:ADC#0:STA&73:.mh:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&08:BNEmh:RTS
  310.blk:LDA&70:STA&72:LDA&71:STA&73:LDX#0:LDY#0:.ge:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEge:LDY#0:LDA&70:CLC:ADC#8:STA&72:LDA&71:ADC#0:STA&73:.eg:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEeg
  320LDY#0:LDA&70:CLC:ADC#&10:STA&72:LDA&71:ADC#00:STA&73:.he:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEhe:RTS
  330.tst:STY&74:LDA&72:CLC:ADC&74:STA&75:LDA&75:AND#7:CMP#7:BEQbot:RTS:.bot:LDA&72:CLC:ADC#&38:STA&72:LDA&73:ADC#1:STA&73:RTS:.spc:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&9D:LDY#&FF:JSR&FFF4:BCScps:RTS
  340.cps:LDA#&0C:JSR&FFEE:JSRsync:JSRsync:JSRgo:RTS:.x:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&BD:LDY#&FF:JSR&FFF4:BCSeft:RTS
  350.eft:LDA&900:CMP#26:BNEleft:RTS:.left:INC&900:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#&00:STA&71:RTS:.d:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&97:LDY#&FF:JSR&FFF4:BCSnd:RTS:.nd:LDA&904:CMP#06:BEQsms:CMP#&03:BNEdn:RTS:.sms:JSRpop:RTS
  360.dn:DEC&904:LDA&70:CLC:ADC#&40:STA&70:LDA&71:ADC#&01:STA&71:RTS:.ntr:LDA&910:BEQrtn:RTS:.rtn:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&B6:LDY#&FF:JSR&FFF4:BCSgz:RTS:.gz:LDA#1:STA&910:RTS
  370.z:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&9E:LDY#&FF:JSR&FFF4:BCSite:RTS:.ite:LDA&900:CMP#05:BNErite:RTS:.rite:DEC&900:LDA&70:SEC:SBC#8:STA&70:LDA&71:SBC#&00:STA&71:LDA&907:RTS
  380.u:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&B7:LDY#&FF:JSR&FFF4:BCSpu:RTS:.pu:LDA&904:CMP#15:BNEup:RTS:.up:INC&904:LDA&70:SEC:SBC#&40:STA&70:LDA&71:SBC#&01:STA&71:RTS
  390.sync:LDA#&13:JSR&FFF4:RTS:.et:LDY#0:.te:LDA&5645,Y:STA(&76),Y:INY:CPY#&08:BNEte:LDY#0:.qf:LDA&564C,Y:STA(&78),Y:INY:CPY#&08:BNEqf:RTS
  400.ni:LDY#0:.in:LDA&5634,Y:STA(&76),Y:INY:CPY#&08:BNEin:LDY#0:.hx:LDA&563B,Y:STA(&78),Y:INY:CPY#&08:BNEhx:RTS:.tn:LDY#0:.nt:LDA&5623,Y:STA(&76),Y:INY:CPY#&08:BNEnt:LDY#0:.xh:LDA&562A,Y:STA(&78),Y:INY:CPY#&08:BNExh:RTS
  410.sx:LDY#0:.xs:LDA&5667,Y:STA(&76),Y:INY:CPY#&08:BNExs:LDY#0:.fq:LDA&566E,Y:STA(&78),Y:INY:CPY#&08:BNEfq:RTS
  420.prnt:LDA(&7A),Y:CMP#6:BEQsx:CMP#7:BEQsv:CMP#8:BEQet:CMP#9:BEQni:CMP#10:BEQtn:CMP#1:BEQon:CMP#2:BEQwt:CMP#3:BEQtr:CMP#4:BEQrf:CMP#5:BEQfv:RTS
  430.tr:LDY#0:.rt:LDA&569A,Y:STA(&76),Y:INY:CPY#&08:BNErt:LDY#0:.t:LDA&56A1,Y:STA(&78),Y:INY:CPY#&08:BNEt:RTS:.sv:LDY#0:.ka:LDA&5656,Y:STA(&76),Y:INY:CPY#&08:BNEka:LDY#0:.ak:LDA&565D,Y:STA(&78),Y:INY:CPY#&08:BNEak:RTS
  440.on:LDY#0:.no:LDA&56BC,Y:STA(&76),Y:INY:CPY#&08:BNEno:LDY#0:.o:LDA&56C3,Y:STA(&78),Y:INY:CPY#&08:BNEo:RTS:.wt:LDY#0:.tw:LDA&56AB,Y:STA(&76),Y:INY:CPY#&08:BNEtw:LDY#0:.w:LDA&56B2,Y:STA(&78),Y:INY:CPY#&08:BNEw:RTS
  450.rf:LDY#0:.fr:LDA&5689,Y:STA(&76),Y:INY:CPY#&08:BNEfr:LDY#0:.r:LDA&5690,Y:STA(&78),Y:INY:CPY#&08:BNEr:RTS:.fv:LDY#0:.vf:LDA&5678,Y:STA(&76),Y:INY:CPY#&08:BNEvf:LDY#0:.f:LDA&567F,Y:STA(&78),Y:INY:CPY#&08:BNEf:RTS
  460.scr:LDX#0:.gp:JSRprnt:JSRmore:JSRerom:INX:CPX#&20:BNEgp:JSRorig:JSRmrk:RTS:.orig:LDA#&77:STA&77:LDA#&60:STA&76:LDA#&78:STA&79:LDA#&A0:STA&78:RTS
  470.more:LDA&76:CLC:ADC#&08:STA&76:LDA&77:ADC#&00:STA&77:LDA&78:CLC:ADC#&08:STA&78:LDA&79:ADC#&00:STA&79:RTS:.erom:LDA&7A:CLC:ADC#&01:STA&7A:LDA&7B:ADC#&00:STA&7B:RTS
  480.mrk:LDA&7A:SEC:SBC#&1F:STA&7A:LDA&7B:SBC#&00:STA&7B:INC&905:LDA&905:CMP#&D0:BEQkrm:RTS:.krm:LDA#0:STA&905:LDA#&28:STA&7A:LDA#&55:STA&7B:RTS:.hit:LDA&900:CMP&90A:BEQtih:RTS:.tih:LDA&904:CMP&90D:BEQpop:LDX&904:DEX:CPX&90D:BEQpop:RTS
  490.pop:INC&931:JSRabt:.da:JSRscr:JSRsync:JSRoop:JSRspc:JMPda:RTS:.oop:LDA&904:CMP#3:BNEpoo:JSRtak:RTS:.poo:JSRsync:JSRexpl:JSRsync:JSRblk:JSRite:JSRite:JSRdn:RTS
  500.tak:JSRroc:INC&90B:LDA&90B:CMP#14:BEQpoi:CMP#15:BEQgrd:CMP#30:BEQjw:RTS:.poi:JSRcor:JMPtak:RTS
  510.grd:JSRmess:JSRguard:RTS:.jw:LDA#0:STA&90B:JSRjaw:RTS:.ism:LDA&7C:SEC:SBC#&08:STA&7C:LDA&7D:SBC#&00:STA&7D:DEC&90A:LDA&90A:CMP#&01:BEQwww:RTS:.www:JSRkkk:JSRwml:RTS:.uu:JSRkkk:LDA#&88:STA&7C:LDA#&6F:STA&7D:LDA#11:STA&90D:RTS
  520.wml:INC&90C:LDA&90C:CMP#10:BEQnil:LDA#29:STA&90A:LDA&91C:CMP#&FF:BEQuu:INC&90E:LDA&90E:CMP#1:BEQbr:CMP#2:BEQrb:CMP#3:BEQfi:CMP#4:BEQif:CMP#5:BEQjr:CMP#6:BEQhv:CMP#7:BEQjq:CMP#8:BEQqj:RTS
  530.nil:LDA#0:STA&90C:JMPwml:RTS:.br:LDA#&D0:STA&7C:LDA#&70:STA&7D:LDA#10:STA&90D:RTS:.rb:LDA#&10:STA&7C:LDA#&6D:STA&7D:LDA#13:STA&90D:RTS:.fi:LDA#&50:STA&7C:LDA#&73:STA&7D:LDA#8:STA&90D:RTS
  540.if:LDA#&90:STA&7C:LDA#&6F:STA&7D:LDA#11:STA&90D:RTS:.jr:LDA#&D0:STA&7C:LDA#&6B:STA&7D:LDA#14:STA&90D:RTS:.hv:LDA#&90:STA&7C:LDA#&74:STA&7D:LDA#7:STA&90D:RTS:.jq:LDA#&50:STA&7C:LDA#&6E:STA&7D:LDA#12:STA&90D:RTS
  550.qj:LDA#&10:STA&7C:LDA#&72:STA&7D:LDA#0:STA&90E:LDA#9:STA&90D:RTS:.tab:EQUD&FFF10000:EQUD&00060004:RTS:.abt:LDA#7:LDX#tab MOD256:LDY#tab DIV256:JSR&FFF1:RTS:.bat:EQUD&00010001:EQUD&00030050:RTS
  560.tba:LDA#7:LDX#bat MOD256:LDY#bat DIV256:JSR&FFF1:RTS:.gx:LDA#7:LDX#xg MOD256:LDY#xg DIV256:JSR&FFF1:RTS:.xg:EQUD&FFF10001:EQUD&00010010:RTS:.ck:LDA&910:CMP#1:BEQfire:CMP#2:BEQfer:RTS
  570.fire:JSRgx:LDA&904:STA&913:LDA&904:SEC:SBC#1:STA&912:LDA&900:CLC:ADC#3:STA&911:LDA&70:CLC:ADC#&58:STA&7E:LDA&71:ADC#&01:STA&7F:LDY#0:LDA#&61:STA(&7E),Y:LDA#2:STA&910:RTS
  580.fer:JSRcol:INC&911:LDA&911:CMP#31:BEQxn:CMP#32:BEQid:LDY#0:LDA#&00:STA(&7E),Y:LDA&7E:CLC:ADC#&08:STA&7E:LDA&7F:ADC#&00:STA&7F:LDY#0:LDA#&61:STA(&7E),Y:JSRcol:RTS
  590.id:LDA#0:STA&910:JSRhrt:RTS:.xn:LDA&91C:CMP#&FF:BEQnx:RTS:.nx:LDA&912:CMP#11:BEQjju:CMP#10:BEQjju:RTS:.jju:JSRfls:JSRtnc:INC&91E:LDA&91E:CMP#10:BEQujj:RTS:.ujj:JSRblk:INC&923:JSRuno:RTS
  600.col:LDA&911:CMP&90A:BEQges:RTS:.ges:LDA&912:CMP&90D:BEQseg:LDA&913:CMP&90D:BEQseg:RTS:.seg:JSRinx:JSRxpl:JSRsync:JSRxpl:JSRid:JSRabt:JSRdsa:JSRwml:RTS
  610.inx:LDA&92F:CMP#208:BEQwd:INC&92F:.wd:RTS:.dsa:LDA&90C:CMP#8:BEQppp:RTS:.ppp:JSRklb:LDA&90A:CLC:ADC#&02:STA&918:LDA&90D:STA&919:LDA#1:STA&917:LDA&7C:STA&84:LDA&7D:STA&85:JSRdop:RTS
  620.hrt:LDY#0:LDA#&00:STA(&7E),Y:RTS:.mess:LDX#0:.vo:LDA&5430,X:EOR&7400,X:STA&7400,X:INX:CPX#40:BNEvo:RTS:.qqq:LDA&917:BNEqqp:RTS:.qpp:LDA&900:CMP&918:BEQtot:RTS
  630.qqp:JSRdop:LDA&904:CMP&919:BEQqpp:LDA&904:SEC:SBC#&01:STA&91A:LDA&91A:CMP&919:BEQqpp:RTS:.tot:JSRtnc:JSRklb:LDA#0:STA&917:STA&918:STA&919:JSRtba:RTS
  640.cnt:JSRlg:LDX#0:.gg:LDY#0:.hh:LDA#&60:STA(&86),Y:INY:CPY#4:BNEhh:LDA&86:CLC:ADC#&10:STA&86:LDA&87:ADC#&00:STA&87:INX:CPX#10:BNEgg:JSRlg:RTS
  650.lg:LDA#&90:STA&86:LDA#&68:STA&87:LDA#0:STA&91B:RTS:.tnc:LDY#0:.ff:LDA#&00:STA(&86),Y:INY:CPY#4:BNEff:LDA&86:CLC:ADC#&10:STA&86:LDA&87:ADC#&00:STA&87:INC&91B:LDA&91B:CMP#10:BEQten:RTS
  660.rd:LDA#19:JSR&FFEE:LDA#1:JSR&FFEE:LDA#1:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS:.bl:LDA#19:JSR&FFEE:LDA#1:JSR&FFEE:LDA#5:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS
  670.gn:LDA#19:JSR&FFEE:LDA#1:JSR&FFEE:LDA#2:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS:.ten:LDA#&FF:STA&91C:STA&91D:JSRfls:JSRguard:JSRfls:JSRcnt:RTS
  680.fls:JSRabt:LDA#19:JSR&FFEE:LDA#0:JSR&FFEE:LDA#7:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:JSRsync:JSRsync:LDA#19:JSR&FFEE:LDA#0:JSR&FFEE:LDA#0:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS
  690.flr::LDA#19:JSR&FFEE:LDA#0:JSR&FFEE:LDA#5:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:JSRsync:JSRsync:LDA#19:JSR&FFEE:LDA#0:JSR&FFEE:LDA#0:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS
  700.lvl:LDY#0:.rr:LDA&9BF,Y:EOR&6B38,Y:STA&6B38,Y:INY:CPY#64:BNErr:RTS:.rkt:LDY#0:.oi:LDA#&46:STA&7C90,Y:INY:CPY#152:BNEoi:RTS
  710.kkk:LDA&88:CLC:ADC#&01:STA&88:LDA&89:ADC#&00:STA&89:LDY#0:.tp:LDA#&00:STA(&88),Y:INY:CPY#8:BNEtp:INC&922:LDA&922:CMP#152:BEQtyh:RTS
  720.tyh:JSRpop:RTS:.ees:LDA#1:STA&923:JMPtyy:RTS:.tyy:LDA&923:CMP#1:BEQfft:CMP#2:BEQqwe:CMP#3:BEQsee:CMP#4:BEQees:RTS:.fft:LDA#0:STA&925:JSRrd:RTS:.qwe:JSRgn::JSRftr:JSRmvv:JSRrrk:JSRgtr:RTS
  730.mvv:LDA&8A:CLC:ADC#&08:STA&8A:LDA&8B:ADC#&00:STA&8B:INC&924:LDA&924:CMP#32:BEQset:JSRftr:RTS:.hjk:JSRftr:JSRnok:RTS
  740.see:LDA#0:STA&925:JSRbl:JSRbck:RTS:.set:LDA#&A0:STA&8A:LDA#&6E:STA&8B:LDA#4:STA&924:RTS:.gtr:LDA&924:CMP&900:BEQyto:RTS:.yto:LDA&904:CMP#11:BEQhjk:CMP#12:BEQhjk:RTS
  750.cor:LDY#0:.pp:LDA#&01:STA&6D70,Y:INY:CPY#208:BNEpp:LDY#0:.tc:LDA&5440,Y:STA&70B0,Y:INY:CPY#&18:BNEtc:RTS:.roc:LDY#0:.ii:LDA#&E1:STA&6D70,Y:INY:CPY&92F:BNEii:RTS
  760]:NEXTpass:ENDPROC
  770*KEY0 *T.|MD%=PAGE-&E00:FORI%=PAGE TO TOP STEP4:!(I%-D%)=!I%:NEXT:PAGE=&E00|MOLD|MRUN|M
  780*FX138,0,128

�>&E00 � �TBC
B�23,1,0;0;0;0;:�128:�4,28,2,27,17,14:�:� code 3500:�mach:�og:�
'��mach:�pass=0�2�2:P%=code:[OPTpass
(�.og:LDA#1:STA&92F:STA&923:LDA#0:STA&931:JSRlvl:JSRuno:RTS:.uno:JSRvar:.hf:JSRball:JSRscr:JSRsync:JSRspc:JSRmess:JSRcor:JSRroc:JMPhf:RTS
2�.lj:LDA&931:CMP#3:BEQtym:RTS:.tym:LDA#0:STA&935:.kz:JSRflr:JSRtba:INC&935:LDA&935:CMP#10:BNEkz:JSRog:RTS:.go:JSRlj:JSRset:JSRhmm:JSRlvl:JSRvar:JSRcnt:JSRball:JSRwml:JSRrkt:JSRloop:RTS
<�.var:LDA#&20:STA&70:LDA#&70:STA&71:LDA#&60:STA&76:LDA#&77:STA&77:LDA#&A0:STA&78:LDA#&78:STA&79:LDA#&28:STA&7A:LDA#&55:STA&7B:LDA#&D0:STA&7C:LDA#&70:STA&7D:LDA#&10:STA&80:LDA#&6D:STA&81:LDA#&88:STA&88:LDA#&7C:STA&89
F-LDA#4:STA&928:LDA#0:STA&925:LDA#4:STA&928
P�LDA#11:STA&900:STA&929:LDA#&0:STA&922:STA&91E:STA&901:STA&902:STA&905:STA&910:STA&915:STA&917:STA&91B:STA&91C:STA&91D:LDA#10:STA&904:LDA#&00:STA&84:LDA#&58:STA&85:LDA#&90:STA&86:LDA#&68:STA&87:LDA#49:STA&91F:LDA#1:STA&926:STA&927:RTS
Z�.loop:JSRlvl:.lop:JSRblk:JSRlsim:JSRx:JSRz:JSRu:JSRd:JSRntr:JSRball:JSRtyy:JSRism:JSRsync:JSRck:JSRhit:JSRbad:JSRqqq:JSRscr:JSRhrt:JMPlop:RTS
d�.ball:LDA&70:STA&72:LDA&71:STA&73:LDX#0:LDY#0:.pw:LDA&56CD,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEpw:LDY#0:LDA&70:CLC:ADC#8:STA&72:LDA&71:ADC#0:STA&73:.wp:LDA&56CD,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEwp
nsLDY#0:LDA&70:CLC:ADC#&10:STA&72:LDA&71:ADC#00:STA&73:.ct:LDA&56CD,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEct:RTS
x�.expl:LDA&70:STA&72:LDA&71:STA&73:LDX#0:LDY#0:.hl:LDA&547A,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEhl:LDY#0:LDA&70:CLC:ADC#8:STA&72:LDA&71:ADC#0:STA&73:.lh:LDA&547A,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNElh
�sLDY#0:LDA&70:CLC:ADC#&10:STA&72:LDA&71:ADC#00:STA&73:.vt:LDA&547A,X:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEvt:RTS
��.xpl:LDA&7E:STA&72:LDA&7F:STA&73:LDX#0:LDY#0:.zo:LDA&547A,X:�(&72),Y:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEzo:LDY#0:LDA&7E:CLC:ADC#8:STA&72:LDA&7F:ADC#0:STA&73:.zp:LDA&547A,X:�(&72),Y:STA(&72),Y
��JSRtst:INX:INY:CPY#&10:BNEzp:LDY#0:LDA&7E:CLC:ADC#&10:STA&72:LDA&7F:ADC#00:STA&73:.zu:LDA&547A,X:�(&72),Y:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEzu:RTS
��.guard:LDY#0:LDX#0:.sy:LDA&54E7,X:STA&6D10,Y:INX:INY:CPY#&10:BNEsy:LDY#0:.ys:LDA&54E7,X:STA&6E50,Y:INX:INY:CPY#&10:BNEys:LDY#0:.ao:LDA&54E7,X:STA&6F90,Y:INX:INY:CPY#&10:BNEao:LDY#0:.oa:LDA&54E7,X:STA&70D0,Y:INX:INY:CPY#&10:BNEoa:RTS
�~.jaw:LDY#0:LDX#0:.gj:LDA&5459,X:STA&6F90,Y:INX:INY:CPY#&10:BNEgj:LDY#0:.jg:LDA&5459,X:STA&70D0,Y:INX:INY:CPY#&10:BNEjg:RTS
��.bad:LDA&91D:CMP#&FF:BEQsss:LDA&90C:CMP#8:BNEpod:BEQmisl:RTS:.sss:LDA&7C:STA&72:LDA&7D:STA&73:LDX#0:LDY#0:.zz:LDA&9AE,X:STA(&72),Y:INX:INY:CPY#&10:BNEzz:RTS
��.misl:LDA&7C:STA&72:LDA&7D:STA&73:LDX#0:LDY#0:.kz:LDA&54D6,X:STA(&72),Y:INX:INY:CPY#&10:BNEkz:RTS:.pod:LDA&7C:STA&72:LDA&7D:STA&73:LDX#0:LDY#0:.la:LDA&54C5,X:STA(&72),Y:INX:INY:CPY#&10:BNEla:RTS
Ȅ.dop:LDA&91C:CMP#&FF:BNEtpo:RTS:.tpo:LDA&84:STA&72:LDA&85:STA&73:LDX#0:LDY#0:.cb:LDA&54B4,X:STA(&84),Y:INX:INY:CPY#&10:BNEcb:RTS
�.klb:LDA&84:STA&72:LDA&85:STA&73:LDX#0:LDY#0:.cc:LDA#&00:STA(&84),Y:INX:INY:CPY#&10:BNEcc:RTS:.hmm:LDA&923:CMP#2:BEQrrk:RTS
ܯ.rrk:LDA&8A:STA&72:LDA&8B:STA&73:LDY#0:.mm:LDA&9AE,Y:STA(&72),Y:INY:CPY#&10:BNEmm:RTS:.bnc:LDA&8A:STA&72:LDA&8B:STA&73:LDY#0:.oo:LDA&9AE,Y:STA(&72),Y:INY:CPY#&10:BNEoo:RTS
�w.ftr:LDA&8A:STA&72:LDA&8B:STA&73:LDY#0:.mm:LDA#&00:STA(&72),Y:INY:CPY#&10:BNEmm:RTS:.yyy:LDA&929:CMP&904:BEQxxx:RTS
�.xxx:LDA&900:CLC:ADC#1:STA&92C:LDA&900:CLC:ADC#2:STA&92D:LDA&928:CMP&900:BEQnok:LDA&928:CMP&92C:BEQnok:LDA&928:CMP&92D:BEQnok:RTS
��.nok:JSRflr:LDA#0:STA&92E:JSRflr:.ux:JSRkkk:INC&92E:LDA&92E:CMP#8:BNEux:RTS:.ckc:LDA&927:CMP#1:BEQbrt:BNEtrb:RTS:.brt:LDA&928:CMP#31:BEQder:BNErrd:RTS
i.rrd:LDA&8A:CLC:ADC#&08:STA&8A:LDA&8B:ADC#&00:STA&8B:INC&928:RTS:.trb:LDA&928:CMP#4:BEQred:BNEfuu:RTS
�.fuu:LDA&8A:SEC:SBC#&08:STA&8A:LDA&8B:SBC#&00:STA&8B:DEC&928:RTS:.der:LDA#0:STA&927:RTS:.red:LDA#1:STA&927:RTS:.bck:JSRftr:JSRbkk:JSRckc:JSRbnc:JSRyyy:RTS:.bkk:LDA&926:CMP#1:BEQbup:BNEbdn:RTS
�.bup:LDA&929:CMP#15:BEQtyp:BNEpud:RTS:.typ:LDA#0:STA&926:RTS:.pud:LDA&8A:SEC:SBC#&40:STA&8A:LDA&8B:SBC#&01:STA&8B:INC&929:RTS:.bdn:LDA&929:CMP#4:BEQpyt:BNEndb:RTS:.pyt:LDA#1:STA&926:RTS
"D.ndb:LDA&8A:CLC:ADC#&40:STA&8A:LDA&8B:ADC#&01:STA&8B:DEC&929:RTS
,�.lsim:LDA&7C:STA&72:LDA&7D:STA&73:LDX#0:LDY#0:.hm:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&08:BNEhm:LDY#0:LDA&7C:CLC:ADC#8:STA&72:LDA&7D:ADC#0:STA&73:.mh:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&08:BNEmh:RTS
6�.blk:LDA&70:STA&72:LDA&71:STA&73:LDX#0:LDY#0:.ge:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEge:LDY#0:LDA&70:CLC:ADC#8:STA&72:LDA&71:ADC#0:STA&73:.eg:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEeg
@pLDY#0:LDA&70:CLC:ADC#&10:STA&72:LDA&71:ADC#00:STA&73:.he:LDA#&00:STA(&72),Y:JSRtst:INX:INY:CPY#&10:BNEhe:RTS
J�.tst:STY&74:LDA&72:CLC:ADC&74:STA&75:LDA&75:�#7:CMP#7:BEQbot:RTS:.bot:LDA&72:CLC:ADC#&38:STA&72:LDA&73:ADC#1:STA&73:RTS:.spc:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&9D:LDY#&FF:JSR&FFF4:BCScps:RTS
T.cps:LDA#&0C:JSR&FFEE:JSRsync:JSRsync:JSRgo:RTS:.x:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&BD:LDY#&FF:JSR&FFF4:BCSeft:RTS
^�.eft:LDA&900:CMP#26:BNEleft:RTS:.left:INC&900:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#&00:STA&71:RTS:.d:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&97:LDY#&FF:JSR&FFF4:BCSnd:RTS:.nd:LDA&904:CMP#06:BEQsms:CMP#&03:BNEdn:RTS:.sms:JSRpop:RTS
h�.dn:DEC&904:LDA&70:CLC:ADC#&40:STA&70:LDA&71:ADC#&01:STA&71:RTS:.ntr:LDA&910:BEQrtn:RTS:.rtn:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&B6:LDY#&FF:JSR&FFF4:BCSgz:RTS:.gz:LDA#1:STA&910:RTS
r�.z:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&9E:LDY#&FF:JSR&FFF4:BCSite:RTS:.ite:LDA&900:CMP#05:BNErite:RTS:.rite:DEC&900:LDA&70:SEC:SBC#8:STA&70:LDA&71:SBC#&00:STA&71:LDA&907:RTS
|�.u:LDA#&0F:LDX#1:LDY#0:JSR&FFEE:LDA#&81:LDX#&B7:LDY#&FF:JSR&FFF4:BCSpu:RTS:.pu:LDA&904:CMP#15:BNEup:RTS:.up:INC&904:LDA&70:SEC:SBC#&40:STA&70:LDA&71:SBC#&01:STA&71:RTS
��.sync:LDA#&13:JSR&FFF4:RTS:.et:LDY#0:.te:LDA&5645,Y:STA(&76),Y:INY:CPY#&08:BNEte:LDY#0:.qf:LDA&564C,Y:STA(&78),Y:INY:CPY#&08:BNEqf:RTS
��.ni:LDY#0:.in:LDA&5634,Y:STA(&76),Y:INY:CPY#&08:BNEin:LDY#0:.hx:LDA&563B,Y:STA(&78),Y:INY:CPY#&08:BNEhx:RTS:.tn:LDY#0:.nt:LDA&5623,Y:STA(&76),Y:INY:CPY#&08:BNEnt:LDY#0:.xh:LDA&562A,Y:STA(&78),Y:INY:CPY#&08:BNExh:RTS
�o.sx:LDY#0:.xs:LDA&5667,Y:STA(&76),Y:INY:CPY#&08:BNExs:LDY#0:.fq:LDA&566E,Y:STA(&78),Y:INY:CPY#&08:BNEfq:RTS
��.prnt:LDA(&7A),Y:CMP#6:BEQsx:CMP#7:BEQsv:CMP#8:BEQet:CMP#9:BEQni:CMP#10:BEQtn:CMP#1:BEQon:CMP#2:BEQwt:CMP#3:BEQtr:CMP#4:BEQrf:CMP#5:BEQfv:RTS
��.tr:LDY#0:.rt:LDA&569A,Y:STA(&76),Y:INY:CPY#&08:BNErt:LDY#0:.t:LDA&56A1,Y:STA(&78),Y:INY:CPY#&08:BNEt:RTS:.sv:LDY#0:.ka:LDA&5656,Y:STA(&76),Y:INY:CPY#&08:BNEka:LDY#0:.ak:LDA&565D,Y:STA(&78),Y:INY:CPY#&08:BNEak:RTS
��.on:LDY#0:.no:LDA&56BC,Y:STA(&76),Y:INY:CPY#&08:BNEno:LDY#0:.o:LDA&56C3,Y:STA(&78),Y:INY:CPY#&08:BNEo:RTS:.wt:LDY#0:.tw:LDA&56AB,Y:STA(&76),Y:INY:CPY#&08:BNEtw:LDY#0:.w:LDA&56B2,Y:STA(&78),Y:INY:CPY#&08:BNEw:RTS
��.rf:LDY#0:.fr:LDA&5689,Y:STA(&76),Y:INY:CPY#&08:BNEfr:LDY#0:.r:LDA&5690,Y:STA(&78),Y:INY:CPY#&08:BNEr:RTS:.fv:LDY#0:.vf:LDA&5678,Y:STA(&76),Y:INY:CPY#&08:BNEvf:LDY#0:.f:LDA&567F,Y:STA(&78),Y:INY:CPY#&08:BNEf:RTS
̕.scr:LDX#0:.gp:JSRprnt:JSRmore:JSRerom:INX:CPX#&20:BNEgp:JSRorig:JSRmrk:RTS:.orig:LDA#&77:STA&77:LDA#&60:STA&76:LDA#&78:STA&79:LDA#&A0:STA&78:RTS
֧.more:LDA&76:CLC:ADC#&08:STA&76:LDA&77:ADC#&00:STA&77:LDA&78:CLC:ADC#&08:STA&78:LDA&79:ADC#&00:STA&79:RTS:.erom:LDA&7A:CLC:ADC#&01:STA&7A:LDA&7B:ADC#&00:STA&7B:RTS
��.mrk:LDA&7A:SEC:SBC#&1F:STA&7A:LDA&7B:SBC#&00:STA&7B:INC&905:LDA&905:CMP#&D0:BEQkrm:RTS:.krm:LDA#0:STA&905:LDA#&28:STA&7A:LDA#&55:STA&7B:RTS:.hit:LDA&900:CMP&90A:BEQtih:RTS:.tih:LDA&904:CMP&90D:BEQpop:LDX&904:DEX:CPX&90D:BEQpop:RTS
�.pop:INC&931:JSRabt:.da:JSRscr:JSRsync:JSRoop:JSRspc:JMPda:RTS:.oop:LDA&904:CMP#3:BNEpoo:JSRtak:RTS:.poo:JSRsync:JSRexpl:JSRsync:JSRblk:JSRite:JSRite:JSRdn:RTS
�c.tak:JSRroc:INC&90B:LDA&90B:CMP#14:BEQpoi:CMP#15:BEQgrd:CMP#30:BEQjw:RTS:.poi:JSRcor:JMPtak:RTS
��.grd:JSRmess:JSRguard:RTS:.jw:LDA#0:STA&90B:JSRjaw:RTS:.ism:LDA&7C:SEC:SBC#&08:STA&7C:LDA&7D:SBC#&00:STA&7D:DEC&90A:LDA&90A:CMP#&01:BEQwww:RTS:.www:JSRkkk:JSRwml:RTS:.uu:JSRkkk:LDA#&88:STA&7C:LDA#&6F:STA&7D:LDA#11:STA&90D:RTS
�.wml:INC&90C:LDA&90C:CMP#10:BEQnil:LDA#29:STA&90A:LDA&91C:CMP#&FF:BEQuu:INC&90E:LDA&90E:CMP#1:BEQbr:CMP#2:BEQrb:CMP#3:BEQfi:CMP#4:BEQif:CMP#5:BEQjr:CMP#6:BEQhv:CMP#7:BEQjq:CMP#8:BEQqj:RTS
�.nil:LDA#0:STA&90C:JMPwml:RTS:.br:LDA#&D0:STA&7C:LDA#&70:STA&7D:LDA#10:STA&90D:RTS:.rb:LDA#&10:STA&7C:LDA#&6D:STA&7D:LDA#13:STA&90D:RTS:.fi:LDA#&50:STA&7C:LDA#&73:STA&7D:LDA#8:STA&90D:RTS
�.if:LDA#&90:STA&7C:LDA#&6F:STA&7D:LDA#11:STA&90D:RTS:.jr:LDA#&D0:STA&7C:LDA#&6B:STA&7D:LDA#14:STA&90D:RTS:.hv:LDA#&90:STA&7C:LDA#&74:STA&7D:LDA#7:STA&90D:RTS:.jq:LDA#&50:STA&7C:LDA#&6E:STA&7D:LDA#12:STA&90D:RTS
&�.qj:LDA#&10:STA&7C:LDA#&72:STA&7D:LDA#0:STA&90E:LDA#9:STA&90D:RTS:.tab:EQUD&FFF10000:EQUD&00060004:RTS:.abt:LDA#7:LDX#tab �256:LDY#tab �256:JSR&FFF1:RTS:.bat:EQUD&00010001:EQUD&00030050:RTS
0�.tba:LDA#7:LDX#bat �256:LDY#bat �256:JSR&FFF1:RTS:.gx:LDA#7:LDX#xg �256:LDY#xg �256:JSR&FFF1:RTS:.xg:EQUD&FFF10001:EQUD&00010010:RTS:.ck:LDA&910:CMP#1:BEQfire:CMP#2:BEQfer:RTS
:�.fire:JSRgx:LDA&904:STA&913:LDA&904:SEC:SBC#1:STA&912:LDA&900:CLC:ADC#3:STA&911:LDA&70:CLC:ADC#&58:STA&7E:LDA&71:ADC#&01:STA&7F:LDY#0:LDA#&61:STA(&7E),Y:LDA#2:STA&910:RTS
D�.fer:JSRcol:INC&911:LDA&911:CMP#31:BEQxn:CMP#32:BEQid:LDY#0:LDA#&00:STA(&7E),Y:LDA&7E:CLC:ADC#&08:STA&7E:LDA&7F:ADC#&00:STA&7F:LDY#0:LDA#&61:STA(&7E),Y:JSRcol:RTS
N�.id:LDA#0:STA&910:JSRhrt:RTS:.xn:LDA&91C:CMP#&FF:BEQnx:RTS:.nx:LDA&912:CMP#11:BEQjju:CMP#10:BEQjju:RTS:.jju:JSRfls:JSRtnc:INC&91E:LDA&91E:CMP#10:BEQujj:RTS:.ujj:JSRblk:INC&923:JSRuno:RTS
X�.col:LDA&911:CMP&90A:BEQges:RTS:.ges:LDA&912:CMP&90D:BEQseg:LDA&913:CMP&90D:BEQseg:RTS:.seg:JSRinx:JSRxpl:JSRsync:JSRxpl:JSRid:JSRabt:JSRdsa:JSRwml:RTS
b�.inx:LDA&92F:CMP#208:BEQwd:INC&92F:.wd:RTS:.dsa:LDA&90C:CMP#8:BEQppp:RTS:.ppp:JSRklb:LDA&90A:CLC:ADC#&02:STA&918:LDA&90D:STA&919:LDA#1:STA&917:LDA&7C:STA&84:LDA&7D:STA&85:JSRdop:RTS
l�.hrt:LDY#0:LDA#&00:STA(&7E),Y:RTS:.mess:LDX#0:.vo:LDA&5430,X:�&7400,X:STA&7400,X:INX:CPX#40:BNEvo:RTS:.qqq:LDA&917:BNEqqp:RTS:.qpp:LDA&900:CMP&918:BEQtot:RTS
v�.qqp:JSRdop:LDA&904:CMP&919:BEQqpp:LDA&904:SEC:SBC#&01:STA&91A:LDA&91A:CMP&919:BEQqpp:RTS:.tot:JSRtnc:JSRklb:LDA#0:STA&917:STA&918:STA&919:JSRtba:RTS
��.cnt:JSRlg:LDX#0:.gg:LDY#0:.hh:LDA#&60:STA(&86),Y:INY:CPY#4:BNEhh:LDA&86:CLC:ADC#&10:STA&86:LDA&87:ADC#&00:STA&87:INX:CPX#10:BNEgg:JSRlg:RTS
��.lg:LDA#&90:STA&86:LDA#&68:STA&87:LDA#0:STA&91B:RTS:.tnc:LDY#0:.ff:LDA#&00:STA(&86),Y:INY:CPY#4:BNEff:LDA&86:CLC:ADC#&10:STA&86:LDA&87:ADC#&00:STA&87:INC&91B:LDA&91B:CMP#10:BEQten:RTS
��.rd:LDA#19:JSR&FFEE:LDA#1:JSR&FFEE:LDA#1:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS:.bl:LDA#19:JSR&FFEE:LDA#1:JSR&FFEE:LDA#5:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS
��.gn:LDA#19:JSR&FFEE:LDA#1:JSR&FFEE:LDA#2:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS:.ten:LDA#&FF:STA&91C:STA&91D:JSRfls:JSRguard:JSRfls:JSRcnt:RTS
��.fls:JSRabt:LDA#19:JSR&FFEE:LDA#0:JSR&FFEE:LDA#7:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:JSRsync:JSRsync:LDA#19:JSR&FFEE:LDA#0:JSR&FFEE:LDA#0:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS
��.flr::LDA#19:JSR&FFEE:LDA#0:JSR&FFEE:LDA#5:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:JSRsync:JSRsync:LDA#19:JSR&FFEE:LDA#0:JSR&FFEE:LDA#0:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE:RTS
�}.lvl:LDY#0:.rr:LDA&9BF,Y:�&6B38,Y:STA&6B38,Y:INY:CPY#64:BNErr:RTS:.rkt:LDY#0:.oi:LDA#&46:STA&7C90,Y:INY:CPY#152:BNEoi:RTS
ƈ.kkk:LDA&88:CLC:ADC#&01:STA&88:LDA&89:ADC#&00:STA&89:LDY#0:.tp:LDA#&00:STA(&88),Y:INY:CPY#8:BNEtp:INC&922:LDA&922:CMP#152:BEQtyh:RTS
п.tyh:JSRpop:RTS:.ees:LDA#1:STA&923:JMPtyy:RTS:.tyy:LDA&923:CMP#1:BEQfft:CMP#2:BEQqwe:CMP#3:BEQsee:CMP#4:BEQees:RTS:.fft:LDA#0:STA&925:JSRrd:RTS:.qwe:JSRgn::JSRftr:JSRmvv:JSRrrk:JSRgtr:RTS
�x.mvv:LDA&8A:CLC:ADC#&08:STA&8A:LDA&8B:ADC#&00:STA&8B:INC&924:LDA&924:CMP#32:BEQset:JSRftr:RTS:.hjk:JSRftr:JSRnok:RTS
�.see:LDA#0:STA&925:JSRbl:JSRbck:RTS:.set:LDA#&A0:STA&8A:LDA#&6E:STA&8B:LDA#4:STA&924:RTS:.gtr:LDA&924:CMP&900:BEQyto:RTS:.yto:LDA&904:CMP#11:BEQhjk:CMP#12:BEQhjk:RTS
�.cor:LDY#0:.pp:LDA#&01:STA&6D70,Y:INY:CPY#208:BNEpp:LDY#0:.tc:LDA&5440,Y:STA&70B0,Y:INY:CPY#&18:BNEtc:RTS:.roc:LDY#0:.ii:LDA#&E1:STA&6D70,Y:INY:CPY&92F:BNEii:RTS
�
]:�pass:�
[*KEY0 *T.|MD%=PAGE-&E00:FORI%=PAGE TO TOP STEP4:!(I%-D%)=!I%:NEXT:PAGE=&E00|MOLD|MRUN|M
*FX138,0,128
�
00000000  0d 00 0a 12 e7 90 3e 26  45 30 30 20 e5 20 8d 54  |......>&E00 . .T|
00000010  42 43 0d 00 14 42 ef 32  33 2c 31 2c 30 3b 30 3b  |BC...B.23,1,0;0;|
00000020  30 3b 30 3b 3a fb 31 32  38 3a ef 34 2c 32 38 2c  |0;0;:.128:.4,28,|
00000030  32 2c 32 37 2c 31 37 2c  31 34 3a db 3a de 20 63  |2,27,17,14:.:. c|
00000040  6f 64 65 20 33 35 30 30  3a f2 6d 61 63 68 3a d6  |ode 3500:.mach:.|
00000050  6f 67 3a e0 0d 00 1e 27  dd f2 6d 61 63 68 3a e3  |og:....'..mach:.|
00000060  70 61 73 73 3d 30 b8 32  88 32 3a 50 25 3d 63 6f  |pass=0.2.2:P%=co|
00000070  64 65 3a 5b 4f 50 54 70  61 73 73 0d 00 28 8b 2e  |de:[OPTpass..(..|
00000080  6f 67 3a 4c 44 41 23 31  3a 53 54 41 26 39 32 46  |og:LDA#1:STA&92F|
00000090  3a 53 54 41 26 39 32 33  3a 4c 44 41 23 30 3a 53  |:STA&923:LDA#0:S|
000000a0  54 41 26 39 33 31 3a 4a  53 52 6c 76 6c 3a 4a 53  |TA&931:JSRlvl:JS|
000000b0  52 75 6e 6f 3a 52 54 53  3a 2e 75 6e 6f 3a 4a 53  |Runo:RTS:.uno:JS|
000000c0  52 76 61 72 3a 2e 68 66  3a 4a 53 52 62 61 6c 6c  |Rvar:.hf:JSRball|
000000d0  3a 4a 53 52 73 63 72 3a  4a 53 52 73 79 6e 63 3a  |:JSRscr:JSRsync:|
000000e0  4a 53 52 73 70 63 3a 4a  53 52 6d 65 73 73 3a 4a  |JSRspc:JSRmess:J|
000000f0  53 52 63 6f 72 3a 4a 53  52 72 6f 63 3a 4a 4d 50  |SRcor:JSRroc:JMP|
00000100  68 66 3a 52 54 53 0d 00  32 bb 2e 6c 6a 3a 4c 44  |hf:RTS..2..lj:LD|
00000110  41 26 39 33 31 3a 43 4d  50 23 33 3a 42 45 51 74  |A&931:CMP#3:BEQt|
00000120  79 6d 3a 52 54 53 3a 2e  74 79 6d 3a 4c 44 41 23  |ym:RTS:.tym:LDA#|
00000130  30 3a 53 54 41 26 39 33  35 3a 2e 6b 7a 3a 4a 53  |0:STA&935:.kz:JS|
00000140  52 66 6c 72 3a 4a 53 52  74 62 61 3a 49 4e 43 26  |Rflr:JSRtba:INC&|
00000150  39 33 35 3a 4c 44 41 26  39 33 35 3a 43 4d 50 23  |935:LDA&935:CMP#|
00000160  31 30 3a 42 4e 45 6b 7a  3a 4a 53 52 6f 67 3a 52  |10:BNEkz:JSRog:R|
00000170  54 53 3a 2e 67 6f 3a 4a  53 52 6c 6a 3a 4a 53 52  |TS:.go:JSRlj:JSR|
00000180  73 65 74 3a 4a 53 52 68  6d 6d 3a 4a 53 52 6c 76  |set:JSRhmm:JSRlv|
00000190  6c 3a 4a 53 52 76 61 72  3a 4a 53 52 63 6e 74 3a  |l:JSRvar:JSRcnt:|
000001a0  4a 53 52 62 61 6c 6c 3a  4a 53 52 77 6d 6c 3a 4a  |JSRball:JSRwml:J|
000001b0  53 52 72 6b 74 3a 4a 53  52 6c 6f 6f 70 3a 52 54  |SRrkt:JSRloop:RT|
000001c0  53 0d 00 3c da 2e 76 61  72 3a 4c 44 41 23 26 32  |S..<..var:LDA#&2|
000001d0  30 3a 53 54 41 26 37 30  3a 4c 44 41 23 26 37 30  |0:STA&70:LDA#&70|
000001e0  3a 53 54 41 26 37 31 3a  4c 44 41 23 26 36 30 3a  |:STA&71:LDA#&60:|
000001f0  53 54 41 26 37 36 3a 4c  44 41 23 26 37 37 3a 53  |STA&76:LDA#&77:S|
00000200  54 41 26 37 37 3a 4c 44  41 23 26 41 30 3a 53 54  |TA&77:LDA#&A0:ST|
00000210  41 26 37 38 3a 4c 44 41  23 26 37 38 3a 53 54 41  |A&78:LDA#&78:STA|
00000220  26 37 39 3a 4c 44 41 23  26 32 38 3a 53 54 41 26  |&79:LDA#&28:STA&|
00000230  37 41 3a 4c 44 41 23 26  35 35 3a 53 54 41 26 37  |7A:LDA#&55:STA&7|
00000240  42 3a 4c 44 41 23 26 44  30 3a 53 54 41 26 37 43  |B:LDA#&D0:STA&7C|
00000250  3a 4c 44 41 23 26 37 30  3a 53 54 41 26 37 44 3a  |:LDA#&70:STA&7D:|
00000260  4c 44 41 23 26 31 30 3a  53 54 41 26 38 30 3a 4c  |LDA#&10:STA&80:L|
00000270  44 41 23 26 36 44 3a 53  54 41 26 38 31 3a 4c 44  |DA#&6D:STA&81:LD|
00000280  41 23 26 38 38 3a 53 54  41 26 38 38 3a 4c 44 41  |A#&88:STA&88:LDA|
00000290  23 26 37 43 3a 53 54 41  26 38 39 0d 00 46 2d 4c  |#&7C:STA&89..F-L|
000002a0  44 41 23 34 3a 53 54 41  26 39 32 38 3a 4c 44 41  |DA#4:STA&928:LDA|
000002b0  23 30 3a 53 54 41 26 39  32 35 3a 4c 44 41 23 34  |#0:STA&925:LDA#4|
000002c0  3a 53 54 41 26 39 32 38  0d 00 50 ed 4c 44 41 23  |:STA&928..P.LDA#|
000002d0  31 31 3a 53 54 41 26 39  30 30 3a 53 54 41 26 39  |11:STA&900:STA&9|
000002e0  32 39 3a 4c 44 41 23 26  30 3a 53 54 41 26 39 32  |29:LDA#&0:STA&92|
000002f0  32 3a 53 54 41 26 39 31  45 3a 53 54 41 26 39 30  |2:STA&91E:STA&90|
00000300  31 3a 53 54 41 26 39 30  32 3a 53 54 41 26 39 30  |1:STA&902:STA&90|
00000310  35 3a 53 54 41 26 39 31  30 3a 53 54 41 26 39 31  |5:STA&910:STA&91|
00000320  35 3a 53 54 41 26 39 31  37 3a 53 54 41 26 39 31  |5:STA&917:STA&91|
00000330  42 3a 53 54 41 26 39 31  43 3a 53 54 41 26 39 31  |B:STA&91C:STA&91|
00000340  44 3a 4c 44 41 23 31 30  3a 53 54 41 26 39 30 34  |D:LDA#10:STA&904|
00000350  3a 4c 44 41 23 26 30 30  3a 53 54 41 26 38 34 3a  |:LDA#&00:STA&84:|
00000360  4c 44 41 23 26 35 38 3a  53 54 41 26 38 35 3a 4c  |LDA#&58:STA&85:L|
00000370  44 41 23 26 39 30 3a 53  54 41 26 38 36 3a 4c 44  |DA#&90:STA&86:LD|
00000380  41 23 26 36 38 3a 53 54  41 26 38 37 3a 4c 44 41  |A#&68:STA&87:LDA|
00000390  23 34 39 3a 53 54 41 26  39 31 46 3a 4c 44 41 23  |#49:STA&91F:LDA#|
000003a0  31 3a 53 54 41 26 39 32  36 3a 53 54 41 26 39 32  |1:STA&926:STA&92|
000003b0  37 3a 52 54 53 0d 00 5a  91 2e 6c 6f 6f 70 3a 4a  |7:RTS..Z..loop:J|
000003c0  53 52 6c 76 6c 3a 2e 6c  6f 70 3a 4a 53 52 62 6c  |SRlvl:.lop:JSRbl|
000003d0  6b 3a 4a 53 52 6c 73 69  6d 3a 4a 53 52 78 3a 4a  |k:JSRlsim:JSRx:J|
000003e0  53 52 7a 3a 4a 53 52 75  3a 4a 53 52 64 3a 4a 53  |SRz:JSRu:JSRd:JS|
000003f0  52 6e 74 72 3a 4a 53 52  62 61 6c 6c 3a 4a 53 52  |Rntr:JSRball:JSR|
00000400  74 79 79 3a 4a 53 52 69  73 6d 3a 4a 53 52 73 79  |tyy:JSRism:JSRsy|
00000410  6e 63 3a 4a 53 52 63 6b  3a 4a 53 52 68 69 74 3a  |nc:JSRck:JSRhit:|
00000420  4a 53 52 62 61 64 3a 4a  53 52 71 71 71 3a 4a 53  |JSRbad:JSRqqq:JS|
00000430  52 73 63 72 3a 4a 53 52  68 72 74 3a 4a 4d 50 6c  |Rscr:JSRhrt:JMPl|
00000440  6f 70 3a 52 54 53 0d 00  64 d1 2e 62 61 6c 6c 3a  |op:RTS..d..ball:|
00000450  4c 44 41 26 37 30 3a 53  54 41 26 37 32 3a 4c 44  |LDA&70:STA&72:LD|
00000460  41 26 37 31 3a 53 54 41  26 37 33 3a 4c 44 58 23  |A&71:STA&73:LDX#|
00000470  30 3a 4c 44 59 23 30 3a  2e 70 77 3a 4c 44 41 26  |0:LDY#0:.pw:LDA&|
00000480  35 36 43 44 2c 58 3a 53  54 41 28 26 37 32 29 2c  |56CD,X:STA(&72),|
00000490  59 3a 4a 53 52 74 73 74  3a 49 4e 58 3a 49 4e 59  |Y:JSRtst:INX:INY|
000004a0  3a 43 50 59 23 26 31 30  3a 42 4e 45 70 77 3a 4c  |:CPY#&10:BNEpw:L|
000004b0  44 59 23 30 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |DY#0:LDA&70:CLC:|
000004c0  41 44 43 23 38 3a 53 54  41 26 37 32 3a 4c 44 41  |ADC#8:STA&72:LDA|
000004d0  26 37 31 3a 41 44 43 23  30 3a 53 54 41 26 37 33  |&71:ADC#0:STA&73|
000004e0  3a 2e 77 70 3a 4c 44 41  26 35 36 43 44 2c 58 3a  |:.wp:LDA&56CD,X:|
000004f0  53 54 41 28 26 37 32 29  2c 59 3a 4a 53 52 74 73  |STA(&72),Y:JSRts|
00000500  74 3a 49 4e 58 3a 49 4e  59 3a 43 50 59 23 26 31  |t:INX:INY:CPY#&1|
00000510  30 3a 42 4e 45 77 70 0d  00 6e 73 4c 44 59 23 30  |0:BNEwp..nsLDY#0|
00000520  3a 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 23  |:LDA&70:CLC:ADC#|
00000530  26 31 30 3a 53 54 41 26  37 32 3a 4c 44 41 26 37  |&10:STA&72:LDA&7|
00000540  31 3a 41 44 43 23 30 30  3a 53 54 41 26 37 33 3a  |1:ADC#00:STA&73:|
00000550  2e 63 74 3a 4c 44 41 26  35 36 43 44 2c 58 3a 53  |.ct:LDA&56CD,X:S|
00000560  54 41 28 26 37 32 29 2c  59 3a 4a 53 52 74 73 74  |TA(&72),Y:JSRtst|
00000570  3a 49 4e 58 3a 49 4e 59  3a 43 50 59 23 26 31 30  |:INX:INY:CPY#&10|
00000580  3a 42 4e 45 63 74 3a 52  54 53 0d 00 78 d1 2e 65  |:BNEct:RTS..x..e|
00000590  78 70 6c 3a 4c 44 41 26  37 30 3a 53 54 41 26 37  |xpl:LDA&70:STA&7|
000005a0  32 3a 4c 44 41 26 37 31  3a 53 54 41 26 37 33 3a  |2:LDA&71:STA&73:|
000005b0  4c 44 58 23 30 3a 4c 44  59 23 30 3a 2e 68 6c 3a  |LDX#0:LDY#0:.hl:|
000005c0  4c 44 41 26 35 34 37 41  2c 58 3a 53 54 41 28 26  |LDA&547A,X:STA(&|
000005d0  37 32 29 2c 59 3a 4a 53  52 74 73 74 3a 49 4e 58  |72),Y:JSRtst:INX|
000005e0  3a 49 4e 59 3a 43 50 59  23 26 31 30 3a 42 4e 45  |:INY:CPY#&10:BNE|
000005f0  68 6c 3a 4c 44 59 23 30  3a 4c 44 41 26 37 30 3a  |hl:LDY#0:LDA&70:|
00000600  43 4c 43 3a 41 44 43 23  38 3a 53 54 41 26 37 32  |CLC:ADC#8:STA&72|
00000610  3a 4c 44 41 26 37 31 3a  41 44 43 23 30 3a 53 54  |:LDA&71:ADC#0:ST|
00000620  41 26 37 33 3a 2e 6c 68  3a 4c 44 41 26 35 34 37  |A&73:.lh:LDA&547|
00000630  41 2c 58 3a 53 54 41 28  26 37 32 29 2c 59 3a 4a  |A,X:STA(&72),Y:J|
00000640  53 52 74 73 74 3a 49 4e  58 3a 49 4e 59 3a 43 50  |SRtst:INX:INY:CP|
00000650  59 23 26 31 30 3a 42 4e  45 6c 68 0d 00 82 73 4c  |Y#&10:BNElh...sL|
00000660  44 59 23 30 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |DY#0:LDA&70:CLC:|
00000670  41 44 43 23 26 31 30 3a  53 54 41 26 37 32 3a 4c  |ADC#&10:STA&72:L|
00000680  44 41 26 37 31 3a 41 44  43 23 30 30 3a 53 54 41  |DA&71:ADC#00:STA|
00000690  26 37 33 3a 2e 76 74 3a  4c 44 41 26 35 34 37 41  |&73:.vt:LDA&547A|
000006a0  2c 58 3a 53 54 41 28 26  37 32 29 2c 59 3a 4a 53  |,X:STA(&72),Y:JS|
000006b0  52 74 73 74 3a 49 4e 58  3a 49 4e 59 3a 43 50 59  |Rtst:INX:INY:CPY|
000006c0  23 26 31 30 3a 42 4e 45  76 74 3a 52 54 53 0d 00  |#&10:BNEvt:RTS..|
000006d0  8c c5 2e 78 70 6c 3a 4c  44 41 26 37 45 3a 53 54  |...xpl:LDA&7E:ST|
000006e0  41 26 37 32 3a 4c 44 41  26 37 46 3a 53 54 41 26  |A&72:LDA&7F:STA&|
000006f0  37 33 3a 4c 44 58 23 30  3a 4c 44 59 23 30 3a 2e  |73:LDX#0:LDY#0:.|
00000700  7a 6f 3a 4c 44 41 26 35  34 37 41 2c 58 3a 82 28  |zo:LDA&547A,X:.(|
00000710  26 37 32 29 2c 59 3a 53  54 41 28 26 37 32 29 2c  |&72),Y:STA(&72),|
00000720  59 3a 4a 53 52 74 73 74  3a 49 4e 58 3a 49 4e 59  |Y:JSRtst:INX:INY|
00000730  3a 43 50 59 23 26 31 30  3a 42 4e 45 7a 6f 3a 4c  |:CPY#&10:BNEzo:L|
00000740  44 59 23 30 3a 4c 44 41  26 37 45 3a 43 4c 43 3a  |DY#0:LDA&7E:CLC:|
00000750  41 44 43 23 38 3a 53 54  41 26 37 32 3a 4c 44 41  |ADC#8:STA&72:LDA|
00000760  26 37 46 3a 41 44 43 23  30 3a 53 54 41 26 37 33  |&7F:ADC#0:STA&73|
00000770  3a 2e 7a 70 3a 4c 44 41  26 35 34 37 41 2c 58 3a  |:.zp:LDA&547A,X:|
00000780  82 28 26 37 32 29 2c 59  3a 53 54 41 28 26 37 32  |.(&72),Y:STA(&72|
00000790  29 2c 59 0d 00 96 99 4a  53 52 74 73 74 3a 49 4e  |),Y....JSRtst:IN|
000007a0  58 3a 49 4e 59 3a 43 50  59 23 26 31 30 3a 42 4e  |X:INY:CPY#&10:BN|
000007b0  45 7a 70 3a 4c 44 59 23  30 3a 4c 44 41 26 37 45  |Ezp:LDY#0:LDA&7E|
000007c0  3a 43 4c 43 3a 41 44 43  23 26 31 30 3a 53 54 41  |:CLC:ADC#&10:STA|
000007d0  26 37 32 3a 4c 44 41 26  37 46 3a 41 44 43 23 30  |&72:LDA&7F:ADC#0|
000007e0  30 3a 53 54 41 26 37 33  3a 2e 7a 75 3a 4c 44 41  |0:STA&73:.zu:LDA|
000007f0  26 35 34 37 41 2c 58 3a  82 28 26 37 32 29 2c 59  |&547A,X:.(&72),Y|
00000800  3a 53 54 41 28 26 37 32  29 2c 59 3a 4a 53 52 74  |:STA(&72),Y:JSRt|
00000810  73 74 3a 49 4e 58 3a 49  4e 59 3a 43 50 59 23 26  |st:INX:INY:CPY#&|
00000820  31 30 3a 42 4e 45 7a 75  3a 52 54 53 0d 00 a0 ec  |10:BNEzu:RTS....|
00000830  2e 67 75 61 72 64 3a 4c  44 59 23 30 3a 4c 44 58  |.guard:LDY#0:LDX|
00000840  23 30 3a 2e 73 79 3a 4c  44 41 26 35 34 45 37 2c  |#0:.sy:LDA&54E7,|
00000850  58 3a 53 54 41 26 36 44  31 30 2c 59 3a 49 4e 58  |X:STA&6D10,Y:INX|
00000860  3a 49 4e 59 3a 43 50 59  23 26 31 30 3a 42 4e 45  |:INY:CPY#&10:BNE|
00000870  73 79 3a 4c 44 59 23 30  3a 2e 79 73 3a 4c 44 41  |sy:LDY#0:.ys:LDA|
00000880  26 35 34 45 37 2c 58 3a  53 54 41 26 36 45 35 30  |&54E7,X:STA&6E50|
00000890  2c 59 3a 49 4e 58 3a 49  4e 59 3a 43 50 59 23 26  |,Y:INX:INY:CPY#&|
000008a0  31 30 3a 42 4e 45 79 73  3a 4c 44 59 23 30 3a 2e  |10:BNEys:LDY#0:.|
000008b0  61 6f 3a 4c 44 41 26 35  34 45 37 2c 58 3a 53 54  |ao:LDA&54E7,X:ST|
000008c0  41 26 36 46 39 30 2c 59  3a 49 4e 58 3a 49 4e 59  |A&6F90,Y:INX:INY|
000008d0  3a 43 50 59 23 26 31 30  3a 42 4e 45 61 6f 3a 4c  |:CPY#&10:BNEao:L|
000008e0  44 59 23 30 3a 2e 6f 61  3a 4c 44 41 26 35 34 45  |DY#0:.oa:LDA&54E|
000008f0  37 2c 58 3a 53 54 41 26  37 30 44 30 2c 59 3a 49  |7,X:STA&70D0,Y:I|
00000900  4e 58 3a 49 4e 59 3a 43  50 59 23 26 31 30 3a 42  |NX:INY:CPY#&10:B|
00000910  4e 45 6f 61 3a 52 54 53  0d 00 aa 7e 2e 6a 61 77  |NEoa:RTS...~.jaw|
00000920  3a 4c 44 59 23 30 3a 4c  44 58 23 30 3a 2e 67 6a  |:LDY#0:LDX#0:.gj|
00000930  3a 4c 44 41 26 35 34 35  39 2c 58 3a 53 54 41 26  |:LDA&5459,X:STA&|
00000940  36 46 39 30 2c 59 3a 49  4e 58 3a 49 4e 59 3a 43  |6F90,Y:INX:INY:C|
00000950  50 59 23 26 31 30 3a 42  4e 45 67 6a 3a 4c 44 59  |PY#&10:BNEgj:LDY|
00000960  23 30 3a 2e 6a 67 3a 4c  44 41 26 35 34 35 39 2c  |#0:.jg:LDA&5459,|
00000970  58 3a 53 54 41 26 37 30  44 30 2c 59 3a 49 4e 58  |X:STA&70D0,Y:INX|
00000980  3a 49 4e 59 3a 43 50 59  23 26 31 30 3a 42 4e 45  |:INY:CPY#&10:BNE|
00000990  6a 67 3a 52 54 53 0d 00  b4 a0 2e 62 61 64 3a 4c  |jg:RTS.....bad:L|
000009a0  44 41 26 39 31 44 3a 43  4d 50 23 26 46 46 3a 42  |DA&91D:CMP#&FF:B|
000009b0  45 51 73 73 73 3a 4c 44  41 26 39 30 43 3a 43 4d  |EQsss:LDA&90C:CM|
000009c0  50 23 38 3a 42 4e 45 70  6f 64 3a 42 45 51 6d 69  |P#8:BNEpod:BEQmi|
000009d0  73 6c 3a 52 54 53 3a 2e  73 73 73 3a 4c 44 41 26  |sl:RTS:.sss:LDA&|
000009e0  37 43 3a 53 54 41 26 37  32 3a 4c 44 41 26 37 44  |7C:STA&72:LDA&7D|
000009f0  3a 53 54 41 26 37 33 3a  4c 44 58 23 30 3a 4c 44  |:STA&73:LDX#0:LD|
00000a00  59 23 30 3a 2e 7a 7a 3a  4c 44 41 26 39 41 45 2c  |Y#0:.zz:LDA&9AE,|
00000a10  58 3a 53 54 41 28 26 37  32 29 2c 59 3a 49 4e 58  |X:STA(&72),Y:INX|
00000a20  3a 49 4e 59 3a 43 50 59  23 26 31 30 3a 42 4e 45  |:INY:CPY#&10:BNE|
00000a30  7a 7a 3a 52 54 53 0d 00  be c6 2e 6d 69 73 6c 3a  |zz:RTS.....misl:|
00000a40  4c 44 41 26 37 43 3a 53  54 41 26 37 32 3a 4c 44  |LDA&7C:STA&72:LD|
00000a50  41 26 37 44 3a 53 54 41  26 37 33 3a 4c 44 58 23  |A&7D:STA&73:LDX#|
00000a60  30 3a 4c 44 59 23 30 3a  2e 6b 7a 3a 4c 44 41 26  |0:LDY#0:.kz:LDA&|
00000a70  35 34 44 36 2c 58 3a 53  54 41 28 26 37 32 29 2c  |54D6,X:STA(&72),|
00000a80  59 3a 49 4e 58 3a 49 4e  59 3a 43 50 59 23 26 31  |Y:INX:INY:CPY#&1|
00000a90  30 3a 42 4e 45 6b 7a 3a  52 54 53 3a 2e 70 6f 64  |0:BNEkz:RTS:.pod|
00000aa0  3a 4c 44 41 26 37 43 3a  53 54 41 26 37 32 3a 4c  |:LDA&7C:STA&72:L|
00000ab0  44 41 26 37 44 3a 53 54  41 26 37 33 3a 4c 44 58  |DA&7D:STA&73:LDX|
00000ac0  23 30 3a 4c 44 59 23 30  3a 2e 6c 61 3a 4c 44 41  |#0:LDY#0:.la:LDA|
00000ad0  26 35 34 43 35 2c 58 3a  53 54 41 28 26 37 32 29  |&54C5,X:STA(&72)|
00000ae0  2c 59 3a 49 4e 58 3a 49  4e 59 3a 43 50 59 23 26  |,Y:INX:INY:CPY#&|
00000af0  31 30 3a 42 4e 45 6c 61  3a 52 54 53 0d 00 c8 84  |10:BNEla:RTS....|
00000b00  2e 64 6f 70 3a 4c 44 41  26 39 31 43 3a 43 4d 50  |.dop:LDA&91C:CMP|
00000b10  23 26 46 46 3a 42 4e 45  74 70 6f 3a 52 54 53 3a  |#&FF:BNEtpo:RTS:|
00000b20  2e 74 70 6f 3a 4c 44 41  26 38 34 3a 53 54 41 26  |.tpo:LDA&84:STA&|
00000b30  37 32 3a 4c 44 41 26 38  35 3a 53 54 41 26 37 33  |72:LDA&85:STA&73|
00000b40  3a 4c 44 58 23 30 3a 4c  44 59 23 30 3a 2e 63 62  |:LDX#0:LDY#0:.cb|
00000b50  3a 4c 44 41 26 35 34 42  34 2c 58 3a 53 54 41 28  |:LDA&54B4,X:STA(|
00000b60  26 38 34 29 2c 59 3a 49  4e 58 3a 49 4e 59 3a 43  |&84),Y:INX:INY:C|
00000b70  50 59 23 26 31 30 3a 42  4e 45 63 62 3a 52 54 53  |PY#&10:BNEcb:RTS|
00000b80  0d 00 d2 7f 2e 6b 6c 62  3a 4c 44 41 26 38 34 3a  |.....klb:LDA&84:|
00000b90  53 54 41 26 37 32 3a 4c  44 41 26 38 35 3a 53 54  |STA&72:LDA&85:ST|
00000ba0  41 26 37 33 3a 4c 44 58  23 30 3a 4c 44 59 23 30  |A&73:LDX#0:LDY#0|
00000bb0  3a 2e 63 63 3a 4c 44 41  23 26 30 30 3a 53 54 41  |:.cc:LDA#&00:STA|
00000bc0  28 26 38 34 29 2c 59 3a  49 4e 58 3a 49 4e 59 3a  |(&84),Y:INX:INY:|
00000bd0  43 50 59 23 26 31 30 3a  42 4e 45 63 63 3a 52 54  |CPY#&10:BNEcc:RT|
00000be0  53 3a 2e 68 6d 6d 3a 4c  44 41 26 39 32 33 3a 43  |S:.hmm:LDA&923:C|
00000bf0  4d 50 23 32 3a 42 45 51  72 72 6b 3a 52 54 53 0d  |MP#2:BEQrrk:RTS.|
00000c00  00 dc af 2e 72 72 6b 3a  4c 44 41 26 38 41 3a 53  |....rrk:LDA&8A:S|
00000c10  54 41 26 37 32 3a 4c 44  41 26 38 42 3a 53 54 41  |TA&72:LDA&8B:STA|
00000c20  26 37 33 3a 4c 44 59 23  30 3a 2e 6d 6d 3a 4c 44  |&73:LDY#0:.mm:LD|
00000c30  41 26 39 41 45 2c 59 3a  53 54 41 28 26 37 32 29  |A&9AE,Y:STA(&72)|
00000c40  2c 59 3a 49 4e 59 3a 43  50 59 23 26 31 30 3a 42  |,Y:INY:CPY#&10:B|
00000c50  4e 45 6d 6d 3a 52 54 53  3a 2e 62 6e 63 3a 4c 44  |NEmm:RTS:.bnc:LD|
00000c60  41 26 38 41 3a 53 54 41  26 37 32 3a 4c 44 41 26  |A&8A:STA&72:LDA&|
00000c70  38 42 3a 53 54 41 26 37  33 3a 4c 44 59 23 30 3a  |8B:STA&73:LDY#0:|
00000c80  2e 6f 6f 3a 4c 44 41 26  39 41 45 2c 59 3a 53 54  |.oo:LDA&9AE,Y:ST|
00000c90  41 28 26 37 32 29 2c 59  3a 49 4e 59 3a 43 50 59  |A(&72),Y:INY:CPY|
00000ca0  23 26 31 30 3a 42 4e 45  6f 6f 3a 52 54 53 0d 00  |#&10:BNEoo:RTS..|
00000cb0  e6 77 2e 66 74 72 3a 4c  44 41 26 38 41 3a 53 54  |.w.ftr:LDA&8A:ST|
00000cc0  41 26 37 32 3a 4c 44 41  26 38 42 3a 53 54 41 26  |A&72:LDA&8B:STA&|
00000cd0  37 33 3a 4c 44 59 23 30  3a 2e 6d 6d 3a 4c 44 41  |73:LDY#0:.mm:LDA|
00000ce0  23 26 30 30 3a 53 54 41  28 26 37 32 29 2c 59 3a  |#&00:STA(&72),Y:|
00000cf0  49 4e 59 3a 43 50 59 23  26 31 30 3a 42 4e 45 6d  |INY:CPY#&10:BNEm|
00000d00  6d 3a 52 54 53 3a 2e 79  79 79 3a 4c 44 41 26 39  |m:RTS:.yyy:LDA&9|
00000d10  32 39 3a 43 4d 50 26 39  30 34 3a 42 45 51 78 78  |29:CMP&904:BEQxx|
00000d20  78 3a 52 54 53 0d 00 f0  85 2e 78 78 78 3a 4c 44  |x:RTS.....xxx:LD|
00000d30  41 26 39 30 30 3a 43 4c  43 3a 41 44 43 23 31 3a  |A&900:CLC:ADC#1:|
00000d40  53 54 41 26 39 32 43 3a  4c 44 41 26 39 30 30 3a  |STA&92C:LDA&900:|
00000d50  43 4c 43 3a 41 44 43 23  32 3a 53 54 41 26 39 32  |CLC:ADC#2:STA&92|
00000d60  44 3a 4c 44 41 26 39 32  38 3a 43 4d 50 26 39 30  |D:LDA&928:CMP&90|
00000d70  30 3a 42 45 51 6e 6f 6b  3a 4c 44 41 26 39 32 38  |0:BEQnok:LDA&928|
00000d80  3a 43 4d 50 26 39 32 43  3a 42 45 51 6e 6f 6b 3a  |:CMP&92C:BEQnok:|
00000d90  4c 44 41 26 39 32 38 3a  43 4d 50 26 39 32 44 3a  |LDA&928:CMP&92D:|
00000da0  42 45 51 6e 6f 6b 3a 52  54 53 0d 00 fa 9a 2e 6e  |BEQnok:RTS.....n|
00000db0  6f 6b 3a 4a 53 52 66 6c  72 3a 4c 44 41 23 30 3a  |ok:JSRflr:LDA#0:|
00000dc0  53 54 41 26 39 32 45 3a  4a 53 52 66 6c 72 3a 2e  |STA&92E:JSRflr:.|
00000dd0  75 78 3a 4a 53 52 6b 6b  6b 3a 49 4e 43 26 39 32  |ux:JSRkkk:INC&92|
00000de0  45 3a 4c 44 41 26 39 32  45 3a 43 4d 50 23 38 3a  |E:LDA&92E:CMP#8:|
00000df0  42 4e 45 75 78 3a 52 54  53 3a 2e 63 6b 63 3a 4c  |BNEux:RTS:.ckc:L|
00000e00  44 41 26 39 32 37 3a 43  4d 50 23 31 3a 42 45 51  |DA&927:CMP#1:BEQ|
00000e10  62 72 74 3a 42 4e 45 74  72 62 3a 52 54 53 3a 2e  |brt:BNEtrb:RTS:.|
00000e20  62 72 74 3a 4c 44 41 26  39 32 38 3a 43 4d 50 23  |brt:LDA&928:CMP#|
00000e30  33 31 3a 42 45 51 64 65  72 3a 42 4e 45 72 72 64  |31:BEQder:BNErrd|
00000e40  3a 52 54 53 0d 01 04 69  2e 72 72 64 3a 4c 44 41  |:RTS...i.rrd:LDA|
00000e50  26 38 41 3a 43 4c 43 3a  41 44 43 23 26 30 38 3a  |&8A:CLC:ADC#&08:|
00000e60  53 54 41 26 38 41 3a 4c  44 41 26 38 42 3a 41 44  |STA&8A:LDA&8B:AD|
00000e70  43 23 26 30 30 3a 53 54  41 26 38 42 3a 49 4e 43  |C#&00:STA&8B:INC|
00000e80  26 39 32 38 3a 52 54 53  3a 2e 74 72 62 3a 4c 44  |&928:RTS:.trb:LD|
00000e90  41 26 39 32 38 3a 43 4d  50 23 34 3a 42 45 51 72  |A&928:CMP#4:BEQr|
00000ea0  65 64 3a 42 4e 45 66 75  75 3a 52 54 53 0d 01 0e  |ed:BNEfuu:RTS...|
00000eb0  c3 2e 66 75 75 3a 4c 44  41 26 38 41 3a 53 45 43  |..fuu:LDA&8A:SEC|
00000ec0  3a 53 42 43 23 26 30 38  3a 53 54 41 26 38 41 3a  |:SBC#&08:STA&8A:|
00000ed0  4c 44 41 26 38 42 3a 53  42 43 23 26 30 30 3a 53  |LDA&8B:SBC#&00:S|
00000ee0  54 41 26 38 42 3a 44 45  43 26 39 32 38 3a 52 54  |TA&8B:DEC&928:RT|
00000ef0  53 3a 2e 64 65 72 3a 4c  44 41 23 30 3a 53 54 41  |S:.der:LDA#0:STA|
00000f00  26 39 32 37 3a 52 54 53  3a 2e 72 65 64 3a 4c 44  |&927:RTS:.red:LD|
00000f10  41 23 31 3a 53 54 41 26  39 32 37 3a 52 54 53 3a  |A#1:STA&927:RTS:|
00000f20  2e 62 63 6b 3a 4a 53 52  66 74 72 3a 4a 53 52 62  |.bck:JSRftr:JSRb|
00000f30  6b 6b 3a 4a 53 52 63 6b  63 3a 4a 53 52 62 6e 63  |kk:JSRckc:JSRbnc|
00000f40  3a 4a 53 52 79 79 79 3a  52 54 53 3a 2e 62 6b 6b  |:JSRyyy:RTS:.bkk|
00000f50  3a 4c 44 41 26 39 32 36  3a 43 4d 50 23 31 3a 42  |:LDA&926:CMP#1:B|
00000f60  45 51 62 75 70 3a 42 4e  45 62 64 6e 3a 52 54 53  |EQbup:BNEbdn:RTS|
00000f70  0d 01 18 bd 2e 62 75 70  3a 4c 44 41 26 39 32 39  |.....bup:LDA&929|
00000f80  3a 43 4d 50 23 31 35 3a  42 45 51 74 79 70 3a 42  |:CMP#15:BEQtyp:B|
00000f90  4e 45 70 75 64 3a 52 54  53 3a 2e 74 79 70 3a 4c  |NEpud:RTS:.typ:L|
00000fa0  44 41 23 30 3a 53 54 41  26 39 32 36 3a 52 54 53  |DA#0:STA&926:RTS|
00000fb0  3a 2e 70 75 64 3a 4c 44  41 26 38 41 3a 53 45 43  |:.pud:LDA&8A:SEC|
00000fc0  3a 53 42 43 23 26 34 30  3a 53 54 41 26 38 41 3a  |:SBC#&40:STA&8A:|
00000fd0  4c 44 41 26 38 42 3a 53  42 43 23 26 30 31 3a 53  |LDA&8B:SBC#&01:S|
00000fe0  54 41 26 38 42 3a 49 4e  43 26 39 32 39 3a 52 54  |TA&8B:INC&929:RT|
00000ff0  53 3a 2e 62 64 6e 3a 4c  44 41 26 39 32 39 3a 43  |S:.bdn:LDA&929:C|
00001000  4d 50 23 34 3a 42 45 51  70 79 74 3a 42 4e 45 6e  |MP#4:BEQpyt:BNEn|
00001010  64 62 3a 52 54 53 3a 2e  70 79 74 3a 4c 44 41 23  |db:RTS:.pyt:LDA#|
00001020  31 3a 53 54 41 26 39 32  36 3a 52 54 53 0d 01 22  |1:STA&926:RTS.."|
00001030  44 2e 6e 64 62 3a 4c 44  41 26 38 41 3a 43 4c 43  |D.ndb:LDA&8A:CLC|
00001040  3a 41 44 43 23 26 34 30  3a 53 54 41 26 38 41 3a  |:ADC#&40:STA&8A:|
00001050  4c 44 41 26 38 42 3a 41  44 43 23 26 30 31 3a 53  |LDA&8B:ADC#&01:S|
00001060  54 41 26 38 42 3a 44 45  43 26 39 32 39 3a 52 54  |TA&8B:DEC&929:RT|
00001070  53 0d 01 2c cf 2e 6c 73  69 6d 3a 4c 44 41 26 37  |S..,..lsim:LDA&7|
00001080  43 3a 53 54 41 26 37 32  3a 4c 44 41 26 37 44 3a  |C:STA&72:LDA&7D:|
00001090  53 54 41 26 37 33 3a 4c  44 58 23 30 3a 4c 44 59  |STA&73:LDX#0:LDY|
000010a0  23 30 3a 2e 68 6d 3a 4c  44 41 23 26 30 30 3a 53  |#0:.hm:LDA#&00:S|
000010b0  54 41 28 26 37 32 29 2c  59 3a 4a 53 52 74 73 74  |TA(&72),Y:JSRtst|
000010c0  3a 49 4e 58 3a 49 4e 59  3a 43 50 59 23 26 30 38  |:INX:INY:CPY#&08|
000010d0  3a 42 4e 45 68 6d 3a 4c  44 59 23 30 3a 4c 44 41  |:BNEhm:LDY#0:LDA|
000010e0  26 37 43 3a 43 4c 43 3a  41 44 43 23 38 3a 53 54  |&7C:CLC:ADC#8:ST|
000010f0  41 26 37 32 3a 4c 44 41  26 37 44 3a 41 44 43 23  |A&72:LDA&7D:ADC#|
00001100  30 3a 53 54 41 26 37 33  3a 2e 6d 68 3a 4c 44 41  |0:STA&73:.mh:LDA|
00001110  23 26 30 30 3a 53 54 41  28 26 37 32 29 2c 59 3a  |#&00:STA(&72),Y:|
00001120  4a 53 52 74 73 74 3a 49  4e 58 3a 49 4e 59 3a 43  |JSRtst:INX:INY:C|
00001130  50 59 23 26 30 38 3a 42  4e 45 6d 68 3a 52 54 53  |PY#&08:BNEmh:RTS|
00001140  0d 01 36 ca 2e 62 6c 6b  3a 4c 44 41 26 37 30 3a  |..6..blk:LDA&70:|
00001150  53 54 41 26 37 32 3a 4c  44 41 26 37 31 3a 53 54  |STA&72:LDA&71:ST|
00001160  41 26 37 33 3a 4c 44 58  23 30 3a 4c 44 59 23 30  |A&73:LDX#0:LDY#0|
00001170  3a 2e 67 65 3a 4c 44 41  23 26 30 30 3a 53 54 41  |:.ge:LDA#&00:STA|
00001180  28 26 37 32 29 2c 59 3a  4a 53 52 74 73 74 3a 49  |(&72),Y:JSRtst:I|
00001190  4e 58 3a 49 4e 59 3a 43  50 59 23 26 31 30 3a 42  |NX:INY:CPY#&10:B|
000011a0  4e 45 67 65 3a 4c 44 59  23 30 3a 4c 44 41 26 37  |NEge:LDY#0:LDA&7|
000011b0  30 3a 43 4c 43 3a 41 44  43 23 38 3a 53 54 41 26  |0:CLC:ADC#8:STA&|
000011c0  37 32 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |72:LDA&71:ADC#0:|
000011d0  53 54 41 26 37 33 3a 2e  65 67 3a 4c 44 41 23 26  |STA&73:.eg:LDA#&|
000011e0  30 30 3a 53 54 41 28 26  37 32 29 2c 59 3a 4a 53  |00:STA(&72),Y:JS|
000011f0  52 74 73 74 3a 49 4e 58  3a 49 4e 59 3a 43 50 59  |Rtst:INX:INY:CPY|
00001200  23 26 31 30 3a 42 4e 45  65 67 0d 01 40 70 4c 44  |#&10:BNEeg..@pLD|
00001210  59 23 30 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |Y#0:LDA&70:CLC:A|
00001220  44 43 23 26 31 30 3a 53  54 41 26 37 32 3a 4c 44  |DC#&10:STA&72:LD|
00001230  41 26 37 31 3a 41 44 43  23 30 30 3a 53 54 41 26  |A&71:ADC#00:STA&|
00001240  37 33 3a 2e 68 65 3a 4c  44 41 23 26 30 30 3a 53  |73:.he:LDA#&00:S|
00001250  54 41 28 26 37 32 29 2c  59 3a 4a 53 52 74 73 74  |TA(&72),Y:JSRtst|
00001260  3a 49 4e 58 3a 49 4e 59  3a 43 50 59 23 26 31 30  |:INX:INY:CPY#&10|
00001270  3a 42 4e 45 68 65 3a 52  54 53 0d 01 4a c9 2e 74  |:BNEhe:RTS..J..t|
00001280  73 74 3a 53 54 59 26 37  34 3a 4c 44 41 26 37 32  |st:STY&74:LDA&72|
00001290  3a 43 4c 43 3a 41 44 43  26 37 34 3a 53 54 41 26  |:CLC:ADC&74:STA&|
000012a0  37 35 3a 4c 44 41 26 37  35 3a 80 23 37 3a 43 4d  |75:LDA&75:.#7:CM|
000012b0  50 23 37 3a 42 45 51 62  6f 74 3a 52 54 53 3a 2e  |P#7:BEQbot:RTS:.|
000012c0  62 6f 74 3a 4c 44 41 26  37 32 3a 43 4c 43 3a 41  |bot:LDA&72:CLC:A|
000012d0  44 43 23 26 33 38 3a 53  54 41 26 37 32 3a 4c 44  |DC#&38:STA&72:LD|
000012e0  41 26 37 33 3a 41 44 43  23 31 3a 53 54 41 26 37  |A&73:ADC#1:STA&7|
000012f0  33 3a 52 54 53 3a 2e 73  70 63 3a 4c 44 41 23 26  |3:RTS:.spc:LDA#&|
00001300  30 46 3a 4c 44 58 23 31  3a 4c 44 59 23 30 3a 4a  |0F:LDX#1:LDY#0:J|
00001310  53 52 26 46 46 45 45 3a  4c 44 41 23 26 38 31 3a  |SR&FFEE:LDA#&81:|
00001320  4c 44 58 23 26 39 44 3a  4c 44 59 23 26 46 46 3a  |LDX#&9D:LDY#&FF:|
00001330  4a 53 52 26 46 46 46 34  3a 42 43 53 63 70 73 3a  |JSR&FFF4:BCScps:|
00001340  52 54 53 0d 01 54 7f 2e  63 70 73 3a 4c 44 41 23  |RTS..T..cps:LDA#|
00001350  26 30 43 3a 4a 53 52 26  46 46 45 45 3a 4a 53 52  |&0C:JSR&FFEE:JSR|
00001360  73 79 6e 63 3a 4a 53 52  73 79 6e 63 3a 4a 53 52  |sync:JSRsync:JSR|
00001370  67 6f 3a 52 54 53 3a 2e  78 3a 4c 44 41 23 26 30  |go:RTS:.x:LDA#&0|
00001380  46 3a 4c 44 58 23 31 3a  4c 44 59 23 30 3a 4a 53  |F:LDX#1:LDY#0:JS|
00001390  52 26 46 46 45 45 3a 4c  44 41 23 26 38 31 3a 4c  |R&FFEE:LDA#&81:L|
000013a0  44 58 23 26 42 44 3a 4c  44 59 23 26 46 46 3a 4a  |DX#&BD:LDY#&FF:J|
000013b0  53 52 26 46 46 46 34 3a  42 43 53 65 66 74 3a 52  |SR&FFF4:BCSeft:R|
000013c0  54 53 0d 01 5e ea 2e 65  66 74 3a 4c 44 41 26 39  |TS..^..eft:LDA&9|
000013d0  30 30 3a 43 4d 50 23 32  36 3a 42 4e 45 6c 65 66  |00:CMP#26:BNElef|
000013e0  74 3a 52 54 53 3a 2e 6c  65 66 74 3a 49 4e 43 26  |t:RTS:.left:INC&|
000013f0  39 30 30 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |900:LDA&70:CLC:A|
00001400  44 43 23 38 3a 53 54 41  26 37 30 3a 4c 44 41 26  |DC#8:STA&70:LDA&|
00001410  37 31 3a 41 44 43 23 26  30 30 3a 53 54 41 26 37  |71:ADC#&00:STA&7|
00001420  31 3a 52 54 53 3a 2e 64  3a 4c 44 41 23 26 30 46  |1:RTS:.d:LDA#&0F|
00001430  3a 4c 44 58 23 31 3a 4c  44 59 23 30 3a 4a 53 52  |:LDX#1:LDY#0:JSR|
00001440  26 46 46 45 45 3a 4c 44  41 23 26 38 31 3a 4c 44  |&FFEE:LDA#&81:LD|
00001450  58 23 26 39 37 3a 4c 44  59 23 26 46 46 3a 4a 53  |X#&97:LDY#&FF:JS|
00001460  52 26 46 46 46 34 3a 42  43 53 6e 64 3a 52 54 53  |R&FFF4:BCSnd:RTS|
00001470  3a 2e 6e 64 3a 4c 44 41  26 39 30 34 3a 43 4d 50  |:.nd:LDA&904:CMP|
00001480  23 30 36 3a 42 45 51 73  6d 73 3a 43 4d 50 23 26  |#06:BEQsms:CMP#&|
00001490  30 33 3a 42 4e 45 64 6e  3a 52 54 53 3a 2e 73 6d  |03:BNEdn:RTS:.sm|
000014a0  73 3a 4a 53 52 70 6f 70  3a 52 54 53 0d 01 68 be  |s:JSRpop:RTS..h.|
000014b0  2e 64 6e 3a 44 45 43 26  39 30 34 3a 4c 44 41 26  |.dn:DEC&904:LDA&|
000014c0  37 30 3a 43 4c 43 3a 41  44 43 23 26 34 30 3a 53  |70:CLC:ADC#&40:S|
000014d0  54 41 26 37 30 3a 4c 44  41 26 37 31 3a 41 44 43  |TA&70:LDA&71:ADC|
000014e0  23 26 30 31 3a 53 54 41  26 37 31 3a 52 54 53 3a  |#&01:STA&71:RTS:|
000014f0  2e 6e 74 72 3a 4c 44 41  26 39 31 30 3a 42 45 51  |.ntr:LDA&910:BEQ|
00001500  72 74 6e 3a 52 54 53 3a  2e 72 74 6e 3a 4c 44 41  |rtn:RTS:.rtn:LDA|
00001510  23 26 30 46 3a 4c 44 58  23 31 3a 4c 44 59 23 30  |#&0F:LDX#1:LDY#0|
00001520  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 26 38  |:JSR&FFEE:LDA#&8|
00001530  31 3a 4c 44 58 23 26 42  36 3a 4c 44 59 23 26 46  |1:LDX#&B6:LDY#&F|
00001540  46 3a 4a 53 52 26 46 46  46 34 3a 42 43 53 67 7a  |F:JSR&FFF4:BCSgz|
00001550  3a 52 54 53 3a 2e 67 7a  3a 4c 44 41 23 31 3a 53  |:RTS:.gz:LDA#1:S|
00001560  54 41 26 39 31 30 3a 52  54 53 0d 01 72 b7 2e 7a  |TA&910:RTS..r..z|
00001570  3a 4c 44 41 23 26 30 46  3a 4c 44 58 23 31 3a 4c  |:LDA#&0F:LDX#1:L|
00001580  44 59 23 30 3a 4a 53 52  26 46 46 45 45 3a 4c 44  |DY#0:JSR&FFEE:LD|
00001590  41 23 26 38 31 3a 4c 44  58 23 26 39 45 3a 4c 44  |A#&81:LDX#&9E:LD|
000015a0  59 23 26 46 46 3a 4a 53  52 26 46 46 46 34 3a 42  |Y#&FF:JSR&FFF4:B|
000015b0  43 53 69 74 65 3a 52 54  53 3a 2e 69 74 65 3a 4c  |CSite:RTS:.ite:L|
000015c0  44 41 26 39 30 30 3a 43  4d 50 23 30 35 3a 42 4e  |DA&900:CMP#05:BN|
000015d0  45 72 69 74 65 3a 52 54  53 3a 2e 72 69 74 65 3a  |Erite:RTS:.rite:|
000015e0  44 45 43 26 39 30 30 3a  4c 44 41 26 37 30 3a 53  |DEC&900:LDA&70:S|
000015f0  45 43 3a 53 42 43 23 38  3a 53 54 41 26 37 30 3a  |EC:SBC#8:STA&70:|
00001600  4c 44 41 26 37 31 3a 53  42 43 23 26 30 30 3a 53  |LDA&71:SBC#&00:S|
00001610  54 41 26 37 31 3a 4c 44  41 26 39 30 37 3a 52 54  |TA&71:LDA&907:RT|
00001620  53 0d 01 7c ab 2e 75 3a  4c 44 41 23 26 30 46 3a  |S..|..u:LDA#&0F:|
00001630  4c 44 58 23 31 3a 4c 44  59 23 30 3a 4a 53 52 26  |LDX#1:LDY#0:JSR&|
00001640  46 46 45 45 3a 4c 44 41  23 26 38 31 3a 4c 44 58  |FFEE:LDA#&81:LDX|
00001650  23 26 42 37 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |#&B7:LDY#&FF:JSR|
00001660  26 46 46 46 34 3a 42 43  53 70 75 3a 52 54 53 3a  |&FFF4:BCSpu:RTS:|
00001670  2e 70 75 3a 4c 44 41 26  39 30 34 3a 43 4d 50 23  |.pu:LDA&904:CMP#|
00001680  31 35 3a 42 4e 45 75 70  3a 52 54 53 3a 2e 75 70  |15:BNEup:RTS:.up|
00001690  3a 49 4e 43 26 39 30 34  3a 4c 44 41 26 37 30 3a  |:INC&904:LDA&70:|
000016a0  53 45 43 3a 53 42 43 23  26 34 30 3a 53 54 41 26  |SEC:SBC#&40:STA&|
000016b0  37 30 3a 4c 44 41 26 37  31 3a 53 42 43 23 26 30  |70:LDA&71:SBC#&0|
000016c0  31 3a 53 54 41 26 37 31  3a 52 54 53 0d 01 86 8a  |1:STA&71:RTS....|
000016d0  2e 73 79 6e 63 3a 4c 44  41 23 26 31 33 3a 4a 53  |.sync:LDA#&13:JS|
000016e0  52 26 46 46 46 34 3a 52  54 53 3a 2e 65 74 3a 4c  |R&FFF4:RTS:.et:L|
000016f0  44 59 23 30 3a 2e 74 65  3a 4c 44 41 26 35 36 34  |DY#0:.te:LDA&564|
00001700  35 2c 59 3a 53 54 41 28  26 37 36 29 2c 59 3a 49  |5,Y:STA(&76),Y:I|
00001710  4e 59 3a 43 50 59 23 26  30 38 3a 42 4e 45 74 65  |NY:CPY#&08:BNEte|
00001720  3a 4c 44 59 23 30 3a 2e  71 66 3a 4c 44 41 26 35  |:LDY#0:.qf:LDA&5|
00001730  36 34 43 2c 59 3a 53 54  41 28 26 37 38 29 2c 59  |64C,Y:STA(&78),Y|
00001740  3a 49 4e 59 3a 43 50 59  23 26 30 38 3a 42 4e 45  |:INY:CPY#&08:BNE|
00001750  71 66 3a 52 54 53 0d 01  90 db 2e 6e 69 3a 4c 44  |qf:RTS.....ni:LD|
00001760  59 23 30 3a 2e 69 6e 3a  4c 44 41 26 35 36 33 34  |Y#0:.in:LDA&5634|
00001770  2c 59 3a 53 54 41 28 26  37 36 29 2c 59 3a 49 4e  |,Y:STA(&76),Y:IN|
00001780  59 3a 43 50 59 23 26 30  38 3a 42 4e 45 69 6e 3a  |Y:CPY#&08:BNEin:|
00001790  4c 44 59 23 30 3a 2e 68  78 3a 4c 44 41 26 35 36  |LDY#0:.hx:LDA&56|
000017a0  33 42 2c 59 3a 53 54 41  28 26 37 38 29 2c 59 3a  |3B,Y:STA(&78),Y:|
000017b0  49 4e 59 3a 43 50 59 23  26 30 38 3a 42 4e 45 68  |INY:CPY#&08:BNEh|
000017c0  78 3a 52 54 53 3a 2e 74  6e 3a 4c 44 59 23 30 3a  |x:RTS:.tn:LDY#0:|
000017d0  2e 6e 74 3a 4c 44 41 26  35 36 32 33 2c 59 3a 53  |.nt:LDA&5623,Y:S|
000017e0  54 41 28 26 37 36 29 2c  59 3a 49 4e 59 3a 43 50  |TA(&76),Y:INY:CP|
000017f0  59 23 26 30 38 3a 42 4e  45 6e 74 3a 4c 44 59 23  |Y#&08:BNEnt:LDY#|
00001800  30 3a 2e 78 68 3a 4c 44  41 26 35 36 32 41 2c 59  |0:.xh:LDA&562A,Y|
00001810  3a 53 54 41 28 26 37 38  29 2c 59 3a 49 4e 59 3a  |:STA(&78),Y:INY:|
00001820  43 50 59 23 26 30 38 3a  42 4e 45 78 68 3a 52 54  |CPY#&08:BNExh:RT|
00001830  53 0d 01 9a 6f 2e 73 78  3a 4c 44 59 23 30 3a 2e  |S...o.sx:LDY#0:.|
00001840  78 73 3a 4c 44 41 26 35  36 36 37 2c 59 3a 53 54  |xs:LDA&5667,Y:ST|
00001850  41 28 26 37 36 29 2c 59  3a 49 4e 59 3a 43 50 59  |A(&76),Y:INY:CPY|
00001860  23 26 30 38 3a 42 4e 45  78 73 3a 4c 44 59 23 30  |#&08:BNExs:LDY#0|
00001870  3a 2e 66 71 3a 4c 44 41  26 35 36 36 45 2c 59 3a  |:.fq:LDA&566E,Y:|
00001880  53 54 41 28 26 37 38 29  2c 59 3a 49 4e 59 3a 43  |STA(&78),Y:INY:C|
00001890  50 59 23 26 30 38 3a 42  4e 45 66 71 3a 52 54 53  |PY#&08:BNEfq:RTS|
000018a0  0d 01 a4 91 2e 70 72 6e  74 3a 4c 44 41 28 26 37  |.....prnt:LDA(&7|
000018b0  41 29 2c 59 3a 43 4d 50  23 36 3a 42 45 51 73 78  |A),Y:CMP#6:BEQsx|
000018c0  3a 43 4d 50 23 37 3a 42  45 51 73 76 3a 43 4d 50  |:CMP#7:BEQsv:CMP|
000018d0  23 38 3a 42 45 51 65 74  3a 43 4d 50 23 39 3a 42  |#8:BEQet:CMP#9:B|
000018e0  45 51 6e 69 3a 43 4d 50  23 31 30 3a 42 45 51 74  |EQni:CMP#10:BEQt|
000018f0  6e 3a 43 4d 50 23 31 3a  42 45 51 6f 6e 3a 43 4d  |n:CMP#1:BEQon:CM|
00001900  50 23 32 3a 42 45 51 77  74 3a 43 4d 50 23 33 3a  |P#2:BEQwt:CMP#3:|
00001910  42 45 51 74 72 3a 43 4d  50 23 34 3a 42 45 51 72  |BEQtr:CMP#4:BEQr|
00001920  66 3a 43 4d 50 23 35 3a  42 45 51 66 76 3a 52 54  |f:CMP#5:BEQfv:RT|
00001930  53 0d 01 ae d9 2e 74 72  3a 4c 44 59 23 30 3a 2e  |S.....tr:LDY#0:.|
00001940  72 74 3a 4c 44 41 26 35  36 39 41 2c 59 3a 53 54  |rt:LDA&569A,Y:ST|
00001950  41 28 26 37 36 29 2c 59  3a 49 4e 59 3a 43 50 59  |A(&76),Y:INY:CPY|
00001960  23 26 30 38 3a 42 4e 45  72 74 3a 4c 44 59 23 30  |#&08:BNErt:LDY#0|
00001970  3a 2e 74 3a 4c 44 41 26  35 36 41 31 2c 59 3a 53  |:.t:LDA&56A1,Y:S|
00001980  54 41 28 26 37 38 29 2c  59 3a 49 4e 59 3a 43 50  |TA(&78),Y:INY:CP|
00001990  59 23 26 30 38 3a 42 4e  45 74 3a 52 54 53 3a 2e  |Y#&08:BNEt:RTS:.|
000019a0  73 76 3a 4c 44 59 23 30  3a 2e 6b 61 3a 4c 44 41  |sv:LDY#0:.ka:LDA|
000019b0  26 35 36 35 36 2c 59 3a  53 54 41 28 26 37 36 29  |&5656,Y:STA(&76)|
000019c0  2c 59 3a 49 4e 59 3a 43  50 59 23 26 30 38 3a 42  |,Y:INY:CPY#&08:B|
000019d0  4e 45 6b 61 3a 4c 44 59  23 30 3a 2e 61 6b 3a 4c  |NEka:LDY#0:.ak:L|
000019e0  44 41 26 35 36 35 44 2c  59 3a 53 54 41 28 26 37  |DA&565D,Y:STA(&7|
000019f0  38 29 2c 59 3a 49 4e 59  3a 43 50 59 23 26 30 38  |8),Y:INY:CPY#&08|
00001a00  3a 42 4e 45 61 6b 3a 52  54 53 0d 01 b8 d7 2e 6f  |:BNEak:RTS.....o|
00001a10  6e 3a 4c 44 59 23 30 3a  2e 6e 6f 3a 4c 44 41 26  |n:LDY#0:.no:LDA&|
00001a20  35 36 42 43 2c 59 3a 53  54 41 28 26 37 36 29 2c  |56BC,Y:STA(&76),|
00001a30  59 3a 49 4e 59 3a 43 50  59 23 26 30 38 3a 42 4e  |Y:INY:CPY#&08:BN|
00001a40  45 6e 6f 3a 4c 44 59 23  30 3a 2e 6f 3a 4c 44 41  |Eno:LDY#0:.o:LDA|
00001a50  26 35 36 43 33 2c 59 3a  53 54 41 28 26 37 38 29  |&56C3,Y:STA(&78)|
00001a60  2c 59 3a 49 4e 59 3a 43  50 59 23 26 30 38 3a 42  |,Y:INY:CPY#&08:B|
00001a70  4e 45 6f 3a 52 54 53 3a  2e 77 74 3a 4c 44 59 23  |NEo:RTS:.wt:LDY#|
00001a80  30 3a 2e 74 77 3a 4c 44  41 26 35 36 41 42 2c 59  |0:.tw:LDA&56AB,Y|
00001a90  3a 53 54 41 28 26 37 36  29 2c 59 3a 49 4e 59 3a  |:STA(&76),Y:INY:|
00001aa0  43 50 59 23 26 30 38 3a  42 4e 45 74 77 3a 4c 44  |CPY#&08:BNEtw:LD|
00001ab0  59 23 30 3a 2e 77 3a 4c  44 41 26 35 36 42 32 2c  |Y#0:.w:LDA&56B2,|
00001ac0  59 3a 53 54 41 28 26 37  38 29 2c 59 3a 49 4e 59  |Y:STA(&78),Y:INY|
00001ad0  3a 43 50 59 23 26 30 38  3a 42 4e 45 77 3a 52 54  |:CPY#&08:BNEw:RT|
00001ae0  53 0d 01 c2 d7 2e 72 66  3a 4c 44 59 23 30 3a 2e  |S.....rf:LDY#0:.|
00001af0  66 72 3a 4c 44 41 26 35  36 38 39 2c 59 3a 53 54  |fr:LDA&5689,Y:ST|
00001b00  41 28 26 37 36 29 2c 59  3a 49 4e 59 3a 43 50 59  |A(&76),Y:INY:CPY|
00001b10  23 26 30 38 3a 42 4e 45  66 72 3a 4c 44 59 23 30  |#&08:BNEfr:LDY#0|
00001b20  3a 2e 72 3a 4c 44 41 26  35 36 39 30 2c 59 3a 53  |:.r:LDA&5690,Y:S|
00001b30  54 41 28 26 37 38 29 2c  59 3a 49 4e 59 3a 43 50  |TA(&78),Y:INY:CP|
00001b40  59 23 26 30 38 3a 42 4e  45 72 3a 52 54 53 3a 2e  |Y#&08:BNEr:RTS:.|
00001b50  66 76 3a 4c 44 59 23 30  3a 2e 76 66 3a 4c 44 41  |fv:LDY#0:.vf:LDA|
00001b60  26 35 36 37 38 2c 59 3a  53 54 41 28 26 37 36 29  |&5678,Y:STA(&76)|
00001b70  2c 59 3a 49 4e 59 3a 43  50 59 23 26 30 38 3a 42  |,Y:INY:CPY#&08:B|
00001b80  4e 45 76 66 3a 4c 44 59  23 30 3a 2e 66 3a 4c 44  |NEvf:LDY#0:.f:LD|
00001b90  41 26 35 36 37 46 2c 59  3a 53 54 41 28 26 37 38  |A&567F,Y:STA(&78|
00001ba0  29 2c 59 3a 49 4e 59 3a  43 50 59 23 26 30 38 3a  |),Y:INY:CPY#&08:|
00001bb0  42 4e 45 66 3a 52 54 53  0d 01 cc 95 2e 73 63 72  |BNEf:RTS.....scr|
00001bc0  3a 4c 44 58 23 30 3a 2e  67 70 3a 4a 53 52 70 72  |:LDX#0:.gp:JSRpr|
00001bd0  6e 74 3a 4a 53 52 6d 6f  72 65 3a 4a 53 52 65 72  |nt:JSRmore:JSRer|
00001be0  6f 6d 3a 49 4e 58 3a 43  50 58 23 26 32 30 3a 42  |om:INX:CPX#&20:B|
00001bf0  4e 45 67 70 3a 4a 53 52  6f 72 69 67 3a 4a 53 52  |NEgp:JSRorig:JSR|
00001c00  6d 72 6b 3a 52 54 53 3a  2e 6f 72 69 67 3a 4c 44  |mrk:RTS:.orig:LD|
00001c10  41 23 26 37 37 3a 53 54  41 26 37 37 3a 4c 44 41  |A#&77:STA&77:LDA|
00001c20  23 26 36 30 3a 53 54 41  26 37 36 3a 4c 44 41 23  |#&60:STA&76:LDA#|
00001c30  26 37 38 3a 53 54 41 26  37 39 3a 4c 44 41 23 26  |&78:STA&79:LDA#&|
00001c40  41 30 3a 53 54 41 26 37  38 3a 52 54 53 0d 01 d6  |A0:STA&78:RTS...|
00001c50  a7 2e 6d 6f 72 65 3a 4c  44 41 26 37 36 3a 43 4c  |..more:LDA&76:CL|
00001c60  43 3a 41 44 43 23 26 30  38 3a 53 54 41 26 37 36  |C:ADC#&08:STA&76|
00001c70  3a 4c 44 41 26 37 37 3a  41 44 43 23 26 30 30 3a  |:LDA&77:ADC#&00:|
00001c80  53 54 41 26 37 37 3a 4c  44 41 26 37 38 3a 43 4c  |STA&77:LDA&78:CL|
00001c90  43 3a 41 44 43 23 26 30  38 3a 53 54 41 26 37 38  |C:ADC#&08:STA&78|
00001ca0  3a 4c 44 41 26 37 39 3a  41 44 43 23 26 30 30 3a  |:LDA&79:ADC#&00:|
00001cb0  53 54 41 26 37 39 3a 52  54 53 3a 2e 65 72 6f 6d  |STA&79:RTS:.erom|
00001cc0  3a 4c 44 41 26 37 41 3a  43 4c 43 3a 41 44 43 23  |:LDA&7A:CLC:ADC#|
00001cd0  26 30 31 3a 53 54 41 26  37 41 3a 4c 44 41 26 37  |&01:STA&7A:LDA&7|
00001ce0  42 3a 41 44 43 23 26 30  30 3a 53 54 41 26 37 42  |B:ADC#&00:STA&7B|
00001cf0  3a 52 54 53 0d 01 e0 eb  2e 6d 72 6b 3a 4c 44 41  |:RTS.....mrk:LDA|
00001d00  26 37 41 3a 53 45 43 3a  53 42 43 23 26 31 46 3a  |&7A:SEC:SBC#&1F:|
00001d10  53 54 41 26 37 41 3a 4c  44 41 26 37 42 3a 53 42  |STA&7A:LDA&7B:SB|
00001d20  43 23 26 30 30 3a 53 54  41 26 37 42 3a 49 4e 43  |C#&00:STA&7B:INC|
00001d30  26 39 30 35 3a 4c 44 41  26 39 30 35 3a 43 4d 50  |&905:LDA&905:CMP|
00001d40  23 26 44 30 3a 42 45 51  6b 72 6d 3a 52 54 53 3a  |#&D0:BEQkrm:RTS:|
00001d50  2e 6b 72 6d 3a 4c 44 41  23 30 3a 53 54 41 26 39  |.krm:LDA#0:STA&9|
00001d60  30 35 3a 4c 44 41 23 26  32 38 3a 53 54 41 26 37  |05:LDA#&28:STA&7|
00001d70  41 3a 4c 44 41 23 26 35  35 3a 53 54 41 26 37 42  |A:LDA#&55:STA&7B|
00001d80  3a 52 54 53 3a 2e 68 69  74 3a 4c 44 41 26 39 30  |:RTS:.hit:LDA&90|
00001d90  30 3a 43 4d 50 26 39 30  41 3a 42 45 51 74 69 68  |0:CMP&90A:BEQtih|
00001da0  3a 52 54 53 3a 2e 74 69  68 3a 4c 44 41 26 39 30  |:RTS:.tih:LDA&90|
00001db0  34 3a 43 4d 50 26 39 30  44 3a 42 45 51 70 6f 70  |4:CMP&90D:BEQpop|
00001dc0  3a 4c 44 58 26 39 30 34  3a 44 45 58 3a 43 50 58  |:LDX&904:DEX:CPX|
00001dd0  26 39 30 44 3a 42 45 51  70 6f 70 3a 52 54 53 0d  |&90D:BEQpop:RTS.|
00001de0  01 ea a3 2e 70 6f 70 3a  49 4e 43 26 39 33 31 3a  |....pop:INC&931:|
00001df0  4a 53 52 61 62 74 3a 2e  64 61 3a 4a 53 52 73 63  |JSRabt:.da:JSRsc|
00001e00  72 3a 4a 53 52 73 79 6e  63 3a 4a 53 52 6f 6f 70  |r:JSRsync:JSRoop|
00001e10  3a 4a 53 52 73 70 63 3a  4a 4d 50 64 61 3a 52 54  |:JSRspc:JMPda:RT|
00001e20  53 3a 2e 6f 6f 70 3a 4c  44 41 26 39 30 34 3a 43  |S:.oop:LDA&904:C|
00001e30  4d 50 23 33 3a 42 4e 45  70 6f 6f 3a 4a 53 52 74  |MP#3:BNEpoo:JSRt|
00001e40  61 6b 3a 52 54 53 3a 2e  70 6f 6f 3a 4a 53 52 73  |ak:RTS:.poo:JSRs|
00001e50  79 6e 63 3a 4a 53 52 65  78 70 6c 3a 4a 53 52 73  |ync:JSRexpl:JSRs|
00001e60  79 6e 63 3a 4a 53 52 62  6c 6b 3a 4a 53 52 69 74  |ync:JSRblk:JSRit|
00001e70  65 3a 4a 53 52 69 74 65  3a 4a 53 52 64 6e 3a 52  |e:JSRite:JSRdn:R|
00001e80  54 53 0d 01 f4 63 2e 74  61 6b 3a 4a 53 52 72 6f  |TS...c.tak:JSRro|
00001e90  63 3a 49 4e 43 26 39 30  42 3a 4c 44 41 26 39 30  |c:INC&90B:LDA&90|
00001ea0  42 3a 43 4d 50 23 31 34  3a 42 45 51 70 6f 69 3a  |B:CMP#14:BEQpoi:|
00001eb0  43 4d 50 23 31 35 3a 42  45 51 67 72 64 3a 43 4d  |CMP#15:BEQgrd:CM|
00001ec0  50 23 33 30 3a 42 45 51  6a 77 3a 52 54 53 3a 2e  |P#30:BEQjw:RTS:.|
00001ed0  70 6f 69 3a 4a 53 52 63  6f 72 3a 4a 4d 50 74 61  |poi:JSRcor:JMPta|
00001ee0  6b 3a 52 54 53 0d 01 fe  e5 2e 67 72 64 3a 4a 53  |k:RTS.....grd:JS|
00001ef0  52 6d 65 73 73 3a 4a 53  52 67 75 61 72 64 3a 52  |Rmess:JSRguard:R|
00001f00  54 53 3a 2e 6a 77 3a 4c  44 41 23 30 3a 53 54 41  |TS:.jw:LDA#0:STA|
00001f10  26 39 30 42 3a 4a 53 52  6a 61 77 3a 52 54 53 3a  |&90B:JSRjaw:RTS:|
00001f20  2e 69 73 6d 3a 4c 44 41  26 37 43 3a 53 45 43 3a  |.ism:LDA&7C:SEC:|
00001f30  53 42 43 23 26 30 38 3a  53 54 41 26 37 43 3a 4c  |SBC#&08:STA&7C:L|
00001f40  44 41 26 37 44 3a 53 42  43 23 26 30 30 3a 53 54  |DA&7D:SBC#&00:ST|
00001f50  41 26 37 44 3a 44 45 43  26 39 30 41 3a 4c 44 41  |A&7D:DEC&90A:LDA|
00001f60  26 39 30 41 3a 43 4d 50  23 26 30 31 3a 42 45 51  |&90A:CMP#&01:BEQ|
00001f70  77 77 77 3a 52 54 53 3a  2e 77 77 77 3a 4a 53 52  |www:RTS:.www:JSR|
00001f80  6b 6b 6b 3a 4a 53 52 77  6d 6c 3a 52 54 53 3a 2e  |kkk:JSRwml:RTS:.|
00001f90  75 75 3a 4a 53 52 6b 6b  6b 3a 4c 44 41 23 26 38  |uu:JSRkkk:LDA#&8|
00001fa0  38 3a 53 54 41 26 37 43  3a 4c 44 41 23 26 36 46  |8:STA&7C:LDA#&6F|
00001fb0  3a 53 54 41 26 37 44 3a  4c 44 41 23 31 31 3a 53  |:STA&7D:LDA#11:S|
00001fc0  54 41 26 39 30 44 3a 52  54 53 0d 02 08 bf 2e 77  |TA&90D:RTS.....w|
00001fd0  6d 6c 3a 49 4e 43 26 39  30 43 3a 4c 44 41 26 39  |ml:INC&90C:LDA&9|
00001fe0  30 43 3a 43 4d 50 23 31  30 3a 42 45 51 6e 69 6c  |0C:CMP#10:BEQnil|
00001ff0  3a 4c 44 41 23 32 39 3a  53 54 41 26 39 30 41 3a  |:LDA#29:STA&90A:|
00002000  4c 44 41 26 39 31 43 3a  43 4d 50 23 26 46 46 3a  |LDA&91C:CMP#&FF:|
00002010  42 45 51 75 75 3a 49 4e  43 26 39 30 45 3a 4c 44  |BEQuu:INC&90E:LD|
00002020  41 26 39 30 45 3a 43 4d  50 23 31 3a 42 45 51 62  |A&90E:CMP#1:BEQb|
00002030  72 3a 43 4d 50 23 32 3a  42 45 51 72 62 3a 43 4d  |r:CMP#2:BEQrb:CM|
00002040  50 23 33 3a 42 45 51 66  69 3a 43 4d 50 23 34 3a  |P#3:BEQfi:CMP#4:|
00002050  42 45 51 69 66 3a 43 4d  50 23 35 3a 42 45 51 6a  |BEQif:CMP#5:BEQj|
00002060  72 3a 43 4d 50 23 36 3a  42 45 51 68 76 3a 43 4d  |r:CMP#6:BEQhv:CM|
00002070  50 23 37 3a 42 45 51 6a  71 3a 43 4d 50 23 38 3a  |P#7:BEQjq:CMP#8:|
00002080  42 45 51 71 6a 3a 52 54  53 0d 02 12 bf 2e 6e 69  |BEQqj:RTS.....ni|
00002090  6c 3a 4c 44 41 23 30 3a  53 54 41 26 39 30 43 3a  |l:LDA#0:STA&90C:|
000020a0  4a 4d 50 77 6d 6c 3a 52  54 53 3a 2e 62 72 3a 4c  |JMPwml:RTS:.br:L|
000020b0  44 41 23 26 44 30 3a 53  54 41 26 37 43 3a 4c 44  |DA#&D0:STA&7C:LD|
000020c0  41 23 26 37 30 3a 53 54  41 26 37 44 3a 4c 44 41  |A#&70:STA&7D:LDA|
000020d0  23 31 30 3a 53 54 41 26  39 30 44 3a 52 54 53 3a  |#10:STA&90D:RTS:|
000020e0  2e 72 62 3a 4c 44 41 23  26 31 30 3a 53 54 41 26  |.rb:LDA#&10:STA&|
000020f0  37 43 3a 4c 44 41 23 26  36 44 3a 53 54 41 26 37  |7C:LDA#&6D:STA&7|
00002100  44 3a 4c 44 41 23 31 33  3a 53 54 41 26 39 30 44  |D:LDA#13:STA&90D|
00002110  3a 52 54 53 3a 2e 66 69  3a 4c 44 41 23 26 35 30  |:RTS:.fi:LDA#&50|
00002120  3a 53 54 41 26 37 43 3a  4c 44 41 23 26 37 33 3a  |:STA&7C:LDA#&73:|
00002130  53 54 41 26 37 44 3a 4c  44 41 23 38 3a 53 54 41  |STA&7D:LDA#8:STA|
00002140  26 39 30 44 3a 52 54 53  0d 02 1c d6 2e 69 66 3a  |&90D:RTS.....if:|
00002150  4c 44 41 23 26 39 30 3a  53 54 41 26 37 43 3a 4c  |LDA#&90:STA&7C:L|
00002160  44 41 23 26 36 46 3a 53  54 41 26 37 44 3a 4c 44  |DA#&6F:STA&7D:LD|
00002170  41 23 31 31 3a 53 54 41  26 39 30 44 3a 52 54 53  |A#11:STA&90D:RTS|
00002180  3a 2e 6a 72 3a 4c 44 41  23 26 44 30 3a 53 54 41  |:.jr:LDA#&D0:STA|
00002190  26 37 43 3a 4c 44 41 23  26 36 42 3a 53 54 41 26  |&7C:LDA#&6B:STA&|
000021a0  37 44 3a 4c 44 41 23 31  34 3a 53 54 41 26 39 30  |7D:LDA#14:STA&90|
000021b0  44 3a 52 54 53 3a 2e 68  76 3a 4c 44 41 23 26 39  |D:RTS:.hv:LDA#&9|
000021c0  30 3a 53 54 41 26 37 43  3a 4c 44 41 23 26 37 34  |0:STA&7C:LDA#&74|
000021d0  3a 53 54 41 26 37 44 3a  4c 44 41 23 37 3a 53 54  |:STA&7D:LDA#7:ST|
000021e0  41 26 39 30 44 3a 52 54  53 3a 2e 6a 71 3a 4c 44  |A&90D:RTS:.jq:LD|
000021f0  41 23 26 35 30 3a 53 54  41 26 37 43 3a 4c 44 41  |A#&50:STA&7C:LDA|
00002200  23 26 36 45 3a 53 54 41  26 37 44 3a 4c 44 41 23  |#&6E:STA&7D:LDA#|
00002210  31 32 3a 53 54 41 26 39  30 44 3a 52 54 53 0d 02  |12:STA&90D:RTS..|
00002220  26 c1 2e 71 6a 3a 4c 44  41 23 26 31 30 3a 53 54  |&..qj:LDA#&10:ST|
00002230  41 26 37 43 3a 4c 44 41  23 26 37 32 3a 53 54 41  |A&7C:LDA#&72:STA|
00002240  26 37 44 3a 4c 44 41 23  30 3a 53 54 41 26 39 30  |&7D:LDA#0:STA&90|
00002250  45 3a 4c 44 41 23 39 3a  53 54 41 26 39 30 44 3a  |E:LDA#9:STA&90D:|
00002260  52 54 53 3a 2e 74 61 62  3a 45 51 55 44 26 46 46  |RTS:.tab:EQUD&FF|
00002270  46 31 30 30 30 30 3a 45  51 55 44 26 30 30 30 36  |F10000:EQUD&0006|
00002280  30 30 30 34 3a 52 54 53  3a 2e 61 62 74 3a 4c 44  |0004:RTS:.abt:LD|
00002290  41 23 37 3a 4c 44 58 23  74 61 62 20 83 32 35 36  |A#7:LDX#tab .256|
000022a0  3a 4c 44 59 23 74 61 62  20 81 32 35 36 3a 4a 53  |:LDY#tab .256:JS|
000022b0  52 26 46 46 46 31 3a 52  54 53 3a 2e 62 61 74 3a  |R&FFF1:RTS:.bat:|
000022c0  45 51 55 44 26 30 30 30  31 30 30 30 31 3a 45 51  |EQUD&00010001:EQ|
000022d0  55 44 26 30 30 30 33 30  30 35 30 3a 52 54 53 0d  |UD&00030050:RTS.|
000022e0  02 30 b3 2e 74 62 61 3a  4c 44 41 23 37 3a 4c 44  |.0..tba:LDA#7:LD|
000022f0  58 23 62 61 74 20 83 32  35 36 3a 4c 44 59 23 62  |X#bat .256:LDY#b|
00002300  61 74 20 81 32 35 36 3a  4a 53 52 26 46 46 46 31  |at .256:JSR&FFF1|
00002310  3a 52 54 53 3a 2e 67 78  3a 4c 44 41 23 37 3a 4c  |:RTS:.gx:LDA#7:L|
00002320  44 58 23 78 67 20 83 32  35 36 3a 4c 44 59 23 78  |DX#xg .256:LDY#x|
00002330  67 20 81 32 35 36 3a 4a  53 52 26 46 46 46 31 3a  |g .256:JSR&FFF1:|
00002340  52 54 53 3a 2e 78 67 3a  45 51 55 44 26 46 46 46  |RTS:.xg:EQUD&FFF|
00002350  31 30 30 30 31 3a 45 51  55 44 26 30 30 30 31 30  |10001:EQUD&00010|
00002360  30 31 30 3a 52 54 53 3a  2e 63 6b 3a 4c 44 41 26  |010:RTS:.ck:LDA&|
00002370  39 31 30 3a 43 4d 50 23  31 3a 42 45 51 66 69 72  |910:CMP#1:BEQfir|
00002380  65 3a 43 4d 50 23 32 3a  42 45 51 66 65 72 3a 52  |e:CMP#2:BEQfer:R|
00002390  54 53 0d 02 3a ae 2e 66  69 72 65 3a 4a 53 52 67  |TS..:..fire:JSRg|
000023a0  78 3a 4c 44 41 26 39 30  34 3a 53 54 41 26 39 31  |x:LDA&904:STA&91|
000023b0  33 3a 4c 44 41 26 39 30  34 3a 53 45 43 3a 53 42  |3:LDA&904:SEC:SB|
000023c0  43 23 31 3a 53 54 41 26  39 31 32 3a 4c 44 41 26  |C#1:STA&912:LDA&|
000023d0  39 30 30 3a 43 4c 43 3a  41 44 43 23 33 3a 53 54  |900:CLC:ADC#3:ST|
000023e0  41 26 39 31 31 3a 4c 44  41 26 37 30 3a 43 4c 43  |A&911:LDA&70:CLC|
000023f0  3a 41 44 43 23 26 35 38  3a 53 54 41 26 37 45 3a  |:ADC#&58:STA&7E:|
00002400  4c 44 41 26 37 31 3a 41  44 43 23 26 30 31 3a 53  |LDA&71:ADC#&01:S|
00002410  54 41 26 37 46 3a 4c 44  59 23 30 3a 4c 44 41 23  |TA&7F:LDY#0:LDA#|
00002420  26 36 31 3a 53 54 41 28  26 37 45 29 2c 59 3a 4c  |&61:STA(&7E),Y:L|
00002430  44 41 23 32 3a 53 54 41  26 39 31 30 3a 52 54 53  |DA#2:STA&910:RTS|
00002440  0d 02 44 a6 2e 66 65 72  3a 4a 53 52 63 6f 6c 3a  |..D..fer:JSRcol:|
00002450  49 4e 43 26 39 31 31 3a  4c 44 41 26 39 31 31 3a  |INC&911:LDA&911:|
00002460  43 4d 50 23 33 31 3a 42  45 51 78 6e 3a 43 4d 50  |CMP#31:BEQxn:CMP|
00002470  23 33 32 3a 42 45 51 69  64 3a 4c 44 59 23 30 3a  |#32:BEQid:LDY#0:|
00002480  4c 44 41 23 26 30 30 3a  53 54 41 28 26 37 45 29  |LDA#&00:STA(&7E)|
00002490  2c 59 3a 4c 44 41 26 37  45 3a 43 4c 43 3a 41 44  |,Y:LDA&7E:CLC:AD|
000024a0  43 23 26 30 38 3a 53 54  41 26 37 45 3a 4c 44 41  |C#&08:STA&7E:LDA|
000024b0  26 37 46 3a 41 44 43 23  26 30 30 3a 53 54 41 26  |&7F:ADC#&00:STA&|
000024c0  37 46 3a 4c 44 59 23 30  3a 4c 44 41 23 26 36 31  |7F:LDY#0:LDA#&61|
000024d0  3a 53 54 41 28 26 37 45  29 2c 59 3a 4a 53 52 63  |:STA(&7E),Y:JSRc|
000024e0  6f 6c 3a 52 54 53 0d 02  4e be 2e 69 64 3a 4c 44  |ol:RTS..N..id:LD|
000024f0  41 23 30 3a 53 54 41 26  39 31 30 3a 4a 53 52 68  |A#0:STA&910:JSRh|
00002500  72 74 3a 52 54 53 3a 2e  78 6e 3a 4c 44 41 26 39  |rt:RTS:.xn:LDA&9|
00002510  31 43 3a 43 4d 50 23 26  46 46 3a 42 45 51 6e 78  |1C:CMP#&FF:BEQnx|
00002520  3a 52 54 53 3a 2e 6e 78  3a 4c 44 41 26 39 31 32  |:RTS:.nx:LDA&912|
00002530  3a 43 4d 50 23 31 31 3a  42 45 51 6a 6a 75 3a 43  |:CMP#11:BEQjju:C|
00002540  4d 50 23 31 30 3a 42 45  51 6a 6a 75 3a 52 54 53  |MP#10:BEQjju:RTS|
00002550  3a 2e 6a 6a 75 3a 4a 53  52 66 6c 73 3a 4a 53 52  |:.jju:JSRfls:JSR|
00002560  74 6e 63 3a 49 4e 43 26  39 31 45 3a 4c 44 41 26  |tnc:INC&91E:LDA&|
00002570  39 31 45 3a 43 4d 50 23  31 30 3a 42 45 51 75 6a  |91E:CMP#10:BEQuj|
00002580  6a 3a 52 54 53 3a 2e 75  6a 6a 3a 4a 53 52 62 6c  |j:RTS:.ujj:JSRbl|
00002590  6b 3a 49 4e 43 26 39 32  33 3a 4a 53 52 75 6e 6f  |k:INC&923:JSRuno|
000025a0  3a 52 54 53 0d 02 58 9b  2e 63 6f 6c 3a 4c 44 41  |:RTS..X..col:LDA|
000025b0  26 39 31 31 3a 43 4d 50  26 39 30 41 3a 42 45 51  |&911:CMP&90A:BEQ|
000025c0  67 65 73 3a 52 54 53 3a  2e 67 65 73 3a 4c 44 41  |ges:RTS:.ges:LDA|
000025d0  26 39 31 32 3a 43 4d 50  26 39 30 44 3a 42 45 51  |&912:CMP&90D:BEQ|
000025e0  73 65 67 3a 4c 44 41 26  39 31 33 3a 43 4d 50 26  |seg:LDA&913:CMP&|
000025f0  39 30 44 3a 42 45 51 73  65 67 3a 52 54 53 3a 2e  |90D:BEQseg:RTS:.|
00002600  73 65 67 3a 4a 53 52 69  6e 78 3a 4a 53 52 78 70  |seg:JSRinx:JSRxp|
00002610  6c 3a 4a 53 52 73 79 6e  63 3a 4a 53 52 78 70 6c  |l:JSRsync:JSRxpl|
00002620  3a 4a 53 52 69 64 3a 4a  53 52 61 62 74 3a 4a 53  |:JSRid:JSRabt:JS|
00002630  52 64 73 61 3a 4a 53 52  77 6d 6c 3a 52 54 53 0d  |Rdsa:JSRwml:RTS.|
00002640  02 62 b9 2e 69 6e 78 3a  4c 44 41 26 39 32 46 3a  |.b..inx:LDA&92F:|
00002650  43 4d 50 23 32 30 38 3a  42 45 51 77 64 3a 49 4e  |CMP#208:BEQwd:IN|
00002660  43 26 39 32 46 3a 2e 77  64 3a 52 54 53 3a 2e 64  |C&92F:.wd:RTS:.d|
00002670  73 61 3a 4c 44 41 26 39  30 43 3a 43 4d 50 23 38  |sa:LDA&90C:CMP#8|
00002680  3a 42 45 51 70 70 70 3a  52 54 53 3a 2e 70 70 70  |:BEQppp:RTS:.ppp|
00002690  3a 4a 53 52 6b 6c 62 3a  4c 44 41 26 39 30 41 3a  |:JSRklb:LDA&90A:|
000026a0  43 4c 43 3a 41 44 43 23  26 30 32 3a 53 54 41 26  |CLC:ADC#&02:STA&|
000026b0  39 31 38 3a 4c 44 41 26  39 30 44 3a 53 54 41 26  |918:LDA&90D:STA&|
000026c0  39 31 39 3a 4c 44 41 23  31 3a 53 54 41 26 39 31  |919:LDA#1:STA&91|
000026d0  37 3a 4c 44 41 26 37 43  3a 53 54 41 26 38 34 3a  |7:LDA&7C:STA&84:|
000026e0  4c 44 41 26 37 44 3a 53  54 41 26 38 35 3a 4a 53  |LDA&7D:STA&85:JS|
000026f0  52 64 6f 70 3a 52 54 53  0d 02 6c a1 2e 68 72 74  |Rdop:RTS..l..hrt|
00002700  3a 4c 44 59 23 30 3a 4c  44 41 23 26 30 30 3a 53  |:LDY#0:LDA#&00:S|
00002710  54 41 28 26 37 45 29 2c  59 3a 52 54 53 3a 2e 6d  |TA(&7E),Y:RTS:.m|
00002720  65 73 73 3a 4c 44 58 23  30 3a 2e 76 6f 3a 4c 44  |ess:LDX#0:.vo:LD|
00002730  41 26 35 34 33 30 2c 58  3a 82 26 37 34 30 30 2c  |A&5430,X:.&7400,|
00002740  58 3a 53 54 41 26 37 34  30 30 2c 58 3a 49 4e 58  |X:STA&7400,X:INX|
00002750  3a 43 50 58 23 34 30 3a  42 4e 45 76 6f 3a 52 54  |:CPX#40:BNEvo:RT|
00002760  53 3a 2e 71 71 71 3a 4c  44 41 26 39 31 37 3a 42  |S:.qqq:LDA&917:B|
00002770  4e 45 71 71 70 3a 52 54  53 3a 2e 71 70 70 3a 4c  |NEqqp:RTS:.qpp:L|
00002780  44 41 26 39 30 30 3a 43  4d 50 26 39 31 38 3a 42  |DA&900:CMP&918:B|
00002790  45 51 74 6f 74 3a 52 54  53 0d 02 76 99 2e 71 71  |EQtot:RTS..v..qq|
000027a0  70 3a 4a 53 52 64 6f 70  3a 4c 44 41 26 39 30 34  |p:JSRdop:LDA&904|
000027b0  3a 43 4d 50 26 39 31 39  3a 42 45 51 71 70 70 3a  |:CMP&919:BEQqpp:|
000027c0  4c 44 41 26 39 30 34 3a  53 45 43 3a 53 42 43 23  |LDA&904:SEC:SBC#|
000027d0  26 30 31 3a 53 54 41 26  39 31 41 3a 4c 44 41 26  |&01:STA&91A:LDA&|
000027e0  39 31 41 3a 43 4d 50 26  39 31 39 3a 42 45 51 71  |91A:CMP&919:BEQq|
000027f0  70 70 3a 52 54 53 3a 2e  74 6f 74 3a 4a 53 52 74  |pp:RTS:.tot:JSRt|
00002800  6e 63 3a 4a 53 52 6b 6c  62 3a 4c 44 41 23 30 3a  |nc:JSRklb:LDA#0:|
00002810  53 54 41 26 39 31 37 3a  53 54 41 26 39 31 38 3a  |STA&917:STA&918:|
00002820  53 54 41 26 39 31 39 3a  4a 53 52 74 62 61 3a 52  |STA&919:JSRtba:R|
00002830  54 53 0d 02 80 90 2e 63  6e 74 3a 4a 53 52 6c 67  |TS.....cnt:JSRlg|
00002840  3a 4c 44 58 23 30 3a 2e  67 67 3a 4c 44 59 23 30  |:LDX#0:.gg:LDY#0|
00002850  3a 2e 68 68 3a 4c 44 41  23 26 36 30 3a 53 54 41  |:.hh:LDA#&60:STA|
00002860  28 26 38 36 29 2c 59 3a  49 4e 59 3a 43 50 59 23  |(&86),Y:INY:CPY#|
00002870  34 3a 42 4e 45 68 68 3a  4c 44 41 26 38 36 3a 43  |4:BNEhh:LDA&86:C|
00002880  4c 43 3a 41 44 43 23 26  31 30 3a 53 54 41 26 38  |LC:ADC#&10:STA&8|
00002890  36 3a 4c 44 41 26 38 37  3a 41 44 43 23 26 30 30  |6:LDA&87:ADC#&00|
000028a0  3a 53 54 41 26 38 37 3a  49 4e 58 3a 43 50 58 23  |:STA&87:INX:CPX#|
000028b0  31 30 3a 42 4e 45 67 67  3a 4a 53 52 6c 67 3a 52  |10:BNEgg:JSRlg:R|
000028c0  54 53 0d 02 8a bb 2e 6c  67 3a 4c 44 41 23 26 39  |TS.....lg:LDA#&9|
000028d0  30 3a 53 54 41 26 38 36  3a 4c 44 41 23 26 36 38  |0:STA&86:LDA#&68|
000028e0  3a 53 54 41 26 38 37 3a  4c 44 41 23 30 3a 53 54  |:STA&87:LDA#0:ST|
000028f0  41 26 39 31 42 3a 52 54  53 3a 2e 74 6e 63 3a 4c  |A&91B:RTS:.tnc:L|
00002900  44 59 23 30 3a 2e 66 66  3a 4c 44 41 23 26 30 30  |DY#0:.ff:LDA#&00|
00002910  3a 53 54 41 28 26 38 36  29 2c 59 3a 49 4e 59 3a  |:STA(&86),Y:INY:|
00002920  43 50 59 23 34 3a 42 4e  45 66 66 3a 4c 44 41 26  |CPY#4:BNEff:LDA&|
00002930  38 36 3a 43 4c 43 3a 41  44 43 23 26 31 30 3a 53  |86:CLC:ADC#&10:S|
00002940  54 41 26 38 36 3a 4c 44  41 26 38 37 3a 41 44 43  |TA&86:LDA&87:ADC|
00002950  23 26 30 30 3a 53 54 41  26 38 37 3a 49 4e 43 26  |#&00:STA&87:INC&|
00002960  39 31 42 3a 4c 44 41 26  39 31 42 3a 43 4d 50 23  |91B:LDA&91B:CMP#|
00002970  31 30 3a 42 45 51 74 65  6e 3a 52 54 53 0d 02 94  |10:BEQten:RTS...|
00002980  b1 2e 72 64 3a 4c 44 41  23 31 39 3a 4a 53 52 26  |..rd:LDA#19:JSR&|
00002990  46 46 45 45 3a 4c 44 41  23 31 3a 4a 53 52 26 46  |FFEE:LDA#1:JSR&F|
000029a0  46 45 45 3a 4c 44 41 23  31 3a 4a 53 52 26 46 46  |FEE:LDA#1:JSR&FF|
000029b0  45 45 3a 4c 44 41 23 30  3a 4a 53 52 26 46 46 45  |EE:LDA#0:JSR&FFE|
000029c0  45 3a 4a 53 52 26 46 46  45 45 3a 4a 53 52 26 46  |E:JSR&FFEE:JSR&F|
000029d0  46 45 45 3a 52 54 53 3a  2e 62 6c 3a 4c 44 41 23  |FEE:RTS:.bl:LDA#|
000029e0  31 39 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 23  |19:JSR&FFEE:LDA#|
000029f0  31 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 23 35  |1:JSR&FFEE:LDA#5|
00002a00  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 30 3a  |:JSR&FFEE:LDA#0:|
00002a10  4a 53 52 26 46 46 45 45  3a 4a 53 52 26 46 46 45  |JSR&FFEE:JSR&FFE|
00002a20  45 3a 4a 53 52 26 46 46  45 45 3a 52 54 53 0d 02  |E:JSR&FFEE:RTS..|
00002a30  9e 99 2e 67 6e 3a 4c 44  41 23 31 39 3a 4a 53 52  |...gn:LDA#19:JSR|
00002a40  26 46 46 45 45 3a 4c 44  41 23 31 3a 4a 53 52 26  |&FFEE:LDA#1:JSR&|
00002a50  46 46 45 45 3a 4c 44 41  23 32 3a 4a 53 52 26 46  |FFEE:LDA#2:JSR&F|
00002a60  46 45 45 3a 4c 44 41 23  30 3a 4a 53 52 26 46 46  |FEE:LDA#0:JSR&FF|
00002a70  45 45 3a 4a 53 52 26 46  46 45 45 3a 4a 53 52 26  |EE:JSR&FFEE:JSR&|
00002a80  46 46 45 45 3a 52 54 53  3a 2e 74 65 6e 3a 4c 44  |FFEE:RTS:.ten:LD|
00002a90  41 23 26 46 46 3a 53 54  41 26 39 31 43 3a 53 54  |A#&FF:STA&91C:ST|
00002aa0  41 26 39 31 44 3a 4a 53  52 66 6c 73 3a 4a 53 52  |A&91D:JSRfls:JSR|
00002ab0  67 75 61 72 64 3a 4a 53  52 66 6c 73 3a 4a 53 52  |guard:JSRfls:JSR|
00002ac0  63 6e 74 3a 52 54 53 0d  02 a8 c1 2e 66 6c 73 3a  |cnt:RTS.....fls:|
00002ad0  4a 53 52 61 62 74 3a 4c  44 41 23 31 39 3a 4a 53  |JSRabt:LDA#19:JS|
00002ae0  52 26 46 46 45 45 3a 4c  44 41 23 30 3a 4a 53 52  |R&FFEE:LDA#0:JSR|
00002af0  26 46 46 45 45 3a 4c 44  41 23 37 3a 4a 53 52 26  |&FFEE:LDA#7:JSR&|
00002b00  46 46 45 45 3a 4c 44 41  23 30 3a 4a 53 52 26 46  |FFEE:LDA#0:JSR&F|
00002b10  46 45 45 3a 4a 53 52 26  46 46 45 45 3a 4a 53 52  |FEE:JSR&FFEE:JSR|
00002b20  26 46 46 45 45 3a 4a 53  52 73 79 6e 63 3a 4a 53  |&FFEE:JSRsync:JS|
00002b30  52 73 79 6e 63 3a 4c 44  41 23 31 39 3a 4a 53 52  |Rsync:LDA#19:JSR|
00002b40  26 46 46 45 45 3a 4c 44  41 23 30 3a 4a 53 52 26  |&FFEE:LDA#0:JSR&|
00002b50  46 46 45 45 3a 4c 44 41  23 30 3a 4a 53 52 26 46  |FFEE:LDA#0:JSR&F|
00002b60  46 45 45 3a 4c 44 41 23  30 3a 4a 53 52 26 46 46  |FEE:LDA#0:JSR&FF|
00002b70  45 45 3a 4a 53 52 26 46  46 45 45 3a 4a 53 52 26  |EE:JSR&FFEE:JSR&|
00002b80  46 46 45 45 3a 52 54 53  0d 02 b2 bb 2e 66 6c 72  |FFEE:RTS.....flr|
00002b90  3a 3a 4c 44 41 23 31 39  3a 4a 53 52 26 46 46 45  |::LDA#19:JSR&FFE|
00002ba0  45 3a 4c 44 41 23 30 3a  4a 53 52 26 46 46 45 45  |E:LDA#0:JSR&FFEE|
00002bb0  3a 4c 44 41 23 35 3a 4a  53 52 26 46 46 45 45 3a  |:LDA#5:JSR&FFEE:|
00002bc0  4c 44 41 23 30 3a 4a 53  52 26 46 46 45 45 3a 4a  |LDA#0:JSR&FFEE:J|
00002bd0  53 52 26 46 46 45 45 3a  4a 53 52 26 46 46 45 45  |SR&FFEE:JSR&FFEE|
00002be0  3a 4a 53 52 73 79 6e 63  3a 4a 53 52 73 79 6e 63  |:JSRsync:JSRsync|
00002bf0  3a 4c 44 41 23 31 39 3a  4a 53 52 26 46 46 45 45  |:LDA#19:JSR&FFEE|
00002c00  3a 4c 44 41 23 30 3a 4a  53 52 26 46 46 45 45 3a  |:LDA#0:JSR&FFEE:|
00002c10  4c 44 41 23 30 3a 4a 53  52 26 46 46 45 45 3a 4c  |LDA#0:JSR&FFEE:L|
00002c20  44 41 23 30 3a 4a 53 52  26 46 46 45 45 3a 4a 53  |DA#0:JSR&FFEE:JS|
00002c30  52 26 46 46 45 45 3a 4a  53 52 26 46 46 45 45 3a  |R&FFEE:JSR&FFEE:|
00002c40  52 54 53 0d 02 bc 7d 2e  6c 76 6c 3a 4c 44 59 23  |RTS...}.lvl:LDY#|
00002c50  30 3a 2e 72 72 3a 4c 44  41 26 39 42 46 2c 59 3a  |0:.rr:LDA&9BF,Y:|
00002c60  82 26 36 42 33 38 2c 59  3a 53 54 41 26 36 42 33  |.&6B38,Y:STA&6B3|
00002c70  38 2c 59 3a 49 4e 59 3a  43 50 59 23 36 34 3a 42  |8,Y:INY:CPY#64:B|
00002c80  4e 45 72 72 3a 52 54 53  3a 2e 72 6b 74 3a 4c 44  |NErr:RTS:.rkt:LD|
00002c90  59 23 30 3a 2e 6f 69 3a  4c 44 41 23 26 34 36 3a  |Y#0:.oi:LDA#&46:|
00002ca0  53 54 41 26 37 43 39 30  2c 59 3a 49 4e 59 3a 43  |STA&7C90,Y:INY:C|
00002cb0  50 59 23 31 35 32 3a 42  4e 45 6f 69 3a 52 54 53  |PY#152:BNEoi:RTS|
00002cc0  0d 02 c6 88 2e 6b 6b 6b  3a 4c 44 41 26 38 38 3a  |.....kkk:LDA&88:|
00002cd0  43 4c 43 3a 41 44 43 23  26 30 31 3a 53 54 41 26  |CLC:ADC#&01:STA&|
00002ce0  38 38 3a 4c 44 41 26 38  39 3a 41 44 43 23 26 30  |88:LDA&89:ADC#&0|
00002cf0  30 3a 53 54 41 26 38 39  3a 4c 44 59 23 30 3a 2e  |0:STA&89:LDY#0:.|
00002d00  74 70 3a 4c 44 41 23 26  30 30 3a 53 54 41 28 26  |tp:LDA#&00:STA(&|
00002d10  38 38 29 2c 59 3a 49 4e  59 3a 43 50 59 23 38 3a  |88),Y:INY:CPY#8:|
00002d20  42 4e 45 74 70 3a 49 4e  43 26 39 32 32 3a 4c 44  |BNEtp:INC&922:LD|
00002d30  41 26 39 32 32 3a 43 4d  50 23 31 35 32 3a 42 45  |A&922:CMP#152:BE|
00002d40  51 74 79 68 3a 52 54 53  0d 02 d0 bf 2e 74 79 68  |Qtyh:RTS.....tyh|
00002d50  3a 4a 53 52 70 6f 70 3a  52 54 53 3a 2e 65 65 73  |:JSRpop:RTS:.ees|
00002d60  3a 4c 44 41 23 31 3a 53  54 41 26 39 32 33 3a 4a  |:LDA#1:STA&923:J|
00002d70  4d 50 74 79 79 3a 52 54  53 3a 2e 74 79 79 3a 4c  |MPtyy:RTS:.tyy:L|
00002d80  44 41 26 39 32 33 3a 43  4d 50 23 31 3a 42 45 51  |DA&923:CMP#1:BEQ|
00002d90  66 66 74 3a 43 4d 50 23  32 3a 42 45 51 71 77 65  |fft:CMP#2:BEQqwe|
00002da0  3a 43 4d 50 23 33 3a 42  45 51 73 65 65 3a 43 4d  |:CMP#3:BEQsee:CM|
00002db0  50 23 34 3a 42 45 51 65  65 73 3a 52 54 53 3a 2e  |P#4:BEQees:RTS:.|
00002dc0  66 66 74 3a 4c 44 41 23  30 3a 53 54 41 26 39 32  |fft:LDA#0:STA&92|
00002dd0  35 3a 4a 53 52 72 64 3a  52 54 53 3a 2e 71 77 65  |5:JSRrd:RTS:.qwe|
00002de0  3a 4a 53 52 67 6e 3a 3a  4a 53 52 66 74 72 3a 4a  |:JSRgn::JSRftr:J|
00002df0  53 52 6d 76 76 3a 4a 53  52 72 72 6b 3a 4a 53 52  |SRmvv:JSRrrk:JSR|
00002e00  67 74 72 3a 52 54 53 0d  02 da 78 2e 6d 76 76 3a  |gtr:RTS...x.mvv:|
00002e10  4c 44 41 26 38 41 3a 43  4c 43 3a 41 44 43 23 26  |LDA&8A:CLC:ADC#&|
00002e20  30 38 3a 53 54 41 26 38  41 3a 4c 44 41 26 38 42  |08:STA&8A:LDA&8B|
00002e30  3a 41 44 43 23 26 30 30  3a 53 54 41 26 38 42 3a  |:ADC#&00:STA&8B:|
00002e40  49 4e 43 26 39 32 34 3a  4c 44 41 26 39 32 34 3a  |INC&924:LDA&924:|
00002e50  43 4d 50 23 33 32 3a 42  45 51 73 65 74 3a 4a 53  |CMP#32:BEQset:JS|
00002e60  52 66 74 72 3a 52 54 53  3a 2e 68 6a 6b 3a 4a 53  |Rftr:RTS:.hjk:JS|
00002e70  52 66 74 72 3a 4a 53 52  6e 6f 6b 3a 52 54 53 0d  |Rftr:JSRnok:RTS.|
00002e80  02 e4 a9 2e 73 65 65 3a  4c 44 41 23 30 3a 53 54  |....see:LDA#0:ST|
00002e90  41 26 39 32 35 3a 4a 53  52 62 6c 3a 4a 53 52 62  |A&925:JSRbl:JSRb|
00002ea0  63 6b 3a 52 54 53 3a 2e  73 65 74 3a 4c 44 41 23  |ck:RTS:.set:LDA#|
00002eb0  26 41 30 3a 53 54 41 26  38 41 3a 4c 44 41 23 26  |&A0:STA&8A:LDA#&|
00002ec0  36 45 3a 53 54 41 26 38  42 3a 4c 44 41 23 34 3a  |6E:STA&8B:LDA#4:|
00002ed0  53 54 41 26 39 32 34 3a  52 54 53 3a 2e 67 74 72  |STA&924:RTS:.gtr|
00002ee0  3a 4c 44 41 26 39 32 34  3a 43 4d 50 26 39 30 30  |:LDA&924:CMP&900|
00002ef0  3a 42 45 51 79 74 6f 3a  52 54 53 3a 2e 79 74 6f  |:BEQyto:RTS:.yto|
00002f00  3a 4c 44 41 26 39 30 34  3a 43 4d 50 23 31 31 3a  |:LDA&904:CMP#11:|
00002f10  42 45 51 68 6a 6b 3a 43  4d 50 23 31 32 3a 42 45  |BEQhjk:CMP#12:BE|
00002f20  51 68 6a 6b 3a 52 54 53  0d 02 ee a5 2e 63 6f 72  |Qhjk:RTS.....cor|
00002f30  3a 4c 44 59 23 30 3a 2e  70 70 3a 4c 44 41 23 26  |:LDY#0:.pp:LDA#&|
00002f40  30 31 3a 53 54 41 26 36  44 37 30 2c 59 3a 49 4e  |01:STA&6D70,Y:IN|
00002f50  59 3a 43 50 59 23 32 30  38 3a 42 4e 45 70 70 3a  |Y:CPY#208:BNEpp:|
00002f60  4c 44 59 23 30 3a 2e 74  63 3a 4c 44 41 26 35 34  |LDY#0:.tc:LDA&54|
00002f70  34 30 2c 59 3a 53 54 41  26 37 30 42 30 2c 59 3a  |40,Y:STA&70B0,Y:|
00002f80  49 4e 59 3a 43 50 59 23  26 31 38 3a 42 4e 45 74  |INY:CPY#&18:BNEt|
00002f90  63 3a 52 54 53 3a 2e 72  6f 63 3a 4c 44 59 23 30  |c:RTS:.roc:LDY#0|
00002fa0  3a 2e 69 69 3a 4c 44 41  23 26 45 31 3a 53 54 41  |:.ii:LDA#&E1:STA|
00002fb0  26 36 44 37 30 2c 59 3a  49 4e 59 3a 43 50 59 26  |&6D70,Y:INY:CPY&|
00002fc0  39 32 46 3a 42 4e 45 69  69 3a 52 54 53 0d 02 f8  |92F:BNEii:RTS...|
00002fd0  0d 5d 3a ed 70 61 73 73  3a e1 0d 03 02 5b 2a 4b  |.]:.pass:....[*K|
00002fe0  45 59 30 20 2a 54 2e 7c  4d 44 25 3d 50 41 47 45  |EY0 *T.|MD%=PAGE|
00002ff0  2d 26 45 30 30 3a 46 4f  52 49 25 3d 50 41 47 45  |-&E00:FORI%=PAGE|
00003000  20 54 4f 20 54 4f 50 20  53 54 45 50 34 3a 21 28  | TO TOP STEP4:!(|
00003010  49 25 2d 44 25 29 3d 21  49 25 3a 4e 45 58 54 3a  |I%-D%)=!I%:NEXT:|
00003020  50 41 47 45 3d 26 45 30  30 7c 4d 4f 4c 44 7c 4d  |PAGE=&E00|MOLD|M|
00003030  52 55 4e 7c 4d 0d 03 0c  10 2a 46 58 31 33 38 2c  |RUN|M....*FX138,|
00003040  30 2c 31 32 38 0d ff                              |0,128..|
00003047
RADIUM1.m0
RADIUM1.m1
RADIUM1.m2
RADIUM1.m4
RADIUM1.m5