Mercurial > hg > Members > kono > nitros9-code
view level2/cmds/config.asm @ 1350:8e90ef1b670e
Rolled into Level 1 unlink.asm
| author | boisy |
|---|---|
| date | Wed, 17 Sep 2003 20:11:14 +0000 |
| parents | 9edb1a203a78 |
| children |
line wrap: on
line source
******************************************************************** * config - Config utility * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * ????/??/?? ??? * Original Tandy distribution version. nam config ttl Config utility * Disassembled 02/07/06 13:07:34 by Disasm v1.6 (C) 1988 by RML 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 1 u0003 rmb 1 u0004 rmb 1 u0005 rmb 1 u0006 rmb 1 u0007 rmb 1 u0008 rmb 1 u0009 rmb 1 u000A rmb 1 u000B rmb 2 u000D rmb 2 u000F rmb 2 u0011 rmb 2 u0013 rmb 2 u0015 rmb 2 u0017 rmb 2 u0019 rmb 2 u001B rmb 2 u001D rmb 2 u001F rmb 1 u0020 rmb 1 u0021 rmb 1 u0022 rmb 1 u0023 rmb 2 u0025 rmb 2 u0027 rmb 2 u0029 rmb 2 u002B rmb 2 u002D rmb 1 u002E rmb 1 u002F rmb 2 u0031 rmb 1 u0032 rmb 1 u0033 rmb 1 u0034 rmb 1 u0035 rmb 1 u0036 rmb 1 u0037 rmb 10 u0041 rmb 1 u0042 rmb 1 u0043 rmb 1 u0044 rmb 3 u0047 rmb 1 u0048 rmb 5 u004D rmb 2 u004F rmb 1 u0050 rmb 3 u0053 rmb 1 u0054 rmb 1 u0055 rmb 1 u0056 rmb 1 u0057 rmb 4 u005B rmb 8 u0063 rmb 1 u0064 rmb 8 u006C rmb 3 u006F rmb 3 u0072 rmb 2 u0074 rmb 2 u0076 rmb 2 u0078 rmb 1 u0079 rmb 2 u007B rmb 2 u007D rmb 107 u00E8 rmb 21 u00FD rmb 688 u03AD rmb 3154 size equ . name equ * fcs /config/ fcb $04 L0014 fcb $A6 & fcb $A0 fcb $A7 ' fcb $C0 @ fcb $30 0 fcb $1F fcb $26 & fcb $F8 x fcb $39 9 start equ * pshs y pshs u clra clrb L0023 sta ,u+ decb bne L0023 ldx ,s leau ,x leax >$0C7F,x pshs x leay >L2E15,pcr ldx ,y++ beq L003E bsr L0014 ldu $02,s L003E leau >u007D,u ldx ,y++ beq L0049 bsr L0014 clra L0049 cmpu ,s beq L0052 sta ,u+ bra L0049 L0052 ldu $02,s ldd ,y++ beq L005F leax >L0000,pcr lbsr L0151 L005F ldd ,y++ beq L0068 leax ,u lbsr L0151 L0068 leas $04,s puls x stx >u03AD,u pshs y ldy #$0001 leax $02,s L0078 lda ,x+ cmpa #$0D beq L00BC cmpa #$20 beq L0078 cmpa #$2C beq L0078 cmpa #$22 beq L00A6 cmpa #$27 beq L00A6 leax -$01,x pshs x leay $01,y L0094 lda ,x+ beq L00B6 cmpa #$0D beq L00B6 cmpa #$20 beq L00B6 cmpa #$2C beq L00B6 bra L0094 L00A6 pshs x,a leay $01,y L00AA lda ,x+ cmpa #$0D beq L00B4 cmpa ,s bne L00AA L00B4 puls b L00B6 clr -$01,x cmpa #$0D bne L0078 L00BC tfr y,d leax ,s pshs x,b,a lslb rola leay d,x pshs u bra L00D2 L00CA ldd ,x ldu ,y std ,y stu ,x++ L00D2 leay -$02,y pshs y cmpx ,s++ bcs L00CA puls y bsr L00E8 puls b,a lbsr L018E clra clrb lbsr L2CDA L00E8 leax >$0C7F,y stx >$03B7,y sts >$03AB,y sts >$03B9,y ldd #$FF82 L00FD leax d,s cmpx >$03B9,y bcc L010F cmpx >$03B7,y bcs L0129 stx >$03B9,y L010F rts L0110 bpl L013C bpl L013E bra L0169 lsrb fcb $41 A coma fcb $4B K bra L016B rorb fcb $45 E fcb $52 R rora inca clra asrb bra L014F bpl L0151 bpl L0136 L0129 leax <L0110,pcr ldb #$CF pshs b lda #$02 ldy #$0064 L0136 os9 I$WritLn clra puls b L013C lbsr L2CE4 ldd >$03AB,y subd >$03B9,y rts ldd >$03B9,y subd >$03B7,y rts L0151 pshs x leax d,y leax d,x pshs x L0159 ldd ,y++ leax d,u ldd ,x addd $02,s std ,x cmpy ,s bne L0159 leas $04,s rts L016B pshs u,b,a ldd #$FFBA lbsr L00FD ldd ,s cmpd #$0002 lbne L03B9 lbsr L11B1 lbsr L0269 lbsr L19D4 ldd ,s lbsr L2CDA lbra L03B9 L018E pshs u ldd #$FFBC lbsr L00FD bsr L01CC leax >$007D,y tfr x,d lbsr L2B41 lbsr L0984 lbsr L08AA lbsr L0409 lbsr L04B0 lbsr L17BD lbsr L1AA1 leax >$00A2,y tfr x,d lbsr L2B41 lbsr L1BD9 lbsr L11B1 lbsr L0269 clra clrb lbsr L2CDA puls pc,u L01CC pshs u ldd #$FFB4 lbsr L00FD leas -$04,s leax >$03DF,y stx $02,s leax >$03BD,y pshs x clra clrb pshs b,a lbsr L2C6E leas $04,s ldd $02,s pshs b,a clra clrb pshs b,a lbsr L2C6E leas $04,s clra clrb ldx $02,s stb $05,x stb $04,x pshs x,b,a lbsr L2CA8 leas $04,s leax >L016B,pcr tfr x,d lbsr L2C46 bsr L0255 std ,s ldx ,s bra L022D L0218 ldd #$0018 std <u002F ldd #$0012 bra L0229 L0222 clra clrb std <u002F ldd #$000A L0229 std <u0031 bra L023A L022D cmpx #$0050 beq L0218 cmpx #$0020 beq L0222 lbra L0222 L023A lbsr L11B1 clra clrb lbsr L118F lbsr L0E40 bsr L027C lbsr L11B1 ldd #$0005 std <u0027 lbsr L0EBF lbra L0398 L0255 pshs y lda #$01 ldb #$26 os9 I$GetStt bcc L0265 ldd #$0020 bra L0267 L0265 tfr x,d L0267 puls pc,y L0269 pshs u ldd #$FFBC lbsr L00FD lbsr L0375 ldd #$0001 lbsr L118F puls pc,u L027C pshs u ldd #$FFB8 lbsr L00FD lbsr L109A L0287 lbsr L1437 sex tfr d,x bra L029F L028F ldd #$0001 bra L0296 L0294 clra clrb L0296 std <u002D bra L02AB L029A lbsr L121F bra L0287 L029F cmpx #$0031 beq L028F cmpx #$0032 beq L0294 bra L029A L02AB lbsr L0375 ldd #$000D pshs b,a clra clrb lbsr L1139 leas $02,s ldd <u002D beq L0303 leax >L03BD,pcr tfr x,d lbsr L140D ldd #$000C pshs b,a leax >$0401,y pshs x clra clrb lbsr L2A9B leas $04,s leax >$0401,y tfr x,d lbsr L2889 addd #$FFFF leax >$0401,y leax d,x clra clrb stb ,x leax >$0401,y pshs x leax >$040D,y tfr x,d lbsr L1FE5 leas $02,s lbra L0371 L0303 leax >L03D2,pcr tfr x,d lbsr L140D ldd #$000C pshs b,a leax >$0401,y pshs x clra clrb lbsr L2A9B leas $04,s ldd #$000E pshs b,a clra clrb lbsr L1139 leas $02,s leax >L03EE,pcr tfr x,d lbsr L140D ldd #$000C pshs b,a leax >$040D,y pshs x clra clrb lbsr L2A9B leas $04,s leax >$0401,y tfr x,d lbsr L2889 addd #$FFFF leax >$0401,y leax d,x clra clrb stb ,x leax >$040D,y tfr x,d lbsr L2889 addd #$FFFF leax >$040D,y leax d,x clra clrb stb ,x L0371 bsr L0383 puls pc,u L0375 pshs u ldd #$FFB8 lbsr L00FD leax >$03BD,y bra L038F L0383 pshs u ldd #$FFB8 lbsr L00FD leax >$03DF,y L038F pshs x clra clrb pshs b,a lbsr L2CA8 L0398 leas $04,s puls pc,u L039C pshs u,b,a ldd #$FFBA lbsr L00FD ldx ,s ldb $01,x sex lbsr L277D cmpd #$0048 bne L03B7 ldd #$0001 bra L03B9 L03B7 clra clrb L03B9 leas $02,s puls pc,u L03BD fcb $45 E fcb $4E N lsrb fcb $45 E fcb $52 R bra L0412 fcb $41 A tsta fcb $45 E bra L0418 rora bra L0410 rola comb fcb $4B K abx bra L03D2 L03D2 fcb $45 E fcb $4E N lsrb fcb $45 E fcb $52 R bra L0427 fcb $41 A tsta fcb $45 E bra L042D rora bra L0434 clra fcb $55 U fcb $52 R coma fcb $45 E bra L042C rola comb fcb $4B K abx bra L03EE L03EE fcb $45 E fcb $4E N lsrb fcb $45 E fcb $52 R bra L0443 fcb $41 A tsta fcb $45 E bra L0449 rora bra L0441 fcb $45 E comb lsrb bgt L0422 lsra rola comb fcb $4B K abx bra L0409 L0409 pshs u ldd #$FFBC lbsr L00FD lbsr L11B1 lbsr L0E92 clra L0418 clrb std <u0074 bra L0444 L041D lbsr L1437 sex tfr d,x bra L0450 L0425 lbsr L0781 bra L041D L042A lbsr L083A L042D lbra L041D L0430 lbsr L07F8 lbra L041D L0436 lbsr L0817 lbra L041D L043C ldd #$FFFF bra L0444 L0441 ldd #$0001 L0444 lbsr L066D lbra L041D L044A lbsr L121F lbra L041D L0450 cmpx #$000D beq L0425 cmpx #$0073 lbeq L0425 cmpx #$0053 lbeq L0425 cmpx #$0068 beq L042A cmpx #$0048 lbeq L042A cmpx #$000C beq L0430 cmpx #$000A beq L0436 cmpx #$0064 beq L048F cmpx #$0044 beq L048F cmpx #$0008 beq L043C cmpx #$0009 beq L0441 bra L044A L048F lbsr L11E8 ldd <u0074 addd <u0031 cmpd <u001D bge L049E lbsr L05FE L049E lbsr L061D std -$02,s bne L04AE lbsr L11E8 lbsr L0E92 lbra L041D L04AE puls pc,u L04B0 pshs u ldd #$FFB4 lbsr L00FD leas -$04,s L04BA lbsr L1065 lbsr L1437 sex tfr d,x bra L051C L04C5 ldd #$0001 std <u0033 leax >L0915,pcr stx ,s tfr x,d lbsr L05CC std -$02,s bne L0534 leax >L0919,pcr bra L0503 L04DF clra clrb std <u0033 leax >L092A,pcr stx ,s tfr x,d lbsr L05CC std -$02,s bne L0534 leax >L092E,pcr tfr x,d lbsr L05CC std -$02,s bne L0534 leax >L0932,pcr L0503 tfr x,d lbsr L1473 bra L04BA L050A leax >L094F,pcr tfr x,d lbsr L1CFB lbra L04BA L0516 lbsr L121F lbra L04BA L051C cmpx #$0031 beq L04C5 cmpx #$0032 beq L04DF cmpx #$0068 beq L050A cmpx #$0048 lbeq L050A bra L0516 L0534 leax >L0957,pcr pshs x ldd <u0015 lbsr L08BE leas $02,s leax >L0959,pcr pshs x ldd <u0015 lbsr L08BE leas $02,s ldd <u001D std $02,s ldd <u0021 std <u001D ldd #$0001 std <u0025 lbsr L0409 ldd $02,s std <u001D clra clrb std <u0025 ldu <u0017 bra L058F L056A ldd ,s pshs b,a pshs u ldd #$0002 addd ,s++ lbsr L0D34 std ,s++ beq L058C ldd #$0001 std ,u pshs b,a tfr u,d lbsr L07C8 leas $02,s bra L0593 L058C ldu <u0023,u L058F stu -$02,s bne L056A L0593 ldd <u0033 beq L05C3 lbsr L08F5 std -$02,s beq L05C3 leax >L095C,pcr tfr x,d bsr L05CC std -$02,s bne L05BF leax >L0960,pcr tfr x,d bsr L05CC std -$02,s bne L05BF leax >L0964,pcr tfr x,d lbsr L1473 L05BF clra clrb std <u0033 L05C3 lbsr L11B1 lbsr L0EDE lbra L076C L05CC pshs u,b,a ldd #$FFB6 lbsr L00FD ldu <u000F bra L05F5 L05D8 ldd ,s pshs b,a pshs u ldd #$0002 addd ,s++ lbsr L0D34 std ,s++ beq L05F2 ldd #$0001 std ,u lbra L08E8 L05F2 ldu <u0023,u L05F5 stu -$02,s bne L05D8 clra clrb lbra L08E8 L05FE pshs u ldd #$FFBA lbsr L00FD clra clrb pshs b,a ldd #$0006 lbsr L1139 leas $02,s leax >$00A5,y tfr x,d lbsr L140D puls pc,u L061D pshs u ldd #$FFBA lbsr L00FD ldd #$0001 pshs b,a ldd #$0006 lbsr L1139 leas $02,s leax >$00BA,y tfr x,d lbsr L140D L063B lbsr L1437 sex tfr d,x bra L0651 L0643 ldd #$0001 puls pc,u L0648 clra clrb puls pc,u L064C lbsr L121F bra L063B L0651 cmpx #$0059 beq L0643 cmpx #$0079 lbeq L0643 cmpx #$004E beq L0648 cmpx #$006E lbeq L0648 bra L064C puls pc,u L066D pshs u,b,a ldd #$FFB8 lbsr L00FD leas -$02,s ldd $02,s cmpd #$FFFF bne L0689 ldd <u0074 beq L0698 ldd <u0074 subd <u0031 bra L06A2 L0689 cmpd #$0001 bne L06A4 ldd <u0074 addd <u0031 cmpd <u001D blt L069E L0698 lbsr L121F lbra L076C L069E ldd <u0074 addd <u0031 L06A2 std <u0074 L06A4 ldd <u0029 beq L06AC ldu <u001B bra L06B6 L06AC ldd <u0025 beq L06B4 ldu <u0015 bra L06B6 L06B4 ldu <u000D L06B6 clra clrb bra L06C2 L06BA ldu <u0023,u ldd ,s addd #$0001 L06C2 std ,s ldd ,s cmpd <u0074 blt L06BA stu <u0076 bsr L06D2 lbra L076C L06D2 pshs u ldd #$FFB8 lbsr L00FD leas -$02,s lbsr L11BE ldu <u0076 ldd #$0005 std <u0027 ldd <u0027 addd <u0031 std ,s bra L0728 L06EE ldd <u0027 pshs b,a ldd #$0008 lbsr L1139 leas $02,s ldd <u0029 beq L0707 pshs u ldd #$0002 addd ,s++ bra L0711 L0707 tfr u,d bsr L0745 leax >$0055,y tfr x,d L0711 lbsr L140D ldd ,u beq L071E ldd #$0001 lbsr L115B L071E ldu <u0023,u ldd <u0027 addd #$0001 std <u0027 L0728 stu -$02,s beq L0733 ldd <u0027 cmpd ,s blt L06EE L0733 ldd <u0027 addd #$FFFF std <u0072 ldd #$0005 std <u0027 lbsr L1240 lbra L08E8 L0745 pshs u,b,a ldd #$FFBC lbsr L00FD leas -$02,s leau >$0055,y ldd $02,s addd #$0002 std ,s L075A ldx ,s leax $01,x stx ,s ldb -$01,x stb ,u+ cmpb #$2E bne L075A clra clrb stb -u0001,u L076C leas $04,s puls pc,u L0770 pshs u ldd #$FFC0 lbsr L00FD ldd <u0027 addd #$FFFC addd <u0074 puls pc,u L0781 pshs u ldd #$FFB8 lbsr L00FD leas -$02,s bsr L0770 std ,s ldu <u0076 bra L07C1 L0793 ldd ,s cmpd <u001F,u bne L07BE ldd ,u bne L07A4 ldd #$0001 bra L07A6 L07A4 clra clrb L07A6 std ,u ldd <u0029 bne L07B6 ldd ,u pshs b,a tfr u,d bsr L07C8 leas $02,s L07B6 ldd ,u lbsr L115B lbra L08E8 L07BE ldu <u0023,u L07C1 stu -$02,s bne L0793 lbra L08A5 L07C8 pshs u tfr d,u ldd #$FFBE lbsr L00FD leas -$02,s ldd $06,s beq L07DD ldd #$0001 bra L07E0 L07DD ldd #$FFFF L07E0 std ,s ldd [<u0021,u] addd ,s std [<u0021,u] ldx <u0021,u ldd [<$21,x] addd ,s std [<$21,x] lbra L08E8 L07F8 pshs u ldd #$FFBC lbsr L00FD ldd <u0027 cmpd #$0005 ble L0835 lbsr L125A ldd <u0027 addd #$FFFF std <u0027 lbsr L1240 bra L0838 L0817 pshs u ldd #$FFBC lbsr L00FD ldd <u0027 cmpd <u0072 bge L0835 lbsr L125A ldd <u0027 addd #$0001 std <u0027 lbsr L1240 bra L0838 L0835 lbsr L121F L0838 puls pc,u L083A pshs u ldd #$FFB6 lbsr L00FD leas -$02,s lbsr L0770 std ,s ldd <u0029 beq L0851 ldu <u001B bra L08A1 L0851 ldu <u0076 bra L08A1 L0855 ldd ,s cmpd <u001F,u bne L089E tfr u,d lbsr L0745 ldd <u0029 beq L0882 leax >$0055,y pshs x leax >$0085,y tfr x,d lbsr L1B65 leas $02,s clra clrb lbsr L2BEC lbsr L1506 lbra L08E8 L0882 clra clrb pshs b,a leax >$009E,y pshs x leax >$0055,y tfr x,d lbsr L28B4 leas $02,s lbsr L1279 leas $02,s bra L08E8 L089E ldu <u0023,u L08A1 stu -$02,s bne L0855 L08A5 lbsr L121F bra L08E8 L08AA pshs u ldd #$FFBA lbsr L00FD leax >L0981,pcr pshs x ldd <u000D bsr L08BE bra L08E8 L08BE pshs u tfr d,u ldd #$FFB8 lbsr L00FD bra L08EF L08CA ldd $04,s pshs b,a pshs u ldd #$0002 addd ,s++ lbsr L0D34 std ,s++ beq L08EC ldd #$0001 std ,u pshs b,a tfr u,d lbsr L07C8 L08E8 leas $02,s puls pc,u L08EC ldu <u0023,u L08EF stu -$02,s bne L08CA puls pc,u L08F5 pshs u ldd #$FFC0 lbsr L00FD ldu <u0015 bra L090D L0901 ldd ,u beq L090A ldd #$0001 puls pc,u L090A ldu <u0023,u L090D stu -$02,s bne L0901 clra clrb puls pc,u L0915 rorb lsra asra neg <u0056 lsra asra rola fcb $4E N lsrb bra L096F clra lsrb bra L096B clra fcb $55 U fcb $4E N lsra neg <u0057 rola fcb $4E N neg <u0047 fcb $52 R rora neg <u0057 rola fcb $4E N lsra rola fcb $4E N lsrb bra L097C fcb $4E N lsra bra L0986 fcb $52 R rora rola fcb $4E N lsrb bra L0994 clra lsrb bra L0990 clra fcb $55 U fcb $4E N lsra neg <u0074 eim #$72,$0D,s bgt L09BD neg >$0057 neg <u0057 leay $00,x L095C asrb rola fcb $4E N neg <u0047 fcb $52 R rora neg <u0057 rola fcb $4E N lsra rola fcb $4E N lsrb L096B bra L09AE fcb $4E N lsra L096F bra L09B8 fcb $52 R rora rola fcb $4E N lsrb bra L09C6 clra lsrb bra L09C2 L097C clra fcb $55 U fcb $4E N lsra neg <u0044 leax $00,x L0984 pshs u L0986 ldd #$FFA8 lbsr L00FD leas -$0E,s ldd #$0081 pshs b,a leax >L0DF1,pcr tfr x,d lbsr L29FE leas $02,s std ,s cmpd #$FFFF bne L09AF leax >L0DF3,pcr tfr x,d lbsr L14BD L09AF clra clrb pshs b,a ldd #$0040 pshs b,a L09B8 clra clrb pshs b,a ldd $06,s lbsr L2AD6 leas $06,s leax >$000D,y stx $0C,s leax >$000F,y stx $0A,s leax >$0015,y stx $08,s leax >$0017,y stx $06,s lbra L0AD0 L09DE leax >$0461,y stx $04,s ldd $02,s pshs b,a ldd #$0005 lbsr L2DD7 std $02,s lbra L0AC5 L09F3 ldb [<$04,s] lbeq L0ABE ldd $04,s pshs b,a leax >$0055,y tfr x,d lbsr L29D2 leas $02,s leax >$0055,y tfr x,d lbsr L0DD5 leax >$0055,y tfr x,d lbsr L0CC7 std -$02,s beq L0A41 leax >$0055,y tfr x,d lbsr L0AF1 tfr d,u tfr u,d std [<$0C,s] ldd <u001D addd #$0001 std <u001D std <u001F,u leax <u0023,u stx $0C,s lbra L0ABE L0A41 leax >$0055,y tfr x,d lbsr L0CD7 std -$02,s beq L0A65 leax >$0055,y tfr x,d lbsr L0B49 tfr d,u tfr u,d std [<$0A,s] leax <u0023,u stx $0A,s bra L0ABE L0A65 leax >$0055,y tfr x,d lbsr L0CE7 std -$02,s beq L0A93 leax >$0055,y tfr x,d lbsr L0AF1 tfr d,u tfr u,d std [<$08,s] ldd <u0021 addd #$0001 std <u0021 std <u001F,u leax <u0023,u stx $08,s bra L0ABE L0A93 leax >$0055,y tfr x,d lbsr L0CF7 std -$02,s beq L0ABE leax >$0055,y tfr x,d bsr L0AF1 tfr d,u tfr u,d std [<$06,s] ldd <u0023 addd #$0001 std <u0023 std <u001F,u leax <u0023,u stx $06,s L0ABE ldd $04,s addd #$0020 std $04,s L0AC5 ldd $02,s addd #$FFFF std $02,s lbge L09F3 L0AD0 ldd #$0800 pshs b,a leax >$0461,y pshs x ldd $04,s lbsr L2A85 leas $04,s std $02,s lbgt L09DE ldd ,s lbsr L2A0B leas $0E,s puls pc,u L0AF1 pshs u,b,a ldd #$FFB6 lbsr L00FD leas -$02,s clra clrb pshs b,a ldd $04,s lbsr L0C90 leas $02,s tfr d,u ldd #$0001 pshs b,a ldd $04,s lbsr L29FE leas $02,s std ,s cmpd #$FFFF beq L0B35 ldd ,s bsr L0B6B std <u0021,u ldd ,s lbsr L0BD2 ldx <u0021,u std <$21,x ldd ,s lbsr L2A0B bra L0B44 L0B35 leax >L0E0F,pcr tfr x,d lbsr L145D lbsr L11E8 lbsr L0EBF L0B44 tfr u,d lbra L0D30 L0B49 pshs u,b,a ldd #$FFB8 lbsr L00FD clra clrb pshs b,a ldd $02,s lbsr L0C90 leas $02,s tfr d,u ldd <u001F addd #$0001 std <u001F std <u001F,u lbra L0DAA L0B6B pshs u,b,a ldd #$FFB4 lbsr L00FD clra clrb pshs b,a ldd #$000B pshs b,a clra clrb pshs b,a ldd $06,s lbsr L2AD6 leas $06,s ldd ,s lbsr L0C38 leax >$0096,y pshs x leax >$0038,y tfr x,d lbsr L28B4 leas $02,s ldu <u0013 bra L0BBA L0BA1 leax >$0038,y pshs x pshs u ldd #$0002 addd ,s++ lbsr L28E1 std ,s++ lbeq L0DAA ldu <u0023,u L0BBA stu -$02,s bne L0BA1 ldd <u0013 pshs b,a leax >$0038,y tfr x,d lbsr L0C90 leas $02,s std <u0013 lbra L0DED L0BD2 pshs u,b,a ldd #$FFB4 lbsr L00FD clra clrb pshs b,a ldd #$0009 pshs b,a clra clrb pshs b,a ldd $06,s lbsr L2AD6 leas $06,s ldd ,s bsr L0C38 leax >$009A,y pshs x leax >$0038,y tfr x,d lbsr L28B4 leas $02,s ldu <u0011 bra L0C20 L0C07 leax >$0038,y pshs x pshs u ldd #$0002 addd ,s++ lbsr L28E1 std ,s++ lbeq L0DAA ldu <u0023,u L0C20 stu -$02,s bne L0C07 ldd <u0011 pshs b,a leax >$0038,y tfr x,d lbsr L0C90 leas $02,s std <u0011 lbra L0DED L0C38 pshs u,b,a ldd #$FFB2 lbsr L00FD leas -$02,s ldd #$0002 pshs b,a leax $02,s pshs x ldd $06,s lbsr L2A85 leas $04,s clra clrb pshs b,a ldd $02,s lbsr L2CE8 ldd $02,x pshs b,a ldd ,x pshs b,a ldd $08,s lbsr L2AD6 leas $06,s ldd #$001C pshs b,a leau >$0038,y pshs u ldd $06,s lbsr L2A85 leas $04,s L0C7C ldb ,u+ cmpb #$7F bls L0C7C ldb -u0001,u clra andb #$7F stb -u0001,u clra clrb stb ,u lbra L0D30 L0C90 pshs u,b,a ldd #$FFB6 lbsr L00FD ldu <u0019 beq L0CA3 ldd <u0023,u std <u0019 bra L0CAB L0CA3 ldd #$0025 lbsr L0D0E tfr d,u L0CAB ldd ,s pshs b,a pshs u ldd #$0002 addd ,s++ lbsr L1FE5 leas $02,s clra clrb std ,u ldd $06,s std <u0023,u lbra L0DAA L0CC7 pshs u tfr d,u ldd #$FFBA lbsr L00FD leax >$008A,y bra L0D05 L0CD7 pshs u tfr d,u ldd #$FFBA lbsr L00FD leax >$0092,y bra L0D05 L0CE7 pshs u tfr d,u ldd #$FFBA lbsr L00FD leax >L0E2A,pcr bra L0D05 L0CF7 pshs u tfr d,u ldd #$FFBA lbsr L00FD leax >L0E2E,pcr L0D05 pshs x tfr u,d bsr L0D34 lbra L0DED L0D0E pshs u,b,a ldd #$FFB8 lbsr L00FD leas -$02,s ldd $02,s lbsr L2B51 std ,s cmpd #$FFFF bne L0D2E leax >L0E32,pcr tfr x,d lbsr L14BD L0D2E ldd ,s L0D30 leas $04,s puls pc,u L0D34 pshs u tfr d,u ldd #$FFBA lbsr L00FD bra L0D53 L0D40 ldd $04,s pshs b,a tfr u,d leau u0001,u bsr L0D5B std ,s++ beq L0D53 ldd #$0001 puls pc,u L0D53 ldb ,u bne L0D40 clra clrb puls pc,u L0D5B pshs u,b,a ldd #$FFBC lbsr L00FD ldu $06,s bra L0D7F L0D67 ldx ,s leax $01,x stx ,s ldb -$01,x sex pshs b,a ldb ,u+ sex cmpd ,s++ beq L0D7F clra clrb lbra L0DED L0D7F ldb ,u bne L0D67 ldd #$0001 lbra L0DED L0D89 pshs u,b,a ldd #$FFBC lbsr L00FD ldu ,s bra L0D97 L0D95 leau u0001,u L0D97 ldb ,u bne L0D95 bra L0DAE L0D9D ldb ,u sex pshs b,a ldb $09,s sex cmpd ,s++ bne L0DAE L0DAA tfr u,d bra L0DED L0DAE tfr u,d leau -u0001,u cmpd ,s bne L0D9D ldd ,s bra L0DED L0DBB pshs u,b,a ldd #$FFBA lbsr L00FD ldu ,s bra L0DC9 L0DC7 leau u0001,u L0DC9 ldb ,u sex lbsr L2795 stb ,u bne L0DC7 bra L0DED L0DD5 pshs u,b,a ldd #$FFBA lbsr L00FD ldu ,s bra L0DE3 L0DE1 leau u0001,u L0DE3 ldb ,u sex lbsr L277D stb ,u bne L0DE1 L0DED leas $02,s puls pc,u L0DF1 bgt L0DF3 L0DF3 coma oim #$6E,$07,y lsr >$206F neg >$656E bra L0E6C clr $04,s eim #$6C,>$6520 lsr $09,s aim #$65,>$6374 clr -$0E,s rol >$0043 oim #$6E,$07,y lsr >$206F neg >$656E bra L0E7F eim #$73,$03,s aim #$69,>$7074 clr -$0E,s bra L0E8C rol $0C,s eim #$00,$0E,y lsra asrb neg <u002E lsra lsrb neg <u004F eim #$74,>$206F ror $00,y tst $05,s tst $0F,s aim #$79,>$0034 nega ldd #$FFB8 lbsr L00FD bsr L0E5B leax >$01FB,y pshs x ldd #$0006 pshs b,a ldd #$0001 lbra L10B0 L0E5B pshs u ldd #$FFBA lbsr L00FD clra clrb pshs b,a ldd #$000D lbsr L1139 leas $02,s ldd >$01E5,y lbra L1274 L0E76 pshs u ldd #$FFBA lbsr L00FD ldd #$0003 pshs b,a ldd #$0008 lbsr L1139 leas $02,s leax >$013A,y lbra L1272 L0E92 pshs u ldd #$FFB8 lbsr L00FD leax >$01E5,y pshs x ldd #$0004 pshs b,a clra clrb lbsr L13C0 leas $04,s ldd #$0004 pshs b,a clra clrb lbsr L1139 leas $02,s leax >$00CF,y lbra L1272 L0EBF pshs u ldd #$FFBA lbsr L00FD lbsr L0E5B ldd #$0002 pshs b,a ldd #$0004 lbsr L1139 leas $02,s leax >$0121,y lbra L0FCF L0EDE pshs u ldd #$FFBA lbsr L00FD lbsr L0E5B ldd #$0002 pshs b,a ldd #$0006 lbsr L1139 leas $02,s leax >$014B,y lbra L0FCF L0EFD pshs u ldd #$FFBA lbsr L00FD leax >$040D,y tfr x,d lbsr L039C std -$02,s lbne L10F2 lbsr L0E5B ldd #$0002 pshs b,a ldd #$0005 lbsr L1139 leas $02,s leax >L1753,pcr tfr x,d lbsr L140D ldd #$0003 pshs b,a ldd #$0010 lbsr L1139 leas $02,s leax >$040D,y tfr x,d lbsr L140D ldd #$0004 pshs b,a lbra L10EB L0F4B pshs u ldd #$FFBA lbsr L00FD ldd <u002D beq L0F65 lbsr L10F4 leax >$01B5,y tfr x,d lbsr L1115 bra L0F84 L0F65 lbsr L11B1 lbsr L0E5B ldd #$0002 pshs b,a ldd #$0006 lbsr L1139 leas $02,s leax >$015E,y tfr x,d lbsr L140D lbsr L0E76 L0F84 ldd #$0007 pshs b,a clra clrb lbsr L1139 lbra L14B9 L0F91 pshs u ldd #$FFB8 lbsr L00FD lbsr L11B1 lbsr L0E5B leax >$0207,y pshs x ldd #$0006 pshs b,a ldd #$0002 lbra L10B0 L0FB0 pshs u ldd #$FFBA lbsr L00FD lbsr L11B1 lbsr L0E5B ldd #$0002 pshs b,a ldd #$0004 lbsr L1139 leas $02,s leax >$0185,y L0FCF tfr x,d lbsr L140D lbsr L0E76 puls pc,u L0FD9 pshs u ldd #$FFBA lbsr L00FD leax >$0401,y tfr x,d lbsr L039C std -$02,s bne L103D lbsr L11B1 lbsr L0E5B ldd #$0002 pshs b,a ldd #$0004 lbsr L1139 leas $02,s leax >L176D,pcr tfr x,d lbsr L140D ldd #$0003 pshs b,a ldd #$000D lbsr L1139 leas $02,s leax >$0401,y tfr x,d lbsr L140D ldd #$0004 pshs b,a lbsr L1139 leas $02,s lbsr L1506 ldd <u002D beq L103D lbsr L10F4 leax >$01CC,y tfr x,d lbsr L1115 L103D puls pc,u L103F pshs u ldd #$FFB8 lbsr L00FD lbsr L11B1 lbsr L0E5B leax >$01F5,y pshs x ldd #$0003 pshs b,a ldd #$0002 lbsr L13C0 leas $04,s ldd #$0005 bra L1089 L1065 pshs u ldd #$FFB8 lbsr L00FD lbsr L11B1 lbsr L0E5B leax >$0213,y pshs x ldd #$0004 pshs b,a ldd #$0002 lbsr L13C0 leas $04,s ldd #$0006 L1089 pshs b,a ldd #$0008 lbsr L1139 leas $02,s ldd >$01F3,y lbra L1274 L109A pshs u ldd #$FFB8 lbsr L00FD leax >$01ED,y pshs x ldd #$0004 pshs b,a ldd #$0008 L10B0 lbsr L13C0 lbra L1409 L10B6 pshs u ldd #$FFBA lbsr L00FD lbsr L11B1 lbsr L0E5B ldd #$0002 pshs b,a ldd #$0006 lbsr L1139 leas $02,s leax >$0172,y tfr x,d lbsr L140D leax >$040D,y tfr x,d lbsr L140D ldd #$0003 pshs b,a ldd #$0004 L10EB bsr L1139 leas $02,s lbsr L1506 L10F2 puls pc,u L10F4 pshs u ldd #$FFBA lbsr L00FD lbsr L11B1 lbsr L0E5B ldd #$0002 pshs b,a ldd #$0005 bsr L1139 leas $02,s leax >$019E,y lbra L1272 L1115 pshs u,b,a ldd #$FFB8 lbsr L00FD ldd #$0003 pshs b,a ldd #$0004 bsr L1139 leas $02,s ldd ,s lbsr L140D ldd #$0005 pshs b,a clra clrb bsr L1139 bra L118A L1139 pshs u,b,a ldd #$FFB8 lbsr L00FD ldd #$0002 stb <u0035 ldd ,s addd #$0020 addd <u002F stb <u0036 ldd $06,s addd #$0020 stb <u0037 ldd #$0003 bra L117F L115B pshs u,b,a ldd #$FFB8 lbsr L00FD ldd <u0027 pshs b,a ldd #$0018 bsr L1139 leas $02,s ldd ,s beq L1177 ldd #$0058 bra L117A L1177 ldd #$0020 L117A stb <u0035 ldd #$0001 L117F pshs b,a leax >$0035,y tfr x,d lbsr L141C L118A leas $02,s lbra L14B9 L118F pshs u tfr d,u ldd #$FFBA lbsr L00FD ldd #$0005 stb <u0035 stu -$02,s beq L11A7 ldd #$0021 bra L11AA L11A7 ldd #$0020 L11AA stb <u0036 ldd #$0002 bra L11DA L11B1 pshs u ldd #$FFBA lbsr L00FD ldd #$000C bra L11D5 L11BE pshs u ldd #$FFBA lbsr L00FD ldd #$0005 pshs b,a clra clrb lbsr L1139 leas $02,s ldd #$000B L11D5 stb <u0035 ldd #$0001 L11DA pshs b,a leax >$0035,y tfr x,d lbsr L141C lbra L14B9 L11E8 pshs u ldd #$FFB9 lbsr L00FD leas -$01,s ldd #$0004 stb ,s ldu #$0000 bra L1215 L11FC pshs u clra clrb lbsr L1139 leas $02,s ldd #$0001 pshs b,a leax $02,s tfr x,d lbsr L141C leas $02,s leau u0001,u L1215 cmpu #$0003 ble L11FC leas $01,s puls pc,u L121F pshs u ldd #$FFB8 lbsr L00FD ldd #$0007 stb <u0035 ldd #$0001 pshs b,a leax >$0035,y pshs x ldd #$0002 lbsr L2AAD lbra L1409 L1240 pshs u tfr d,u ldd #$FFBA lbsr L00FD pshs u ldd #$0003 lbsr L1139 leas $02,s leax >$0001,y bra L1272 L125A pshs u tfr d,u ldd #$FFBA lbsr L00FD pshs u ldd #$0003 lbsr L1139 leas $02,s leax >$0004,y L1272 tfr x,d L1274 lbsr L140D puls pc,u L1279 pshs u,b,a ldd #$FF8F lbsr L00FD leas <-$27,s leax >$0085,y tfr x,d lbsr L2B41 ldd #$0001 pshs b,a ldd <$29,s lbsr L29FE leas $02,s std <$25,s cmpd #$FFFF bne L12AF leax >L1787,pcr tfr x,d lbsr L145D lbra L1326 L12AF lbsr L11E8 clra clrb std <$23,s pshs b,a bra L12F7 L12BB ldd <$23,s cmpd #$0002 ble L12D9 lbsr L133D cmpd #$0002 beq L1312 clra clrb std <$23,s pshs b,a lbsr L1139 leas $02,s L12D9 ldd <$21,s pshs b,a leax $02,s pshs x ldd #$0001 lbsr L2AC2 leas $04,s ldd <$23,s addd #$0001 std <$23,s pshs b,a clra clrb L12F7 lbsr L1139 leas $02,s ldd #$0020 pshs b,a leax $02,s pshs x ldd <$29,s lbsr L2A9B leas $04,s std <$21,s bgt L12BB L1312 ldd <$21,s bge L1320 leax >L179C,pcr tfr x,d lbsr L145D L1320 ldd <$25,s lbsr L2A0B L1326 lbsr L139D leax >$00A2,y tfr x,d lbsr L2B41 lbsr L11E8 lbsr L0E92 leas <$29,s puls pc,u L133D pshs u ldd #$FFBA lbsr L00FD ldd <u002B beq L134E ldd #$000F bra L1351 L134E ldd #$0003 L1351 pshs b,a ldd #$0004 lbsr L1139 leas $02,s leax >$00EF,y tfr x,d lbsr L140D L1364 lbsr L1437 sex tfr d,x bra L1381 L136C lbsr L11E8 ldd #$0001 puls pc,u L1374 lbsr L11E8 ldd #$0002 puls pc,u L137C lbsr L121F bra L1364 L1381 cmpx #$004D beq L136C cmpx #$006D lbeq L136C cmpx #$0043 beq L1374 cmpx #$0063 lbeq L1374 bra L137C puls pc,u L139D pshs u ldd #$FFBA lbsr L00FD ldd <u002B beq L13AE ldd #$000F bra L13B1 L13AE ldd #$0003 L13B1 pshs b,a ldd #$0004 lbsr L1139 leas $02,s lbsr L1506 puls pc,u L13C0 pshs u,b,a ldd #$FFB6 lbsr L00FD leas -$02,s bra L1400 L13CC ldd [<$0A,s] lbsr L2889 pshs b,a ldd #$0020 subd ,s++ pshs b,a ldd #$0002 lbsr L2D6D std ,s ldd $02,s addd #$0001 std $02,s subd #$0001 pshs b,a ldd $02,s lbsr L1139 leas $02,s ldx $0A,s leax $02,x stx $0A,s ldd -$02,x bsr L140D L1400 ldd $08,s addd #$FFFF std $08,s bge L13CC L1409 leas $04,s puls pc,u L140D pshs u,b,a ldd #$FFB6 lbsr L00FD ldd ,s lbsr L2889 bra L1426 L141C pshs u,b,a ldd #$FFB6 lbsr L00FD ldd $06,s L1426 pshs b,a ldd $02,s pshs b,a ldd #$0001 lbsr L2AAD leas $04,s lbra L14B9 L1437 pshs u ldd #$FFB8 lbsr L00FD ldd #$0001 pshs b,a leax >$0078,y pshs x clra clrb lbsr L2A85 leas $04,s std -$02,s bgt L1459 clra clrb stb <u0078 L1459 ldb <u0078 puls pc,u L145D pshs u tfr d,u ldd #$FFBC lbsr L00FD lbsr L121F lbsr L11E8 tfr u,d bsr L1484 puls pc,u L1473 pshs u,b,a ldd #$FFBA lbsr L00FD lbsr L11B1 ldd ,s bsr L1484 bra L14B9 L1484 pshs u tfr d,u ldd #$FFB8 lbsr L00FD leas -$02,s tfr u,d lbsr L2889 pshs b,a ldd #$0020 subd ,s++ pshs b,a ldd #$0002 lbsr L2D6D std ,s clra clrb pshs b,a ldd $02,s lbsr L1139 leas $02,s tfr u,d lbsr L140D lbsr L139D L14B9 leas $02,s puls pc,u L14BD pshs u tfr d,u ldd #$FFB8 lbsr L00FD lbsr L121F lbsr L11B1 clra clrb pshs b,a lbsr L1139 leas $02,s ldd #$0008 pshs b,a leax >L17B4,pcr pshs x ldd #$0002 lbsr L2AAD leas $04,s tfr u,d lbsr L2889 pshs b,a pshs u ldd #$0002 lbsr L2AAD leas $04,s lbsr L0269 ldd >$03BB,y lbsr L2CDA puls pc,u L1506 pshs u ldd #$FFBC lbsr L00FD leax >$0108,y tfr x,d lbsr L140D lbsr L1437 puls pc,u coma clra fcb $4E N rora rola asra neg <u0041 fcb $52 R fcb $52 R clra asrb comb bra L1558 bra L1582 negb ble L1574 clra asrb fcb $4E N ble L1582 clra fcb $52 R fcb $45 E ble L157C fcb $41 A coma fcb $4B K neg <u0053 bra L156E bra L1596 fcb $45 E inca ble L159C fcb $4E N comb fcb $45 E inca bra L1595 bra L157C bra L1599 fcb $45 E inca negb bra L159A bra L1585 L1558 bra L159E clra fcb $4E N fcb $45 E neg <u0020 bra L1581 rola lsrb fcb $45 E tsta bra L1587 bra L1589 bra L158B bra L158D bra L15C2 fcb $45 E inca neg <u0048 clra L1574 asrb bra L15C4 fcb $41 A fcb $4E N rolb bra L15C0 L157C fcb $52 R rola rorb fcb $45 E comb L1581 bra L15C7 clra bra L15DF clra L1587 fcb $55 U bra L15D2 fcb $41 A L158B rorb fcb $45 E L158D abx neg <u0031 bra L15BF bra L15E3 fcb $4E N L1595 fcb $45 E L1596 bra L15DC fcb $52 R L1599 rola L159A rorb fcb $45 E L159C bra L15ED L159E fcb $4E N inca rolb bra L15C3 bra L15C5 neg <u0032 bra L15D6 bra L15FF asrb clra bra L15FE fcb $52 R bra L15FF clra fcb $52 R fcb $45 E bra L15FB fcb $52 R rola rorb fcb $45 E comb neg <u0053 fcb $45 E L15BF inca L15C0 fcb $45 E coma L15C2 lsrb L15C3 rola L15C4 clra L15C5 fcb $4E N bra L1623 leay $0C,y leas -u0003,u bra L15CE L15CE comb fcb $45 E inca fcb $45 E L15D2 coma lsrb bra L1619 L15D6 inca clra coma fcb $4B K bra L1629 L15DC clra lsra fcb $55 U L15DF inca fcb $45 E abx neg <u0031 bra L1613 bra L161E leax $00,y lsla decb bra L1616 fcb $41 A tsta fcb $45 E fcb $52 R rola coma fcb $41 A fcb $4E N bra L1648 clra asrb fcb $45 E L15FB fcb $52 R bvs L15FE L15FE leas $00,y blt L1622 puls y,x bra L164E decb bra L1631 fcb $45 E fcb $55 U fcb $52 R clra negb fcb $45 E fcb $41 A fcb $4E N bra L1663 L1613 clra asrb fcb $45 E L1616 fcb $52 R bvs L1619 L1619 coma clra fcb $4E N rora rola L161E asra bra L1677 fcb $45 E L1622 fcb $52 R L1623 comb rola clra fcb $4E N bra L165B L1629 bgt L165B neg <u0043 clra negb rolb fcb $52 R L1631 rola asra lsla lsrb bra L1668 rts fcb $38 8 pshu y fcb $42 B rolb neg <u004D rola coma fcb $52 R clra asrb fcb $41 A fcb $52 R fcb $45 E bra L169C rolb comb lsrb fcb $45 E tsta L164E comb bra L1694 clra fcb $52 R negb bgt L1656 L1656 fcb $52 R fcb $45 E negb fcb $52 R clra L165B lsra fcb $55 U coma fcb $45 E lsra bra L16B7 fcb $4E N L1663 lsra fcb $45 E fcb $52 R bra L16B4 L1668 rola coma fcb $45 E fcb $4E N comb fcb $45 E neg <u0054 clra bra L16C7 fcb $41 A fcb $4E N lsra rolb L1677 bra L16BC clra fcb $52 R negb bgt L167E L167E fcb $41 A inca inca bra L16D5 rola asra lsla lsrb comb bra L16DC fcb $45 E comb fcb $45 E fcb $52 R rorb fcb $45 E lsra neg <u0044 clra L1694 bra L16EF clra fcb $55 U bra L16F1 rola comb L169C lsla bra L16F3 clra bra L16E3 lsra lsra neg <u005B fcb $4E N tstb clra bra L16EE clra tsta tsta fcb $41 A fcb $4E N lsra comb bge L16D4 L16B4 comb lsrb clra L16B7 negb bra L1708 clra asrb L16BC neg <u005B rora tstb fcb $55 U inca inca bra L1708 clra tsta L16C7 tsta fcb $41 A fcb $4E N lsra bra L1720 fcb $45 E lsrb bra L16F1 bra L16F3 bra L16D5 L16D5 fcb $5B [ rola tstb fcb $4E N rola lsra rola L16DC rorb rola lsra fcb $55 U fcb $41 A inca inca L16E3 rolb bra L1739 fcb $45 E inca fcb $45 E coma lsrb bra L16ED L16ED fcb $5B [ L16EE lsla L16EF tstb bra L1744 fcb $45 E L16F3 coma fcb $45 E rola rorb fcb $45 E bra L1742 fcb $45 E inca negb bra L171F bra L1721 bra L1723 bra L1705 L1705 comb fcb $45 E inca L1708 fcb $45 E coma lsrb rola clra fcb $4E N bra L176B fcb $4E N bge L1759 bge L175E bge L175F tstb neg <u0053 fcb $45 E inca fcb $45 E coma lsrb L171F bra L1775 L1721 fcb $45 E fcb $52 R L1723 tsta bra L176A fcb $45 E comb coma fcb $52 R rola negb lsrb clra fcb $52 R neg <u0031 bra L1760 bra L1789 fcb $45 E fcb $52 R tsta clrb L1739 rorb lsra asra neg <u0032 bra L176D bra L1796 L1742 fcb $45 E fcb $52 R L1744 tsta clrb asrb rola fcb $4E N neg <u0048 bra L177A bra L1797 fcb $45 E inca negb neg <u0050 inca fcb $41 A coma fcb $45 E bra L179B bra L17A2 clra fcb $52 R L175E tsta L175F fcb $41 A L1760 lsrb lsrb fcb $45 E lsra bra L17AA rola comb fcb $4B K bra L17B4 L176B fcb $4E N neg <u0050 inca fcb $41 A coma fcb $45 E bra L17CD clra L1775 fcb $55 U fcb $52 R bra L17CC rolb L177A comb lsrb fcb $45 E tsta bra L17C4 rola comb fcb $4B K bra L17CE fcb $4E N neg <u0043 oim #$6E,$07,y lsr >$206F neg >$656E bra L17FB eim #$6C,-$10,s L1796 bra L17FE rol $0C,s eim #u0000,$05,u aim #$72,>$6F72 bra L1815 eim #$61,$04,s rol $0E,s asr $00,y L17AA lsl $05,s inc -$10,s bra L1816 rol $0C,s eim #u0000,$03,u clra fcb $4E N rora rola asra abx bra L17BD L17BD pshs u ldd #$FFBA lbsr L00FD ldd #$0003 pshs b,a leax >$021B,y L17CE tfr x,d lbsr L2A1C leas $02,s std <u0079 cmpd #$FFFF bne L17E6 leax >L1A3D,pcr tfr x,d lbsr L14BD L17E6 lbsr L1909 bsr L182B ldd <u0079 lbsr L2A0B bsr L17F4 puls pc,u L17F4 pshs u ldd #$FFBC lbsr L00FD leax >$000D,y tfr x,d lbsr L19AA leax >$0013,y tfr x,d lbsr L19AA leax >$0011,y tfr x,d lbsr L19AA leax >$0015,y tfr x,d lbsr L19AA leax >$000F,y tfr x,d lbsr L19AA puls pc,u L182B pshs u ldd #$FFB6 lbsr L00FD leas -$02,s clra clrb bra L186F L1839 ldu <u0011 bra L1866 L183D ldd ,s lslb rola leax >$0007,y leax d,x ldd ,x pshs b,a pshs u ldd #$0002 addd ,s++ lbsr L0D34 std ,s++ beq L1863 ldd ,u beq L186A tfr u,d bsr L188F bra L186A L1863 ldu <u0023,u L1866 stu -$02,s bne L183D L186A ldd ,s addd #$0001 L186F std ,s ldd ,s cmpd #$0002 blt L1839 ldu <u0011 bra L1888 L187D ldd ,u beq L1885 tfr u,d bsr L188F L1885 ldu <u0023,u L1888 stu -$02,s bne L187D lbra L1A39 L188F pshs u,b,a ldd #$FFB6 lbsr L00FD leas -$02,s ldd $02,s addd #$0002 lbsr L197E clra clrb std [<$02,s] ldd <u0013 lbra L18FE L18AB ldx ,s ldd <$21,x cmpd $02,s bne L18F9 ldd ,x beq L18F9 tfr x,d addd #$0002 lbsr L197E ldd ,s addd #$0002 lbsr L1924 std -$02,s beq L18D0 lbsr L19E7 L18D0 clra clrb std [,s] ldu <u000D bra L18F5 L18D8 ldd <u0021,u cmpd ,s bne L18F2 ldd ,u beq L18F2 pshs u ldd #$0002 addd ,s++ lbsr L197E clra clrb std ,u L18F2 ldu <u0023,u L18F5 stu -$02,s bne L18D8 L18F9 ldx ,s ldd <$23,x L18FE std ,s ldd ,s lbne L18AB lbra L19D0 L1909 pshs u ldd #$FFBC lbsr L00FD leau >$0224,y bra L191C L1917 ldd ,u++ lbsr L197E L191C ldd ,u bne L1917 bsr L1941 puls pc,u L1924 pshs u,b,a ldd #$FFB8 lbsr L00FD ldd ,s lbsr L0DD5 leax >L1A83,pcr pshs x ldd $02,s lbsr L0D34 leas $02,s lbra L1A39 L1941 pshs u ldd #$FFBC lbsr L00FD lbsr L103F L194C lbsr L1437 sex tfr d,x bra L1969 L1954 leax >L1A89,pcr bra L195E L195A leax >L1A94,pcr L195E tfr x,d bsr L197E puls pc,u L1964 lbsr L121F bra L194C L1969 cmpx #$000D beq L1954 cmpx #$0031 lbeq L1954 cmpx #$0032 beq L195A bra L1964 puls pc,u L197E pshs u tfr d,u ldd #$FFB8 lbsr L00FD tfr u,d lbsr L2889 pshs b,a pshs u ldd <u0079 lbsr L2AAD leas $04,s ldd #$0001 pshs b,a leax >L1A9F,pcr pshs x ldd <u0079 lbsr L2AAD bra L19D0 L19AA pshs u,b,a ldd #$FFBC lbsr L00FD leas -$02,s ldu [<$02,s] bra L19C7 L19B9 ldd <u0023,u std ,s ldd <u0019 std <u0023,u stu <u0019 ldu ,s L19C7 stu -$02,s bne L19B9 clra clrb std [<$02,s] L19D0 leas $04,s puls pc,u L19D4 pshs u ldd #$FFBC lbsr L00FD leax >$021B,y tfr x,d lbsr L2A73 puls pc,u L19E7 pshs u ldd #$FFB8 lbsr L00FD leas -$02,s clra clrb bra L1A2F L19F5 ldx ,s bra L1A05 L19F9 ldu <u000F bra L1A26 L19FD ldu <u0017 bra L1A26 L1A01 ldu <u0015 bra L1A26 L1A05 stx -$02,s beq L19F9 cmpx #$0001 beq L19FD cmpx #$0002 beq L1A01 bra L1A26 L1A15 ldd ,u beq L1A23 pshs u ldd #$0002 addd ,s++ lbsr L197E L1A23 ldu <u0023,u L1A26 stu -$02,s bne L1A15 ldd ,s addd #$0001 L1A2F std ,s ldd ,s cmpd #$0003 blt L19F5 L1A39 leas $02,s puls pc,u L1A3D coma oim #$6E,$07,y lsr >$2063 aim #$65,>$6174 eim #$20,$02,s clr $0F,s lsr >$6C69 com >$7400 fcb $52 R fcb $42 B rora bgt L1AC5 jmp $00,x comb coma rora bgt L1ACC jmp $00,x negb rola negb fcb $45 E tsta fcb $41 A fcb $4E N bgt L1AD7 jmp $00,x clra comb rts negb leas $00,x rola clra tsta oim #$6E,$00,x rola jmp $09,s lsr >$0043 coma leau u0007,u clr $00,x L1A83 coma coma leau u0009,u clra neg <u0043 inc $0F,s com $0B,s bgt L1AC6 leax $08,s dec >$0043 inc $0F,s com $0B,s bgt L1AD0 leax $08,s dec >$000D neg <u0034 nega ldd #$FFB8 lbsr L00FD leas -$02,s lbsr L11B1 leax >$040D,y pshs x leax >$0419,y tfr x,d lbsr L1FE5 leas $02,s tfr d,u ldd <u002D beq L1AD9 L1AC5 leax >L1BA6,pcr pshs x tfr u,d lbsr L1FE5 L1AD0 leas $02,s tfr d,u lbsr L0375 L1AD7 bra L1ADC L1AD9 lbsr L0EFD L1ADC leax >L1BAA,pcr pshs x tfr u,d lbsr L1FE5 leas $02,s lbsr L0F4B leax >$0419,y tfr x,d bsr L1B13 leax ,s tfr x,d lbsr L2BEC ldd ,s beq L1B07 lbsr L0269 ldd ,s lbsr L2CDA L1B07 ldd <u002D lbeq L1B89 lbsr L0383 lbra L1B89 L1B13 pshs u tfr d,u ldd #$FFBA lbsr L00FD clra clrb lbsr L2A7A std <u007B clra clrb lbsr L2A0B ldd #$0001 pshs b,a leax >$021B,y tfr x,d lbsr L29FE leas $02,s std <u0079 bge L1B46 leax >L1BAC,pcr tfr x,d lbsr L14BD L1B46 pshs u leax >L1BC0,pcr tfr x,d bsr L1B65 leas $02,s cmpd #$FFFF bne L1B61 leax >L1BC7,pcr tfr x,d lbsr L14BD L1B61 bsr L1B8D puls pc,u L1B65 pshs u,b,a ldd #$FFB0 lbsr L00FD ldd #$0040 pshs b,a ldd #$0001 pshs b,a pshs b,a ldd $0C,s pshs b,a lbsr L2889 pshs b,a ldd $0A,s lbsr L2C2A leas $0A,s L1B89 leas $02,s puls pc,u L1B8D pshs u ldd #$FFBC lbsr L00FD ldd <u0079 lbsr L2A0B ldd <u007B lbsr L2A7A ldd <u007B lbsr L2A0B puls pc,u L1BA6 bra L1BD5 com >$000D neg <u0063 oim #$6E,$07,y lsr >$206F neg >$656E bra L1C1A clr $0F,s lsr >$6669 inc $05,s neg <u006F com >$3967 eim #$6E,$00,x L1BC7 coma oim #$6E,$07,y lsr >$2066 clr -$0E,s tim #u0020,$0F,u comb rts L1BD5 asr $05,s jmp $00,x L1BD9 pshs u ldd #$FFBC lbsr L00FD L1BE1 lbsr L0F91 lbsr L1437 sex tfr d,x bra L1C17 L1BEC ldd <u0033 bne L1BF9 leax >L2006,pcr tfr x,d lbsr L145D L1BF9 puls pc,u L1BFB bsr L1C4B puls pc,u L1BFF bsr L1C5B puls pc,u L1C03 leax >L2023,pcr tfr x,d lbsr L1CFB lbsr L0F91 bra L1BE1 L1C11 lbsr L121F lbra L1BE1 L1C17 cmpx #$004E L1C1A beq L1BEC cmpx #$006E lbeq L1BEC cmpx #$0046 beq L1BFB cmpx #$0066 lbeq L1BFB cmpx #$0049 beq L1BFF cmpx #$0069 lbeq L1BFF cmpx #$0048 beq L1C03 cmpx #$0068 lbeq L1C03 bra L1C11 puls pc,u L1C4B pshs u ldd #$FFBC lbsr L00FD ldd #$0001 lbsr L1DA2 bra L1C70 L1C5B pshs u ldd #$FFBC lbsr L00FD ldd #$0001 std <u0029 clra clrb lbsr L1DA2 lbsr L0409 L1C70 bsr L1C74 puls pc,u L1C74 pshs u ldd #$FFBC lbsr L00FD bsr L1C83 lbsr L1E86 puls pc,u L1C83 pshs u ldd #$FFBA lbsr L00FD ldd <u002D beq L1C94 lbsr L10B6 bra L1C97 L1C94 lbsr L0FB0 L1C97 leax >$040D,y tfr x,d lbsr L2B41 ldd #$00BF pshs b,a leax >$022E,y tfr x,d lbsr L2A13 std ,s++ beq L1CBB leax >$0233,y tfr x,d lbsr L14BD L1CBB puls pc,u L1CBD pshs u,b,a ldd #$FFB6 lbsr L00FD ldu <u001B bra L1CF2 L1CC9 pshs u ldd #$0002 addd ,s++ lbsr L0DBB ldd ,s pshs b,a pshs u ldd #$0002 addd ,s++ lbsr L28E1 std ,s++ bne L1CEF ldd ,u beq L1CF6 ldd #$0001 lbra L2002 L1CEF ldu <u0023,u L1CF2 stu -$02,s bne L1CC9 L1CF6 clra clrb lbra L2002 L1CFB pshs u,b,a ldd #$FFB2 lbsr L00FD leas -$04,s leax >$0085,y tfr x,d lbsr L2B41 ldd #$0001 pshs b,a ldd $06,s lbsr L29FE leas $02,s std ,s cmpd #$FFFF bne L1D31 leax >L202D,pcr tfr x,d lbsr L145D lbsr L11E8 lbra L1D95 L1D31 ldd #$0001 std <u002B bra L1D38 L1D38 lbsr L11B1 ldu #$0000 bra L1D74 L1D40 ldd #$0020 pshs b,a leax >$0441,y pshs x ldd $04,s lbsr L2A9B leas $04,s std $02,s ble L1D7A pshs u clra clrb lbsr L1139 leas $02,s ldd #$0020 pshs b,a leax >$0441,y pshs x ldd #$0001 lbsr L2AC2 leas $04,s leau u0001,u L1D74 cmpu #$000F blt L1D40 L1D7A ldd $02,s bgt L1D83 lbsr L139D bra L1D8C L1D83 lbsr L133D cmpd #$0002 bne L1D38 L1D8C ldd ,s lbsr L2A0B clra clrb std <u002B L1D95 leax >$00A2,y tfr x,d lbsr L2B41 leas $06,s puls pc,u L1DA2 pshs u,b,a ldd #$FF8E lbsr L00FD leas <-$26,s lbsr L0FD9 leax >$0401,y tfr x,d lbsr L2B41 ldd #$0081 pshs b,a leax >$022E,y tfr x,d lbsr L29FE leas $02,s std $02,s cmpd #$FFFF bne L1DDA leax >L2042,pcr tfr x,d lbsr L14BD L1DDA clra clrb pshs b,a ldd #$0040 pshs b,a clra clrb pshs b,a ldd $08,s lbsr L2AD6 leas $06,s clra clrb std <u001D leax >$001B,y stx $06,s lbra L1E64 L1DFB ldd ,s pshs b,a ldd #$0005 lbsr L2DD7 std ,s leax >$0461,y stx $04,s bra L1E59 L1E0F ldb [<$04,s] beq L1E52 ldd $04,s pshs b,a leax $0A,s tfr x,d lbsr L29D2 leas $02,s clra clrb pshs b,a leax $0A,s tfr x,d lbsr L0C90 leas $02,s tfr d,u tfr u,d std [<$06,s] ldd <$26,s beq L1E3F ldd #$0001 bra L1E41 L1E3F clra clrb L1E41 std ,u ldd <u001D addd #$0001 std <u001D std <u001F,u leax <u0023,u stx $06,s L1E52 ldd $04,s addd #$0020 std $04,s L1E59 ldd ,s addd #$FFFF std ,s lbge L1E0F L1E64 ldd #$0800 pshs b,a leax >$0461,y pshs x ldd $06,s lbsr L2A85 leas $04,s std ,s lbgt L1DFB ldd $02,s lbsr L2A0B leas <$28,s puls pc,u L1E86 pshs u ldd #$FFB8 lbsr L00FD leas -$02,s leax >$0401,y pshs x leax >$0441,y tfr x,d lbsr L1FE5 leas $02,s std ,s leax >L2052,pcr pshs x ldd $02,s lbsr L1FE5 leas $02,s leax >$0441,y tfr x,d lbsr L1F2A leax >$022E,y tfr x,d lbsr L2B41 leax >L205B,pcr pshs x ldd $02,s lbsr L1FE5 leas $02,s std ,s ldd <u0033 bne L1EF7 leax >L2062,pcr tfr x,d lbsr L1CBD std -$02,s bne L1EF7 leax >L2069,pcr pshs x ldd $02,s lbsr L1FE5 leas $02,s leax >$0441,y tfr x,d bsr L1F2A L1EF7 ldu <u001B bra L1F1A L1EFB ldd ,u beq L1F17 pshs u ldd #$0002 addd ,s++ pshs b,a ldd $02,s lbsr L1FE5 leas $02,s leax >$0441,y tfr x,d bsr L1F2A L1F17 ldu <u0023,u L1F1A stu -$02,s bne L1EFB leax >$00A2,y tfr x,d lbsr L2B41 lbra L2002 L1F2A pshs u tfr d,u ldd #$FF62 lbsr L00FD leas <-$56,s ldd #$002F pshs b,a tfr u,d lbsr L0D89 leas $02,s addd #$0001 std $02,s pshs u leax $06,s tfr x,d lbsr L1FE5 leas $02,s std ,s ldd #$0020 ldx ,s leax $01,x stx ,s stb -$01,x ldd <u002D beq L1F84 pshs u ldd $02,s lbsr L1FE5 leas $02,s std ,s leax >L2070,pcr pshs x ldd $02,s lbsr L1FE5 leas $02,s lbsr L0FD9 lbsr L0375 bra L1F98 L1F84 leax >L2075,pcr pshs x ldd $04,s pshs b,a ldd $04,s bsr L1FE5 leas $02,s bsr L1FE5 leas $02,s L1F98 leax $04,s pshs x leax >L2077,pcr tfr x,d lbsr L1B65 leas $02,s cmpd #$FFFF bne L1FB6 leax >L207C,pcr tfr x,d lbsr L14BD L1FB6 leax <$54,s tfr x,d lbsr L2BEC ldd <$54,s beq L1FD9 lbsr L121F ldd >$03BB,y pshs b,a pshs u leax >L208C,pcr tfr x,d lbsr L20A5 leas $04,s L1FD9 ldd <u002D beq L1FE0 lbsr L0383 L1FE0 leas <$56,s puls pc,u L1FE5 pshs u,b,a ldd #$FFBE lbsr L00FD ldu $06,s L1FEF ldb ,u+ ldx ,s leax $01,x stx ,s stb -$01,x bne L1FEF ldd ,s addd #$FFFF std ,s L2002 leas $02,s puls pc,u L2006 tsta fcb $55 U comb lsrb bra L2054 fcb $41 A rorb fcb $45 E bra L2058 fcb $52 R rora lsra fcb $52 R rorb bra L2061 fcb $4E N bra L205E tsta lsra comb bra L2064 rola fcb $52 R neg <u0063 clr $0E,s ror $09,s asr $0E,y lsl -$10,s neg <u0043 oim #$6E,$07,y lsr >$206F neg >$656E bra L20A1 eim #$6C,-$10,s bra L20A4 rol $0C,s eim #u0000,$03,u oim #$6E,$07,y lsr >$206F neg >$656E bra L2091 tsta lsra comb neg <u002F com >$7461 aim #$74,>$7570 neg <u002F coma tsta L205E lsra comb ble L2062 L2062 asr -$0E,s L2064 ror $04,s aim #$76,>$0067 aim #$66,>$6472 ror >$0020 blt L20E6 tst <u0000 L2075 tst <u0000 L2077 com $0F,s neg >$7900 L207C coma oim #$6E,$07,y lsr >$2066 clr -$0E,s tim #$20,$03,s clr -$10,s rol >$000D fcb $45 E aim #$72,>$6F72 bra L20F7 clr -$10,s rol >$696E asr -$06,y bra L20C2 com >$202D bra L20C7 lsr $0D,x L20A4 neg <u0034 rora leax >$0267,y stx >$0C61,y leax $06,s pshs x ldd $02,s bra L20C5 pshs u,b,a ldd ,s std >$0C61,y leax $08,s pshs x ldd $08,s L20C5 pshs b,a L20C7 leax >L254B,pcr tfr x,d bsr L20F9 leas $04,s bra L20F5 pshs u,b,a ldd ,s std >$0C61,y leax $08,s pshs x ldd $08,s pshs b,a leax >L255C,pcr tfr x,d bsr L20F9 leas $04,s clra clrb stb [>$0C61,y] ldd ,s L20F5 leas $02,s L20F7 puls pc,u L20F9 pshs u,b,a ldu $06,s leas -$0B,s bra L210B L2101 ldb $08,s lbeq L2328 sex jsr [<$0B,s] L210B ldb ,u+ stb $08,s cmpb #$25 bne L2101 ldb ,u+ stb $08,s clra clrb std $02,s std $06,s ldb $08,s cmpb #$2D bne L2130 ldd #$0001 std >$0C77,y ldb ,u+ stb $08,s bra L2136 L2130 clra clrb std >$0C77,y L2136 ldb $08,s cmpb #$30 bne L2141 ldd #$0030 bra L2144 L2141 ldd #$0020 L2144 std >$0C79,y bra L2164 L214A ldd $06,s pshs b,a ldd #$000A lbsr L2D01 pshs b,a ldb $0A,s sex addd #$FFD0 addd ,s++ std $06,s ldb ,u+ stb $08,s L2164 ldb $08,s sex leax >$032B,y leax d,x ldb ,x clra andb #$08 bne L214A ldb $08,s cmpb #$2E bne L21AD ldd #$0001 std $04,s bra L2197 L2181 ldd $02,s pshs b,a ldd #$000A lbsr L2D01 pshs b,a ldb $0A,s sex addd #$FFD0 addd ,s++ std $02,s L2197 ldb ,u+ stb $08,s ldb $08,s sex leax >$032B,y leax d,x ldb ,x clra andb #$08 bne L2181 bra L21B1 L21AD clra clrb std $04,s L21B1 ldb $08,s sex tfr d,x lbra L22CB L21B9 ldd $06,s pshs b,a ldx <$15,s leax $02,x stx <$15,s ldd -$02,x lbsr L232C lbra L229B L21CD ldd $06,s pshs b,a ldx <$15,s leax $02,x stx <$15,s ldd -$02,x lbsr L23E7 lbra L229B L21E1 ldd $06,s pshs b,a ldb $0A,s sex leax >$032B,y leax d,x ldb ,x clra andb #$02 pshs b,a ldx <$17,s leax $02,x stx <$17,s ldd -$02,x lbsr L2431 lbra L22B6 L2205 ldd $06,s pshs b,a ldx <$15,s leax $02,x stx <$15,s ldd -$02,x pshs b,a leax >$0C63,y tfr x,d lbsr L2370 lbra L22B6 L2221 ldd $04,s bne L222A ldd #$0006 std $02,s L222A ldd $06,s pshs b,a leax <$15,s pshs x ldd $06,s pshs b,a ldb $0E,s sex lbsr L287E leas $04,s lbra L229B L2242 ldx <$13,s leax $02,x stx <$13,s ldd -$02,x lbra L22C5 L224F ldx <$13,s leax $02,x stx <$13,s ldd -$02,x std $09,s ldd $04,s beq L2295 ldd $09,s std $04,s bra L2271 L2265 ldb [<$09,s] beq L227D ldd $09,s addd #$0001 std $09,s L2271 ldd $02,s addd #$FFFF std $02,s subd #$FFFF bne L2265 L227D ldd $06,s pshs b,a ldd $0B,s subd $06,s pshs b,a ldd $08,s pshs b,a ldd <$11,s lbsr L249F leas $06,s bra L22BF L2295 ldd $06,s pshs b,a ldd $0B,s L229B pshs b,a bra L22B8 L229F ldb ,u+ stb $08,s bra L22A7 leas -$0D,x L22A7 ldd $06,s pshs b,a leax <$15,s pshs x ldb $0C,s sex lbsr L283E L22B6 std ,s L22B8 ldd $0F,s lbsr L24F5 leas $04,s L22BF lbra L210B L22C2 ldb $08,s sex L22C5 jsr [<$0B,s] lbra L210B L22CB cmpx #$0064 lbeq L21B9 cmpx #$006F lbeq L21CD cmpx #$0078 lbeq L21E1 cmpx #$0058 lbeq L21E1 cmpx #$0075 lbeq L2205 cmpx #$0066 lbeq L2221 cmpx #$0065 lbeq L2221 cmpx #$0067 lbeq L2221 cmpx #$0045 lbeq L2221 cmpx #$0047 lbeq L2221 cmpx #$0063 lbeq L2242 cmpx #$0073 lbeq L224F cmpx #$006C lbeq L229F bra L22C2 L2328 leas $0D,s puls pc,u L232C pshs u,b,a leas -$02,s leax >$0C63,y stx ,s ldd $02,s bge L2363 nega negb sbca #$00 std $02,s std -$02,s bge L2358 leax >L2570,pcr pshs x leax >$0C63,y tfr x,d lbsr L289C leas $02,s lbra L242D L2358 ldd #$002D ldx ,s leax $01,x stx ,s stb -$01,x L2363 ldd $02,s pshs b,a ldd $02,s bsr L2370 leas $02,s lbra L2427 L2370 pshs u,b,a leas -$06,s ldu $06,s clra clrb std $02,s std ,s bra L238D L237E ldd ,s addd #$0001 std ,s ldd $0C,s subd >$024D,y std $0C,s L238D ldd $0C,s blt L237E leax >$024D,y stx $04,s bra L23CD L2399 ldd ,s addd #$0001 std ,s L23A0 ldd $0C,s subd [<$04,s] std $0C,s bge L2399 addd [<$04,s] std $0C,s ldd ,s beq L23B7 ldd #$0001 std $02,s L23B7 ldd $02,s beq L23C2 ldd ,s addd #$0030 stb ,u+ L23C2 clra clrb std ,s ldd $04,s addd #$0002 std $04,s L23CD ldd $04,s cmpd >$0255,y bne L23A0 ldd $0C,s addd #$0030 stb ,u+ clra clrb stb ,u ldd $06,s leas $08,s puls pc,u L23E7 pshs u,b,a leas -$02,s leax >$0C63,y stx ,s leau >$0C6D,y L23F5 ldd $02,s clra andb #$07 addd #$0030 stb ,u+ ldd $02,s lsra rorb lsra rorb lsra rorb std $02,s bne L23F5 bra L2417 L240D ldb ,u ldx ,s leax $01,x stx ,s stb -$01,x L2417 leau -u0001,u pshs u leax >$0C6D,y cmpx ,s++ bls L240D clra clrb stb [,s] L2427 leax >$0C63,y tfr x,d L242D leas $04,s puls pc,u L2431 pshs u,b,a leas -$04,s leax >$0C63,y stx $02,s leau >$0C6D,y L243F ldd $04,s clra andb #$0F std ,s pshs b,a ldd $02,s cmpd #$0009 ble L2461 ldd $0C,s beq L2459 ldd #$0041 bra L245C L2459 ldd #$0061 L245C addd #$FFF6 bra L2464 L2461 ldd #$0030 L2464 addd ,s++ stb ,u+ ldd $04,s lsra rorb lsra rorb lsra rorb lsra rorb anda #$0F std $04,s bne L243F bra L2484 L247A ldb ,u ldx $02,s leax $01,x stx $02,s stb -$01,x L2484 leau -u0001,u pshs u leax >$0C6D,y cmpx ,s++ bls L247A clra clrb stb [<$02,s] leax >$0C63,y tfr x,d leas $06,s puls pc,u L249F pshs u,b,a ldu $06,s ldd $0A,s subd $08,s std $0A,s ldd >$0C77,y bne L24CA bra L24B7 L24B1 ldd >$0C79,y jsr [,s] L24B7 ldd $0A,s addd #$FFFF std $0A,s subd #$FFFF bgt L24B1 bra L24CA L24C5 ldb ,u+ sex jsr [,s] L24CA ldd $08,s addd #$FFFF std $08,s subd #$FFFF bne L24C5 ldd >$0C77,y lbeq L256C bra L24E6 L24E0 ldd >$0C79,y jsr [,s] L24E6 ldd $0A,s addd #$FFFF std $0A,s subd #$FFFF bgt L24E0 lbra L256C L24F5 pshs u,b,a ldu $06,s ldd $08,s pshs b,a tfr u,d lbsr L2889 nega negb sbca #$00 addd ,s++ std $08,s ldd >$0C77,y bne L252B bra L2518 L2512 ldd >$0C79,y jsr [,s] L2518 ldd $08,s addd #$FFFF std $08,s subd #$FFFF bgt L2512 bra L252B L2526 ldb ,u+ sex jsr [,s] L252B ldb ,u bne L2526 ldd >$0C77,y beq L256C bra L253D L2537 ldd >$0C79,y jsr [,s] L253D ldd $08,s addd #$FFFF std $08,s subd #$FFFF bgt L2537 bra L256C L254B pshs u,b,a ldd >$0C61,y pshs b,a ldd $02,s lbsr L2577 leas $02,s bra L256C L255C pshs u,b,a ldd ,s ldx >$0C61,y leax $01,x stx >$0C61,y stb -$01,x L256C leas $02,s puls pc,u L2570 blt L25A5 leas -$09,y pshu y,x,dp neg <u0034 rora ldu $06,s ldd u0006,u anda #$80 andb #$22 cmpd #$8002 beq L2599 ldd u0006,u clra andb #$22 cmpd #$0002 lbne L2670 tfr u,d lbsr L27B2 L2599 ldd u0006,u clra andb #$04 beq L25D5 ldd #$0001 pshs b,a L25A5 leax $03,s pshs x ldd u0006,u clra andb #$40 beq L25B6 leax >L2AC2,pcr bra L25BA L25B6 leax >L2AAD,pcr L25BA tfr x,d tfr d,x ldd u0008,u jsr ,x leas $04,s cmpd #$FFFF lbne L268F ldd u0006,u orb #$20 std u0006,u lbra L2670 L25D5 ldd u0006,u anda #$01 clrb std -$02,s bne L25E3 tfr u,d lbsr L26C3 L25E3 ldd ,u addd #$0001 std ,u subd #$0001 tfr d,x ldd ,s stb ,x ldd ,u cmpd u0004,u bcc L260D ldd u0006,u clra andb #$40 lbeq L268F ldd ,s cmpd #$000D lbne L268F L260D tfr u,d lbsr L26C3 std -$02,s lbne L2670 lbra L268F pshs u tfr d,u ldd $04,s pshs b,a pshs u ldd #$0008 lbsr L2DE3 lbsr L2577 leas $02,s ldd $04,s pshs b,a tfr u,d lbsr L2577 lbra L2691 L263C pshs u,b,a leau >$025A,y clra clrb std ,s bra L264E L2648 tfr u,d leau u000D,u bsr L2660 L264E ldd ,s addd #$0001 std ,s subd #$0001 cmpd #$0010 blt L2648 bra L2691 L2660 pshs u tfr d,u leas -$02,s cmpu #$0000 beq L2670 ldd u0006,u bne L2675 L2670 ldd #$FFFF bra L2691 L2675 ldd u0006,u clra andb #$02 beq L2682 tfr u,d bsr L2695 bra L2684 L2682 clra clrb L2684 std ,s ldd u0008,u lbsr L2A0B clra clrb std u0006,u L268F ldd ,s L2691 leas $02,s puls pc,u L2695 pshs u tfr d,u cmpu #$0000 beq L26AA ldd u0006,u clra andb #$22 cmpd #$0002 beq L26AF L26AA ldd #$FFFF puls pc,u L26AF ldd u0006,u anda #$80 clrb std -$02,s bne L26BD tfr u,d lbsr L27B2 L26BD tfr u,d bsr L26C3 puls pc,u L26C3 pshs u tfr d,u leas -$04,s ldd u0006,u anda #$01 clrb std -$02,s bne L26F1 ldd ,u cmpd u0004,u beq L26F1 clra clrb pshs b,a tfr u,d lbsr L2779 ldd $02,x pshs b,a ldd ,x pshs b,a ldd u0008,u lbsr L2AD6 leas $06,s L26F1 ldd ,u subd u0002,u std $02,s lbeq L2765 ldd u0006,u anda #$01 clrb std -$02,s lbeq L2765 ldd u0006,u clra andb #$40 beq L273E ldd u0002,u bra L2736 L2711 ldd $02,s pshs b,a ldd ,u pshs b,a ldd u0008,u lbsr L2AC2 leas $04,s std ,s cmpd #$FFFF bne L272C leax $04,s bra L2754 L272C ldd $02,s subd ,s std $02,s ldd ,u addd ,s L2736 std ,u ldd $02,s bne L2711 bra L2765 L273E ldd $02,s pshs b,a ldd u0002,u pshs b,a ldd u0008,u lbsr L2AAD leas $04,s cmpd $02,s beq L2765 bra L2756 L2754 leas -$04,x L2756 ldd u0006,u orb #$20 std u0006,u ldd u0004,u std ,u ldd #$FFFF bra L2775 L2765 ldd u0006,u ora #$01 std u0006,u ldd u0002,u std ,u addd u000B,u std u0004,u clra clrb L2775 leas $04,s puls pc,u L2779 pshs u puls pc,u L277D pshs u,b,a ldd ,s leax >$032B,y leax d,x ldb ,x clra andb #$04 beq L27AC ldd ,s clra andb #$DF bra L27AE L2795 pshs u,b,a ldd ,s leax >$032B,y leax d,x ldb ,x clra andb #$02 beq L27AC ldd ,s orb #$20 bra L27AE L27AC ldd ,s L27AE leas $02,s puls pc,u L27B2 pshs u tfr d,u ldd #$FF98 lbsr L00FD ldd u0006,u clra andb #$C0 bne L27EA leas <-$22,s leax ,s pshs x ldd u0008,u lbsr L2C62 leas $02,s ldd u0006,u pshs b,a ldb $02,s bne L27DE ldd #$0040 bra L27E1 L27DE ldd #$0080 L27E1 ora ,s+ orb ,s+ std u0006,u leas <$22,s L27EA ldd u0006,u ora #$80 std u0006,u clra andb #$0C beq L27F7 puls pc,u L27F7 ldd u000B,u bne L280C ldd u0006,u clra andb #$40 beq L2807 ldd #$0080 bra L280A L2807 ldd #$0100 L280A std u000B,u L280C ldd u0002,u bne L281D ldd u000B,u lbsr L2BB7 std u0002,u cmpd #$FFFF beq L2825 L281D ldd u0006,u orb #$08 std u0006,u bra L2834 L2825 ldd u0006,u orb #$04 std u0006,u leax u000A,u stx u0002,u ldd #$0001 std u000B,u L2834 ldd u0002,u addd u000B,u std u0004,u std ,u puls pc,u L283E pshs u,b,a ldb $01,s sex tfr d,x bra L2864 L2847 ldd [<$06,s] addd #$0004 std [<$06,s] leax >L287D,pcr bra L2860 L2856 ldb $01,s stb >$0258,y leax >$0257,y L2860 tfr x,d bra L2879 L2864 cmpx #$0064 beq L2847 cmpx #$006F lbeq L2847 cmpx #$0078 lbeq L2847 bra L2856 L2879 leas $02,s puls pc,u L287D neg <u0034 nega leax >L2888,pcr tfr x,d puls pc,u L2888 neg <u0034 rora ldu ,s L288D ldb ,u+ bne L288D tfr u,d subd ,s addd #$FFFF leas $02,s puls pc,u L289C pshs u,b,a ldu $06,s leas -$02,s ldd $02,s std ,s L28A6 ldb ,u+ ldx ,s leax $01,x stx ,s stb -$01,x bne L28A6 bra L28DB L28B4 pshs u,b,a ldu $06,s leas -$02,s ldd $02,s std ,s L28BE ldx ,s leax $01,x stx ,s ldb -$01,x bne L28BE ldd ,s addd #$FFFF std ,s L28CF ldb ,u+ ldx ,s leax $01,x stx ,s stb -$01,x bne L28CF L28DB ldd $02,s leas $04,s puls pc,u L28E1 pshs u tfr d,u bra L28F7 L28E7 ldx $04,s leax $01,x stx $04,s ldb -$01,x bne L28F5 clra clrb puls pc,u L28F5 leau u0001,u L28F7 ldb ,u sex pshs b,a ldb [<$06,s] sex cmpd ,s++ beq L28E7 sex pshs b,a ldb ,u sex subd ,s++ puls pc,u pshs u,b,a ldu $06,s leas -$02,s ldd $02,s std ,s L2919 ldd $0A,s addd #$FFFF std $0A,s subd #$FFFF ble L293D ldb ,u+ ldx ,s leax $01,x stx ,s stb -$01,x bne L2919 bra L293D L2933 clra clrb ldx ,s leax $01,x stx ,s stb -$01,x L293D ldd $0A,s addd #$FFFF std $0A,s subd #$FFFF bgt L2933 lbra L29CC pshs u tfr d,u bra L2962 L2952 ldx $04,s leax $01,x stx $04,s ldb -$01,x bne L2960 clra clrb puls pc,u L2960 leau u0001,u L2962 ldd $06,s addd #$FFFF std $06,s subd #$FFFF ble L297C ldb ,u sex pshs b,a ldb [<$06,s] sex cmpd ,s++ beq L2952 L297C ldd $06,s bge L2984 clra clrb bra L298F L2984 ldb [<$04,s] sex pshs b,a ldb ,u sex subd ,s++ L298F puls pc,u pshs u,b,a ldu $06,s leas -$02,s ldd $02,s std ,s L299B ldx ,s leax $01,x stx ,s ldb -$01,x bne L299B ldd ,s addd #$FFFF std ,s L29AC ldd $0A,s addd #$FFFF std $0A,s subd #$FFFF ble L29C4 ldb ,u+ ldx ,s leax $01,x stx ,s stb -$01,x bne L29AC L29C4 ldd $0A,s bge L29CC clra clrb stb [,s] L29CC ldd $02,s leas $04,s puls pc,u L29D2 pshs u,b,a ldu ,s L29D6 ldx $06,s leax $01,x stx $06,s ldb -$01,x stb ,u+ bgt L29D6 ldb -u0001,u clra andb #$7F stb -u0001,u clra clrb stb ,u ldd ,s leas $02,s puls pc,u tfr d,x lda $03,s os9 I$Open bcc L2A0D bra L2A10 L29FE tfr d,x lda $03,s os9 I$Open bcs L2A5F tfr a,b clra rts L2A0B tfr b,a L2A0D os9 I$Close L2A10 lbra L2CD5 L2A13 tfr d,x ldb $03,s os9 I$MakDir bra L2A10 L2A1C pshs b,a ldx ,s lda $05,s tfr a,b andb #$24 orb #$0B os9 I$Create bcs L2A33 L2A2D leas $02,s tfr a,b clra rts L2A33 cmpb #$DA bne L2A5D lda $05,s bita #$80 bne L2A5D anda #$07 ldx ,s os9 I$Open bcs L2A5D pshs u,a ldx #$0000 leau ,x ldb #$02 os9 I$SetStt puls u,a bcc L2A2D pshs b os9 I$Close puls b L2A5D leas $02,s L2A5F lbra L2CCC tfr d,x lda $03,s ldb $05,s os9 I$Create lbcs L2CCC tfr a,b clra rts L2A73 tfr d,x os9 I$Delete bra L2A10 L2A7A tfr b,a os9 I$Dup bcs L2A5F tfr a,b clra rts L2A85 pshs y tfr b,a ldx $04,s ldy $06,s os9 I$Read bcc L2AA9 L2A93 cmpb #$D3 bne L2ABD clra clrb puls pc,y L2A9B pshs y tfr b,a ldx $04,s ldy $06,s os9 I$ReadLn bcs L2A93 L2AA9 tfr y,d puls pc,y L2AAD pshs y ldy $06,s beq L2AD2 tfr b,a ldx $04,s os9 I$Write bcc L2AD2 L2ABD puls y lbra L2CCC L2AC2 pshs y ldy $06,s beq L2AD2 tfr b,a ldx $04,s os9 I$WritLn bcs L2ABD L2AD2 tfr y,d puls pc,y L2AD6 pshs u,b,a ldd $0A,s bne L2AE4 ldu #$0000 ldx #$0000 bra L2B1A L2AE4 cmpd #$0001 beq L2B11 cmpd #$0002 beq L2B06 ldb #$F7 L2AF2 clra std >$03BB,y ldd #$FFFF leax >$03AF,y std ,x std $02,x leas $02,s puls pc,u L2B06 lda $01,s ldb #$02 os9 I$GetStt bcs L2AF2 bra L2B1A L2B11 lda $01,s ldb #$05 os9 I$GetStt bcs L2AF2 L2B1A tfr u,d addd $08,s tfr d,u tfr x,d adcb $07,s adca $06,s bmi L2AF2 tfr d,x stx >$03AF,y stu >$03B1,y lda $01,s os9 I$Seek bcs L2AF2 leax >$03AF,y leas $02,s puls pc,u L2B41 tfr d,x lda #$01 L2B45 os9 I$ChgDir lbra L2CD5 tfr d,x lda #$04 bra L2B45 L2B51 pshs y,b,a cmpd >$0C7B,y bls L2B88 subd >$0C7B,y addd >$03AD,y subd $02,s os9 F$Mem tfr y,d ldy $02,s bcc L2B74 ldd #$FFFF leas $04,s rts L2B74 ldx >$03AD,y std >$03AD,y pshs x subd ,s++ addd >$0C7B,y std >$0C7B,y L2B88 ldd >$03AD,y subd >$0C7B,y tfr d,x ldd >$0C7B,y subd ,s std >$0C7B,y ldd ,s stx ,s bitb #$01 beq L2BA7 clr ,x+ decb L2BA7 tfr d,y leay ,y beq L2BB5 clra clrb L2BAF std ,x++ leay -$02,y bne L2BAF L2BB5 puls pc,y,b,a L2BB7 addd >$03B7,y bcs L2BDE cmpd >$03B9,y bcc L2BDE pshs b,a ldx >$03B7,y clra bra L2BCF L2BCD sta ,x+ L2BCF cmpx ,s bcs L2BCD ldd >$03B7,y puls x stx >$03B7,y rts L2BDE ldd #$FFFF rts tfr b,a ldb $03,s os9 F$Send lbra L2CD5 L2BEC tfr d,x clra clrb os9 F$Wait lbcs L2CCC stx -$02,s beq L2BFF stb $01,x clr ,x L2BFF tfr a,b clra rts tfr b,a ldb $03,s os9 F$SPrior lbra L2CD5 leau $02,s leas >$00FF,y tfr d,x ldy ,u lda u0005,u lsla lsla lsla lsla ora u0007,u ldb u0009,u ldu u0002,u os9 F$Chain os9 F$Exit L2C2A pshs u,y tfr d,x ldy $06,s ldu $08,s lda $0B,s ora $0D,s ldb $0F,s os9 F$Fork puls u,y lbcs L2CCC tfr a,b clra rts L2C46 pshs u tfr y,u std >$0C7D,y leax >L2C5A,pcr os9 F$Icpt puls u lbra L2CD5 L2C5A tfr u,y clra jsr [>$0C7D,y] rti L2C62 tfr b,a ldb #$00 ldx $02,s os9 I$GetStt lbra L2CD5 L2C6E lda $03,s tstb beq L2CA0 cmpb #$01 beq L2CA2 cmpb #$06 beq L2CA2 cmpb #$02 beq L2C88 cmpb #$05 beq L2C88 ldb #$D0 lbra L2CCC L2C88 pshs u os9 I$GetStt bcc L2C94 puls u lbra L2CCC L2C94 stx [<$06,s] ldx $06,s stu $02,x puls u clra clrb rts L2CA0 ldx $04,s L2CA2 os9 I$GetStt lbra L2CD5 L2CA8 lda $03,s tstb beq L2CB6 cmpb #$02 beq L2CBE ldb #$D0 lbra L2CCC L2CB6 ldx $04,s os9 I$SetStt lbra L2CD5 L2CBE pshs u ldx $06,s ldu $08,s os9 I$SetStt puls u lbra L2CD5 L2CCC clra std >$03BB,y ldd #$FFFF rts L2CD5 bcs L2CCC clra clrb rts L2CDA pshs b,a lbsr L2CE7 lbsr L263C puls b,a L2CE4 os9 F$Exit L2CE7 rts L2CE8 leax >$03AF,y std $02,x tfr a,b sex tfr a,b std ,x rts leax >$03AF,y std $02,x clr ,x clr $01,x rts L2D01 tsta bne L2D16 tst $02,s bne L2D16 lda $03,s mul ldx ,s stx $02,s ldx #$0000 std ,s puls pc,b,a L2D16 pshs b,a ldd #$0000 pshs b,a pshs b,a lda $05,s ldb $09,s mul std $02,s lda $05,s ldb $08,s mul addd $01,s std $01,s bcc L2D33 inc ,s L2D33 lda $04,s ldb $09,s mul addd $01,s std $01,s bcc L2D40 inc ,s L2D40 lda $04,s ldb $08,s mul addd ,s std ,s ldx $06,s stx $08,s ldx ,s ldd $02,s leas $08,s rts subd #$0000 beq L2D63 pshs b,a leas -$02,s clr ,s clr $01,s bra L2D91 L2D63 puls b,a std ,s ldd #$002D lbra L2E06 L2D6D subd #$0000 beq L2D63 pshs b,a leas -$02,s clr ,s clr $01,s tsta bpl L2D85 nega negb sbca #$00 inc $01,s std $02,s L2D85 ldd $06,s bpl L2D91 nega negb sbca #$00 com $01,s std $06,s L2D91 lda #$01 L2D93 inca lsl $03,s rol $02,s bpl L2D93 sta ,s ldd $06,s clr $06,s clr $07,s L2DA2 subd $02,s bcc L2DAC addd $02,s andcc #$FE bra L2DAE L2DAC orcc #$01 L2DAE rol $07,s rol $06,s lsr $02,s ror $03,s dec ,s bne L2DA2 std $02,s tst $01,s beq L2DC8 ldd $06,s nega negb sbca #$00 std $06,s L2DC8 ldx $04,s ldd $06,s std $04,s stx $06,s ldx $02,s ldd $04,s leas $06,s rts L2DD7 tstb beq L2DED L2DDA asr $02,s ror $03,s decb bne L2DDA bra L2DED L2DE3 tstb beq L2DED L2DE6 lsr $02,s ror $03,s decb bne L2DE6 L2DED ldd $02,s pshs b,a ldd $02,s std $04,s ldd ,s leas $04,s rts tstb beq L2DED L2DFD lsl $03,s rol $02,s decb bne L2DFD bra L2DED L2E06 std >$03BB,y pshs y,b os9 F$ID puls y,b os9 F$Send rts L2E15 neg <u000D neg <u002D fcb $3E > neg <u0020 bra L2E1E L2E1E orcc #$53 orcc #$5A orcc #$61 com <u002E tsta clra lsra fcb $55 U inca fcb $45 E comb neg <u0048 fcb $45 E inca negb neg <u002E lsra lsra neg <u002F lsra leax $00,x bgt L2E86 clra neg <u002E lsr -$0E,s neg <u002E tst $0E,s neg <u002E lsl -$10,s neg <u002E bgt L2E4E L2E4E lsrb lsla fcb $45 E fcb $52 R fcb $45 E bra L2E96 fcb $52 R fcb $45 E bra L2EAC lsrb rola inca inca bra L2EAC clra fcb $52 R fcb $45 E neg <u0041 fcb $52 R fcb $45 E bra L2EC1 clra fcb $55 U bra L2EBF fcb $55 U fcb $52 R fcb $45 E bra L2E99 rolb ble L2EC2 bvs L2E96 swi fcb $00 bra L2EA7 blt L2EA9 blt L2EAB blt L2EAD blt L2EAF blt L2EB1 blt L2EB3 L2E86 blt L2EB5 blt L2EB7 blt L2EB9 blt L2EBB blt L2EBD blt L2EBF blt L2EC1 blt L2EC3 L2E96 blt L2E98 L2E98 tsta L2E99 bra L2EC8 bra L2EEA clra fcb $52 R fcb $45 E bra L2EC2 bra L2EC4 coma bra L2ED4 L2EA7 bra L2EEC L2EA9 clra fcb $4E N L2EAB lsrb L2EAC rola L2EAD fcb $4E N fcb $55 U L2EAF fcb $45 E neg <u0020 lsla L2EB3 rola lsrb L2EB5 bra L2EF8 L2EB7 fcb $4E N rolb L2EB9 bra L2F06 L2EBB fcb $45 E rolb L2EBD bra L2F13 L2EBF clra bra L2F05 L2EC2 clra L2EC3 fcb $4E N L2EC4 lsrb rola fcb $4E N fcb $55 U L2EC8 fcb $45 E neg <u0042 fcb $55 U rola inca lsra rola fcb $4E N asra bra L2F18 L2ED4 fcb $45 E comb coma fcb $52 R rola negb lsrb clra fcb $52 R bra L2F2B rola comb lsrb neg <u002E bgt L2F14 bgt L2F08 negb inca L2EEA fcb $45 E fcb $41 A L2EEC comb fcb $45 E bra L2F47 fcb $41 A rola lsrb neg <u0042 fcb $55 U rola inca L2EF8 lsra rola fcb $4E N asra bra L2F40 clra clra lsrb bra L2F4F rola comb L2F05 lsrb L2F06 neg <u0047 L2F08 fcb $45 E fcb $4E N fcb $45 E fcb $52 R fcb $41 A lsrb rola fcb $4E N asra bra L2F61 L2F13 fcb $45 E L2F14 asrb bra L2F59 clra L2F18 clra lsrb neg <u0050 inca fcb $41 A coma fcb $45 E bra L2F70 fcb $45 E asrb bra L2F6A rola comb fcb $4B K bra L2F74 L2F2B fcb $4E N bra L2F2E L2F2E coma fcb $52 R fcb $45 E fcb $41 A lsrb rola fcb $4E N asra bra L2F86 fcb $45 E asrb bra L2F8F rolb comb lsrb fcb $45 E L2F40 tsta bra L2F87 rola comb fcb $4B K neg <u0044 fcb $45 E comb lsrb rola fcb $4E N fcb $41 A lsrb L2F4F rola clra fcb $4E N bra L2F91 bra L2FA4 fcb $45 E asrb bra L2F9E rola comb fcb $4B K neg <u0020 bra L2FB4 L2F61 clra fcb $55 U fcb $52 R coma fcb $45 E bra L2FA5 bra L2FAD L2F6A clra fcb $4E N rora rola asra bra L2FB5 rola comb fcb $4B K L2F74 neg <u0053 clra fcb $55 U fcb $52 R coma fcb $45 E bra L2FBA bra L2FCE comb rts bra L2FD6 rolb comb lsrb L2F86 fcb $45 E L2F87 tsta bra L2FCE rola comb fcb $4B K neg <u0015 L2F8F andcc #$15 L2F91 bls L2FA8 fcb $3E > fcb $15 fcb $5E ^ fcb $15 aim #$15,>$8F15 lda -$0B,x jsr >$15CE fcb $15 addd -$0B,x ldu >$1619 lbra L5BBF fcb $3E > lbra L85C3 L2FAD clr -$0A,x jmp >$1692 lbra LD4CB L2FB5 jsr >$16D5 lbra L1CD2 eim #$17,<u0019 lbsr L5FD8 mul lbsr L7A27 clr $0F,s lsr >$6C69 com >$7400 orcc #$6C orcc #$72 orcc #$78 orcc #$7D neg <u0000 coma tsta lsra comb neg <u0043 oim #$6E,$07,y lsr >$206D oim #$6B,$05,s bra L302B tsta lsra comb bra L3051 rol -$0E,s eim #$63,-$0C,s clr -$0E,s rol >$0027 fcb $10 com <u00E8 neg <u0064 neg <u000A aim #$55,<u006C lsl >$0000 neg <u0000 neg <u0000 neg <u0000 oim #$00,<u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 aim #$00,<u0001 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 fcb $42 B neg <u0002 neg <u0000 neg <u0000 L302B neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 L3051 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0000 neg <u0001 oim #$01,<u0001 oim #$01,<u0001 oim #$01,<u0011 fcb $11 oim #$11,<u0011 oim #$01,<u0001 oim #$01,<u0001 oim #$01,<u0001 oim #$01,<u0001 oim #$01,<u0001 oim #$01,<u0001 leax $00,y bra L3118 bra L311A bra L311C bra L311E bra L3120 bra L3122 bra L3124 lsla lsla lsla lsla lsla lsla lsla lsla lsla lsla bra L3130 bra L3132 bra L3134 bra L3158 fcb $42 B fcb $42 B L3118 fcb $42 B fcb $42 B L311A fcb $42 B aim #$02,<u0002 L311E aim #$02,<u0002 aim #$02,<u0002 L3124 aim #$02,<u0002 aim #$02,<u0002 aim #$02,<u0002 aim #$02,<u0020 L3130 bra L3152 L3132 bra L3154 L3134 bra L317A lsra lsra lsra lsra lsra lsr <u0004 lsr <u0004 lsr <u0004 lsr <u0004 lsr <u0004 lsr <u0004 lsr <u0004 lsr <u0004 lsr <u0004 lsr <u0004 bra L3171 bra L3173 oim #$00,<u0022 neg <u0009 L3158 neg <u0007 aim #$2A,<u0002 bvc L3161 bne L3163 L3161 bcc L3164 L3163 stu $01,x std $01,x addb $01,x adcb $01,x stb $01,x bitb $00,x tim #$01,<u00FD oim #$FB,<u0001 adcb >$01F7 oim #$F5,<u0001 addd >$01F1 aim #$0B,<u0002 rol <u0002 asr <u0002 eim #$02,<u0003 aim #$01,<u0001 stu >$0219 aim #$17,<u0002 fcb $15 aim #$13,<u0002 fcb $11 aim #$0F,<u0002 tst <u0000 oim #$02,<u0055 com $0F,s jmp $06,s rol $07,s fcb $00 emod eom equ * end