Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/os9l2bbs/cmds/suser.asm @ 2895:92301a2c0eb7 lwtools-port
os9l2bbs: Avoid overflow error on 8-bit offset indexed mode
LWTOOLS 4.9 reports error in this case, so change the $FFE0
offsets to an equivalent -$20 offset.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sat, 11 Jan 2014 14:10:31 +0100 |
| parents | f87ec0b216c8 |
| children |
line wrap: on
line source
nam Suser ttl program module ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 mod eom,name,tylg,atrv,start,size U0000 rmb 1 U0001 rmb 1 U0002 rmb 2 U0004 rmb 2 U0006 rmb 2 U0008 rmb 1 U0009 rmb 1 U000A rmb 1 U000B rmb 2 U000D rmb 338 U015F rmb 2 U0161 rmb 58 U019B rmb 1 U019C rmb 3 U019F rmb 2 U01A1 rmb 938 size equ . name fcs /Suser/ * 000D 53 75 73 65 F2 Suser fcb $01 * 0012 01 . L0013 lda ,Y+ * 0013 A6 A0 & sta ,U+ * 0015 A7 C0 '@ leax -$01,X * 0017 30 1F 0. bne L0013 * 0019 26 F8 &x rts * 001B 39 9 start pshs Y * 001C 34 20 4 pshs U * 001E 34 40 4@ clra * 0020 4F O clrb * 0021 5F _ L0022 sta ,U+ * 0022 A7 C0 '@ decb * 0024 5A Z bne L0022 * 0025 26 FB &{ ldx 0,S * 0027 AE E4 .d leau 0,X * 0029 33 84 3. leax >$01CB,X * 002B 30 89 01 CB 0..K pshs X * 002F 34 10 4. leay >L0F36,PC * 0031 31 8D 0F 01 1... ldx ,Y++ * 0035 AE A1 .! beq L003D * 0037 27 04 '. bsr L0013 * 0039 8D D8 .X ldu $02,S * 003B EE 62 nb L003D leau >U0001,U * 003D 33 C9 00 01 3I.. ldx ,Y++ * 0041 AE A1 .! beq L0048 * 0043 27 03 '. bsr L0013 * 0045 8D CC .L clra * 0047 4F O L0048 cmpu 0,S * 0048 11 A3 E4 .#d L004B beq L0051 * 004B 27 04 '. sta ,U+ * 004D A7 C0 '@ bra L0048 * 004F 20 F7 w L0051 ldu $02,S * 0051 EE 62 nb ldd ,Y++ * 0053 EC A1 l! beq L005E * 0055 27 07 '. leax >,PC * 0057 30 8D FF A5 0..% lbsr L0161 * 005B 17 01 03 ... L005E ldd ,Y++ * 005E EC A1 l! beq L0067 * 0060 27 05 '. leax U0000,U * 0062 30 C4 0D lbsr L0161 * 0064 17 00 FA ..z L0067 leas $04,S * 0067 32 64 2d puls X * 0069 35 10 5. stx >U019F,U * 006B AF C9 01 9F /I.. sty >U015F,U * 006F 10 AF C9 01 5F ./I._ ldd #1 * 0074 CC 00 01 L.. std >U019B,U * 0077 ED C9 01 9B mI.. leay >U0161,U * 007B 31 C9 01 61 1I.a leax 0,S * 007F 30 E4 0d lda ,X+ * 0081 A6 80 &. L0083 ldb >U019C,U * 0083 E6 C9 01 9C fI.. cmpb #29 * 0087 C1 1D A. beq L00DF * 0089 27 54 'T L008B cmpa #13 * 008B 81 0D .. beq L00DF * 008D 27 50 'P cmpa #32 * 008F 81 20 . beq L0097 * 0091 27 04 '. cmpa #44 * 0093 81 2C ., bne L009B * 0095 26 04 &. L0097 lda ,X+ * 0097 A6 80 &. bra L008B * 0099 20 F0 p L009B cmpa #34 * 009B 81 22 ." beq L00A3 * 009D 27 04 '. cmpa #39 * 009F 81 27 .' bne L00C1 * 00A1 26 1E &. L00A3 stx ,Y++ * 00A3 AF A1 /! inc >U019C,U * 00A5 6C C9 01 9C lI.. pshs A * 00A9 34 02 4. L00AB lda ,X+ * 00AB A6 80 &. cmpa #13 * 00AD 81 0D .. beq L00B5 * 00AF 27 04 '. cmpa 0,S * 00B1 A1 E4 !d bne L00AB * 00B3 26 F6 &v L00B5 puls B * 00B5 35 04 5. clr -$01,X * 00B7 6F 1F o. cmpa #13 * 00B9 81 0D .. beq L00DF * 00BB 27 22 '" lda ,X+ * 00BD A6 80 &. bra L0083 * 00BF 20 C2 B L00C1 leax -$01,X * 00C1 30 1F 0. stx ,Y++ * 00C3 AF A1 /! leax $01,X * 00C5 30 01 0. inc >U019C,U * 00C7 6C C9 01 9C lI.. L00CB cmpa #13 * 00CB 81 0D .. beq L00DB * 00CD 27 0C '. cmpa #32 * 00CF 81 20 . beq L00DB * 00D1 27 08 '. cmpa #44 * 00D3 81 2C ., beq L00DB * 00D5 27 04 '. lda ,X+ * 00D7 A6 80 &. bra L00CB * 00D9 20 F0 p L00DB clr -$01,X * 00DB 6F 1F o. bra L0083 * 00DD 20 A4 $ L00DF leax >U015F,U * 00DF 30 C9 01 5F 0I._ pshs X * 00E3 34 10 4. ldd >U019B,U * 00E5 EC C9 01 9B lI.. pshs D * 00E9 34 06 4. leay U0000,U * 00EB 31 C4 1D bsr L00F9 * 00ED 8D 0A .. lbsr L017B * 00EF 17 00 89 ... clr ,-S * 00F2 6F E2 ob clr ,-S * 00F4 6F E2 ob lbsr L0F2A * 00F6 17 0E 31 ..1 L00F9 leax >$01CB,Y * 00F9 30 A9 01 CB 0).K stx >$01A9,Y * 00FD AF A9 01 A9 /).) sts >$019D,Y * 0101 10 EF A9 01 9D .o).. sts >$01AB,Y * 0106 10 EF A9 01 AB .o).+ ldd #-126 * 010B CC FF 82 L.. L010E leax D,S * 010E 30 EB 0k cmpx >$01AB,Y * 0110 AC A9 01 AB ,).+ bcc L0120 * 0114 24 0A $. cmpx >$01A9,Y * 0116 AC A9 01 A9 ,).) bcs L013A * 011A 25 1E %. stx >$01AB,Y * 011C AF A9 01 AB /).+ L0120 rts * 0120 39 9 L0121 fcc "**** STACK OVERFLOW ****" * 0121 2A 2A 2A 2A 20 53 54 41 43 4B 20 4F 56 45 52 46 4C 4F 57 20 2A 2A 2A 2A **** STACK OVERFLOW **** fcb $0D * 0139 0D . L013A leax <L0121,PC * 013A 30 8C E4 0.d ldb #207 * 013D C6 CF FO pshs B * 013F 34 04 4. lda #2 * 0141 86 02 .. ldy #100 * 0143 10 8E 00 64 ...d os9 I$WritLn * 0147 10 3F 8C .?. clr ,-S * 014A 6F E2 ob lbsr L0F30 * 014C 17 0D E1 ..a ldd >$019D,Y * 014F EC A9 01 9D l).. subd >$01AB,Y * 0153 A3 A9 01 AB #).+ rts * 0157 39 9 fcb $EC * 0158 EC l fcb $A9 * 0159 A9 ) fcb $01 * 015A 01 . fcb $AB * 015B AB + fcb $A3 * 015C A3 # fcb $A9 * 015D A9 ) fcb $01 * 015E 01 . fcb $A9 * 015F A9 ) fcb $39 * 0160 39 9 L0161 pshs X * 0161 34 10 4. leax D,Y * 0163 30 AB 0+ leax D,X * 0165 30 8B 0. pshs X * 0167 34 10 4. L0169 ldd ,Y++ * 0169 EC A1 l! leax D,U * 016B 30 CB 0K ldd 0,X * 016D EC 84 l. addd $02,S * 016F E3 62 cb std 0,X * 0171 ED 84 m. cmpy 0,S * 0173 10 AC E4 .,d bne L0169 * 0176 26 F1 &q leas $04,S * 0178 32 64 2d rts * 017A 39 9 L017B pshs U * 017B 34 40 4@ ldd #-284 * 017D CC FE E4 L~d lbsr L010E * 0180 17 FF 8B ... leas >$FF34,S * 0183 32 E9 FF 34 2i.4 clra * 0187 4F O clrb * 0188 5F _ stb 0,S * 0189 E7 E4 gd ldd >$00D0,S * 018B EC E9 00 D0 li.P cmpd #1 * 018F 10 83 00 01 .... bne L01A4 * 0193 26 0F &. clra * 0195 4F O clrb * 0196 5F _ pshs D * 0197 34 06 4. leax >L0274,PC * 0199 30 8D 00 D7 0..W pshs X * 019D 34 10 4. lbsr L0252 * 019F 17 00 B0 ..0 leas $04,S * 01A2 32 64 2d L01A4 ldx >$00D2,S * 01A4 AE E9 00 D2 .i.R ldd $02,X * 01A8 EC 02 l. pshs D * 01AA 34 06 4. lbsr L0B4F * 01AC 17 09 A0 .. leas $02,S * 01AF 32 62 2b std >$00CA,S * 01B1 ED E9 00 CA mi.J pshs D * 01B5 34 06 4. lbsr L0EF8 * 01B7 17 0D 3E ..> leas $02,S * 01BA 32 62 2b cmpd #-1 * 01BC 10 83 FF FF .... bne L01D3 * 01C0 26 11 &. ldd >$01AD,Y * 01C2 EC A9 01 AD l).- pshs D * 01C6 34 06 4. leax >L0298,PC * 01C8 30 8D 00 CC 0..L pshs X * 01CC 34 10 4. lbsr L0252 * 01CE 17 00 81 ... leas $04,S * 01D1 32 64 2d L01D3 ldd #2 * 01D3 CC 00 02 L.. bra L0207 * 01D6 20 2F / L01D8 ldd >$00C8,S * 01D8 EC E9 00 C8 li.H aslb * 01DC 58 X rola * 01DD 49 I ldx >$00D2,S * 01DE AE E9 00 D2 .i.R leax D,X * 01E2 30 8B 0. ldd 0,X * 01E4 EC 84 l. pshs D * 01E6 34 06 4. leax $02,S * 01E8 30 62 0b pshs X * 01EA 34 10 4. lbsr L0AF1 * 01EC 17 09 02 ... leas $04,S * 01EF 32 64 2d leax >L02C1,PC * 01F1 30 8D 00 CC 0..L pshs X * 01F5 34 10 4. leax $02,S * 01F7 30 62 0b pshs X * 01F9 34 10 4. lbsr L0AF1 * 01FB 17 08 F3 ..s leas $04,S * 01FE 32 64 2d ldd >$00C8,S * 0200 EC E9 00 C8 li.H addd #1 * 0204 C3 00 01 C.. L0207 std >$00C8,S * 0207 ED E9 00 C8 mi.H ldd >$00C8,S * 020B EC E9 00 C8 li.H cmpd >$00D0,S * 020F 10 A3 E9 00 D0 .#i.P blt L01D8 * 0214 2D C2 -B leax >L02C3,PC * 0216 30 8D 00 A9 0..) pshs X * 021A 34 10 4. leax $02,S * 021C 30 62 0b pshs X * 021E 34 10 4. lbsr L0AF1 * 0220 17 08 CE ..N leas $04,S * 0223 32 64 2d ldd #3 * 0225 CC 00 03 L.. pshs D * 0228 34 06 4. ldd #1 * 022A CC 00 01 L.. pshs D * 022D 34 06 4. ldd #16 * 022F CC 00 10 L.. pshs D * 0232 34 06 4. leax $06,S * 0234 30 66 0f pshs X * 0236 34 10 4. leax $08,S * 0238 30 68 0h pshs X * 023A 34 10 4. lbsr L0AC8 * 023C 17 08 89 ... std 0,S * 023F ED E4 md leax >L02C5,PC * 0241 30 8D 00 80 0... pshs X * 0245 34 10 4. lbsr L0E9D * 0247 17 0C 53 ..S leas $0C,S * 024A 32 6C 2l leas >$00CC,S * 024C 32 E9 00 CC 2i.L puls PC,U * 0250 35 C0 5@ L0252 pshs U * 0252 34 40 4@ ldd #-72 * 0254 CC FF B8 L.8 lbsr L010E * 0257 17 FE B4 .~4 ldd $04,S * 025A EC 64 ld pshs D * 025C 34 06 4. leax >L02CC,PC * 025E 30 8D 00 6A 0..j pshs X * 0262 34 10 4. lbsr L02D0 * 0264 17 00 69 ..i leas $04,S * 0267 32 64 2d ldd $06,S * 0269 EC 66 lf pshs D * 026B 34 06 4. lbsr L0F2A * 026D 17 0C BA ..: leas $02,S * 0270 32 62 2b puls PC,U * 0272 35 C0 5@ L0274 fcc "Usage is: Suser <number> [progname]" * 0274 55 73 61 67 65 20 69 73 3A 20 53 75 73 65 72 20 3C 6E 75 6D 62 65 72 3E 20 5B 70 72 6F 67 6E 61 6D 65 5D Usage is: Suser <number> [progname] fcb $00 * 0297 00 . L0298 fcc "Sorry, you cannot change the user number" * 0298 53 6F 72 72 79 2C 20 79 6F 75 20 63 61 6E 6E 6F 74 20 63 68 61 6E 67 65 20 74 68 65 20 75 73 65 72 20 6E 75 6D 62 65 72 Sorry, you cannot change the user number fcb $00 * 02C0 00 . L02C1 fcb $20 * 02C1 20 fcb $00 * 02C2 00 . L02C3 fcb $0D * 02C3 0D . fcb $00 * 02C4 00 . L02C5 fcc "Shell" * 02C5 53 68 65 6C 6C Shell fcb $0D * 02CA 0D . fcb $00 * 02CB 00 . L02CC fcb $25 * 02CC 25 % fcb $73 * 02CD 73 s fcb $0D * 02CE 0D . fcb $00 * 02CF 00 . L02D0 pshs U * 02D0 34 40 4@ leax >$001B,Y * 02D2 30 A9 00 1B 0).. stx >$01AF,Y * 02D6 AF A9 01 AF /)./ leax $06,S * 02DA 30 66 0f pshs X * 02DC 34 10 4. ldd $06,S * 02DE EC 66 lf bra L02F0 * 02E0 20 0E . fcb $34 * 02E2 34 4 fcb $40 * 02E3 40 @ fcb $EC * 02E4 EC l fcb $64 * 02E5 64 d fcb $ED * 02E6 ED m fcb $A9 * 02E7 A9 ) fcb $01 * 02E8 01 . fcb $AF * 02E9 AF / fcc "0h4" * 02EA 30 68 34 0h4 fcb $10 * 02ED 10 . fcb $EC * 02EE EC l fcb $68 * 02EF 68 h L02F0 pshs D * 02F0 34 06 4. leax >L07A8,PC * 02F2 30 8D 04 B2 0..2 pshs X * 02F6 34 10 4. bsr L0322 * 02F8 8D 28 .( leas $06,S * 02FA 32 66 2f puls PC,U * 02FC 35 C0 5@ fcb $34 * 02FE 34 4 fcb $40 * 02FF 40 @ fcb $EC * 0300 EC l fcb $64 * 0301 64 d fcb $ED * 0302 ED m fcb $A9 * 0303 A9 ) fcb $01 * 0304 01 . fcb $AF * 0305 AF / fcc "0h4" * 0306 30 68 34 0h4 fcb $10 * 0309 10 . fcb $EC * 030A EC l fcb $68 * 030B 68 h fcb $34 * 030C 34 4 fcb $06 * 030D 06 . fcb $30 * 030E 30 0 fcb $8D * 030F 8D . fcb $04 * 0310 04 . fcb $A9 * 0311 A9 ) fcb $34 * 0312 34 4 fcb $10 * 0313 10 . fcb $8D * 0314 8D . fcb $0C * 0315 0C . fcc "2fO_" * 0316 32 66 4F 5F 2fO_ fcb $E7 * 031A E7 g fcb $B9 * 031B B9 9 fcb $01 * 031C 01 . fcb $AF * 031D AF / fcb $EC * 031E EC l fcb $64 * 031F 64 d fcb $35 * 0320 35 5 fcb $C0 * 0321 C0 @ L0322 pshs U * 0322 34 40 4@ ldu $06,S * 0324 EE 66 nf leas -$0B,S * 0326 32 75 2u bra L033A * 0328 20 10 . L032A ldb $08,S * 032A E6 68 fh lbeq L056B * 032C 10 27 02 3B .'.; ldb $08,S * 0330 E6 68 fh sex * 0332 1D . pshs D * 0333 34 06 4. jsr [<$11,S] * 0335 AD F8 11 -x. leas $02,S * 0338 32 62 2b L033A ldb ,U+ * 033A E6 C0 f@ stb $08,S * 033C E7 68 gh cmpb #37 * 033E C1 25 A% bne L032A * 0340 26 E8 &h ldb ,U+ * 0342 E6 C0 f@ stb $08,S * 0344 E7 68 gh clra * 0346 4F O clrb * 0347 5F _ std $02,S * 0348 ED 62 mb std $06,S * 034A ED 66 mf ldb $08,S * 034C E6 68 fh cmpb #45 * 034E C1 2D A- bne L035F * 0350 26 0D &. ldd #1 * 0352 CC 00 01 L.. std >$01C5,Y * 0355 ED A9 01 C5 m).E ldb ,U+ * 0359 E6 C0 f@ stb $08,S * 035B E7 68 gh bra L0365 * 035D 20 06 . L035F clra * 035F 4F O clrb * 0360 5F _ std >$01C5,Y * 0361 ED A9 01 C5 m).E L0365 ldb $08,S * 0365 E6 68 fh cmpb #48 * 0367 C1 30 A0 bne L0370 * 0369 26 05 &. ldd #48 * 036B CC 00 30 L.0 bra L0373 * 036E 20 03 . L0370 ldd #32 * 0370 CC 00 20 L. L0373 std >$01C7,Y * 0373 ED A9 01 C7 m).G bra L0393 * 0377 20 1A . L0379 ldd $06,S * 0379 EC 66 lf pshs D * 037B 34 06 4. ldd #10 * 037D CC 00 0A L.. lbsr L0BC2 * 0380 17 08 3F ..? pshs D * 0383 34 06 4. ldb $0A,S * 0385 E6 6A fj sex * 0387 1D . addd #-48 * 0388 C3 FF D0 C.P addd ,S++ * 038B E3 E1 ca std $06,S * 038D ED 66 mf ldb ,U+ * 038F E6 C0 f@ stb $08,S * 0391 E7 68 gh L0393 ldb $08,S * 0393 E6 68 fh sex * 0395 1D . leax >$00DF,Y * 0396 30 A9 00 DF 0)._ leax D,X * 039A 30 8B 0. ldb 0,X * 039C E6 84 f. clra * 039E 4F O andb #8 * 039F C4 08 D. bne L0379 * 03A1 26 D6 &V ldb $08,S * 03A3 E6 68 fh cmpb #46 * 03A5 C1 2E A. bne L03DC * 03A7 26 33 &3 ldd #1 * 03A9 CC 00 01 L.. std $04,S * 03AC ED 64 md bra L03C6 * 03AE 20 16 . L03B0 ldd $02,S * 03B0 EC 62 lb pshs D * 03B2 34 06 4. ldd #10 * 03B4 CC 00 0A L.. lbsr L0BC2 * 03B7 17 08 08 ... pshs D * 03BA 34 06 4. ldb $0A,S * 03BC E6 6A fj sex * 03BE 1D . addd #-48 * 03BF C3 FF D0 C.P addd ,S++ * 03C2 E3 E1 ca std $02,S * 03C4 ED 62 mb L03C6 ldb ,U+ * 03C6 E6 C0 f@ stb $08,S * 03C8 E7 68 gh ldb $08,S * 03CA E6 68 fh sex * 03CC 1D . leax >$00DF,Y * 03CD 30 A9 00 DF 0)._ leax D,X * 03D1 30 8B 0. ldb 0,X * 03D3 E6 84 f. clra * 03D5 4F O andb #8 * 03D6 C4 08 D. bne L03B0 * 03D8 26 D6 &V bra L03E0 * 03DA 20 04 . L03DC clra * 03DC 4F O clrb * 03DD 5F _ std $04,S * 03DE ED 64 md L03E0 ldb $08,S * 03E0 E6 68 fh sex * 03E2 1D . tfr D,X * 03E3 1F 01 .. lbra L050E * 03E5 16 01 26 ..& L03E8 ldd $06,S * 03E8 EC 66 lf pshs D * 03EA 34 06 4. ldx <$0015,S * 03EC AE E8 15 .h. leax $02,X * 03EF 30 02 0. stx <$0015,S * 03F1 AF E8 15 /h. ldd -$02,X * 03F4 EC 1E l. pshs D * 03F6 34 06 4. lbsr L056F * 03F8 17 01 74 ..t bra L0410 * 03FB 20 13 . L03FD ldd $06,S * 03FD EC 66 lf pshs D * 03FF 34 06 4. ldx <$0015,S * 0401 AE E8 15 .h. leax $02,X * 0404 30 02 0. stx <$0015,S * 0406 AF E8 15 /h. ldd -$02,X * 0409 EC 1E l. pshs D * 040B 34 06 4. lbsr L062C * 040D 17 02 1C ... L0410 std 0,S * 0410 ED E4 md lbra L04F4 * 0412 16 00 DF .._ L0415 ldd $06,S * 0415 EC 66 lf pshs D * 0417 34 06 4. ldb $0A,S * 0419 E6 6A fj sex * 041B 1D . leax >$00DF,Y * 041C 30 A9 00 DF 0)._ leax D,X * 0420 30 8B 0. ldb 0,X * 0422 E6 84 f. clra * 0424 4F O andb #2 * 0425 C4 02 D. pshs D * 0427 34 06 4. ldx <$0017,S * 0429 AE E8 17 .h. leax $02,X * 042C 30 02 0. stx <$0017,S * 042E AF E8 17 /h. ldd -$02,X * 0431 EC 1E l. pshs D * 0433 34 06 4. lbsr L0674 * 0435 17 02 3C ..< lbra L04F0 * 0438 16 00 B5 ..5 L043B ldd $06,S * 043B EC 66 lf pshs D * 043D 34 06 4. ldx <$0015,S * 043F AE E8 15 .h. leax $02,X * 0442 30 02 0. stx <$0015,S * 0444 AF E8 15 /h. ldd -$02,X * 0447 EC 1E l. pshs D * 0449 34 06 4. leax >$01B1,Y * 044B 30 A9 01 B1 0).1 pshs X * 044F 34 10 4. lbsr L05B3 * 0451 17 01 5F .._ lbra L04F0 * 0454 16 00 99 ... L0457 ldd $04,S * 0457 EC 64 ld bne L0460 * 0459 26 05 &. ldd #6 * 045B CC 00 06 L.. std $02,S * 045E ED 62 mb L0460 ldd $06,S * 0460 EC 66 lf pshs D * 0462 34 06 4. leax <$0015,S * 0464 30 E8 15 0h. pshs X * 0467 34 10 4. ldd $06,S * 0469 EC 66 lf pshs D * 046B 34 06 4. ldb $0E,S * 046D E6 6E fn sex * 046F 1D . pshs D * 0470 34 06 4. lbsr L0ABD * 0472 17 06 48 ..H leas $06,S * 0475 32 66 2f lbra L04F2 * 0477 16 00 78 ..x L047A ldx <$0013,S * 047A AE E8 13 .h. leax $02,X * 047D 30 02 0. stx <$0013,S * 047F AF E8 13 /h. ldd -$02,X * 0482 EC 1E l. lbra L0504 * 0484 16 00 7D ..} L0487 ldx <$0013,S * 0487 AE E8 13 .h. leax $02,X * 048A 30 02 0. stx <$0013,S * 048C AF E8 13 /h. ldd -$02,X * 048F EC 1E l. std $09,S * 0491 ED 69 mi ldd $04,S * 0493 EC 64 ld beq L04CF * 0495 27 38 '8 ldd $09,S * 0497 EC 69 li std $04,S * 0499 ED 64 md bra L04A9 * 049B 20 0C . L049D ldb [<$09,S] * 049D E6 F8 09 fx. beq L04B5 * 04A0 27 13 '. ldd $09,S * 04A2 EC 69 li addd #1 * 04A4 C3 00 01 C.. std $09,S * 04A7 ED 69 mi L04A9 ldd $02,S * 04A9 EC 62 lb addd #-1 * 04AB C3 FF FF C.. std $02,S * 04AE ED 62 mb subd #-1 * 04B0 83 FF FF ... bne L049D * 04B3 26 E8 &h L04B5 ldd $06,S * 04B5 EC 66 lf pshs D * 04B7 34 06 4. ldd $0B,S * 04B9 EC 6B lk subd $06,S * 04BB A3 66 #f pshs D * 04BD 34 06 4. ldd $08,S * 04BF EC 68 lh pshs D * 04C1 34 06 4. ldd <$0015,S * 04C3 EC E8 15 lh. pshs D * 04C6 34 06 4. lbsr L06DF * 04C8 17 02 14 ... leas $08,S * 04CB 32 68 2h bra L04FE * 04CD 20 2F / L04CF ldd $06,S * 04CF EC 66 lf pshs D * 04D1 34 06 4. ldd $0B,S * 04D3 EC 6B lk bra L04F2 * 04D5 20 1B . L04D7 ldb ,U+ * 04D7 E6 C0 f@ stb $08,S * 04D9 E7 68 gh bra L04DF * 04DB 20 02 . fcb $32 * 04DD 32 2 fcb $15 * 04DE 15 . L04DF ldd $06,S * 04DF EC 66 lf pshs D * 04E1 34 06 4. leax <$0015,S * 04E3 30 E8 15 0h. pshs X * 04E6 34 10 4. ldb $0C,S * 04E8 E6 6C fl sex * 04EA 1D . pshs D * 04EB 34 06 4. lbsr L0A7F * 04ED 17 05 8F ... L04F0 leas $04,S * 04F0 32 64 2d L04F2 pshs D * 04F2 34 06 4. L04F4 ldd <$0013,S * 04F4 EC E8 13 lh. pshs D * 04F7 34 06 4. lbsr L0741 * 04F9 17 02 45 ..E leas $06,S * 04FC 32 66 2f L04FE lbra L033A * 04FE 16 FE 39 .~9 L0501 ldb $08,S * 0501 E6 68 fh sex * 0503 1D . L0504 pshs D * 0504 34 06 4. jsr [<$11,S] * 0506 AD F8 11 -x. leas $02,S * 0509 32 62 2b lbra L033A * 050B 16 FE 2C .~, L050E cmpx #100 * 050E 8C 00 64 ..d lbeq L03E8 * 0511 10 27 FE D3 .'~S cmpx #111 * 0515 8C 00 6F ..o lbeq L03FD * 0518 10 27 FE E1 .'~a cmpx #120 * 051C 8C 00 78 ..x lbeq L0415 * 051F 10 27 FE F2 .'~r cmpx #88 * 0523 8C 00 58 ..X lbeq L0415 * 0526 10 27 FE EB .'~k cmpx #117 * 052A 8C 00 75 ..u lbeq L043B * 052D 10 27 FF 0A .'.. cmpx #102 * 0531 8C 00 66 ..f lbeq L0457 * 0534 10 27 FF 1F .'.. cmpx #101 * 0538 8C 00 65 ..e lbeq L0457 * 053B 10 27 FF 18 .'.. cmpx #103 * 053F 8C 00 67 ..g lbeq L0457 * 0542 10 27 FF 11 .'.. cmpx #69 * 0546 8C 00 45 ..E lbeq L0457 * 0549 10 27 FF 0A .'.. cmpx #71 * 054D 8C 00 47 ..G lbeq L0457 * 0550 10 27 FF 03 .'.. cmpx #99 * 0554 8C 00 63 ..c lbeq L047A * 0557 10 27 FF 1F .'.. cmpx #115 * 055B 8C 00 73 ..s lbeq L0487 * 055E 10 27 FF 25 .'.% cmpx #108 * 0562 8C 00 6C ..l lbeq L04D7 * 0565 10 27 FF 6E .'.n bra L0501 * 0569 20 96 . L056B leas $0B,S * 056B 32 6B 2k puls PC,U * 056D 35 C0 5@ L056F pshs U,D * 056F 34 46 4F leax >$01B1,Y * 0571 30 A9 01 B1 0).1 stx 0,S * 0575 AF E4 /d ldd $06,S * 0577 EC 66 lf bge L05A4 * 0579 2C 29 ,) ldd $06,S * 057B EC 66 lf nega * 057D 40 @ negb * 057E 50 P sbca #0 * 057F 82 00 .. std $06,S * 0581 ED 66 mf bge L0599 * 0583 2C 14 ,. leax >L07CD,PC * 0585 30 8D 02 44 0..D pshs X * 0589 34 10 4. leax >$01B1,Y * 058B 30 A9 01 B1 0).1 pshs X * 058F 34 10 4. lbsr L0AD9 * 0591 17 05 45 ..E leas $04,S * 0594 32 64 2d lbra L0670 * 0596 16 00 D7 ..W L0599 ldd #45 * 0599 CC 00 2D L.- ldx 0,S * 059C AE E4 .d leax $01,X * 059E 30 01 0. stx 0,S * 05A0 AF E4 /d stb -$01,X * 05A2 E7 1F g. L05A4 ldd $06,S * 05A4 EC 66 lf pshs D * 05A6 34 06 4. ldd $02,S * 05A8 EC 62 lb pshs D * 05AA 34 06 4. bsr L05B3 * 05AC 8D 05 .. leas $04,S * 05AE 32 64 2d lbra L066A * 05B0 16 00 B7 ..7 L05B3 pshs U,Y,X,D * 05B3 34 76 4v ldu $0A,S * 05B5 EE 6A nj clra * 05B7 4F O clrb * 05B8 5F _ std $02,S * 05B9 ED 62 mb clra * 05BB 4F O clrb * 05BC 5F _ std 0,S * 05BD ED E4 md bra L05D0 * 05BF 20 0F . L05C1 ldd 0,S * 05C1 EC E4 ld addd #1 * 05C3 C3 00 01 C.. std 0,S * 05C6 ED E4 md ldd $0C,S * 05C8 EC 6C ll subd >$0001,Y * 05CA A3 A9 00 01 #).. std $0C,S * 05CE ED 6C ml L05D0 ldd $0C,S * 05D0 EC 6C ll blt L05C1 * 05D2 2D ED -m leax >$0001,Y * 05D4 30 A9 00 01 0).. stx $04,S * 05D8 AF 64 /d bra L0612 * 05DA 20 36 6 L05DC ldd 0,S * 05DC EC E4 ld addd #1 * 05DE C3 00 01 C.. std 0,S * 05E1 ED E4 md L05E3 ldd $0C,S * 05E3 EC 6C ll subd [<$04,S] * 05E5 A3 F8 04 #x. std $0C,S * 05E8 ED 6C ml bge L05DC * 05EA 2C F0 ,p ldd $0C,S * 05EC EC 6C ll addd [<$04,S] * 05EE E3 F8 04 cx. std $0C,S * 05F1 ED 6C ml ldd 0,S * 05F3 EC E4 ld beq L05FC * 05F5 27 05 '. ldd #1 * 05F7 CC 00 01 L.. std $02,S * 05FA ED 62 mb L05FC ldd $02,S * 05FC EC 62 lb beq L0607 * 05FE 27 07 '. ldd 0,S * 0600 EC E4 ld addd #48 * 0602 C3 00 30 C.0 stb ,U+ * 0605 E7 C0 g@ L0607 clra * 0607 4F O clrb * 0608 5F _ std 0,S * 0609 ED E4 md ldd $04,S * 060B EC 64 ld addd #2 * 060D C3 00 02 C.. std $04,S * 0610 ED 64 md L0612 ldd $04,S * 0612 EC 64 ld cmpd >$0009,Y * 0614 10 A3 A9 00 09 .#).. bne L05E3 * 0619 26 C8 &H ldd $0C,S * 061B EC 6C ll addd #48 * 061D C3 00 30 C.0 stb ,U+ * 0620 E7 C0 g@ clra * 0622 4F O clrb * 0623 5F _ stb U0000,U * 0624 E7 C4 gD ldd $0A,S * 0626 EC 6A lj leas $06,S * 0628 32 66 2f puls PC,U * 062A 35 C0 5@ L062C pshs U,D * 062C 34 46 4F leax >$01B1,Y * 062E 30 A9 01 B1 0).1 stx 0,S * 0632 AF E4 /d leau >$01BB,Y * 0634 33 A9 01 BB 3).; L0638 ldd $06,S * 0638 EC 66 lf clra * 063A 4F O andb #7 * 063B C4 07 D. addd #48 * 063D C3 00 30 C.0 stb ,U+ * 0640 E7 C0 g@ ldd $06,S * 0642 EC 66 lf lsra * 0644 44 D rorb * 0645 56 V lsra * 0646 44 D rorb * 0647 56 V lsra * 0648 44 D rorb * 0649 56 V std $06,S * 064A ED 66 mf bne L0638 * 064C 26 EA &j bra L065A * 064E 20 0A . L0650 ldb U0000,U * 0650 E6 C4 fD ldx 0,S * 0652 AE E4 .d leax $01,X * 0654 30 01 0. stx 0,S * 0656 AF E4 /d stb -$01,X * 0658 E7 1F g. L065A leau -$01,U * 065A 33 5F 3_ pshs U * 065C 34 40 4@ leax >$01BB,Y * 065E 30 A9 01 BB 0).; cmpx ,S++ * 0662 AC E1 ,a bls L0650 * 0664 23 EA #j clra * 0666 4F O clrb * 0667 5F _ stb [,S] * 0668 E7 F4 gt L066A leax >$01B1,Y * 066A 30 A9 01 B1 0).1 tfr X,D * 066E 1F 10 .. L0670 leas $02,S * 0670 32 62 2b puls PC,U * 0672 35 C0 5@ L0674 pshs U,X,D * 0674 34 56 4V leax >$01B1,Y * 0676 30 A9 01 B1 0).1 stx $02,S * 067A AF 62 /b leau >$01BB,Y * 067C 33 A9 01 BB 3).; L0680 ldd $08,S * 0680 EC 68 lh clra * 0682 4F O andb #15 * 0683 C4 0F D. std 0,S * 0685 ED E4 md pshs D * 0687 34 06 4. ldd $02,S * 0689 EC 62 lb cmpd #9 * 068B 10 83 00 09 .... ble L06A2 * 068F 2F 11 /. ldd $0C,S * 0691 EC 6C ll beq L069A * 0693 27 05 '. ldd #65 * 0695 CC 00 41 L.A bra L069D * 0698 20 03 . L069A ldd #97 * 069A CC 00 61 L.a L069D addd #-10 * 069D C3 FF F6 C.v bra L06A5 * 06A0 20 03 . L06A2 ldd #48 * 06A2 CC 00 30 L.0 L06A5 addd ,S++ * 06A5 E3 E1 ca stb ,U+ * 06A7 E7 C0 g@ ldd $08,S * 06A9 EC 68 lh lsra * 06AB 44 D rorb * 06AC 56 V lsra * 06AD 44 D rorb * 06AE 56 V lsra * 06AF 44 D rorb * 06B0 56 V lsra * 06B1 44 D rorb * 06B2 56 V anda #15 * 06B3 84 0F .. std $08,S * 06B5 ED 68 mh bne L0680 * 06B7 26 C7 &G bra L06C5 * 06B9 20 0A . L06BB ldb U0000,U * 06BB E6 C4 fD ldx $02,S * 06BD AE 62 .b leax $01,X * 06BF 30 01 0. stx $02,S * 06C1 AF 62 /b stb -$01,X * 06C3 E7 1F g. L06C5 leau -$01,U * 06C5 33 5F 3_ pshs U * 06C7 34 40 4@ leax >$01BB,Y * 06C9 30 A9 01 BB 0).; cmpx ,S++ * 06CD AC E1 ,a bls L06BB * 06CF 23 EA #j clra * 06D1 4F O clrb * 06D2 5F _ stb [<$02,S] * 06D3 E7 F8 02 gx. leax >$01B1,Y * 06D6 30 A9 01 B1 0).1 tfr X,D * 06DA 1F 10 .. lbra L07B7 * 06DC 16 00 D8 ..X L06DF pshs U * 06DF 34 40 4@ ldu $06,S * 06E1 EE 66 nf ldd $0A,S * 06E3 EC 6A lj subd $08,S * 06E5 A3 68 #h std $0A,S * 06E7 ED 6A mj ldd >$01C5,Y * 06E9 EC A9 01 C5 l).E bne L0714 * 06ED 26 25 &% bra L06FC * 06EF 20 0B . L06F1 ldd >$01C7,Y * 06F1 EC A9 01 C7 l).G pshs D * 06F5 34 06 4. jsr [<$06,S] * 06F7 AD F8 06 -x. leas $02,S * 06FA 32 62 2b L06FC ldd $0A,S * 06FC EC 6A lj addd #-1 * 06FE C3 FF FF C.. std $0A,S * 0701 ED 6A mj subd #-1 * 0703 83 FF FF ... bgt L06F1 * 0706 2E E9 .i bra L0714 * 0708 20 0A . L070A ldb ,U+ * 070A E6 C0 f@ sex * 070C 1D . pshs D * 070D 34 06 4. jsr [<$06,S] * 070F AD F8 06 -x. leas $02,S * 0712 32 62 2b L0714 ldd $08,S * 0714 EC 68 lh addd #-1 * 0716 C3 FF FF C.. std $08,S * 0719 ED 68 mh subd #-1 * 071B 83 FF FF ... bne L070A * 071E 26 EA &j ldd >$01C5,Y * 0720 EC A9 01 C5 l).E beq L073F * 0724 27 19 '. bra L0733 * 0726 20 0B . L0728 ldd >$01C7,Y * 0728 EC A9 01 C7 l).G pshs D * 072C 34 06 4. jsr [<$06,S] * 072E AD F8 06 -x. leas $02,S * 0731 32 62 2b L0733 ldd $0A,S * 0733 EC 6A lj addd #-1 * 0735 C3 FF FF C.. std $0A,S * 0738 ED 6A mj subd #-1 * 073A 83 FF FF ... bgt L0728 * 073D 2E E9 .i L073F puls PC,U * 073F 35 C0 5@ L0741 pshs U * 0741 34 40 4@ ldu $06,S * 0743 EE 66 nf ldd $08,S * 0745 EC 68 lh pshs D * 0747 34 06 4. pshs U * 0749 34 40 4@ lbsr L0AC8 * 074B 17 03 7A ..z leas $02,S * 074E 32 62 2b nega * 0750 40 @ negb * 0751 50 P sbca #0 * 0752 82 00 .. addd ,S++ * 0754 E3 E1 ca std $08,S * 0756 ED 68 mh ldd >$01C5,Y * 0758 EC A9 01 C5 l).E bne L0783 * 075C 26 25 &% bra L076B * 075E 20 0B . L0760 ldd >$01C7,Y * 0760 EC A9 01 C7 l).G pshs D * 0764 34 06 4. jsr [<$06,S] * 0766 AD F8 06 -x. leas $02,S * 0769 32 62 2b L076B ldd $08,S * 076B EC 68 lh addd #-1 * 076D C3 FF FF C.. std $08,S * 0770 ED 68 mh subd #-1 * 0772 83 FF FF ... bgt L0760 * 0775 2E E9 .i bra L0783 * 0777 20 0A . L0779 ldb ,U+ * 0779 E6 C0 f@ sex * 077B 1D . pshs D * 077C 34 06 4. jsr [<$06,S] * 077E AD F8 06 -x. leas $02,S * 0781 32 62 2b L0783 ldb U0000,U * 0783 E6 C4 fD bne L0779 * 0785 26 F2 &r ldd >$01C5,Y * 0787 EC A9 01 C5 l).E beq L07A6 * 078B 27 19 '. bra L079A * 078D 20 0B . L078F ldd >$01C7,Y * 078F EC A9 01 C7 l).G pshs D * 0793 34 06 4. jsr [<$06,S] * 0795 AD F8 06 -x. leas $02,S * 0798 32 62 2b L079A ldd $08,S * 079A EC 68 lh addd #-1 * 079C C3 FF FF C.. std $08,S * 079F ED 68 mh subd #-1 * 07A1 83 FF FF ... bgt L078F * 07A4 2E E9 .i L07A6 puls PC,U * 07A6 35 C0 5@ L07A8 fcb $34 * 07A8 34 4 fcb $40 * 07A9 40 @ fcb $EC * 07AA EC l fcb $A9 * 07AB A9 ) fcb $01 * 07AC 01 . fcb $AF * 07AD AF / fcb $34 * 07AE 34 4 fcb $06 * 07AF 06 . fcb $EC * 07B0 EC l fcb $66 * 07B1 66 f fcb $34 * 07B2 34 4 fcb $06 * 07B3 06 . fcb $17 * 07B4 17 . fcb $00 * 07B5 00 . fcb $1D * 07B6 1D . L07B7 leas $04,S * 07B7 32 64 2d puls PC,U * 07B9 35 C0 5@ fcb $34 * 07BB 34 4 fcb $40 * 07BC 40 @ fcb $EC * 07BD EC l fcb $64 * 07BE 64 d fcb $AE * 07BF AE . fcb $A9 * 07C0 A9 ) fcb $01 * 07C1 01 . fcb $AF * 07C2 AF / fcb $30 * 07C3 30 0 fcb $01 * 07C4 01 . fcb $AF * 07C5 AF / fcb $A9 * 07C6 A9 ) fcb $01 * 07C7 01 . fcb $AF * 07C8 AF / fcb $E7 * 07C9 E7 g fcb $1F * 07CA 1F . fcb $35 * 07CB 35 5 fcb $C0 * 07CC C0 @ L07CD fcc "-32768" * 07CD 2D 33 32 37 36 38 -32768 fcb $00 * 07D3 00 . fcb $34 * 07D4 34 4 fcb $40 * 07D5 40 @ fcb $EE * 07D6 EE n fcb $66 * 07D7 66 f fcb $EC * 07D8 EC l fcb $46 * 07D9 46 F fcb $84 * 07DA 84 . fcb $80 * 07DB 80 . fcb $C4 * 07DC C4 D fcb $22 * 07DD 22 " fcb $10 * 07DE 10 . fcb $83 * 07DF 83 . fcb $80 * 07E0 80 . fcb $02 * 07E1 02 . fcb $27 * 07E2 27 ' fcb $14 * 07E3 14 . fcb $EC * 07E4 EC l fcb $46 * 07E5 46 F fcb $4F * 07E6 4F O fcb $C4 * 07E7 C4 D fcb $22 * 07E8 22 " fcb $10 * 07E9 10 . fcb $83 * 07EA 83 . fcb $00 * 07EB 00 . fcb $02 * 07EC 02 . fcb $10 * 07ED 10 . fcb $26 * 07EE 26 & fcb $01 * 07EF 01 . fcb $1F * 07F0 1F . fcb $34 * 07F1 34 4 fcb $40 * 07F2 40 @ fcb $17 * 07F3 17 . fcb $01 * 07F4 01 . fcb $F9 * 07F5 F9 y fcb $32 * 07F6 32 2 fcb $62 * 07F7 62 b fcb $EC * 07F8 EC l fcb $46 * 07F9 46 F fcb $4F * 07FA 4F O fcb $C4 * 07FB C4 D fcb $04 * 07FC 04 . fcb $27 * 07FD 27 ' fcb $35 * 07FE 35 5 fcb $CC * 07FF CC L fcb $00 * 0800 00 . fcb $01 * 0801 01 . fcb $34 * 0802 34 4 fcb $06 * 0803 06 . fcc "0g4" * 0804 30 67 34 0g4 fcb $10 * 0807 10 . fcb $EC * 0808 EC l fcb $48 * 0809 48 H fcb $34 * 080A 34 4 fcb $06 * 080B 06 . fcb $EC * 080C EC l fcb $46 * 080D 46 F fcb $4F * 080E 4F O fcb $C4 * 080F C4 D fcb $40 * 0810 40 @ fcb $27 * 0811 27 ' fcb $06 * 0812 06 . fcb $30 * 0813 30 0 fcb $8D * 0814 8D . fcb $05 * 0815 05 . fcb $62 * 0816 62 b fcb $20 * 0817 20 fcb $04 * 0818 04 . fcb $30 * 0819 30 0 fcb $8D * 081A 8D . fcb $05 * 081B 05 . fcb $43 * 081C 43 C fcb $1F * 081D 1F . fcb $10 * 081E 10 . fcb $1F * 081F 1F . fcb $01 * 0820 01 . fcb $AD * 0821 AD - fcb $84 * 0822 84 . fcb $32 * 0823 32 2 fcb $66 * 0824 66 f fcb $10 * 0825 10 . fcb $83 * 0826 83 . fcb $FF * 0827 FF . fcb $FF * 0828 FF . fcb $26 * 0829 26 & fcb $4A * 082A 4A J fcb $EC * 082B EC l fcb $46 * 082C 46 F fcb $CA * 082D CA J fcb $20 * 082E 20 fcb $ED * 082F ED m fcb $46 * 0830 46 F fcb $16 * 0831 16 . fcb $00 * 0832 00 . fcb $DC * 0833 DC \ fcb $EC * 0834 EC l fcb $46 * 0835 46 F fcb $84 * 0836 84 . fcb $01 * 0837 01 . fcb $5F * 0838 5F _ fcb $ED * 0839 ED m fcb $7E * 083A 7E ~ fcb $26 * 083B 26 & fcb $07 * 083C 07 . fcb $34 * 083D 34 4 fcb $40 * 083E 40 @ fcb $17 * 083F 17 . fcb $00 * 0840 00 . fcb $EB * 0841 EB k fcb $32 * 0842 32 2 fcb $62 * 0843 62 b fcb $EC * 0844 EC l fcb $C4 * 0845 C4 D fcb $C3 * 0846 C3 C fcb $00 * 0847 00 . fcb $01 * 0848 01 . fcb $ED * 0849 ED m fcb $C4 * 084A C4 D fcb $83 * 084B 83 . fcb $00 * 084C 00 . fcb $01 * 084D 01 . fcb $1F * 084E 1F . fcb $01 * 084F 01 . fcb $EC * 0850 EC l fcb $64 * 0851 64 d fcb $E7 * 0852 E7 g fcb $84 * 0853 84 . fcb $EC * 0854 EC l fcb $C4 * 0855 C4 D fcb $10 * 0856 10 . fcb $A3 * 0857 A3 # fcb $44 * 0858 44 D fcb $24 * 0859 24 $ fcb $0F * 085A 0F . fcb $EC * 085B EC l fcb $46 * 085C 46 F fcb $4F * 085D 4F O fcb $C4 * 085E C4 D fcb $40 * 085F 40 @ fcb $27 * 0860 27 ' fcb $13 * 0861 13 . fcb $EC * 0862 EC l fcb $64 * 0863 64 d fcb $10 * 0864 10 . fcb $83 * 0865 83 . fcb $00 * 0866 00 . fcb $0D * 0867 0D . fcb $26 * 0868 26 & fcb $0B * 0869 0B . fcb $34 * 086A 34 4 fcb $40 * 086B 40 @ fcb $17 * 086C 17 . fcb $00 * 086D 00 . fcb $BE * 086E BE > fcb $ED * 086F ED m fcb $E1 * 0870 E1 a fcb $10 * 0871 10 . fcb $26 * 0872 26 & fcb $00 * 0873 00 . fcb $9B * 0874 9B . fcb $EC * 0875 EC l fcb $64 * 0876 64 d fcb $35 * 0877 35 5 fcb $C0 * 0878 C0 @ fcb $34 * 0879 34 4 fcb $40 * 087A 40 @ fcb $EE * 087B EE n fcb $64 * 087C 64 d fcb $EC * 087D EC l fcb $66 * 087E 66 f fcb $34 * 087F 34 4 fcb $06 * 0880 06 . fcb $34 * 0881 34 4 fcb $40 * 0882 40 @ fcb $CC * 0883 CC L fcb $00 * 0884 00 . fcb $08 * 0885 08 . fcb $17 * 0886 17 . fcb $03 * 0887 03 . fcb $98 * 0888 98 . fcb $34 * 0889 34 4 fcb $06 * 088A 06 . fcb $17 * 088B 17 . fcb $FF * 088C FF . fcc "F2d" * 088D 46 32 64 F2d fcb $EC * 0890 EC l fcb $66 * 0891 66 f fcb $34 * 0892 34 4 fcb $06 * 0893 06 . fcb $34 * 0894 34 4 fcb $40 * 0895 40 @ fcb $17 * 0896 17 . fcb $FF * 0897 FF . fcb $3B * 0898 3B ; fcb $16 * 0899 16 . fcb $01 * 089A 01 . fcc "K" * 089B 4B K L089C pshs U,D * 089C 34 46 4F leau >$000E,Y * 089E 33 A9 00 0E 3).. clra * 08A2 4F O clrb * 08A3 5F _ std 0,S * 08A4 ED E4 md bra L08B2 * 08A6 20 0A . L08A8 tfr U,D * 08A8 1F 30 .0 leau U000D,U * 08AA 33 4D 3M pshs D * 08AC 34 06 4. bsr L08C5 * 08AE 8D 15 .. leas $02,S * 08B0 32 62 2b L08B2 ldd 0,S * 08B2 EC E4 ld addd #1 * 08B4 C3 00 01 C.. std 0,S * 08B7 ED E4 md subd #1 * 08B9 83 00 01 ... cmpd #16 * 08BC 10 83 00 10 .... blt L08A8 * 08C0 2D E6 -f lbra L0929 * 08C2 16 00 64 ..d L08C5 pshs U * 08C5 34 40 4@ ldu $04,S * 08C7 EE 64 nd leas -$02,S * 08C9 32 7E 2~ cmpu #0 * 08CB 11 83 00 00 .... beq L08D5 * 08CF 27 04 '. ldd U0006,U * 08D1 EC 46 lF bne L08DB * 08D3 26 06 &. L08D5 ldd #-1 * 08D5 CC FF FF L.. lbra L0929 * 08D8 16 00 4E ..N L08DB ldd U0006,U * 08DB EC 46 lF clra * 08DD 4F O andb #2 * 08DE C4 02 D. beq L08EA * 08E0 27 08 '. pshs U * 08E2 34 40 4@ bsr L08FF * 08E4 8D 19 .. leas $02,S * 08E6 32 62 2b bra L08EC * 08E8 20 02 . L08EA clra * 08EA 4F O clrb * 08EB 5F _ L08EC std 0,S * 08EC ED E4 md ldd U0008,U * 08EE EC 48 lH pshs D * 08F0 34 06 4. lbsr L0CC2 * 08F2 17 03 CD ..M leas $02,S * 08F5 32 62 2b clra * 08F7 4F O clrb * 08F8 5F _ std U0006,U * 08F9 ED 46 mF ldd 0,S * 08FB EC E4 ld bra L0929 * 08FD 20 2A * L08FF pshs U * 08FF 34 40 4@ ldu $04,S * 0901 EE 64 nd beq L0910 * 0903 27 0B '. ldd U0006,U * 0905 EC 46 lF clra * 0907 4F O andb #34 * 0908 C4 22 D" cmpd #2 * 090A 10 83 00 02 .... beq L0915 * 090E 27 05 '. L0910 ldd #-1 * 0910 CC FF FF L.. puls PC,U * 0913 35 C0 5@ L0915 ldd U0006,U * 0915 EC 46 lF anda #128 * 0917 84 80 .. clrb * 0919 5F _ std -$02,S * 091A ED 7E m~ bne L0925 * 091C 26 07 &. pshs U * 091E 34 40 4@ lbsr L09EF * 0920 17 00 CC ..L leas $02,S * 0923 32 62 2b L0925 pshs U * 0925 34 40 4@ bsr L092D * 0927 8D 04 .. L0929 leas $02,S * 0929 32 62 2b puls PC,U * 092B 35 C0 5@ L092D pshs U * 092D 34 40 4@ ldu $04,S * 092F EE 64 nd leas -$04,S * 0931 32 7C 2| ldd U0006,U * 0933 EC 46 lF anda #1 * 0935 84 01 .. clrb * 0937 5F _ std -$02,S * 0938 ED 7E m~ bne L095F * 093A 26 23 &# ldd U0000,U * 093C EC C4 lD cmpd U0004,U * 093E 10 A3 44 .#D beq L095F * 0941 27 1C '. clra * 0943 4F O clrb * 0944 5F _ pshs D * 0945 34 06 4. pshs U * 0947 34 40 4@ lbsr L09EB * 0949 17 00 9F ... leas $02,S * 094C 32 62 2b ldd $02,X * 094E EC 02 l. pshs D * 0950 34 06 4. ldd 0,X * 0952 EC 84 l. pshs D * 0954 34 06 4. ldd U0008,U * 0956 EC 48 lH pshs D * 0958 34 06 4. lbsr L0D89 * 095A 17 04 2C .., leas $08,S * 095D 32 68 2h L095F ldd U0000,U * 095F EC C4 lD subd U0002,U * 0961 A3 42 #B std $02,S * 0963 ED 62 mb lbeq L09D7 * 0965 10 27 00 6E .'.n ldd U0006,U * 0969 EC 46 lF anda #1 * 096B 84 01 .. clrb * 096D 5F _ std -$02,S * 096E ED 7E m~ lbeq L09D7 * 0970 10 27 00 63 .'.c ldd U0006,U * 0974 EC 46 lF clra * 0976 4F O andb #64 * 0977 C4 40 D@ beq L09AE * 0979 27 33 '3 ldd U0002,U * 097B EC 42 lB bra L09A6 * 097D 20 27 ' L097F ldd $02,S * 097F EC 62 lb pshs D * 0981 34 06 4. ldd U0000,U * 0983 EC C4 lD pshs D * 0985 34 06 4. ldd U0008,U * 0987 EC 48 lH pshs D * 0989 34 06 4. lbsr L0D79 * 098B 17 03 EB ..k leas $06,S * 098E 32 66 2f std 0,S * 0990 ED E4 md cmpd #-1 * 0992 10 83 FF FF .... bne L099C * 0996 26 04 &. leax $04,S * 0998 30 64 0d bra L09C6 * 099A 20 2A * L099C ldd $02,S * 099C EC 62 lb subd 0,S * 099E A3 E4 #d std $02,S * 09A0 ED 62 mb ldd U0000,U * 09A2 EC C4 lD addd 0,S * 09A4 E3 E4 cd L09A6 std U0000,U * 09A6 ED C4 mD ldd $02,S * 09A8 EC 62 lb bne L097F * 09AA 26 D3 &S bra L09D7 * 09AC 20 29 ) L09AE ldd $02,S * 09AE EC 62 lb pshs D * 09B0 34 06 4. ldd U0002,U * 09B2 EC 42 lB pshs D * 09B4 34 06 4. ldd U0008,U * 09B6 EC 48 lH pshs D * 09B8 34 06 4. lbsr L0D60 * 09BA 17 03 A3 ..# leas $06,S * 09BD 32 66 2f cmpd $02,S * 09BF 10 A3 62 .#b beq L09D7 * 09C2 27 13 '. bra L09C8 * 09C4 20 02 . L09C6 leas -$04,X * 09C6 32 1C 2. L09C8 ldd U0006,U * 09C8 EC 46 lF orb #32 * 09CA CA 20 J std U0006,U * 09CC ED 46 mF ldd U0004,U * 09CE EC 44 lD std U0000,U * 09D0 ED C4 mD ldd #-1 * 09D2 CC FF FF L.. bra L09E7 * 09D5 20 10 . L09D7 ldd U0006,U * 09D7 EC 46 lF ora #1 * 09D9 8A 01 .. std U0006,U * 09DB ED 46 mF ldd U0002,U * 09DD EC 42 lB std U0000,U * 09DF ED C4 mD addd U000B,U * 09E1 E3 4B cK std U0004,U * 09E3 ED 44 mD clra * 09E5 4F O clrb * 09E6 5F _ L09E7 leas $04,S * 09E7 32 64 2d puls PC,U * 09E9 35 C0 5@ L09EB pshs U * 09EB 34 40 4@ puls PC,U * 09ED 35 C0 5@ L09EF pshs U * 09EF 34 40 4@ ldu $04,S * 09F1 EE 64 nd ldd U0006,U * 09F3 EC 46 lF clra * 09F5 4F O andb #192 * 09F6 C4 C0 D@ bne L0A27 * 09F8 26 2D &- leas -$20,S * 09FA 32 E8 E0 2h` leax 0,S * 09FD 30 E4 0d pshs X * 09FF 34 10 4. ldd U0008,U * 0A01 EC 48 lH pshs D * 0A03 34 06 4. clra * 0A05 4F O clrb * 0A06 5F _ pshs D * 0A07 34 06 4. lbsr L0C44 * 0A09 17 02 38 ..8 leas $06,S * 0A0C 32 66 2f ldd U0006,U * 0A0E EC 46 lF pshs D * 0A10 34 06 4. ldb $02,S * 0A12 E6 62 fb bne L0A1B * 0A14 26 05 &. ldd #64 * 0A16 CC 00 40 L.@ bra L0A1E * 0A19 20 03 . L0A1B ldd #128 * 0A1B CC 00 80 L.. L0A1E ora ,S+ * 0A1E AA E0 *` orb ,S+ * 0A20 EA E0 j` std U0006,U * 0A22 ED 46 mF leas <$0020,S * 0A24 32 E8 20 2h L0A27 ldd U0006,U * 0A27 EC 46 lF ora #128 * 0A29 8A 80 .. std U0006,U * 0A2B ED 46 mF clra * 0A2D 4F O andb #12 * 0A2E C4 0C D. beq L0A34 * 0A30 27 02 '. puls PC,U * 0A32 35 C0 5@ L0A34 ldd U000B,U * 0A34 EC 4B lK bne L0A49 * 0A36 26 11 &. ldd U0006,U * 0A38 EC 46 lF clra * 0A3A 4F O andb #64 * 0A3B C4 40 D@ beq L0A44 * 0A3D 27 05 '. ldd #128 * 0A3F CC 00 80 L.. bra L0A47 * 0A42 20 03 . L0A44 ldd #256 * 0A44 CC 01 00 L.. L0A47 std U000B,U * 0A47 ED 4B mK L0A49 ldd U0002,U * 0A49 EC 42 lB bne L0A5E * 0A4B 26 11 &. ldd U000B,U * 0A4D EC 4B lK pshs D * 0A4F 34 06 4. lbsr L0E47 * 0A51 17 03 F3 ..s leas $02,S * 0A54 32 62 2b std U0002,U * 0A56 ED 42 mB cmpd #-1 * 0A58 10 83 FF FF .... beq L0A66 * 0A5C 27 08 '. L0A5E ldd U0006,U * 0A5E EC 46 lF orb #8 * 0A60 CA 08 J. std U0006,U * 0A62 ED 46 mF bra L0A75 * 0A64 20 0F . L0A66 ldd U0006,U * 0A66 EC 46 lF orb #4 * 0A68 CA 04 J. std U0006,U * 0A6A ED 46 mF leax U000A,U * 0A6C 30 4A 0J stx U0002,U * 0A6E AF 42 /B ldd #1 * 0A70 CC 00 01 L.. std U000B,U * 0A73 ED 4B mK L0A75 ldd U0002,U * 0A75 EC 42 lB addd U000B,U * 0A77 E3 4B cK std U0004,U * 0A79 ED 44 mD std U0000,U * 0A7B ED C4 mD puls PC,U * 0A7D 35 C0 5@ L0A7F pshs U * 0A7F 34 40 4@ ldb $05,S * 0A81 E6 65 fe sex * 0A83 1D . tfr D,X * 0A84 1F 01 .. bra L0AA5 * 0A86 20 1D . L0A88 ldd [<$06,S] * 0A88 EC F8 06 lx. addd #4 * 0A8B C3 00 04 C.. std [<$06,S] * 0A8E ED F8 06 mx. leax >L0ABC,PC * 0A91 30 8D 00 27 0..' bra L0AA1 * 0A95 20 0A . L0A97 ldb $05,S * 0A97 E6 65 fe stb >$000C,Y * 0A99 E7 A9 00 0C g).. leax >$000B,Y * 0A9D 30 A9 00 0B 0).. L0AA1 tfr X,D * 0AA1 1F 10 .. puls PC,U * 0AA3 35 C0 5@ L0AA5 cmpx #100 * 0AA5 8C 00 64 ..d beq L0A88 * 0AA8 27 DE '^ cmpx #111 * 0AAA 8C 00 6F ..o lbeq L0A88 * 0AAD 10 27 FF D7 .'.W cmpx #120 * 0AB1 8C 00 78 ..x lbeq L0A88 * 0AB4 10 27 FF D0 .'.P bra L0A97 * 0AB8 20 DD ] fcb $35 * 0ABA 35 5 fcb $C0 * 0ABB C0 @ L0ABC fcb $00 * 0ABC 00 . L0ABD pshs U * 0ABD 34 40 4@ leax >L0AC7,PC * 0ABF 30 8D 00 04 0... tfr X,D * 0AC3 1F 10 .. puls PC,U * 0AC5 35 C0 5@ L0AC7 fcb $00 * 0AC7 00 . L0AC8 pshs U * 0AC8 34 40 4@ ldu $04,S * 0ACA EE 64 nd L0ACC ldb ,U+ * 0ACC E6 C0 f@ bne L0ACC * 0ACE 26 FC &| tfr U,D * 0AD0 1F 30 .0 subd $04,S * 0AD2 A3 64 #d addd #-1 * 0AD4 C3 FF FF C.. puls PC,U * 0AD7 35 C0 5@ L0AD9 pshs U * 0AD9 34 40 4@ ldu $06,S * 0ADB EE 66 nf leas -$02,S * 0ADD 32 7E 2~ ldd $06,S * 0ADF EC 66 lf std 0,S * 0AE1 ED E4 md L0AE3 ldb ,U+ * 0AE3 E6 C0 f@ ldx 0,S * 0AE5 AE E4 .d leax $01,X * 0AE7 30 01 0. stx 0,S * 0AE9 AF E4 /d stb -$01,X * 0AEB E7 1F g. bne L0AE3 * 0AED 26 F4 &t bra L0B18 * 0AEF 20 27 ' L0AF1 pshs U * 0AF1 34 40 4@ ldu $06,S * 0AF3 EE 66 nf leas -$02,S * 0AF5 32 7E 2~ ldd $06,S * 0AF7 EC 66 lf std 0,S * 0AF9 ED E4 md L0AFB ldx 0,S * 0AFB AE E4 .d leax $01,X * 0AFD 30 01 0. stx 0,S * 0AFF AF E4 /d ldb -$01,X * 0B01 E6 1F f. bne L0AFB * 0B03 26 F6 &v ldd 0,S * 0B05 EC E4 ld addd #-1 * 0B07 C3 FF FF C.. std 0,S * 0B0A ED E4 md L0B0C ldb ,U+ * 0B0C E6 C0 f@ ldx 0,S * 0B0E AE E4 .d leax $01,X * 0B10 30 01 0. stx 0,S * 0B12 AF E4 /d stb -$01,X * 0B14 E7 1F g. bne L0B0C * 0B16 26 F4 &t L0B18 ldd $06,S * 0B18 EC 66 lf leas $02,S * 0B1A 32 62 2b puls PC,U * 0B1C 35 C0 5@ fcb $34 * 0B1E 34 4 fcb $40 * 0B1F 40 @ fcb $EE * 0B20 EE n fcb $64 * 0B21 64 d fcb $20 * 0B22 20 fcb $10 * 0B23 10 . fcb $AE * 0B24 AE . fcb $66 * 0B25 66 f fcb $30 * 0B26 30 0 fcb $01 * 0B27 01 . fcb $AF * 0B28 AF / fcb $66 * 0B29 66 f fcb $E6 * 0B2A E6 f fcb $1F * 0B2B 1F . fcb $26 * 0B2C 26 & fcb $04 * 0B2D 04 . fcc "O_5" * 0B2E 4F 5F 35 O_5 fcb $C0 * 0B31 C0 @ fcb $33 * 0B32 33 3 fcb $41 * 0B33 41 A fcb $E6 * 0B34 E6 f fcb $C4 * 0B35 C4 D fcb $1D * 0B36 1D . fcb $34 * 0B37 34 4 fcb $06 * 0B38 06 . fcb $E6 * 0B39 E6 f fcb $F8 * 0B3A F8 x fcb $08 * 0B3B 08 . fcb $1D * 0B3C 1D . fcb $10 * 0B3D 10 . fcb $A3 * 0B3E A3 # fcb $E1 * 0B3F E1 a fcb $27 * 0B40 27 ' fcb $E2 * 0B41 E2 b fcb $E6 * 0B42 E6 f fcb $F8 * 0B43 F8 x fcb $06 * 0B44 06 . fcb $1D * 0B45 1D . fcb $34 * 0B46 34 4 fcb $06 * 0B47 06 . fcb $E6 * 0B48 E6 f fcb $C4 * 0B49 C4 D fcb $1D * 0B4A 1D . fcb $A3 * 0B4B A3 # fcb $E1 * 0B4C E1 a fcb $35 * 0B4D 35 5 fcb $C0 * 0B4E C0 @ L0B4F pshs U * 0B4F 34 40 4@ ldu $04,S * 0B51 EE 64 nd leas -$05,S * 0B53 32 7B 2{ clra * 0B55 4F O clrb * 0B56 5F _ std $01,S * 0B57 ED 61 ma L0B59 ldb ,U+ * 0B59 E6 C0 f@ stb 0,S * 0B5B E7 E4 gd cmpb #32 * 0B5D C1 20 A beq L0B59 * 0B5F 27 F8 'x ldb 0,S * 0B61 E6 E4 fd cmpb #9 * 0B63 C1 09 A. lbeq L0B59 * 0B65 10 27 FF F0 .'.p ldb 0,S * 0B69 E6 E4 fd cmpb #45 * 0B6B C1 2D A- bne L0B74 * 0B6D 26 05 &. ldd #1 * 0B6F CC 00 01 L.. bra L0B76 * 0B72 20 02 . L0B74 clra * 0B74 4F O clrb * 0B75 5F _ L0B76 std $03,S * 0B76 ED 63 mc ldb 0,S * 0B78 E6 E4 fd cmpb #45 * 0B7A C1 2D A- beq L0B9C * 0B7C 27 1E '. ldb 0,S * 0B7E E6 E4 fd cmpb #43 * 0B80 C1 2B A+ bne L0BA0 * 0B82 26 1C &. bra L0B9C * 0B84 20 16 . L0B86 ldd $01,S * 0B86 EC 61 la pshs D * 0B88 34 06 4. ldd #10 * 0B8A CC 00 0A L.. lbsr L0BC2 * 0B8D 17 00 32 ..2 pshs D * 0B90 34 06 4. ldb $02,S * 0B92 E6 62 fb sex * 0B94 1D . addd ,S++ * 0B95 E3 E1 ca addd #-48 * 0B97 C3 FF D0 C.P std $01,S * 0B9A ED 61 ma L0B9C ldb ,U+ * 0B9C E6 C0 f@ stb 0,S * 0B9E E7 E4 gd L0BA0 ldb 0,S * 0BA0 E6 E4 fd sex * 0BA2 1D . leax >$00DF,Y * 0BA3 30 A9 00 DF 0)._ leax D,X * 0BA7 30 8B 0. ldb 0,X * 0BA9 E6 84 f. clra * 0BAB 4F O andb #8 * 0BAC C4 08 D. bne L0B86 * 0BAE 26 D6 &V ldd $03,S * 0BB0 EC 63 lc beq L0BBC * 0BB2 27 08 '. ldd $01,S * 0BB4 EC 61 la nega * 0BB6 40 @ negb * 0BB7 50 P sbca #0 * 0BB8 82 00 .. bra L0BBE * 0BBA 20 02 . L0BBC ldd $01,S * 0BBC EC 61 la L0BBE leas $05,S * 0BBE 32 65 2e puls PC,U * 0BC0 35 C0 5@ L0BC2 tsta * 0BC2 4D M bne L0BD7 * 0BC3 26 12 &. tst $02,S * 0BC5 6D 62 mb bne L0BD7 * 0BC7 26 0E &. lda $03,S * 0BC9 A6 63 &c mul * 0BCB 3D = ldx 0,S * 0BCC AE E4 .d stx $02,S * 0BCE AF 62 /b ldx #0 * 0BD0 8E 00 00 ... std 0,S * 0BD3 ED E4 md puls PC,D * 0BD5 35 86 5. L0BD7 pshs D * 0BD7 34 06 4. ldd #0 * 0BD9 CC 00 00 L.. pshs D * 0BDC 34 06 4. pshs D * 0BDE 34 06 4. lda $05,S * 0BE0 A6 65 &e ldb $09,S * 0BE2 E6 69 fi mul * 0BE4 3D = std $02,S * 0BE5 ED 62 mb lda $05,S * 0BE7 A6 65 &e ldb $08,S * 0BE9 E6 68 fh mul * 0BEB 3D = addd $01,S * 0BEC E3 61 ca std $01,S * 0BEE ED 61 ma bcc L0BF4 * 0BF0 24 02 $. inc 0,S * 0BF2 6C E4 ld L0BF4 lda $04,S * 0BF4 A6 64 &d ldb $09,S * 0BF6 E6 69 fi mul * 0BF8 3D = addd $01,S * 0BF9 E3 61 ca std $01,S * 0BFB ED 61 ma bcc L0C01 * 0BFD 24 02 $. inc 0,S * 0BFF 6C E4 ld L0C01 lda $04,S * 0C01 A6 64 &d ldb $08,S * 0C03 E6 68 fh mul * 0C05 3D = addd 0,S * 0C06 E3 E4 cd std 0,S * 0C08 ED E4 md ldx $06,S * 0C0A AE 66 .f stx $08,S * 0C0C AF 68 /h ldx 0,S * 0C0E AE E4 .d ldd $02,S * 0C10 EC 62 lb leas $08,S * 0C12 32 68 2h rts * 0C14 39 9 fcb $5D * 0C15 5D ] fcb $27 * 0C16 27 ' fcb $13 * 0C17 13 . fcc "gbfcZ&" * 0C18 67 62 66 63 5A 26 gbfcZ& fcb $F9 * 0C1E F9 y fcb $20 * 0C1F 20 fcb $0A * 0C20 0A . fcb $5D * 0C21 5D ] fcb $27 * 0C22 27 ' fcb $07 * 0C23 07 . fcc "dbfcZ&" * 0C24 64 62 66 63 5A 26 dbfcZ& fcb $F9 * 0C2A F9 y fcb $EC * 0C2B EC l fcb $62 * 0C2C 62 b fcb $34 * 0C2D 34 4 fcb $06 * 0C2E 06 . fcb $EC * 0C2F EC l fcb $62 * 0C30 62 b fcb $ED * 0C31 ED m fcb $64 * 0C32 64 d fcb $EC * 0C33 EC l fcb $E4 * 0C34 E4 d fcc "2d9]'" * 0C35 32 64 39 5D 27 2d9]' fcb $F0 * 0C3A F0 p fcc "hcibZ&" * 0C3B 68 63 69 62 5A 26 hcibZ& fcb $F9 * 0C41 F9 y fcb $20 * 0C42 20 fcb $E7 * 0C43 E7 g L0C44 lda $05,S * 0C44 A6 65 &e ldb $03,S * 0C46 E6 63 fc beq L0C77 * 0C48 27 2D '- cmpb #1 * 0C4A C1 01 A. beq L0C79 * 0C4C 27 2B '+ cmpb #6 * 0C4E C1 06 A. beq L0C79 * 0C50 27 27 '' cmpb #2 * 0C52 C1 02 A. beq L0C5F * 0C54 27 09 '. cmpb #5 * 0C56 C1 05 A. beq L0C5F * 0C58 27 05 '. ldb #208 * 0C5A C6 D0 FP lbra L0F1C * 0C5C 16 02 BD ..= L0C5F pshs U * 0C5F 34 40 4@ os9 I$GetStt * 0C61 10 3F 8D .?. bcc L0C6B * 0C64 24 05 $. puls U * 0C66 35 40 5@ lbra L0F1C * 0C68 16 02 B1 ..1 L0C6B stx [<$08,S] * 0C6B AF F8 08 /x. ldx $08,S * 0C6E AE 68 .h stu $02,X * 0C70 EF 02 o. puls U * 0C72 35 40 5@ clra * 0C74 4F O clrb * 0C75 5F _ rts * 0C76 39 9 L0C77 ldx $06,S * 0C77 AE 66 .f L0C79 os9 I$GetStt * 0C79 10 3F 8D .?. lbra L0F25 * 0C7C 16 02 A6 ..& fcb $A6 * 0C7F A6 & fcb $65 * 0C80 65 e fcb $E6 * 0C81 E6 f fcb $63 * 0C82 63 c fcb $27 * 0C83 27 ' fcb $09 * 0C84 09 . fcb $C1 * 0C85 C1 A fcb $02 * 0C86 02 . fcb $27 * 0C87 27 ' fcb $0D * 0C88 0D . fcb $C6 * 0C89 C6 F fcb $D0 * 0C8A D0 P fcb $16 * 0C8B 16 . fcb $02 * 0C8C 02 . fcb $8E * 0C8D 8E . fcb $AE * 0C8E AE . fcb $66 * 0C8F 66 f fcb $10 * 0C90 10 . fcb $3F * 0C91 3F ? fcb $8E * 0C92 8E . fcb $16 * 0C93 16 . fcb $02 * 0C94 02 . fcb $8F * 0C95 8F . fcb $34 * 0C96 34 4 fcb $40 * 0C97 40 @ fcb $AE * 0C98 AE . fcb $68 * 0C99 68 h fcb $EE * 0C9A EE n fcb $6A * 0C9B 6A j fcb $10 * 0C9C 10 . fcb $3F * 0C9D 3F ? fcb $8E * 0C9E 8E . fcb $35 * 0C9F 35 5 fcb $40 * 0CA0 40 @ fcb $16 * 0CA1 16 . fcb $02 * 0CA2 02 . fcb $81 * 0CA3 81 . fcb $AE * 0CA4 AE . fcb $62 * 0CA5 62 b fcb $A6 * 0CA6 A6 & fcb $65 * 0CA7 65 e fcb $10 * 0CA8 10 . fcb $3F * 0CA9 3F ? fcb $84 * 0CAA 84 . fcb $25 * 0CAB 25 % fcb $03 * 0CAC 03 . fcb $10 * 0CAD 10 . fcb $3F * 0CAE 3F ? fcb $8F * 0CAF 8F . fcb $16 * 0CB0 16 . fcb $02 * 0CB1 02 . fcb $72 * 0CB2 72 r fcb $AE * 0CB3 AE . fcb $62 * 0CB4 62 b fcb $A6 * 0CB5 A6 & fcb $65 * 0CB6 65 e fcb $10 * 0CB7 10 . fcb $3F * 0CB8 3F ? fcb $84 * 0CB9 84 . fcb $10 * 0CBA 10 . fcb $25 * 0CBB 25 % fcb $02 * 0CBC 02 . fcb $5E * 0CBD 5E ^ fcb $1F * 0CBE 1F . fcb $89 * 0CBF 89 . fcb $4F * 0CC0 4F O fcb $39 * 0CC1 39 9 L0CC2 lda $03,S * 0CC2 A6 63 &c os9 I$Close * 0CC4 10 3F 8F .?. lbra L0F25 * 0CC7 16 02 5B ..[ fcb $AE * 0CCA AE . fcb $62 * 0CCB 62 b fcb $E6 * 0CCC E6 f fcb $65 * 0CCD 65 e fcb $10 * 0CCE 10 . fcb $3F * 0CCF 3F ? fcb $85 * 0CD0 85 . fcb $16 * 0CD1 16 . fcb $02 * 0CD2 02 . fcb $51 * 0CD3 51 Q fcb $AE * 0CD4 AE . fcb $62 * 0CD5 62 b fcb $A6 * 0CD6 A6 & fcb $65 * 0CD7 65 e fcb $1F * 0CD8 1F . fcb $89 * 0CD9 89 . fcb $C4 * 0CDA C4 D fcb $24 * 0CDB 24 $ fcb $CA * 0CDC CA J fcb $0B * 0CDD 0B . fcb $10 * 0CDE 10 . fcb $3F * 0CDF 3F ? fcb $83 * 0CE0 83 . fcb $25 * 0CE1 25 % fcb $04 * 0CE2 04 . fcb $1F * 0CE3 1F . fcb $89 * 0CE4 89 . fcb $4F * 0CE5 4F O fcb $39 * 0CE6 39 9 fcb $C1 * 0CE7 C1 A fcb $DA * 0CE8 DA Z fcb $10 * 0CE9 10 . fcb $26 * 0CEA 26 & fcb $02 * 0CEB 02 . fcb $2F * 0CEC 2F / fcb $A6 * 0CED A6 & fcb $65 * 0CEE 65 e fcb $85 * 0CEF 85 . fcb $80 * 0CF0 80 . fcb $10 * 0CF1 10 . fcb $26 * 0CF2 26 & fcb $02 * 0CF3 02 . fcb $27 * 0CF4 27 ' fcb $84 * 0CF5 84 . fcb $07 * 0CF6 07 . fcb $AE * 0CF7 AE . fcb $62 * 0CF8 62 b fcb $10 * 0CF9 10 . fcb $3F * 0CFA 3F ? fcb $84 * 0CFB 84 . fcb $10 * 0CFC 10 . fcb $25 * 0CFD 25 % fcb $02 * 0CFE 02 . fcb $1C * 0CFF 1C . fcb $34 * 0D00 34 4 fcb $42 * 0D01 42 B fcb $8E * 0D02 8E . fcb $00 * 0D03 00 . fcb $00 * 0D04 00 . fcb $33 * 0D05 33 3 fcb $84 * 0D06 84 . fcb $C6 * 0D07 C6 F fcb $02 * 0D08 02 . fcb $10 * 0D09 10 . fcb $3F * 0D0A 3F ? fcb $8E * 0D0B 8E . fcc "5B$" * 0D0C 35 42 24 5B$ fcb $D3 * 0D0F D3 S fcb $34 * 0D10 34 4 fcb $04 * 0D11 04 . fcb $10 * 0D12 10 . fcb $3F * 0D13 3F ? fcb $8F * 0D14 8F . fcb $35 * 0D15 35 5 fcb $04 * 0D16 04 . fcb $16 * 0D17 16 . fcb $02 * 0D18 02 . fcb $02 * 0D19 02 . fcb $AE * 0D1A AE . fcb $62 * 0D1B 62 b fcb $10 * 0D1C 10 . fcb $3F * 0D1D 3F ? fcb $87 * 0D1E 87 . fcb $16 * 0D1F 16 . fcb $02 * 0D20 02 . fcb $03 * 0D21 03 . fcb $A6 * 0D22 A6 & fcb $63 * 0D23 63 c fcb $10 * 0D24 10 . fcb $3F * 0D25 3F ? fcb $82 * 0D26 82 . fcb $10 * 0D27 10 . fcb $25 * 0D28 25 % fcb $01 * 0D29 01 . fcb $F1 * 0D2A F1 q fcb $1F * 0D2B 1F . fcb $89 * 0D2C 89 . fcc "O94 " * 0D2D 4F 39 34 20 O94 fcb $AE * 0D31 AE . fcb $66 * 0D32 66 f fcb $A6 * 0D33 A6 & fcb $65 * 0D34 65 e fcb $10 * 0D35 10 . fcb $AE * 0D36 AE . fcc "h4 " * 0D37 68 34 20 h4 fcb $10 * 0D3A 10 . fcb $3F * 0D3B 3F ? fcb $89 * 0D3C 89 . fcb $24 * 0D3D 24 $ fcb $0D * 0D3E 0D . fcb $C1 * 0D3F C1 A fcb $D3 * 0D40 D3 S fcb $26 * 0D41 26 & fcb $04 * 0D42 04 . fcc "O_5" * 0D43 4F 5F 35 O_5 fcb $B0 * 0D46 B0 0 fcb $35 * 0D47 35 5 fcb $30 * 0D48 30 0 fcb $16 * 0D49 16 . fcb $01 * 0D4A 01 . fcb $D0 * 0D4B D0 P fcb $1F * 0D4C 1F . fcb $20 * 0D4D 20 fcb $35 * 0D4E 35 5 fcb $B0 * 0D4F B0 0 fcb $34 * 0D50 34 4 fcb $20 * 0D51 20 fcb $A6 * 0D52 A6 & fcb $65 * 0D53 65 e fcb $AE * 0D54 AE . fcb $66 * 0D55 66 f fcb $10 * 0D56 10 . fcb $AE * 0D57 AE . fcc "h4 " * 0D58 68 34 20 h4 fcb $10 * 0D5B 10 . fcb $3F * 0D5C 3F ? fcb $8B * 0D5D 8B . fcb $20 * 0D5E 20 fcb $DD * 0D5F DD ] L0D60 pshs Y * 0D60 34 20 4 ldy $08,S * 0D62 10 AE 68 ..h beq L0D75 * 0D65 27 0E '. lda $05,S * 0D67 A6 65 &e ldx $06,S * 0D69 AE 66 .f os9 I$Write * 0D6B 10 3F 8A .?. L0D6E bcc L0D75 * 0D6E 24 05 $. puls Y * 0D70 35 20 5 lbra L0F1C * 0D72 16 01 A7 ..' L0D75 tfr Y,D * 0D75 1F 20 . puls PC,Y * 0D77 35 A0 5 L0D79 pshs Y * 0D79 34 20 4 ldy $08,S * 0D7B 10 AE 68 ..h beq L0D75 * 0D7E 27 F5 'u lda $05,S * 0D80 A6 65 &e ldx $06,S * 0D82 AE 66 .f os9 I$WritLn * 0D84 10 3F 8C .?. bra L0D6E * 0D87 20 E5 e L0D89 pshs U * 0D89 34 40 4@ ldd $0A,S * 0D8B EC 6A lj bne L0D97 * 0D8D 26 08 &. ldu #0 * 0D8F CE 00 00 N.. ldx #0 * 0D92 8E 00 00 ... bra L0DCB * 0D95 20 34 4 L0D97 cmpd #1 * 0D97 10 83 00 01 .... beq L0DC2 * 0D9B 27 25 '% cmpd #2 * 0D9D 10 83 00 02 .... beq L0DB7 * 0DA1 27 14 '. ldb #247 * 0DA3 C6 F7 Fw L0DA5 clra * 0DA5 4F O std >$01AD,Y * 0DA6 ED A9 01 AD m).- ldd #-1 * 0DAA CC FF FF L.. leax >$01A1,Y * 0DAD 30 A9 01 A1 0).! std 0,X * 0DB1 ED 84 m. std $02,X * 0DB3 ED 02 m. puls PC,U * 0DB5 35 C0 5@ L0DB7 lda $05,S * 0DB7 A6 65 &e ldb #2 * 0DB9 C6 02 F. os9 I$GetStt * 0DBB 10 3F 8D .?. bcs L0DA5 * 0DBE 25 E5 %e bra L0DCB * 0DC0 20 09 . L0DC2 lda $05,S * 0DC2 A6 65 &e ldb #5 * 0DC4 C6 05 F. os9 I$GetStt * 0DC6 10 3F 8D .?. bcs L0DA5 * 0DC9 25 DA %Z L0DCB tfr U,D * 0DCB 1F 30 .0 addd $08,S * 0DCD E3 68 ch std >$01A3,Y * 0DCF ED A9 01 A3 m).# tfr D,U * 0DD3 1F 03 .. tfr X,D * 0DD5 1F 10 .. adcb $07,S * 0DD7 E9 67 ig adca $06,S * 0DD9 A9 66 )f bmi L0DA5 * 0DDB 2B C8 +H tfr D,X * 0DDD 1F 01 .. std >$01A1,Y * 0DDF ED A9 01 A1 m).! lda $05,S * 0DE3 A6 65 &e os9 I$Seek * 0DE5 10 3F 88 .?. bcs L0DA5 * 0DE8 25 BB %; leax >$01A1,Y * 0DEA 30 A9 01 A1 0).! puls PC,U * 0DEE 35 C0 5@ fcb $EC * 0DF0 EC l fcb $A9 * 0DF1 A9 ) fcb $01 * 0DF2 01 . fcb $9F * 0DF3 9F . fcb $34 * 0DF4 34 4 fcb $06 * 0DF5 06 . fcb $EC * 0DF6 EC l fcb $64 * 0DF7 64 d fcb $10 * 0DF8 10 . fcb $A3 * 0DF9 A3 # fcb $A9 * 0DFA A9 ) fcb $01 * 0DFB 01 . fcb $C9 * 0DFC C9 I fcb $25 * 0DFD 25 % fcb $25 * 0DFE 25 % fcb $E3 * 0DFF E3 c fcb $A9 * 0E00 A9 ) fcb $01 * 0E01 01 . fcb $9F * 0E02 9F . fcb $34 * 0E03 34 4 fcb $20 * 0E04 20 fcb $A3 * 0E05 A3 # fcb $E4 * 0E06 E4 d fcb $10 * 0E07 10 . fcb $3F * 0E08 3F ? fcb $07 * 0E09 07 . fcb $1F * 0E0A 1F . fcc " 5 $" * 0E0B 20 35 20 24 5 $ fcb $06 * 0E0F 06 . fcb $CC * 0E10 CC L fcb $FF * 0E11 FF . fcb $FF * 0E12 FF . fcc "2b9" * 0E13 32 62 39 2b9 fcb $ED * 0E16 ED m fcb $A9 * 0E17 A9 ) fcb $01 * 0E18 01 . fcb $9F * 0E19 9F . fcb $E3 * 0E1A E3 c fcb $A9 * 0E1B A9 ) fcb $01 * 0E1C 01 . fcb $C9 * 0E1D C9 I fcb $A3 * 0E1E A3 # fcb $E4 * 0E1F E4 d fcb $ED * 0E20 ED m fcb $A9 * 0E21 A9 ) fcb $01 * 0E22 01 . fcb $C9 * 0E23 C9 I fcb $32 * 0E24 32 2 fcb $62 * 0E25 62 b fcb $EC * 0E26 EC l fcb $A9 * 0E27 A9 ) fcb $01 * 0E28 01 . fcb $C9 * 0E29 C9 I fcb $34 * 0E2A 34 4 fcb $06 * 0E2B 06 . fcb $A3 * 0E2C A3 # fcb $64 * 0E2D 64 d fcb $ED * 0E2E ED m fcb $A9 * 0E2F A9 ) fcb $01 * 0E30 01 . fcb $C9 * 0E31 C9 I fcb $EC * 0E32 EC l fcb $A9 * 0E33 A9 ) fcb $01 * 0E34 01 . fcb $9F * 0E35 9F . fcb $A3 * 0E36 A3 # fcb $E1 * 0E37 E1 a fcb $34 * 0E38 34 4 fcb $06 * 0E39 06 . fcb $4F * 0E3A 4F O fcb $AE * 0E3B AE . fcb $E4 * 0E3C E4 d fcb $A7 * 0E3D A7 ' fcb $80 * 0E3E 80 . fcb $AC * 0E3F AC , fcb $A9 * 0E40 A9 ) fcb $01 * 0E41 01 . fcb $9F * 0E42 9F . fcb $25 * 0E43 25 % fcb $F8 * 0E44 F8 x fcb $35 * 0E45 35 5 fcb $86 * 0E46 86 . L0E47 ldd $02,S * 0E47 EC 62 lb addd >$01A9,Y * 0E49 E3 A9 01 A9 c).) bcs L0E70 * 0E4D 25 21 %! cmpd >$01AB,Y * 0E4F 10 A3 A9 01 AB .#).+ bcc L0E70 * 0E54 24 1A $. pshs D * 0E56 34 06 4. ldx >$01A9,Y * 0E58 AE A9 01 A9 .).) clra * 0E5C 4F O L0E5D cmpx 0,S * 0E5D AC E4 ,d bcc L0E65 * 0E5F 24 04 $. sta ,X+ * 0E61 A7 80 '. bra L0E5D * 0E63 20 F8 x L0E65 ldd >$01A9,Y * 0E65 EC A9 01 A9 l).) puls X * 0E69 35 10 5. stx >$01A9,Y * 0E6B AF A9 01 A9 /).) rts * 0E6F 39 9 L0E70 ldd #-1 * 0E70 CC FF FF L.. rts * 0E73 39 9 fcb $A6 * 0E74 A6 & fcb $63 * 0E75 63 c fcb $E6 * 0E76 E6 f fcb $65 * 0E77 65 e fcb $10 * 0E78 10 . fcb $3F * 0E79 3F ? fcb $08 * 0E7A 08 . fcb $16 * 0E7B 16 . fcb $00 * 0E7C 00 . fcb $A7 * 0E7D A7 ' fcb $4F * 0E7E 4F O fcb $5F * 0E7F 5F _ fcb $10 * 0E80 10 . fcb $3F * 0E81 3F ? fcb $04 * 0E82 04 . fcb $10 * 0E83 10 . fcb $25 * 0E84 25 % fcb $00 * 0E85 00 . fcb $95 * 0E86 95 . fcb $AE * 0E87 AE . fcb $62 * 0E88 62 b fcb $27 * 0E89 27 ' fcb $04 * 0E8A 04 . fcb $E7 * 0E8B E7 g fcb $01 * 0E8C 01 . fcb $6F * 0E8D 6F o fcb $84 * 0E8E 84 . fcb $1F * 0E8F 1F . fcb $89 * 0E90 89 . fcb $4F * 0E91 4F O fcb $39 * 0E92 39 9 fcb $A6 * 0E93 A6 & fcb $63 * 0E94 63 c fcb $E6 * 0E95 E6 f fcb $65 * 0E96 65 e fcb $10 * 0E97 10 . fcb $3F * 0E98 3F ? fcb $0D * 0E99 0D . fcb $16 * 0E9A 16 . fcb $00 * 0E9B 00 . fcb $88 * 0E9C 88 . L0E9D leau 0,S * 0E9D 33 E4 3d leas >$00FF,Y * 0E9F 32 A9 00 FF 2).. ldx U0002,U * 0EA3 AE 42 .B ldy U0004,U * 0EA5 10 AE 44 ..D lda U0009,U * 0EA8 A6 49 &I asla * 0EAA 48 H asla * 0EAB 48 H asla * 0EAC 48 H asla * 0EAD 48 H ora U000B,U * 0EAE AA 4B *K ldb U000D,U * 0EB0 E6 4D fM ldu U0006,U * 0EB2 EE 46 nF os9 F$Chain * 0EB4 10 3F 05 .?. os9 F$Exit * 0EB7 10 3F 06 .?. fcb $34 * 0EBA 34 4 fcb $60 * 0EBB 60 ` fcb $AE * 0EBC AE . fcb $66 * 0EBD 66 f fcb $10 * 0EBE 10 . fcb $AE * 0EBF AE . fcb $68 * 0EC0 68 h fcb $EE * 0EC1 EE n fcb $6A * 0EC2 6A j fcb $A6 * 0EC3 A6 & fcb $6D * 0EC4 6D m fcb $AA * 0EC5 AA * fcb $6F * 0EC6 6F o fcb $E6 * 0EC7 E6 f fcb $E8 * 0EC8 E8 h fcb $11 * 0EC9 11 . fcb $10 * 0ECA 10 . fcb $3F * 0ECB 3F ? fcb $03 * 0ECC 03 . fcb $35 * 0ECD 35 5 fcb $60 * 0ECE 60 ` fcb $10 * 0ECF 10 . fcb $25 * 0ED0 25 % fcb $00 * 0ED1 00 . fcb $49 * 0ED2 49 I fcb $1F * 0ED3 1F . fcb $89 * 0ED4 89 . fcc "O94 " * 0ED5 4F 39 34 20 O94 fcb $10 * 0ED9 10 . fcb $3F * 0EDA 3F ? fcb $0C * 0EDB 0C . fcc "5 $" * 0EDC 35 20 24 5 $ fcb $04 * 0EDF 04 . fcb $10 * 0EE0 10 . fcb $25 * 0EE1 25 % fcb $00 * 0EE2 00 . fcb $38 * 0EE3 38 8 fcb $1F * 0EE4 1F . fcb $89 * 0EE5 89 . fcc "O9" * 0EE6 4F 39 O9 L0EE8 pshs Y * 0EE8 34 20 4 os9 F$ID * 0EEA 10 3F 0C .?. bcc L0EF4 * 0EED 24 05 $. L0EEF puls Y * 0EEF 35 20 5 lbra L0F1C * 0EF1 16 00 28 ..( L0EF4 tfr Y,D * 0EF4 1F 20 . puls PC,Y * 0EF6 35 A0 5 L0EF8 pshs Y * 0EF8 34 20 4 bsr L0EE8 * 0EFA 8D EC .l std -$02,S * 0EFC ED 7E m~ beq L0F04 * 0EFE 27 04 '. ldb #214 * 0F00 C6 D6 FV bra L0EEF * 0F02 20 EB k L0F04 ldy $04,S * 0F04 10 AE 64 ..d os9 F$SUser * 0F07 10 3F 1C .?. bcc L0F18 * 0F0A 24 0C $. cmpb #208 * 0F0C C1 D0 AP bne L0EEF * 0F0E 26 DF &_ tfr Y,D * 0F10 1F 20 . ldy >L004B * 0F12 10 BE 00 4B .>.K std $09,Y * 0F16 ED 29 m) L0F18 clra * 0F18 4F O clrb * 0F19 5F _ puls PC,Y * 0F1A 35 A0 5 L0F1C clra * 0F1C 4F O std >$01AD,Y * 0F1D ED A9 01 AD m).- ldd #-1 * 0F21 CC FF FF L.. rts * 0F24 39 9 L0F25 bcs L0F1C * 0F25 25 F5 %u clra * 0F27 4F O clrb * 0F28 5F _ rts * 0F29 39 9 L0F2A lbsr L0F35 * 0F2A 17 00 08 ... lbsr L089C * 0F2D 17 F9 6C .yl L0F30 ldd $02,S * 0F30 EC 62 lb os9 F$Exit * 0F32 10 3F 06 .?. L0F35 rts * 0F35 39 9 L0F36 fcb $00 * 0F36 00 . fcb $01 * 0F37 01 . fcb $00 * 0F38 00 . fcb $01 * 0F39 01 . fcb $5E * 0F3A 5E ^ fcb $27 * 0F3B 27 ' fcb $10 * 0F3C 10 . fcb $03 * 0F3D 03 . fcb $E8 * 0F3E E8 h fcb $00 * 0F3F 00 . fcb $64 * 0F40 64 d fcb $00 * 0F41 00 . fcb $0A * 0F42 0A . fcb $00 * 0F43 00 . fcb $09 * 0F44 09 . fcb $6C * 0F45 6C l fcb $78 * 0F46 78 x fcb $00 * 0F47 00 . fcb $00 * 0F48 00 . fcb $00 * 0F49 00 . fcb $00 * 0F4A 00 . fcb $00 * 0F4B 00 . fcb $00 * 0F4C 00 . fcb $00 * 0F4D 00 . fcb $00 * 0F4E 00 . fcb $01 * 0F4F 01 . fcb $00 * 0F50 00 . fcb $00 * 0F51 00 . fcb $00 * 0F52 00 . fcb $00 * 0F53 00 . fcb $00 * 0F54 00 . fcb $00 * 0F55 00 . fcb $00 * 0F56 00 . fcb $00 * 0F57 00 . fcb $00 * 0F58 00 . fcb $00 * 0F59 00 . fcb $00 * 0F5A 00 . fcb $00 * 0F5B 00 . fcb $02 * 0F5C 02 . fcb $00 * 0F5D 00 . fcb $01 * 0F5E 01 . fcb $00 * 0F5F 00 . fcb $00 * 0F60 00 . fcb $00 * 0F61 00 . fcb $00 * 0F62 00 . fcb $00 * 0F63 00 . fcb $00 * 0F64 00 . fcb $00 * 0F65 00 . fcb $00 * 0F66 00 . fcb $00 * 0F67 00 . fcb $00 * 0F68 00 . fcb $42 * 0F69 42 B fcb $00 * 0F6A 00 . fcb $02 * 0F6B 02 . fcb $00 * 0F6C 00 . fcb $00 * 0F6D 00 . fcb $00 * 0F6E 00 . fcb $00 * 0F6F 00 . fcb $00 * 0F70 00 . fcb $00 * 0F71 00 . fcb $00 * 0F72 00 . fcb $00 * 0F73 00 . fcb $00 * 0F74 00 . fcb $00 * 0F75 00 . fcb $00 * 0F76 00 . fcb $00 * 0F77 00 . fcb $00 * 0F78 00 . fcb $00 * 0F79 00 . fcb $00 * 0F7A 00 . fcb $00 * 0F7B 00 . fcb $00 * 0F7C 00 . fcb $00 * 0F7D 00 . fcb $00 * 0F7E 00 . fcb $00 * 0F7F 00 . fcb $00 * 0F80 00 . fcb $00 * 0F81 00 . fcb $00 * 0F82 00 . fcb $00 * 0F83 00 . fcb $00 * 0F84 00 . fcb $00 * 0F85 00 . fcb $00 * 0F86 00 . fcb $00 * 0F87 00 . fcb $00 * 0F88 00 . fcb $00 * 0F89 00 . fcb $00 * 0F8A 00 . fcb $00 * 0F8B 00 . fcb $00 * 0F8C 00 . fcb $00 * 0F8D 00 . fcb $00 * 0F8E 00 . fcb $00 * 0F8F 00 . fcb $00 * 0F90 00 . fcb $00 * 0F91 00 . fcb $00 * 0F92 00 . fcb $00 * 0F93 00 . fcb $00 * 0F94 00 . fcb $00 * 0F95 00 . fcb $00 * 0F96 00 . fcb $00 * 0F97 00 . fcb $00 * 0F98 00 . fcb $00 * 0F99 00 . fcb $00 * 0F9A 00 . fcb $00 * 0F9B 00 . fcb $00 * 0F9C 00 . fcb $00 * 0F9D 00 . fcb $00 * 0F9E 00 . fcb $00 * 0F9F 00 . fcb $00 * 0FA0 00 . fcb $00 * 0FA1 00 . fcb $00 * 0FA2 00 . fcb $00 * 0FA3 00 . fcb $00 * 0FA4 00 . fcb $00 * 0FA5 00 . fcb $00 * 0FA6 00 . fcb $00 * 0FA7 00 . fcb $00 * 0FA8 00 . fcb $00 * 0FA9 00 . fcb $00 * 0FAA 00 . fcb $00 * 0FAB 00 . fcb $00 * 0FAC 00 . fcb $00 * 0FAD 00 . fcb $00 * 0FAE 00 . fcb $00 * 0FAF 00 . fcb $00 * 0FB0 00 . fcb $00 * 0FB1 00 . fcb $00 * 0FB2 00 . fcb $00 * 0FB3 00 . fcb $00 * 0FB4 00 . fcb $00 * 0FB5 00 . fcb $00 * 0FB6 00 . fcb $00 * 0FB7 00 . fcb $00 * 0FB8 00 . fcb $00 * 0FB9 00 . fcb $00 * 0FBA 00 . fcb $00 * 0FBB 00 . fcb $00 * 0FBC 00 . fcb $00 * 0FBD 00 . fcb $00 * 0FBE 00 . fcb $00 * 0FBF 00 . fcb $00 * 0FC0 00 . fcb $00 * 0FC1 00 . fcb $00 * 0FC2 00 . fcb $00 * 0FC3 00 . fcb $00 * 0FC4 00 . fcb $00 * 0FC5 00 . fcb $00 * 0FC6 00 . fcb $00 * 0FC7 00 . fcb $00 * 0FC8 00 . fcb $00 * 0FC9 00 . fcb $00 * 0FCA 00 . fcb $00 * 0FCB 00 . fcb $00 * 0FCC 00 . fcb $00 * 0FCD 00 . fcb $00 * 0FCE 00 . fcb $00 * 0FCF 00 . fcb $00 * 0FD0 00 . fcb $00 * 0FD1 00 . fcb $00 * 0FD2 00 . fcb $00 * 0FD3 00 . fcb $00 * 0FD4 00 . fcb $00 * 0FD5 00 . fcb $00 * 0FD6 00 . fcb $00 * 0FD7 00 . fcb $00 * 0FD8 00 . fcb $00 * 0FD9 00 . fcb $00 * 0FDA 00 . fcb $00 * 0FDB 00 . fcb $00 * 0FDC 00 . fcb $00 * 0FDD 00 . fcb $00 * 0FDE 00 . fcb $00 * 0FDF 00 . fcb $00 * 0FE0 00 . fcb $00 * 0FE1 00 . fcb $00 * 0FE2 00 . fcb $00 * 0FE3 00 . fcb $00 * 0FE4 00 . fcb $00 * 0FE5 00 . fcb $00 * 0FE6 00 . fcb $00 * 0FE7 00 . fcb $00 * 0FE8 00 . fcb $00 * 0FE9 00 . fcb $00 * 0FEA 00 . fcb $00 * 0FEB 00 . fcb $00 * 0FEC 00 . fcb $00 * 0FED 00 . fcb $00 * 0FEE 00 . fcb $00 * 0FEF 00 . fcb $00 * 0FF0 00 . fcb $00 * 0FF1 00 . fcb $00 * 0FF2 00 . fcb $00 * 0FF3 00 . fcb $00 * 0FF4 00 . fcb $00 * 0FF5 00 . fcb $00 * 0FF6 00 . fcb $00 * 0FF7 00 . fcb $00 * 0FF8 00 . fcb $00 * 0FF9 00 . fcb $00 * 0FFA 00 . fcb $00 * 0FFB 00 . fcb $00 * 0FFC 00 . fcb $00 * 0FFD 00 . fcb $00 * 0FFE 00 . fcb $00 * 0FFF 00 . fcb $00 * 1000 00 . fcb $00 * 1001 00 . fcb $00 * 1002 00 . fcb $00 * 1003 00 . fcb $00 * 1004 00 . fcb $00 * 1005 00 . fcb $00 * 1006 00 . fcb $00 * 1007 00 . fcb $00 * 1008 00 . fcb $00 * 1009 00 . fcb $00 * 100A 00 . fcb $00 * 100B 00 . fcb $00 * 100C 00 . fcb $00 * 100D 00 . fcb $00 * 100E 00 . fcb $00 * 100F 00 . fcb $00 * 1010 00 . fcb $00 * 1011 00 . fcb $00 * 1012 00 . fcb $00 * 1013 00 . fcb $00 * 1014 00 . fcb $00 * 1015 00 . fcb $00 * 1016 00 . fcb $00 * 1017 00 . fcb $00 * 1018 00 . fcb $01 * 1019 01 . fcb $01 * 101A 01 . fcb $01 * 101B 01 . fcb $01 * 101C 01 . fcb $01 * 101D 01 . fcb $01 * 101E 01 . fcb $01 * 101F 01 . fcb $01 * 1020 01 . fcb $01 * 1021 01 . fcb $11 * 1022 11 . fcb $11 * 1023 11 . fcb $01 * 1024 01 . fcb $11 * 1025 11 . fcb $11 * 1026 11 . fcb $01 * 1027 01 . fcb $01 * 1028 01 . fcb $01 * 1029 01 . fcb $01 * 102A 01 . fcb $01 * 102B 01 . fcb $01 * 102C 01 . fcb $01 * 102D 01 . fcb $01 * 102E 01 . fcb $01 * 102F 01 . fcb $01 * 1030 01 . fcb $01 * 1031 01 . fcb $01 * 1032 01 . fcb $01 * 1033 01 . fcb $01 * 1034 01 . fcb $01 * 1035 01 . fcb $01 * 1036 01 . fcb $01 * 1037 01 . fcb $01 * 1038 01 . fcc "0 HHHHHHHHHH BBBBBB" * 1039 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 48 48 48 48 48 48 48 48 48 20 20 20 20 20 20 20 42 42 42 42 42 42 0 HHHHHHHHHH BBBBBB fcb $02 * 1060 02 . fcb $02 * 1061 02 . fcb $02 * 1062 02 . fcb $02 * 1063 02 . fcb $02 * 1064 02 . fcb $02 * 1065 02 . fcb $02 * 1066 02 . fcb $02 * 1067 02 . fcb $02 * 1068 02 . fcb $02 * 1069 02 . fcb $02 * 106A 02 . fcb $02 * 106B 02 . fcb $02 * 106C 02 . fcb $02 * 106D 02 . fcb $02 * 106E 02 . fcb $02 * 106F 02 . fcb $02 * 1070 02 . fcb $02 * 1071 02 . fcb $02 * 1072 02 . fcb $02 * 1073 02 . fcc " DDDDDD" * 1074 20 20 20 20 20 20 44 44 44 44 44 44 DDDDDD fcb $04 * 1080 04 . fcb $04 * 1081 04 . fcb $04 * 1082 04 . fcb $04 * 1083 04 . fcb $04 * 1084 04 . fcb $04 * 1085 04 . fcb $04 * 1086 04 . fcb $04 * 1087 04 . fcb $04 * 1088 04 . fcb $04 * 1089 04 . fcb $04 * 108A 04 . fcb $04 * 108B 04 . fcb $04 * 108C 04 . fcb $04 * 108D 04 . fcb $04 * 108E 04 . fcb $04 * 108F 04 . fcb $04 * 1090 04 . fcb $04 * 1091 04 . fcb $04 * 1092 04 . fcb $04 * 1093 04 . fcc " " * 1094 20 20 20 20 fcb $01 * 1098 01 . fcb $00 * 1099 00 . fcb $00 * 109A 00 . fcb $00 * 109B 00 . fcb $01 * 109C 01 . fcb $00 * 109D 00 . fcb $09 * 109E 09 . fcc "Suser" * 109F 53 75 73 65 72 Suser fcb $00 * 10A4 00 . emod eom equ * end