Mercurial > hg > Members > kono > nitros9-code
changeset 335:9edb1a203a78
Moved level2/CMDS to here, as level2 will be deprecated
| author | boisy |
|---|---|
| date | Wed, 24 Jul 2002 06:01:12 +0000 |
| parents | 7183076e2b49 |
| children | 1ff7f1305500 |
| files | level2/cmds/config.asm level2/cmds/gfx2.asm level2/cmds/grfdrv.asm level2/cmds/makefile level2/cmds/mdir.asm level2/cmds/mfree.asm level2/cmds/modpatch.asm level2/cmds/montype.asm level2/cmds/procs.asm level2/cmds/shell_21.asm level2/cmds/unlink.asm level2/cmds/wcreate.asm |
| diffstat | 12 files changed, 13407 insertions(+), 2833 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/config.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,5994 @@ +******************************************************************** +* progname - program module +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* - Original Tandy distribution version +* +* + + nam config + ttl program module + +* 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 *
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/gfx2.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,1330 @@ +******************************************************************** +* progname - program module +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* - Original Tandy distribution version +* +* + + nam gfx2 + ttl subroutine module + +* Disassembled 02/07/06 13:10:09 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use os9defs + endc +tylg set Sbrtn+Objct +atrv set ReEnt+rev +rev set $01 + mod eom,name,tylg,atrv,start,size +u0000 rmb 0 +size equ . +name equ * + fcs /gfx2/ + fcb $02 +L0012 fcb $02 + fcb $7E þ + fcb $44 D + fcb $57 W + fcb $53 S + fcb $65 e + fcb $74 t + fcb $FF + fcb $02 + fcb $AA * + fcb $53 S + fcb $65 e + fcb $6C l + fcb $65 e + fcb $63 c + fcb $74 t + fcb $FF + fcb $02 + fcb $BD = + fcb $4F O + fcb $57 W + fcb $53 S + fcb $65 e + fcb $74 t + fcb $FF + fcb $02 + fcb $E5 e + fcb $4F O + fcb $57 W + fcb $45 E + fcb $6E n + fcb $64 d + fcb $FF + fcb $02 + fcb $E9 i + fcb $44 D + fcb $57 W + fcb $45 E + fcb $6E n + fcb $64 d + fcb $FF + fcb $02 + fcb $ED m + fcb $43 C + fcb $57 W + fcb $41 A + fcb $72 r + fcb $65 e + fcb $61 a + fcb $FF + fcb $03 + fcb $01 + fcb $44 D + fcb $65 e + fcb $66 f + fcb $42 B + fcb $75 u + fcb $66 f + fcb $66 f + fcb $FF + fcb $03 + fcb $1C + fcb $4B K + fcb $69 i + fcb $6C l + fcb $6C l + fcb $42 B + fcb $75 u + fcb $66 f + fcb $66 f + fcb $FF + fcb $03 + fcb $37 7 + fcb $47 G + fcb $50 P + fcb $4C L + fcb $6F o + fcb $61 a + fcb $64 d + fcb $FF + fcb $03 + fcb $54 T + fcb $47 G + fcb $65 e + fcb $74 t + fcb $FF + fcb $03 + fcb $7B û + fcb $50 P + fcb $75 u + fcb $74 t + fcb $FF + fcb $03 + fcb $95 + fcb $50 P + fcb $61 a + fcb $74 t + fcb $74 t + fcb $65 e + fcb $72 r + fcb $6E n + fcb $FF + fcb $03 + fcb $99 + fcb $4C L + fcb $6F o + fcb $67 g + fcb $69 i + fcb $63 c + fcb $FF + fcb $03 + fcb $C8 H + fcb $44 D + fcb $65 e + fcb $66 f + fcb $43 C + fcb $6F o + fcb $6C l + fcb $FF + fcb $03 + fcb $CD M + fcb $50 P + fcb $61 a + fcb $6C l + fcb $65 e + fcb $74 t + fcb $74 t + fcb $65 e + fcb $FF + fcb $03 + fcb $D2 R + fcb $43 C + fcb $6F o + fcb $6C l + fcb $6F o + fcb $72 r + fcb $FF + fcb $04 + fcb $14 + fcb $42 B + fcb $6F o + fcb $72 r + fcb $64 d + fcb $65 e + fcb $72 r + fcb $FF + fcb $04 + fcb $2F / + fcb $53 S + fcb $63 c + fcb $61 a + fcb $6C l + fcb $65 e + fcb $53 S + fcb $77 w + fcb $FF + fcb $04 + fcb $4A J + fcb $44 D + fcb $57 W + fcb $50 P + fcb $72 r + fcb $6F o + fcb $74 t + fcb $53 S + fcb $77 w + fcb $FF + fcb $04 + fcb $4E N + fcb $47 G + fcb $43 C + fcb $53 S + fcb $65 e + fcb $74 t + fcb $FF + fcb $04 + fcb $53 S + fcb $46 F + fcb $6F o + fcb $6E n + fcb $74 t + fcb $FF + fcb $04 + fcb $58 X + fcb $54 T + fcb $43 C + fcb $68 h + fcb $61 a + fcb $72 r + fcb $53 S + fcb $77 w + fcb $FF + fcb $04 + fcb $5C \ + fcb $42 B + fcb $6F o + fcb $6C l + fcb $64 d + fcb $53 S + fcb $77 w + fcb $FF + fcb $04 + fcb $60 ` + fcb $50 P + fcb $72 r + fcb $6F o + fcb $70 p + fcb $53 S + fcb $77 w + fcb $FF + fcb $04 + fcb $64 d + fcb $53 S + fcb $65 e + fcb $74 t + fcb $44 D + fcb $50 P + fcb $74 t + fcb $72 r + fcb $FF + fcb $04 + fcb $85 + fcb $50 P + fcb $6F o + fcb $69 i + fcb $6E n + fcb $74 t + fcb $FF + fcb $04 + fcb $A0 + fcb $4C L + fcb $69 i + fcb $6E n + fcb $65 e + fcb $FF + fcb $04 + fcb $C4 D + fcb $42 B + fcb $6F o + fcb $78 x + fcb $FF + fcb $04 + fcb $C8 H + fcb $42 B + fcb $61 a + fcb $72 r + fcb $FF + fcb $04 + fcb $CC L + fcb $50 P + fcb $75 u + fcb $74 t + fcb $47 G + fcb $43 C + fcb $FF + fcb $04 + fcb $DE ^ + fcb $46 F + fcb $69 i + fcb $6C l + fcb $6C l + fcb $FF + fcb $04 + fcb $FC + fcb $43 C + fcb $69 i + fcb $72 r + fcb $63 c + fcb $6C l + fcb $65 e + fcb $FF + fcb $05 + fcb $1D + fcb $44 D + fcb $72 r + fcb $61 a + fcb $77 w + fcb $FF + fcb $07 + fcb $0D + fcb $45 E + fcb $6C l + fcb $6C l + fcb $69 i + fcb $70 p + fcb $73 s + fcb $65 e + fcb $FF + fcb $07 + fcb $12 + fcb $41 A + fcb $72 r + fcb $63 c + fcb $FF + fcb $07 + fcb $4C L + fcb $43 C + fcb $75 u + fcb $72 r + fcb $48 H + fcb $6F o + fcb $6D m + fcb $65 e + fcb $FF + fcb $07 + fcb $50 P + fcb $43 C + fcb $75 u + fcb $72 r + fcb $58 X + fcb $59 Y + fcb $FF + fcb $07 + fcb $83 + fcb $45 E + fcb $72 r + fcb $4C L + fcb $69 i + fcb $6E n + fcb $65 e + fcb $FF + fcb $07 + fcb $87 + fcb $45 E + fcb $72 r + fcb $45 E + fcb $4F O + fcb $4C L + fcb $69 i + fcb $6E n + fcb $65 e + fcb $FF + fcb $07 + fcb $8B + fcb $43 C + fcb $75 u + fcb $72 r + fcb $4F O + fcb $66 f + fcb $66 f + fcb $FF + fcb $07 + fcb $93 + fcb $43 C + fcb $75 u + fcb $72 r + fcb $4F O + fcb $6E n + fcb $FF + fcb $07 + fcb $9B + fcb $43 C + fcb $75 u + fcb $72 r + fcb $52 R + fcb $67 g + fcb $74 t + fcb $FF + fcb $07 + fcb $9F + fcb $42 B + fcb $65 e + fcb $6C l + fcb $6C l + fcb $FF + fcb $07 + fcb $A3 # + fcb $43 C + fcb $75 u + fcb $72 r + fcb $4C L + fcb $66 f + fcb $74 t + fcb $FF + fcb $07 + fcb $A7 ' + fcb $43 C + fcb $75 u + fcb $72 r + fcb $55 U + fcb $70 p + fcb $FF + fcb $07 + fcb $AB + + fcb $43 C + fcb $75 u + fcb $72 r + fcb $44 D + fcb $77 w + fcb $6E n + fcb $FF + fcb $07 + fcb $AF / + fcb $45 E + fcb $72 r + fcb $45 E + fcb $4F O + fcb $57 W + fcb $6E n + fcb $64 d + fcb $77 w + fcb $FF + fcb $07 + fcb $B6 6 + fcb $43 C + fcb $6C l + fcb $65 e + fcb $61 a + fcb $72 r + fcb $FF + fcb $07 + fcb $BA : + fcb $43 C + fcb $72 r + fcb $52 R + fcb $74 t + fcb $6E n + fcb $FF + fcb $07 + fcb $BE > + fcb $52 R + fcb $65 e + fcb $56 V + fcb $4F O + fcb $6E n + fcb $FF + fcb $07 + fcb $C6 F + fcb $52 R + fcb $65 e + fcb $56 V + fcb $4F O + fcb $66 f + fcb $66 f + fcb $FF + fcb $07 + fcb $CE N + fcb $55 U + fcb $6E n + fcb $64 d + fcb $6C l + fcb $6E n + fcb $4F O + fcb $6E n + fcb $FF + fcb $07 + fcb $D6 V + fcb $55 U + fcb $6E n + fcb $64 d + fcb $6C l + fcb $6E n + fcb $4F O + fcb $66 f + fcb $66 f + fcb $FF + fcb $07 + fcb $DF _ + fcb $42 B + fcb $6C l + fcb $6E n + fcb $6B k + fcb $4F O + fcb $6E n + fcb $FF + fcb $07 + fcb $E7 g + fcb $42 B + fcb $6C l + fcb $6E n + fcb $6B k + fcb $4F O + fcb $66 f + fcb $66 f + fcb $FF + fcb $07 + fcb $EF o + fcb $49 I + fcb $6E n + fcb $73 s + fcb $4C L + fcb $69 i + fcb $6E n + fcb $FF + fcb $07 + fcb $F7 w + fcb $44 D + fcb $65 e + fcb $6C l + fcb $4C L + fcb $69 i + fcb $6E n + fcb $FF + fcb $00 +L0200 fcb $4F O + fcb $46 F + fcb $46 F + fcb $FF + fcb $00 + fcb $41 A + fcb $4E N + fcb $44 D + fcb $FF + fcb $01 + fcb $4F O + fcb $52 R + fcb $FF + fcb $02 + fcb $58 X + fcb $4F O + fcb $52 R + fcb $FF + fcb $03 + fcb $00 +L0214 fcb $4F O + fcb $46 F + fcb $46 F + fcb $FF + fcb $00 + fcb $4F O + fcb $4E N + fcb $FF + fcb $01 + fcb $00 +start equ * + leas <-$21,s + clr ,s + ldd <$23,s + beq L0289 + tsta + bne L0289 + ldd [<$25,s] + ldx <$27,s + leax -$01,x + beq L023B + leax -$01,x + bne L023D + tfr b,a +L023B sta ,s +L023D leau >L0012,pcr +L0241 ldy ,u++ + beq L0285 + tst ,s + bne L024F + ldx <$25,s + bra L0252 +L024F ldx <$29,s +L0252 lda ,x+ + eora ,u+ + anda #$DF + beq L0262 + leau -$01,u +L025C tst ,u+ + bpl L025C + bra L0241 +L0262 tst -$01,u + bpl L0252 + tfr y,d + leay >L0012,pcr + leay d,y + leax $01,s + lda #$1B + sta ,x+ + tst ,s + bne L027D + leau <$29,s + bra L0280 +L027D leau <$2D,s +L0280 ldd <$23,s + jmp ,y +L0285 ldb #$30 + bra L028B +L0289 ldb #$38 +L028B coma + leas <$21,s + rts + lda #$20 + pshs x,b,a + ldx $02,u + cmpx #$0002 + bne L029F + ldd [,u] + bra L02A1 +L029F lda [,u] +L02A1 puls x,b,a + beq L02D1 + bmi L02D1 + tst ,s + beq L02AF + cmpb #$0A + bra L02B1 +L02AF cmpb #$09 +L02B1 lbne L0289 + sta ,x+ + lbsr L088D + bra L02DF + lda #$21 +L02BE tst ,s + beq L02C6 + cmpb #$02 + bra L02C8 +L02C6 cmpb #$01 +L02C8 bne L0289 + sta ,x+ + lbra L08A1 + lda #$22 +L02D1 tst ,s + beq L02D9 + cmpb #$09 + bra L02DB +L02D9 cmpb #$08 +L02DB bne L0289 + sta ,x+ +L02DF lbsr L088D + lbsr L088D + lbsr L088D +L02E8 lbsr L088D + lbsr L088D + lbsr L088D + lbsr L088D + lbra L08A1 + lda #$23 + bra L02BE + lda #$24 + bra L02BE + lda #$25 + tst ,s + beq L0309 + cmpb #$06 + bra L030B +L0309 cmpb #$05 +L030B lbne L0289 + sta ,x+ + bra L02E8 + lda #$29 + tst ,s + beq L031D + cmpb #$05 + bra L031F +L031D cmpb #$04 +L031F lbne L0289 + sta ,x+ + lbsr L088D + lbsr L088D + lbra L0387 + lda #$2A +L0330 tst ,s + beq L0338 + cmpb #$04 + bra L033A +L0338 cmpb #$03 +L033A lbne L0289 + sta ,x+ + lbsr L088D + lbsr L088D + lbra L08A1 + lda #$2B + tst ,s + beq L0353 + cmpb #$08 + bra L0355 +L0353 cmpb #$07 +L0355 lbne L0289 + sta ,x+ + lbsr L088D + lbsr L088D + lbsr L088D + bra L0381 + lda #$2C + tst ,s + beq L0370 + cmpb #$08 + bra L0372 +L0370 cmpb #$07 +L0372 lbne L0289 + sta ,x+ + lbsr L088D + lbsr L088D + lbsr L0845 +L0381 lbsr L0845 +L0384 lbsr L0845 +L0387 lbsr L0845 + lbra L08A1 + lda #$2D + tst ,s + beq L0397 + cmpb #$06 + bra L0399 +L0397 cmpb #$05 +L0399 lbne L0289 + sta ,x+ + lbsr L088D + lbsr L088D + bra L0384 + lda #$2E + bra L0330 + lda #$2F + tst ,s + beq L03B5 + cmpb #$03 + bra L03B7 +L03B5 cmpb #$02 +L03B7 lbne L0289 + sta ,x+ + pshs y,x,b,a + leay >L0200,pcr +L03C3 ldx ,u + lbsr L0811 + bcs L03D5 + ldx $02,s + sta ,x+ + stx $02,s + puls y,x,b,a + lbra L08A1 +L03D5 puls y,x,b,a + lbra L0289 + lda #$30 + lbra L02BE + lda #$31 + lbra L0330 + tst ,s + bne L03E9 + incb +L03E9 cmpb #$03 + beq L03F8 + cmpb #$04 + beq L03FC + cmpb #$05 + beq L0406 + lbra L0289 +L03F8 bsr L0418 + bra L0415 +L03FC bsr L0418 + ldb #$1B + stb ,x+ + bsr L041F + bra L0415 +L0406 bsr L0418 + ldb #$1B + stb ,x+ + bsr L041F + ldb #$1B + stb ,x+ + lbsr L0439 +L0415 lbra L08A1 +L0418 lda #$32 + sta ,x+ + lbra L088D +L041F lda #$33 + sta ,x+ + lbra L088D + tst ,s + beq L042E + cmpb #$03 + bra L0430 +L042E cmpb #$02 +L0430 lbne L0289 + bsr L0439 + lbra L08A1 +L0439 lda #$34 + sta ,x+ + lbra L088D + rts + lda #$35 +L0443 tst ,s + beq L044B + cmpb #$03 + bra L044D +L044B cmpb #$02 +L044D lbne L0289 + sta ,x+ + pshs y,x,b,a + leay >L0214,pcr + lbra L03C3 + lda #$36 + bra L0443 + lda #$39 + lbra L0330 + lda #$3A + lbra L0330 + lda #$3C + bra L0443 + lda #$3D + bra L0443 + lda #$3F + bra L0443 + tst ,s + beq L047E + cmpb #$04 + bra L0480 +L047E cmpb #$03 +L0480 lbne L0289 + bsr L0489 + lbra L08A1 +L0489 pshs a + lda #$40 + sta ,x+ + lbsr L085D + lbsr L085D + puls pc,a + lda #$42 + tst ,s + beq L04A1 + cmpb #$04 + bra L04A3 +L04A1 cmpb #$03 +L04A3 lbne L0289 + sta ,x+ + lbsr L0845 + lbsr L0845 + lbra L08A1 + lda #$46 +L04B4 tst ,s + bne L04B9 + incb +L04B9 cmpb #$04 + beq L04CB + cmpb #$06 + beq L04C4 + lbra L0289 +L04C4 lbsr L0489 + ldb #$1B + stb ,x+ +L04CB sta ,x+ + lbsr L0845 + lbsr L0845 + lbra L08A1 + lda #$48 + bra L04B4 + lda #$4A + bra L04B4 + lda #$4E + tst ,s + beq L04E8 + cmpb #$04 + bra L04EA +L04E8 cmpb #$03 +L04EA lbne L0289 + bra L04CB + lda #$4F + tst ,s + bne L04F7 + incb +L04F7 cmpb #$02 + beq L0509 + cmpb #$04 + beq L0502 + lbra L0289 +L0502 lbsr L0489 + ldb #$1B + stb ,x+ +L0509 sta ,x+ + lbra L08A1 + lda #$50 + tst ,s + bne L0515 + incb +L0515 cmpb #$03 + beq L0527 + cmpb #$05 + beq L0520 + lbra L0289 +L0520 lbsr L0489 + ldb #$1B + stb ,x+ +L0527 sta ,x+ + lbsr L0845 + lbra L08A1 + tst ,s + beq L053E + cmpb #$05 + beq L0549 + cmpb #$03 + beq L055F + lbra L0289 +L053E cmpb #$04 + beq L0549 + cmpb #$02 + beq L055F + lbra L0289 +L0549 pshs u,x + leas -$02,s + ldd #$1B40 + std ,x++ + lbsr L0875 + lbsr L0875 + lbsr L0708 + leas $02,s + bra L0561 +L055F pshs u,x +L0561 ldu ,u + leas -$02,s + clr $01,s + clr ,s +L0569 lda ,u+ + anda #$DF + cmpa #$41 + beq L05A6 + cmpa #$42 + beq L05AD + cmpa #$55 + beq L05CA + cmpa #$4E + beq L05D1 + cmpa #$53 + lbeq L0614 + cmpa #$45 + lbeq L0649 + cmpa #$57 + lbeq L0659 + lda -$01,u + cmpa #$2C + beq L0569 + cmpa #$FF + bne L05A1 + leas $02,s + puls u,x + leas <$21,s + rts +L05A1 leas $06,s + lbra L0289 +L05A6 lbsr L066C + std ,s + bra L0569 +L05AD ldd #$1B41 + std ,x++ +L05B2 lbsr L066C + std ,x++ + lda ,u+ + cmpa #$2C + bne L05A1 + lbsr L066C + std ,x++ + lbsr L06BD + lbsr L0708 + bra L0569 +L05CA ldd #$1B45 + std ,x++ + bra L05B2 +L05D1 ldd #$1B47 + std ,x++ + lda ,u + anda #$DF + cmpa #$45 + beq L05F1 + cmpa #$57 + beq L05FF + ldd #$0000 + std ,x++ + lbsr L066C + lbsr L0703 + std ,x++ + bra L060B +L05F1 leau $01,u + lbsr L066C + std ,x++ + lbsr L0703 + std ,x++ + bra L060B +L05FF leau $01,u + lbsr L066C + lbsr L0703 + std ,x++ + std ,x++ +L060B lbsr L06BD + lbsr L0708 + lbra L0569 +L0614 ldd #$1B47 + std ,x++ + lda ,u + anda #$DF + cmpa #$45 + beq L0630 + cmpa #$57 + beq L063A + ldd #$0000 + std ,x++ + bsr L066C + std ,x++ + bra L060B +L0630 leau $01,u + bsr L066C + std ,x++ + std ,x++ + bra L060B +L063A leau $01,u + bsr L066C + std $02,x + lbsr L0703 + std ,x++ + leax $02,x + bra L060B +L0649 ldd #$1B47 + std ,x++ + bsr L066C + std ,x++ + ldd #$0000 + std ,x++ + bra L060B +L0659 ldd #$1B47 + std ,x++ + bsr L066C + lbsr L0703 + std ,x++ + ldd #$0000 + std ,x++ + bra L060B +L066C ldd #$0000 + pshs u,b,a + ldb ,u + cmpb #$2D + bne L0679 + leau $01,u +L0679 clra + ldb ,u + subb #$30 + bcs L069E + cmpb #$09 + bhi L069E + pshs b,a + ldd $02,s + lslb + rola + lslb + rola + lslb + rola + pshs b,a + ldd $04,s + lslb + rola + addd ,s++ + addd ,s++ + std ,s + leau $01,u + bra L0679 +L069E cmpu $02,s + lbeq L06B8 + lda [<$02,s] + cmpa #$2D + bne L06B3 + puls b,a + lbsr L0703 + bra L06B5 +L06B3 puls b,a +L06B5 leas $02,s + rts +L06B8 leas $0C,s + lbra L0289 +L06BD ldd $02,s + beq L0702 + subd #$0001 + beq L06D2 + subd #$0001 + beq L06E3 + subd #$0001 + beq L06F3 + bra L0702 +L06D2 ldd -$02,x + lbsr L0703 + pshs b,a + ldd -$04,x + std -$02,x + puls b,a + std -$04,x + bra L0702 +L06E3 ldd -$04,x + lbsr L0703 + std -$04,x + ldd -$02,x + lbsr L0703 + std -$02,x + bra L0702 +L06F3 ldd -$04,x + lbsr L0703 + pshs b,a + ldd -$02,x + std -$04,x + puls b,a + std -$02,x +L0702 rts +L0703 nega + negb + sbca #$00 + rts +L0708 pshs y,x + tfr x,d + subd $08,s + tfr d,y + ldx $08,s + lda $0C,s + bne L0717 + inca +L0717 os9 I$Write + puls y,x + ldx $04,s + rts + lda #$51 + lbra L04B4 + lda #$52 + tst ,s + beq L0735 + cmpb #$0A + beq L0740 + cmpb #$08 + beq L0747 + lbra L0289 +L0735 cmpb #$09 + beq L0740 + cmpb #$07 + beq L0747 + lbra L0289 +L0740 lbsr L0489 + ldb #$1B + stb ,x+ +L0747 sta ,x+ + lbsr L0845 + lbsr L0845 + lbsr L0845 + lbsr L0845 + lbsr L0845 + lbsr L0845 + lbra L08A1 + lda #$01 + bra L07C3 + lda #$02 + tst ,s + beq L076C + cmpb #$04 + bra L076E +L076C cmpb #$03 +L076E lbne L0289 + sta -$01,x + bsr L077B + bsr L077B + lbra L08A1 +L077B pshs y,b,a + ldd [,u++] + adda #$20 + sta ,x+ + pulu y + leay -$01,y + beq L0793 + leay -$01,y + lbne L08BA + addb #$20 + stb -$01,x +L0793 puls pc,y,b,a + lda #$03 + bra L07C3 + lda #$04 + bra L07C3 + lda #$05 + sta -$01,x + lda #$20 + bra L07EE + lda #$05 + sta -$01,x + lda #$21 + bra L07EE + lda #$06 + bra L07C3 + lda #$07 + bra L07C3 + lda #$08 + bra L07C3 + lda #$09 + bra L07C3 + lda #$0A + bra L07C3 + lda #$0B +L07C3 leax -$01,x + lbra L02BE + lda #$0C + bra L07C3 + lda #$0D + bra L07C3 + lda #$1F + sta -$01,x + lda #$20 + bra L07EE + lda #$1F + sta -$01,x + lda #$21 + bra L07EE + lda #$1F + sta -$01,x + lda #$22 + bra L07EE + lda #$1F + sta -$01,x + lda #$23 +L07EE lbra L02BE + lda #$1F + sta -$01,x + lda #$24 + bra L07EE + lda #$1F + sta -$01,x + lda #$25 + bra L07EE + lda #$1F + sta -$01,x + lda #$30 + bra L07EE + lda #$1F + sta -$01,x + lda #$31 + bra L07EE +L0811 pshs x +L0813 lda ,y+ + beq L0841 +L0817 eora ,x+ + anda #$DF + bne L082F + tst ,y + bpl L0827 + tst ,x + bmi L083B + bra L082F +L0827 tst ,x + bmi L082F + lda ,y+ + bra L0817 +L082F leay -$01,y +L0831 tst ,y+ + bpl L0831 + ldx ,s + leay $01,y + bra L0813 +L083B lda $01,y + andcc #$FE + bra L0843 +L0841 orcc #$01 +L0843 puls pc,x +L0845 pshs y,b,a + ldd [,u++] + pulu y + leay -$01,y + bne L0855 + clr ,x+ + sta ,x+ + bra L085B +L0855 leay -$01,y + bne L08BA + std ,x++ +L085B puls pc,y,b,a +L085D pshs y,b,a + ldd [,u++] + pulu y + leay -$01,y + bne L086D + clr ,x+ + sta ,x+ + bra L0873 +L086D leay -$01,y + bne L08BE + std ,x++ +L0873 puls pc,y,b,a +L0875 pshs y,b,a + ldd [,u++] + pulu y + leay -$01,y + bne L0885 + clr ,x+ + sta ,x+ + bra L088B +L0885 leay -$01,y + bne L08C2 + std ,x++ +L088B puls pc,y,b,a +L088D pshs y,b,a + ldd [,u++] + sta ,x+ + pulu y + leay -$01,y + beq L089F + leay -$01,y + bne L08BA + stb -$01,x +L089F puls pc,y,b,a +L08A1 bsr L08A7 + leas <$21,s + rts +L08A7 tfr x,d + leax $03,s + pshs x + subd ,s++ + tfr d,y + lda $02,s + bne L08B6 + inca +L08B6 os9 I$Write + rts +L08BA leas $06,s + bra L08C4 +L08BE leas $09,s + bra L08C4 +L08C2 leas $0F,s +L08C4 lbra L0289 + emod +eom equ *
--- a/level2/cmds/grfdrv.asm Wed Jul 24 05:56:33 2002 +0000 +++ b/level2/cmds/grfdrv.asm Wed Jul 24 06:01:12 2002 +0000 @@ -1,712 +1,755 @@ +******************************************************************** +* progname - program module +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* - Original Tandy distribution version +* +* + nam GrfDrv ttl os9 system module -* Disassembled 98/09/22 22:15:01 by Disasm v1.6 (C) 1988 by RML +* Disassembled 02/07/06 13:10:20 by Disasm v1.6 (C) 1988 by RML ifp1 - use defsfile + use os9defs endc - tylg set Systm+Objct atrv set ReEnt+rev rev set $01 -edition set 18 - mod eom,name,tylg,atrv,start,size - u0000 rmb 0 size equ . fcb $07 - -name fcs /GrfDrv/ - fcb edition - -start ldx #FlipSys+MemPos get return vector address - pshs x,b,a save it and call # - tfr u,d set up my DP +name equ * + fcs /GrfDrv/ + fcb $06 +start equ * + pshs b,a + tfr u,d tfr a,dp - leax <L002B,pcr point to call vector table - ldb $01,s get call # - ldd b,x get offset - leax d,x point to routine - puls b,a purge stack - jmp ,x execute routine - -****************************** -* -* GrfDrv funtcion vector table -* - -L002B fdb $0060 - fdb $00b9 - fdb $0143 - fdb $0331 - fdb $0335 - fdb $03cf - fdb $0485 - fdb $04b2 - fdb $06ce - fdb $054e - fdb $0629 - fdb $0604 - fdb $0575 - fdb $05bd - fdb $0613 - fdb $05d4 - fdb $0631 - fdb $0653 - fdb $05f7 - fdb $06c1 - fdb $06c6 - fdb $06ca - fdb $07d6 - fdb $091f - fdb $0a15 - fdb $0a4d - fdb $0a7f - fdb $0b9b - fdb $0dfa - fdb $0e3b - fdb $102a - fdb $1031 - fdb $1361 - fdb $103d - fdb $13df - fdb $13c6 - fdb $1544 - fdb $1550 - fdb $1674 - fdb $1779 - fdb $17c1 - fdb $1831 - fdb $17D0 - fdb $1bf1 - fdb $167a - fdb $17bc - fdb $182c - fdb $150b - -Init tst >g0038 am I initalized already? - bmi L00E2 yes, return - lda #$FF get init code - sta <$0038 save it - -* Initialize window tables - - leax >$0180,u point to window table start position - ldb #$FF get init code - ldy #32 get max # windows -L009D std ,x initalize window -L009F leax <Wt.Siz,x point to next one - leay -$01,y done? - bne L009D no, keep going - -* Initialize screen tables - - leay <16,y get # of screen tables -L00A9 clr St.SBlk,x initialize table entry block # - leax <St.Siz,x move to next one - leay -$01,y done? - bne L00A9 no keep going - leax <$18,x get end of var pointer - stx <$003B save it + leax >L0029,pcr + ldb $01,s + ldd b,x + leax d,x + puls b,a + jmp ,x +L0029 neg <u0058 + neg <u00E0 + oim #$83,<u0003 + sta >$03C6 + lsr <u005B + eim #$40,<u0005 + jmp >$07F1 + ror <u0022 + asr <u0017 + ror <u00EC + ror <u004D + ror <u009D + ror <u00FB + ror <u00B6 + asr <u001F + asr <u003E + ror <u00DB + asr <u00C7 + asr <u00D4 + asr <u00E1 + rol <u000A + dec <u0075 + tim #$79,<u000B + subd >$0BE8 + inc <u00EE + clr <u0036 + clr <u0050 + biand cc.1,<u0078.2 + muld #$11CB + fcb $15 + tim #$14,<u00F0 + lbra L268A + fcb $45 E + lbsr L5E8F + adcb #$18 + bcc L0094 + adca #$18 + puls x,dp,b + inca + clra + tfr a,dp + tst <$38,u + bmi L0107 + ldb #$FF + stb <$38,u + leax >$0190,u + ldd #$FFFF + ldy #$0020 +L0099 std -$10,x + leax <$40,x + leay -$01,y + bne L0099 + leax >$0980,u + clrb + ldy #$0010 +L00AB stb $01,x + leax <$20,x + leay -$01,y + bne L00AB + leax >$0087,u clra clrb - std <$0030 init current screen table pointer - std <$002E init current window table pointer - stb <$0032 init next GP buffer block start # - stb <$0035 - std <$0039 - std <$003D - std <$003F - incb - std <$00B3 - ldb #$20 - std <$00B5 - exg a,b - std <$00B7 - lda #$7E get opcode for JMP instruction - ldx #$414F get address of window switch vector - sta <$00B9 save it for easier access - stx <$00BA - ldx #$4154 get address of GP buffer MMU load - sta <$00BC - stx <$00BD -L00E2 clrb clear errors - rts return - -****************************** -* -* Terminatione routine -* - -L00E4 clr <$0038 clear init flag - clr <$007D clear any buffer block # - ldb <$0032 any GP buffers used? - beq L00F3 no, exit - ldx <$0033 get GP buffer offset - lbsr L0963 delete them - bcc L00E4 keep going till done -L00F3 rts - -****************************** -* -* Swap back to System -* - -L00F4 pshs cc save IRQ status - orcc #IntMasks disable IRQ's - ldx >$1007 get my stack pointer - clr >$1002 clear map side - clra reset DP + std ,x + ldd #$333E + std $02,x + std $06,x + std $08,x + std $0A,x + std $0C,x + std $0E,x + tfr pc,d + lsra + lsra + lsra + lsra + anda #$0E + ldy <u004A + leay <$40,y + ldd a,y + std $04,x + ldy <u00A1 + stx $02,y + tfr u,d + addd #$0B80 + addd #$0018 + std <$3B,u + clra + clrb + std <$30,u + std <$2E,u + stb <$32,u + stb <$35,u + stb <$39,u + stb <$3A,u + std <$3D,u + std <$3F,u +L0107 clra + rts +L0109 clr <u0038 + clr <u007D + ldb <u0032 + beq L011A + ldx <u0033 + lbsr L0AB9 + bcc L0109 + bra L011B +L011A clrb +L011B bra L011D +L011D pshs cc + orcc #$50 + ldx >$1007 + clr >$1002 + clra tfr a,dp - puls a purge stack - jmp [>D.Flip0] return to system - -****************************** -* -* Setup MMU for a window change -* - -L0107 pshs y,x,b,a preserve regs - ldx -$10,y get screen table pointer - stx 2,s save it in X on stack -L010D leay Wt.POff,y move to PSet offset - ldd $07,y get LSet vector - std <$0064 save LSet vector for this window - ldd $05,y get LSet table pointer - std <$0068 save it for this window - ldd -$09,y get fore/back colors - std <$0061 save 'em for this window - ldd $0C,y get max X coordinate - std <$006A save it for this window - ldd $0E,y get max Y coordinate - std <$006C save it for this window - ldb St.Sty,x get screen type - andb #$8F keep only what we need - stb <$0060 save it for this window - ldb St.BRow,x get # bytes per row - stb <$0063 save it for this window - ldb St.SBlk,x get 1st block # -L012F leax >$008F,u point to my DAT images' 4th entry - ldy #$FFAC get MMU start - clra get block type -L0138 std ,x++ save it to my image - stb ,y+ save it to MMU - incb get next block # - cmpy #$FFAF done? - bls L0138 no, keep going - puls pc,y,x,b,a restore & return - -****************************** -* -* Setup MMU -* - -L0145 pshs y,x,b,a - bra L012F - -L0149 pshs y,x,b,a + puls a + jmp [>$00A9] +L0130 pshs y,x,b,a ldx -$10,y - bra L010D - bsr L0107 - lbra L13FB - clr <$0089 - stb <$008A - stb >$FFA9 - rts -L015C pshs a + stx $02,s +L0136 ldd <$16,y + std <u0064 + ldd $0F,y + std <u0066 + ldd <$14,y + std <u0068 + ldd $06,y + std <u0061 + ldd <$1B,y + std <u006A + ldd <$1D,y + std <u006C + ldb ,x + stb <u0060 + ldb $04,x + stb <u0063 + ldb $01,x +L015C leax >$0087,u + ldy #$FFA8 + clra + std $08,x + stb $04,y + incb + std $0A,x + stb $05,y + incb + std $0C,x + stb $06,y + incb + std $0E,x + stb $07,y + puls pc,y,x,b,a +L017A pshs y,x,b,a + bra L015C +L017E pshs y,x,b,a + ldx -$10,y + bra L0136 +L0184 bsr L0130 + lbra L1525 +L0189 pshs x + leax >$0087,u + clr $02,x + stb $03,x + ldx #$FFA8 + stb $01,x + puls pc,x +L019A pshs a os9 F$AllRAM puls pc,a -L0163 pshs a +L01A1 pshs a os9 F$AlHRAM puls pc,a -L016A os9 F$DelRAM +L01A8 os9 F$DelRAM rts - bsr L0198 - bcs L0197 - lda <$0060 + bsr L01D7 + bcs L01D4 + lda <u0060 cmpa #$FF - bne L0182 - lda [<-$10,y] - sta <$0060 - lbsr L13FB - bra L0187 -L0182 lbsr L01D5 - bcs L0197 -L0187 lbsr L0107 - lbsr L02EE + bne L01BF + bsr L0210 + bcs L01D4 + lbsr L1525 + bra L01C4 +L01BF lbsr L027D + bcs L01D4 +L01C4 lbsr L0130 + lbsr L0387 lda #$FF sta -$0E,y ldb $08,y - lbsr L129C + lbsr L13E8 clrb -L0197 rts -L0198 lda <$0060 +L01D4 lbra L011D +L01D7 lda <u0060 cmpa #$FF - bne L01A1 - lda [<-$10,y] -L01A1 leax <L01CF,pcr - anda #$01 + bne L01E1 + ldx -$10,y + lda ,x +L01E1 leax >L0209,pcr + anda #$0F ldb -$0B,y + bmi L0205 cmpb a,x - bhi L01CB + bgt L0205 addb -$09,y cmpb a,x - bhi L01CB - lda [<-$10,y] - anda #$30 - ldb #$10 - mul + bgt L0205 ldb -$0A,y - leax <L01D1,pcr - cmpb a,x - bhi L01CB + bmi L0205 + cmpb #$18 + bgt L0205 addb -$08,y - cmpb a,x - bhi L01CB + cmpb #$18 + bgt L0205 clrb rts -L01CB comb +L0205 comb ldb #$BD rts -L01CF bvc L0221 -L01D1 fcb $18 - daa - rora - rora -L01D5 bsr L01F4 - bcs L01F3 +L0209 neg <u0050 + bvc L025D + bvc L025F + bvc L0221 + stx <u0099 + leax >$0190,u + ldb #$20 + stb <u009B +L021B ldd -$10,x + bmi L0230 + cmpd -$10,y + bne L0230 + lda -$0E,x + bpl L0230 + cmpx <u0099 + beq L0230 + bsr L0239 + bcs L0238 +L0230 leax <$40,x + dec <u009B + bne L021B + clrb +L0238 rts +L0239 lda $09,x + bita #$01 + beq L0277 + lda -$0B,y + cmpa <$26,x + bge L024F + adda -$09,y + cmpa <$26,x + bgt L025B + bra L0277 +L024F ldb <$26,x + addb <$28,x + stb <u0097 + cmpa <u0097 + bge L0277 +L025B lda -$0A,y +L025D cmpa <$27,x + bge L026B + adda -$08,y + cmpa <$27,x + bgt L0279 + bra L0277 +L026B ldb <$27,x + addb <$29,x + stb <u0097 + cmpa <u0097 + blt L0279 +L0277 clrb + rts +L0279 comb + ldb #$C3 + rts +L027D bsr L029C + bcs L029B stx -$10,y - ldb <$0060 + ldb <u0060 stb ,x - bsr L0208 - bcs L01F3 - ldb <$005A + bsr L02B0 + bcs L029B + ldb <u005A stb $05,x - lbsr L06D2 + lbsr L07D4 stb $06,x - lbsr L02A0 - lbsr L0640 -L01F2 clrb -L01F3 rts -L01F4 leax >$0980,u + lbsr L0353 + lbsr L072B +L029A clrb +L029B rts +L029C leax >$0980,u ldb #$10 -L01FA tst $01,x - beq L01F2 +L02A2 tst $01,x + beq L029A leax <$20,x decb - bne L01FA + bne L02A2 comb ldb #$C1 rts -L0208 pshs y - ldb <$0060 - bpl L0228 +L02B0 pshs y + ldb <u0060 + bpl L02D0 leay >$0980,u lda #$10 -L0214 tst ,y - bpl L0220 +L02BC tst ,y + bpl L02C8 ldb $01,y - beq L0220 - bsr L026F - bcc L0247 -L0220 leay <$20,y + beq L02C8 + bsr L031C + bcc L02FA +L02C8 leay <$20,y deca - bne L0214 - ldb <$0060 -L0228 leay <L0262,pcr + bne L02BC + ldb <u0060 +L02D0 leay >L030E,pcr andb #$0F ldb b,y - lbsr L0163 - bcs L0258 + lbsr L01A1 + bcs L030C ldy #$8000 pshs y,b - lbsr L0145 + lbsr L017A + ldy #$8000 ldb #$FF -L023F stb ,y - bsr L025A - bcs L023F +L02EC stb ,y + leay >$0800,y + cmpy #$A000 + bcs L02EC puls y,b -L0247 stb $01,x +L02FA stb $01,x sty $02,x - lda <$0060 + lda <u0060 anda #$0F - leay <L0268,pcr + leay >L0315,pcr lda a,y sta $04,x clrb -L0258 puls pc,y -L025A leay >$0800,y - cmpy #$A000 -L0262 rts - aim #$02,<$0004 - lsr <$0001 -L0268 oim #$50,<$0050 +L030C puls pc,y +L030E neg <u0002 + aim #$04,<u0004 + oim #$01,<u0000 + negb + negb suba ,y+ suba -$10,u -L026F pshs y,x,b,a - lbsr L0145 +L031C pshs y,x,b,a + lbsr L017A ldy #$8000 ldb #$FF -L027A cmpb ,y - beq L0285 -L027E bsr L025A - bcs L027A -L0282 comb - puls pc,y,x,b,a -L0285 lda <$0060 - anda #$8F - cmpa #$86 - beq L029A +L0327 cmpb ,y + beq L0337 +L032B leay >$0800,y + cmpy #$A000 + bcs L0327 + bra L0350 +L0337 lda <u0060 + cmpa #$84 + beq L034A leax >$0800,y cmpx #$A000 - bcc L0282 + bcc L0350 cmpb ,x - bne L027E -L029A clrb + bne L032B +L034A clrb puls x,b,a leas $02,s rts -L02A0 pshs y,x - stb <$0097 - stb <$0098 - lda ,x - bpl L02AE - ldb #$20 - stb <$0097 -L02AE pshs x - ldd -$0B,y - bne L02C9 - ldb ,x - leax >L01CF,pcr - andb #$01 - abx - ldd -$09,y - cmpa ,x - bne L02C9 - cmpb #$18 - bne L02C9 +L0350 comb puls pc,y,x,b,a -L02C9 puls x - ldy $02,x +L0353 pshs y,x + stb <u0097 + stb <u0098 + tst ,x + bpl L0361 + lda #$20 + sta <u0097 +L0361 ldy $02,x lda ,x anda #$0F lsla - leax <L02E0,pcr + leax >L0379,pcr ldx a,x - ldd <$0097 -L02DA std ,y++ + ldd <u0097 +L0371 std ,y++ leax -$01,x - bne L02DA -L02E0 puls pc,y,x + bne L0371 + puls pc,y,x +L0379 neg <u0000 tfr s,d tfr s,d fcb $3E > suba #$3E suba #$07 - subb <$0003 + subb <u0003 eorb -$0C,y clrd + clrb sta <$18,y sta $0A,y sta $0E,y - ldx #$5F9A + leax >L1FE9,pcr stx <$14,y - ldx #$5F83 + leax >L1FDE,pcr stx <$16,y lda #$89 sta $09,y - bsr L0325 - stb <$0061 - bsr L032F - stb <$0062 - lbsr L06DC + ldb $06,y + lbsr L078D + stb $06,y + stb <u0061 + ldb $07,y + lbsr L078D + stb $07,y + stb <u0062 + lbsr L07DE puls x ldd $02,x - bsr L0337 + bsr L03CD clr $0B,y ldd #$C801 - std <$0057 - lbsr L05A2 - clrb + std <u0057 + lbsr L067D + bcs L03CB +L03CB clrb rts -L0325 ldb $06,y - lbsr L0698 - stb $06,y - rts -L032D bsr L0325 -L032F ldb $07,y - lbsr L0698 - stb $07,y - rts -L0337 lbsr L04ED +L03CD lbsr L05BA ldd -$0D,y std <$24,y ldd -$0B,y std <$26,y - clr -$0B,y - clr -$0A,y ldd -$09,y std <$28,y rts -L034E tsta - beq L0355 - orb $09,y - bra L0358 -L0355 comb - andb $09,y -L0358 stb $09,y - bra L038E - ldb #$01 - bra L034E - jsr <$00B9 - ldd #$FFFE + ldb $09,y + tsta + beq L03E9 + orb #$01 + bra L03EB +L03E9 andb #$FE +L03EB stb $09,y + bra L0421 + lbsr L0184 + ldd #$FFFF std -$10,y - bsr L0390 - bcs L0387 - bsr L03A8 - cmpy <$002E - bne L038E - clra - clrb - std <$002E - std <$0030 + bsr L0424 + bcs L0419 + bsr L043C + cmpy <u002E + bne L0419 + ldd #$0000 + std <u002E + std <u0030 ldx #$FFB0 - ldd #$1008 + ldd #$163F stb >$FF9A -L0381 stb ,x+ +L0412 stb ,x+ deca - bhi L0381 - rts -L0387 ldb $06,x - stb <$0062 - lbsr L129C -L038E clrb - rts -L0390 pshs y + bhi L0412 + bra L0421 +L0419 ldb $06,x + stb <u0062 + lbsr L13E8 + clrb +L0421 lbra L011D +L0424 pshs y leay >$0190,u ldb #$20 -L0398 cmpx -$10,y - beq L03A5 +L042C cmpx -$10,y + beq L0439 leay <$40,y decb - bne L0398 + bne L042C clrb - bra L03A6 -L03A5 comb -L03A6 puls pc,y -L03A8 pshs y + bra L043A +L0439 comb +L043A puls pc,y +L043C pshs y lda ,x - bpl L03D0 + bpl L0469 ldy $02,x ldb #$FF stb ,y - anda #$CF cmpa #$85 - bne L03BF - stb >$0800,y -L03BF ldy #$8000 -L03C3 cmpb ,y - bne L03E6 - lbsr L025A - bcs L03C3 + bne L0453 + leay >$0800,y + stb ,y +L0453 ldy #$8000 +L0457 cmpb ,y + bne L047F + leay >$0800,y + cmpy #$A000 + bcs L0457 ldb #$01 - bra L03D8 -L03D0 anda #$0F - leay >L0262,pcr + bra L046F +L0469 leay >L030E,pcr ldb a,y -L03D8 pshs x,b +L046F pshs x,b clra ldb $01,x tfr d,x puls b - lbsr L016A + lbsr L01A8 + bcs L0482 puls x -L03E6 clr $01,x - puls pc,y -L03EA puls b,a - pshs y,b,a +L047F clrb + stb $01,x +L0482 puls pc,y + pshs y ldb -$0E,y lda #$40 mul leay >$0190,u leay d,y - rts - bsr L03EA - jsr <$00B9 + lbsr L0184 tfr y,d ldy ,s std ,s - bsr L042D - bcs L042B + bsr L04C5 + bcs L04C2 ldd -$10,x std -$10,y - lbsr L0149 - bsr L045C - tst <$0059 - beq L0421 - bsr L048E - bcs L042B + lbsr L017E + bsr L04F4 + tst <u0059 + beq L04B8 + lbsr L0544 + bcs L04C2 ldb $07,y - stb <$0062 - lbsr L129C -L0421 ldx ,s - cmpx <$002E - bne L042A - sty <$002E -L042A clrb -L042B puls pc,x -L042D bsr L044A -L042F ldb -$0B,y - bmi L0447 + stb <u0062 + lbsr L13E8 +L04B8 puls x + cmpx <u002E + bne L04C1 + sty <u002E +L04C1 clrb +L04C2 lbra L011D +L04C5 bsr L04E2 +L04C7 ldb -$0B,y + bmi L04DF addb -$09,y cmpb <$28,x - bhi L0447 + bhi L04DF ldb -$0A,y - bmi L0447 + bmi L04DF addb -$08,y cmpb <$29,x - bhi L0447 + bhi L04DF clrb rts -L0447 lbra L01CB -L044A tfr y,x -L044C ldb -$0E,x - bmi L045B +L04DF lbra L0205 +L04E2 tfr y,x +L04E4 ldb -$0E,x + bmi L04F3 leax >$0190,u lda #$40 mul leax d,x - bra L044C -L045B rts -L045C clr <$11,y + bra L04E4 +L04F3 rts +L04F4 clra + clrb + sta <$11,y lda $09,x sta $09,y - lbsr L06DC + lbsr L07DE lda $08,x anda #$C0 ora $08,y sta $08,y - ldd #$050A - bsr L0481 - ldd #$0714 - bsr L0481 - lbsr L032D + lda $0A,x + sta $0A,y + ldd <$14,x + std <$14,y + lda $0E,x + sta $0E,y + ldd <$16,x + std <$16,y + lda $0B,x + sta $0B,y + ldd $0C,x + std $0C,y + ldb <$18,x + stb <$18,y + ldd <$19,x + std <$19,y + ldb $06,y + lbsr L078D + stb $06,y + ldb $07,y + lbsr L078D + stb $07,y ldd -$0D,x - lbsr L0337 + lbsr L03CD rts -L0481 pshs a -L0483 lda b,x - sta b,y - incb - dec ,s - bne L0483 - puls pc,a -L048E pshs x +L0544 pshs x clra ldb -$09,y - tst <$0060 - bmi L049A - lda #$08 - mul -L049A std <$004F + tst <u0060 + bmi L0552 + lslb + lslb + rola + lslb + rola +L0552 std <u004F clra ldb -$08,y - tst <$0060 - bmi L04A6 + tst <u0060 + bmi L055E lslb lslb lslb -L04A6 std <$0051 +L055E std <u0051 + clra clrb - std <$0047 - lbsr L0AF5 + std <u0047 + lbsr L0C4D puls pc,x - jsr <$00B9 - cmpy <$002E - bne L04BF - lbsr L03EA - sty <$002E + lbsr L0184 + cmpy <u002E + bne L0583 + pshs y + ldb -$0E,y + lda #$40 + mul + leay >$0190,u + leay d,y + sty <u002E puls y -L04BF ldb <$11,y - beq L04D6 - jsr <$00BC - stb <$007D +L0583 ldb <$11,y + beq L059B + lbsr L0189 + stb <u007D ldd <$12,y - std <$007E - lbsr L0C01 - lbsr L084C - lbsr L0963 -L04D6 ldd #$FFFF + std <u007E + lbsr L0D49 + lbsr L0988 + lbsr L0AB9 +L059B ldd #$FFFF std -$10,y - bra L04EB - jsr <$00B9 + bra L05B6 +L05A2 comb + ldb #$C0 + bra L05B7 + lbsr L0184 tfr y,x - lbsr L042F - bcs L04EC + lbsr L04C7 + bcs L05B7 ldd <$24,y - bsr L04ED -L04EB clrb -L04EC rts -L04ED pshs x,b,a - ldb <$0060 + bsr L05BA +L05B6 clrb +L05B7 lbra L011D +L05BA pshs x,b,a + ldb <u0060 andb #$0F - leax >L0548,pcr + leax >L061A,pcr ldb b,x stb $03,y lda -$09,y mul stb $02,y clra - ldb <$0063 - tst <$0060 - bmi L050A - lda #$08 - mul -L050A std $04,y + ldb <u0063 + tst <u0060 + bmi L05DA + lslb + rola + lslb + rola + lslb + rola +L05DA std $04,y ldb -$0A,y ldx $04,y - lbsr L1E21 - std <$0097 + lbsr L1EA9 + std <u0097 lda -$0B,y ldb $03,y mul addd ,s++ - addd <$0097 + addd <u0097 std -$0D,y - lbsr L10A7 - ldb <$0060 - bmi L0529 - bsr L054F -L0529 clra + lbsr L124B + ldb <u0060 + bmi L05F9 + bsr L0621 +L05F9 clra ldb -$09,y - tst <$0060 - bmi L0533 + tst <u0060 + bmi L0603 lda #$08 mul -L0533 subd <$00B3 +L0603 subd #$0001 std <$1B,y clra ldb -$08,y - tst <$0060 - bmi L0542 + tst <u0060 + bmi L0613 lda #$08 mul -L0542 subb #$01 +L0613 subb #$01 std <$1D,y puls pc,x - oim #$02,<$0002 - lsr <$0002 - aim #$34,<$0010 - clra +L061A neg <u0001 + aim #$02,<u0004 + aim #$02,<u0034 + clrd ldb -$09,y tfr d,x lda #$03 mul pshs b ldb #$33 - lbsr L1E00 + lbsr L1E87 addb ,s+ stb -$07,y clra @@ -716,217 +759,252 @@ mul pshs b ldb #$AB - lbsr L1E00 + lbsr L1E87 addb ,s+ stb -$06,y puls pc,x - ldb <$0057 - bne L0584 + ldb <u0057 + bne L0657 stb $0E,y - ldx #$5F83 - bra L059B -L0584 lbsr L0851 - bcs L059F + leax >L1FDE,pcr + bra L066F +L0657 lbsr L098E + bcs L0673 stb $0E,y leax <$20,x stx $0F,y ldx -$10,y ldb ,x - ldx #$5F0A + leax >L1FF4,pcr ldb b,x leax b,x -L059B stx <$16,y -L059E clrb -L059F rts - jsr <$00B9 -L05A2 ldb <$0057 - bne L05A9 +L066F stx <$16,y +L0672 clrb +L0673 lbra L011D + lbsr L0184 + bsr L067D + bra L0673 +L067D ldb <u0057 + bne L0685 stb $0B,y - rts -L05A9 lbsr L0F31 - lbsr L0851 - bcs L05E2 + bra L06BF +L0685 lbsr L1031 + lbsr L098E + bcs L06BF pshs x,b ldd $07,x - tsta - bne L05E3 - cmpb #$06 - beq L05C0 - cmpb #$08 - bne L05E3 -L05C0 ldd $09,x + cmpd #$0006 + beq L069D cmpd #$0008 - bne L05E3 + bne L06C0 +L069D ldd $09,x + cmpd #$0008 + bne L06C0 stb $0B,x ldd $07,x - cmpd <$006E - beq L05DB + cmpd <u006E + beq L06B8 tst $0B,y - beq L05DB - lbsr L112D - lbsr L1119 -L05DB puls x,b + beq L06B8 + lbsr L12B9 + lbsr L12A4 +L06B8 puls x,b stb $0B,y stx $0C,y clrb -L05E2 rts -L05E3 ldb #$C2 +L06BF rts +L06C0 puls x,b + ldb #$C2 coma - puls pc,x,a - jsr <$00B9 - ldb <$0057 - bne L05F2 + rts + lbsr L0184 + ldb <u0057 + bne L06D2 stb <$18,y - rts -L05F2 lbsr L0851 - bcs L059F + bra L0673 +L06D2 lbsr L098E + bcs L0673 stb <$18,y stx <$19,y - bra L059E - leax <L0616,pcr + bra L0672 + leax >L06FC,pcr ldb $0A,y - cmpb #$05 - bhi L0612 + cmpb #$03 + bhi L06F7 lslb ldd b,x + leax >L06FC,pcr leax d,x stx <$14,y - bra L062D -L0612 comb + bra L0711 +L06F7 comb ldb #$BB - rts -L0616 daa - anda #$19 - sbca #$19 - adca #$19 - jmp >$1972 - daa - ror >$E629 + bra L0712 +L06FC fcb $18 + std -$08,x + addb -$08,x + sbcb >$18E7 + ldb $09,y + tsta + bne L070D orb #$80 - tsta - beq L062B - andb #$7F -L062B stb $09,y -L062D clrb - rts - ldb <$0086 + bra L070F +L070D andb #$7F +L070F stb $09,y +L0711 clrb +L0712 lbra L011D + ldb <u0086 ldx -$10,y leax <$10,x - lda <$005A + lda <u005A anda #$0F stb a,x - bra L062D + bra L0711 ldx -$10,y -L0640 pshs y,x - leay <$10,x - ldx >$1019 + bsr L072B + lbra L011D +L072B pshs y,x + leax <$10,x + ldy >$1019 clra -L0649 ldb ,x+ - stb a,y +L0735 ldb ,y+ + stb a,x inca cmpa #$0F - ble L0649 + ble L0735 puls pc,y,x - ldb <$005A + ldb <u005A ldx -$10,y stb $05,x - bra L0696 - bsr L0673 + bra L0789 + ldx -$10,y + ldb ,x + stb <u0060 + ldb <u005A + bsr L078D stb $06,y ldb $09,y bitb #$04 - bne L0688 -L0666 ldb <$005A + bne L0779 +L075A ldb <u005A lslb lslb lslb andb #$38 lda $08,y anda #$C7 - bra L0690 -L0673 ldx -$10,y + bra L0783 + ldx -$10,y ldb ,x - stb <$0060 - ldb <$005A - bsr L0698 - rts - bsr L0673 + stb <u0060 + ldb <u005A + bsr L078D stb $07,y ldb $09,y bitb #$04 - bne L0666 -L0688 ldb <$005A + bne L075A +L0779 ldb <u005A + ldb <u005A andb #$07 lda $08,y anda #$F8 -L0690 stb <$0097 - ora <$0097 +L0783 stb <u0097 + ora <u0097 sta $08,y -L0696 clrb - rts -L0698 pshs x,a - lda <$0060 - bmi L06A2 - tfr b,a - bsr L06AC -L06A2 puls pc,x,a -L06A4 leax <L06B4,pcr - ldb <$0060 +L0789 clrb + lbra L011D +L078D pshs x,a + lda <u0060 + bmi L079F + leax >L07A1,pcr + lda a,x + leax a,x + andb ,x+ ldb b,x - rts -L06AC bsr L06A4 - leax b,x - anda ,x+ - ldb a,x -L06B4 rts - eim #$08,<$0008 - tst <$0001 - neg <$00FF - com <$0000 +L079F puls pc,x,a +L07A1 neg <u0005 + lsl <u0008 + tst <u0001 + neg <u00FF + com <u0000 fcb $55 U ora [>$0F00] fcb $11 - bhi L06F9 + bhi L07E6 lsra fcb $55 U ror -$09,s eora #$99 ora [d,y] ldd #$DDEE - stu >$6D84 - bpl L06D9 - andb #$07 - rts -L06D9 bsr L0698 + stu >$3412 + leax >L07CD,pcr + lda <u0060 + anda #$0F + andb a,x + puls pc,x,a +L07CD neg <u0007 + asr <u0001 + com <u0003 + asr <u006D + anda #$2A + com <u00C4 + asr <u0039 + bsr L078D rts -L06DC ldd $06,y - anda #$07 - lsla - lsla - lsla +L07DE ldb $06,y andb #$07 - stb <$0097 - ora <$0097 - sta $08,y + lslb + lslb + lslb + lda $07,y + anda #$07 + sta <u0097 + orb <u0097 + stb $08,y rts - ldb #$10 -L06EE lbra L034E - ldb #$08 - bra L06EE - ldb #$20 - bra L06EE -L06F9 ldx <$002E - pshs y,x - ldy -$10,y + ldb $09,y + tsta + bne L07F9 + andb #$EF + bra L07FB +L07F9 orb #$10 +L07FB bra L0815 + ldb $09,y + tsta + bne L0806 + andb #$F7 + bra L0808 +L0806 orb #$08 +L0808 bra L0815 + ldb $09,y + tsta + bne L0813 + andb #$DF + bra L0815 +L0813 orb #$20 +L0815 stb $09,y + lbra L1521 + pshs y + ldy <u002E + beq L0824 + lbsr L0184 +L0824 ldb >$1000 + stb >$1001 + ldy ,s + lbsr L0130 + sty <u002E + stx <u0030 + tfr x,y lda $01,y ldx $02,y - lbsr L07E9 + lbsr L091B ldx #$FF90 ldb >$0090 andb #$7F stb >$0090 stb ,x - leax <L078D,pcr + leax >L08BE,pcr ldb ,y andb #$0F lslb @@ -934,196 +1012,221 @@ lda >$0098 anda #$78 ora ,x+ - ldb ,y - andb #$10 - lslb - orb ,x + ldb ,x ldx #$FF90 - std >$0098 - std $08,x - ldd <$0082 + sta >$0098 + sta $08,x + stb >$0099 + stb $09,x + ldd <u0082 + lsra + rorb + ror <u0084 lsra rorb - ror <$0084 - lsra - rorb - ror <$0084 + ror <u0084 lsra rorb - ror <$0084 + ror <u0084 clra - std >$009C - std $0C,x - lda <$0084 - clrb - std >$009E - std $0E,x + sta >$009C + sta $0C,x + stb >$009D + stb $0D,x + ldb <u0084 + stb >$009E + stb $0E,x + ldb #$00 + stb >$009F + stb $0F,x ldb $05,y leay <$10,y ldb b,y stb >$009A - bsr L079B + bsr L08CC stb $0A,x ldx #$FFB0 lda #$10 -L0762 ldb ,y+ - bsr L079B +L08A5 ldb ,y+ + bsr L08CC stb ,x+ deca - bhi L0762 - ldy ,s++ - beq L0772 - jsr <$00B9 -L0772 puls y - lbsr L0107 - sty <$002E - stx <$0030 - ldb >$1000 - stb >$1001 - ldd <$003D - std <$005B - ldd <$003F - std <$005D - lbsr L142A -L078D clrb - rts + bhi L08A5 + puls y + ldd <u003D + std <u005B + ldd <u003F + std <u005D + lbsr L1554 + lbra L1521 +L08BE neg <u0000 suba #$14 suba #$15 suba #$1D suba #$1E - com <$0015 - com <$0005 -L079B pshs x + com <u0015 + com <u0005 +L08CC pshs x tst >$1009 - bne L07A7 - leax <L07A9,pcr + bne L08D9 + leax >L08DB,pcr ldb b,x -L07A7 puls pc,x -L07A9 - - fcb $03 - fdb $0534,$107d,$1009 - fdb $2605,$308c,$04e6,$8535,$9000,$0c02,$0e07,$0905 - fdb $101c,$2c0d,$1d0b,$1b0a,$2b22,$1112,$2103,$0113 - fdb $321e,$2d1f,$2e0f,$3c2f,$3d17,$0815,$0627,$1626 - fdb $3619,$2a1a,$3a18,$2928,$3814 - fdb $0423,$3325,$3524 - fdb $3420,$3b31,$3e37,$393f - fcb $30 - -L07E9 clrb +L08D9 puls pc,x +L08DB neg <u000C + aim #$0E,<u0007 + rol <u0005 + fcb $10 + andcc #$2C + tst <u001D + tim #$1B,<u000A + bmi L090E + fcb $11 + nop + brn L08F3 + oim #$13,<u0032 +L08F3 exg y,0 + tfr y,e + clr <u003C + ble L0938 + lbsr L1113 + ror <u0027 + lbra L2F39 + daa + bpl L0920 + abx + fcb $18 + bvs L0932 + fcb $38 8 + sexw + lsr <u0023 +L090E leau $05,y + puls y,b + pshs y + rti + leay -$02,y + pulu y,x,dp,cc + swi + fcb $30 0 +L091B clrb lsra rorb lsra rorb -L07EE lsra +L0920 lsra rorb - std <$0082 - clr <$0084 + std <u0082 + clr <u0084 tfr x,d suba #$80 - addd <$0083 - std <$0083 - bcc L0800 - inc <$0082 -L0800 rts -L0801 ldd <$0080 + addd <u0083 + std <u0083 + bcc L0932 + inc <u0082 +L0932 rts + bsr L0938 + lbra L011D +L0938 ldd <u0080 addd #$001F -L0806 andb #$E0 - std <$0080 - ldb <$0057 + andb #$E0 + std <u0080 + ldb <u0057 cmpb #$FF - beq L0818 - tst <$0032 - beq L0818 - bsr L0851 - bcc L0848 -L0818 ldd <$0080 - cmpd <$00B7 - bhi L0829 - bsr L0891 - bcs L0829 + beq L094F + tst <u0032 + beq L094F + bsr L098E + bcc L0986 +L094F ldd <u0080 + cmpd #$2000 + bhi L0961 + bsr L09D6 + bcs L0961 lda #$01 sta $0F,x - bra L082E -L0829 lbsr L08C1 - bcs L0847 -L082E stb <$007D - stx <$007E - lbsr L090D - ldd <$0057 - std $03,x - ldd <$0080 + bra L0966 +L0961 lbsr L0A09 + bcs L0985 +L0966 stb <u007D + stx <u007E + lbsr L0A60 + ldb <u0057 + stb $03,x + ldb <u0058 + stb $04,x + ldd <u0080 std $05,x clra clrb std $07,x std $09,x - std $0C,x + stb $0C,x + stb $0D,x stb $0E,x -L0847 rts -L0848 comb +L0985 rts +L0986 bra L09CB +L0988 leax >L09A2,pcr + bra L0992 +L098E leax >L09AC,pcr +L0992 stx <u00A1 + bsr L09CF + ldb <u0032 + beq L09CB + ldx <u0033 + bra L09C4 +L099E jmp [>$00A1,u] +L09A2 cmpb <$11,y + bne L09BA + cmpx <$12,y + bra L09B8 +L09AC lda <u0057 + cmpa $03,x + bne L09BA + lda <u0058 + beq L09C9 + cmpa $04,x +L09B8 beq L09C9 +L09BA stb <u007D + stx <u007E + ldb ,x + beq L09CB + ldx $01,x +L09C4 lbsr L0189 + bra L099E +L09C9 clra + rts +L09CB comb ldb #$C2 rts -L084C leax <L0860,pcr - bra L0854 -L0851 leax <L086A,pcr -L0854 stx <$00A1 - bsr L088A - ldb <$0032 - beq L0848 - ldx <$0033 - bra L0882 -L0860 cmpb <$11,y - bne L0878 - cmpx <$12,y - bra L0876 -L086A lda <$0057 - cmpa $03,x - bne L0878 - lda <$0058 - beq L0888 - cmpa $04,x -L0876 beq L0888 -L0878 stb <$007D - stx <$007E - ldb ,x - beq L0848 - ldx $01,x -L0882 jsr <$00BC - jmp [>$00A1,u] -L0888 clra +L09CF clra + clrb + stb <u007D + std <u007E rts -L088A clra - clrb - stb <$007D - std <$007E - rts -L0891 pshs y,b - ldy <$0080 - ldx #$49E2 - stx <$00A1 - lbsr L09D5 - bcs L08BF +L09D6 pshs y,b + ldy <u0080 + leax >L0B45,pcr + stx <u00A1 + lbsr L0B32 + bcs L0A07 stb ,s ldd $05,x - subd <$0080 - bne L08B5 + subd <u0080 + bne L09FC pshs x - lbsr L092D + lbsr L0A80 puls x ldb ,s - jsr <$00BC - bra L08BE -L08B5 subd <$00B5 + lbsr L0189 + bra L0A06 +L09FC subd #$0020 std $05,x leax <$20,x leax d,x -L08BE clra -L08BF puls pc,y,b -L08C1 ldd <$0080 - addd <$00B5 - std <$0097 +L0A06 clra +L0A07 puls pc,y,b +L0A09 ldd <u0080 + addd #$0020 + std <u0097 addd #$1FFF lsra lsra @@ -1131,612 +1234,602 @@ lsra lsra tfr a,b - stb <$0099 - lbsr L015C - bcs L090C + stb <u0099 + lbsr L019A + bcs L0A5F pshs b - ldb <$0099 + ldb <u0099 cmpb #$01 - bhi L0901 - ldd <$00B7 - subd <$0097 + bhi L0A52 + ldd #$2000 + subd <u0097 anda #$1F - std <$009B - beq L0901 - ldd <$00B7 - subd <$009B - addd <$00B7 + std <u009B + beq L0A52 + subd #$0020 + ldd #$2000 + subd <u009B + addd #$2000 tfr d,x ldb ,s - addb <$0099 + addb <u0099 decb - jsr <$00BC - bsr L091D - ldd <$009B - subd <$00B5 + lbsr L0189 + bsr L0A70 + ldd <u009B + subd #$0020 std $05,x -L0901 ldx <$00B7 +L0A52 ldx #$2000 puls b - jsr <$00BC - lda <$0099 + lbsr L0189 + lda <u0099 sta $0F,x clra -L090C rts -L090D pshs b,a - lda <$0032 +L0A5F rts +L0A60 pshs b,a + lda <u0032 sta ,x - stb <$0032 - ldd <$0033 + stb <u0032 + ldd <u0033 std $01,x - stx <$0033 + stx <u0033 puls pc,b,a -L091D pshs b,a - lda <$0035 +L0A70 pshs b,a + lda <u0035 sta ,x - stb <$0035 - ldd <$0036 + stb <u0035 + ldd <u0036 std $01,x - stx <$0036 + stx <u0036 puls pc,b,a -L092D pshs y,a +L0A80 pshs y,a lda ,x ldy $01,x - ldx <$007E - ldb <$007D - bne L0941 - sta <$0035 - sty <$0036 - bra L0948 -L0941 jsr <$00BC + ldx <u007E + ldb <u007D + bne L0A94 + sta <u0035 + sty <u0036 + bra L0A9C +L0A94 lbsr L0189 sta ,x sty $01,x -L0948 puls pc,y,a +L0A9C puls pc,y,a ldb #$01 - stb <$0097 -L094E lbsr L0851 - bcs L095D - clr <$0097 - bsr L0963 - bcs L0962 - ldb <$0058 - beq L094E -L095D lda <$0097 - bne L0962 + stb <u0097 +L0AA2 lbsr L098E + bcs L0AB1 + clr <u0097 + bsr L0AB9 + bcs L0AB6 + ldb <u0058 + beq L0AA2 +L0AB1 lda <u0097 + bne L0AB6 clrb -L0962 rts -L0963 pshs y,x,b +L0AB6 lbra L011D +L0AB9 pshs y,x,b lda $0F,x - sta <$009F + sta <u009F lda ,x ldy $01,x - ldb <$007D - bne L0979 - sta <$0032 - sty <$0033 - bra L0982 -L0979 jsr <$00BC - ldx <$007E + ldb <u007D + bne L0ACF + sta <u0032 + sty <u0033 + bra L0AD9 +L0ACF lbsr L0189 + ldx <u007E sta ,x sty $01,x -L0982 ldb ,s - lda <$009F +L0AD9 ldb ,s + lda <u009F cmpa #$01 - bgt L09A9 + bgt L0B03 tfr b,a - bsr L09B3 - bcc L09A0 - leax <L09FA,pcr - stx <$00A1 + bsr L0B0D + bcc L0AF9 + leax >L0B59,pcr + stx <u00A1 ldx $01,s - bsr L09D5 - jsr <$00BC - lbsr L091D - bra L09B1 -L09A0 ldx #$4A23 - stx <$00A1 + bsr L0B32 + lbsr L0189 + lbsr L0A70 + bra L0B0B +L0AF9 leax >L0B83,pcr + stx <u00A1 ldx $01,s - bsr L09D5 -L09A9 clra + bsr L0B32 +L0B03 clra tfr d,x - ldb <$009F - lbsr L016A -L09B1 puls pc,y,x,b -L09B3 pshs x,b - ldb <$0032 - beq L09CF - cmpa <$0032 - beq L09D2 - ldx <$0033 -L09BF jsr <$00BC - cmpa ,x - beq L09D2 + ldb <u009F + lbsr L01A8 +L0B0B puls pc,y,x,b +L0B0D pshs x,b + ldb <u0032 + beq L0B2C + cmpa <u0032 + beq L0B2F + ldx <u0033 + bra L0B27 +L0B1B cmpa ,x + beq L0B2F tst ,x - beq L09CF + beq L0B2C ldb ,x ldx $01,x - bra L09BF -L09CF clrb +L0B27 lbsr L0189 + bra L0B1B +L0B2C clrb puls pc,x,b -L09D2 comb +L0B2F comb puls pc,x,b -L09D5 pshs u,x,b,a -L09D7 lbsr L088A - ldb <$0035 - beq L0A3D - ldx <$0036 - bra L0A33 - cmpy $05,x - bhi L0A27 - stb $01,s - stx $02,s - clrb - puls pc,u,x,b,a -L09EE tfr u,d +L0B32 pshs u,x,b,a +L0B34 lbsr L09CF + ldb <u0035 + beq L0B98 + ldx <u0036 + bra L0B91 +L0B3F ldu $04,s + jmp [>$00A1,u] +L0B45 cmpy $05,x + bhi L0B87 + bra L0B9B +L0B4C tfr u,d addd $05,u - addd <$00B5 + addd #$0020 stx ,--s cmpd ,s++ rts -L09FA cmpb $01,s - bne L0A27 +L0B59 cmpb $01,s + bne L0B87 ldu $02,s ldb ,x stb ,u ldd $01,x std $01,u exg x,u - bsr L09EE - beq L0A14 + bsr L0B4C + beq L0B73 exg x,u - bsr L09EE - bne L0A27 -L0A14 stu $02,s + bsr L0B4C + bne L0B87 +L0B73 stu $02,s ldd $05,u addd $05,x - addd <$00B5 + addd #$0020 std $05,u -L0A1E lbsr L092D - bra L09D7 - cmpb ,s - beq L0A1E -L0A27 ldb <$008A - stb <$007D - stx <$007E +L0B7E lbsr L0A80 + bra L0B34 +L0B83 cmpb ,s + beq L0B7E +L0B87 stb <u007D + stx <u007E ldb ,x - beq L0A3D + beq L0B98 ldx $01,x -L0A33 ldu $04,s - jsr <$00BC - ldu $04,s - jmp [>$00A1,u] -L0A3D comb +L0B91 ldu $04,s + lbsr L0189 + bra L0B3F +L0B98 comb puls pc,u,x,b,a - lbsr L0851 - bcs L0A54 +L0B9B stb $01,s + stx $02,s + clrb + puls pc,u,x,b,a + lbsr L098E + bcs L0BB5 pshs b ldd <$1F,y cmpd $05,x + bhi L0BDA puls b - bls L0A61 - lbra L0AF1 -L0A54 ldd <$1F,y - std <$0080 - lbsr L0801 - bcc L0A5F - rts -L0A5F ldb <$007D -L0A61 stb <$21,y + bra L0BC3 +L0BB5 ldd <$1F,y + std <u0080 + lbsr L0938 + lbcs L0C4A + ldb <u007D +L0BC3 stb <$21,y clra clrb - std <$0047 - ldb <$0060 - lbsr L0B36 - lbsr L0B74 + std <u0047 + ldb <u0060 + lbsr L0C8E + lbsr L0CD1 leax <$20,x stx <$22,y - bra L0AEF + bra L0C44 +L0BDA bra L0C47 pshs y ldb <$21,y - stb <$0097 - jsr <$00BC + stb <u0097 + lbsr L0189 ldx <$22,y leay >$0100,u -L0A88 ldb ,y+ +L0BED ldb ,y+ stb ,x+ deca - beq L0A9E + beq L0C05 cmpx #$4000 - bcs L0A88 - inc <$0097 - ldb <$0097 - jsr <$00BC - ldx <$00B7 - bra L0A88 -L0A9E puls y - ldb <$0097 + bcs L0BED + inc <u0097 + ldb <u0097 + lbsr L0189 + ldx #$2000 + bra L0BED +L0C05 puls y + ldb <u0097 stb <$21,y stx <$22,y - bra L0AEF - lbsr L1DA2 - bcs L0AF4 - lbsr L1DAD - ldd ,x - subd <$00B3 - cmpd <$1B,y -L0ABA lbhi L1E44 - ldd $02,x - subd <$00B3 - cmpd <$1D,y - bhi L0ABA - jsr <$00B9 - bsr L0B16 - lbsr L0851 - bcc L0AD7 - lbsr L0801 - bcc L0AE2 - rts -L0AD7 stb <$007D - stx <$007E - ldd <$0080 + bra L0C44 + lbsr L1E29 + bcs L0C4A + lbsr L1E34 + bcs L0C4A + lbsr L0184 + bsr L0C6E + lbsr L098E + bcc L0C2C + lbsr L0938 + bcc L0C37 + bra L0C4A +L0C2C stb <u007D + stx <u007E + ldd <u0080 cmpd $05,x - bhi L0AF1 -L0AE2 lbsr L0B74 - lbsr L1E48 - stx <$0072 - ldx <$007E - lbsr L0B98 -L0AEF clrb - rts -L0AF1 comb + bhi L0C47 +L0C37 lbsr L0CD1 + lbsr L1ED4 + stx <u0072 + ldx <u007E + lbsr L0CED +L0C44 clrb + bra L0C4A +L0C47 comb ldb #$BF -L0AF4 rts -L0AF5 ldd -$0D,y - std <$0072 - bsr L0B16 +L0C4A lbra L011D +L0C4D ldd -$0D,y + std <u0072 + bsr L0C6E ldd #$FFFF - std <$0057 - lbsr L0801 - bcs L0B15 - ldb <$007D + std <u0057 + lbsr L0938 + bcs L0C6D + ldb <u007D stb <$11,y - ldd <$007E + ldd <u007E std <$12,y - bsr L0B74 - lbsr L0B98 + bsr L0CD1 + lbsr L0CED clrb -L0B15 rts -L0B16 pshs x - ldb <$0060 - bpl L0B23 - ldd <$004F +L0C6D rts +L0C6E pshs x + ldb <u0060 + bpl L0C7B + ldd <u004F lslb - stb <$0009 - bra L0B25 -L0B23 bsr L0B36 -L0B25 ldb <$0009 - ldx <$0051 - lbsr L1E21 - std <$0080 - ldb <$0063 - subb <$0009 - stb <$000A + stb <u0009 + bra L0C7D +L0C7B bsr L0C8E +L0C7D ldb <u0009 + ldx <u0051 + lbsr L1EA9 + std <u0080 + ldb <u0063 + subb <u0009 + stb <u000A puls pc,x -L0B36 lda #$07 - decb - beq L0B43 - lda #$01 - cmpb #$03 - beq L0B43 - lda #$03 -L0B43 sta <$0097 - ldb <$0048 +L0C8E cmpb #$04 + bne L0C96 + ldb #$01 + bra L0CA0 +L0C96 cmpb #$01 + beq L0C9E + ldb #$03 + bra L0CA0 +L0C9E ldb #$07 +L0CA0 stb <u0097 + ldb <u0048 comb - andb <$0097 + andb <u0097 incb - stb <$0006 + stb <u0006 clra - cmpd <$004F - bge L0B5E - ldb <$0050 - subb <$0006 - andb <$0097 - bne L0B5E - ldb <$0097 + cmpd <u004F + bge L0CBB + ldb <u0050 + subb <u0006 + andb <u0097 + bne L0CBB + ldb <u0097 incb -L0B5E stb <$0007 +L0CBB stb <u0007 clra - ldb <$0048 - andb <$0097 - addd <$004F - addb <$0097 + ldb <u0048 + andb <u0097 + addd <u004F + addb <u0097 adca #$00 -L0B6B lsra +L0CC8 lsra rorb - lsr <$0097 - bne L0B6B - stb <$0009 + lsr <u0097 + bne L0CC8 + stb <u0009 rts -L0B74 ldd <$004F +L0CD1 ldd <u004F std $07,x - ldd <$0051 + ldd <u0051 std $09,x - ldb <$0060 + ldb <u0060 stb $0E,x - ldd <$0006 - std $0C,x - ldb <$0009 + ldb <u0006 + stb $0C,x + ldb <u0007 + stb $0D,x + ldb <u0009 stb $0B,x clra - std <$004F + std <u004F rts -L0B8C tfr y,x - lda <$0097 - sta <$000A - lda #$01 - sta <$0099 - bra L0B9A -L0B98 clr <$0099 -L0B9A pshs y +L0CED pshs y leay <$20,x - ldx <$0072 -L0BA1 lda <$0050 -L0BA3 tst <$0099 - bne L0BAD - ldb ,x+ + ldx <u0072 +L0CF4 lda <u0050 +L0CF6 ldb ,x+ stb ,y+ - bra L0BB1 -L0BAD ldb ,y+ - stb ,x+ -L0BB1 cmpy #$4000 - bcs L0BBA - lbsr L0D63 -L0BBA deca - bne L0BA3 - ldb <$000A + cmpy #$4000 + bcs L0D0B + inc <u007D + ldb <u007D + lbsr L0189 + ldy #$2000 +L0D0B deca + bne L0CF6 + ldb <u000A abx - dec <$0052 - bne L0BA1 + dec <u0052 + bne L0CF4 puls pc,y - jsr <$00B9 - lbsr L1F65 - lbsr L0851 - bcs L0C00 - stb <$007D - stx <$007E + lbsr L0184 + lbsr L098E + bcs L0D46 + stb <u007D + stx <u007E ldd $07,x - std <$004F + std <u004F ldd $09,x - std <$0051 - lbsr L1DA2 - bcs L0C00 - lbsr L1DAD - lbsr L1E48 - stx <$0072 - stb <$0074 - ldy <$007E - lda #$01 - bsr L0C1D - bcs L0BF9 - lbsr L0CAE - bra L0BFF -L0BF9 lbsr L0D00 - lbsr L0D88 -L0BFF clrb -L0C00 rts -L0C01 pshs y + std <u0051 + lbsr L1E29 + bcs L0D46 + lbsr L1E34 + bcs L0D46 + lbsr L1ED4 + stx <u0072 + stb <u0074 + ldy <u007E + lbsr L0E2B + lbsr L0EC4 + clrb +L0D46 lbra L011D +L0D49 pshs y + leax >L1FDE,pcr + stx <u0064 + leax >L1FE9,pcr + stx <u0068 ldd -$0D,y - std <$0072 + std <u0072 clra clrb - std <$0047 - ldy <$007E - bsr L0C1D - bcs L0C18 - lbsr L0B8C + std <u0047 + ldy <u007E + bsr L0D71 + bcs L0D6C + lbsr L0DF0 clrb puls pc,y -L0C18 comb +L0D6C comb ldb #$BE puls pc,y -L0C1D pshs x - ldb <$0060 +L0D71 pshs x + ldb <u0060 cmpb $0E,y - bne L0C6C + bne L0DA9 tstb - bpl L0C30 + bpl L0D84 ldb #$FF - stb <$0000 - stb <$0001 - bra L0C61 -L0C30 tsta - beq L0C4A - ldd <$0047 - addd $07,y - subd #$0001 - cmpd <$006A - bhi L0C6C - ldb $0A,y - addb <$004A - decb - cmpb <$006D - bhi L0C6C - ldb <$0060 -L0C4A leax <L0C78,pcr - lda <$0048 + stb <u0000 + stb <u0001 + bra L0D9E +L0D84 leax >L0DB6,pcr + lda <u0048 coma anda b,x inca cmpa $0C,y - bne L0C6C - bsr L0C6F - sta <$0000 - ldd $0D,y - bsr L0C6F - stb <$0001 -L0C61 bsr L0C9D - ldb <$0063 - subb <$0050 - stb <$0097 + bne L0DA9 + bsr L0DAC + sta <u0000 + ldb $0E,y + lda $0D,y + bsr L0DAC + sta <u0001 +L0D9E bsr L0DE7 + ldb <u0063 + subb <u0050 + stb <u0097 clrb puls pc,x -L0C6C comb +L0DA9 comb puls pc,x -L0C6F leax <L0C7C,pcr +L0DAC leax >L0DBB,pcr ldb b,x abx - lsla - ldd a,x -L0C78 rts - asr <$0003 - com <$0001 - com <$0013 - sync - fcb $1B - oim #$80,<$0003 - subb #$07 - subb $0F,x - subb >$1FF8 - swi - fcb $FC - clr >$FEFF - stu >$03C0 - clr <$00F0 - swi - fcb $FC - stu >$FF0F - subb >$FFFF -L0C9D ldd $0A,y - stb <$0050 - sta <$0052 + lda a,x rts -L0CA4 ldd <$0047 - std <$00AB - ldx <$0072 - leay <$20,y +L0DB6 neg <u0007 + com <u0003 + oim #$00,<u0005 + jmp <u000E + sync + neg <u0001 + com <u0007 + clr <u001F + swi + fcb $7F ÿ + stu >$0003 + clr <u003F + stu >$000F + stu >$0005 + jmp <u000E + sync + neg <u0080 + subb #$E0 + subb >$F8FC + ldu >$FF00 + subb #$F0 + ldd >$FF00 + subb >$FFE6 + bmi L0DC1 + negb + ldb $0A,y + stb <u0052 rts -L0CAE lbsr L0E3F - pshs y - bsr L0CA4 - inc <$0097 - dec <$0050 -L0CB9 ldd <$00AB - std <$0047 - ldb <$0000 - lda <$0050 - beq L0CE8 - sta <$0099 - bra L0CC9 -L0CC7 ldb #$FF -L0CC9 lda ,y+ - lbsr L1F06 - ldd <$0047 - addb <$0005 - bcc L0CD5 - inca -L0CD5 std <$0047 +L0DF0 pshs y + leay <$20,y + ldx <u0072 +L0DF7 ldb <u0050 + stb <u0099 +L0DFB ldb <u0099 + cmpb <u0050 + bne L0E05 + ldb <u0000 + bra L0E0F +L0E05 cmpb #$01 + bne L0E0D + ldb <u0001 + bra L0E0F +L0E0D ldb #$FF +L0E0F lda ,y+ + lbsr L1F9B leax $01,x cmpy #$4000 - bcs L0CE2 - lbsr L0D63 -L0CE2 dec <$0099 - bne L0CC7 - ldb <$0001 -L0CE8 lda ,y+ - lbsr L1F06 - cmpy #$4000 - bcs L0CF5 - bsr L0D63 -L0CF5 ldb <$0097 + bcs L0E1E + bsr L0E9C +L0E1E dec <u0099 + bne L0DFB + ldb <u0097 abx - inc <$004A - dec <$0052 - bne L0CB9 + dec <u0052 + bne L0DF7 puls pc,y -L0D00 pshs y - ldd <$006A - subd <$0047 - addd <$00B3 - std <$009B - ldb <$006D - subb <$004A - bra L0D27 -L0D10 pshs y - lda <$0060 - lsra +L0E2B pshs y + ldd <u006A + subd <u0047 + addd #$0001 + std <u009B + ldb <u006D + subb <u004A + bra L0E57 +L0E3C pshs y + lda <u0060 + anda #$01 + beq L0E49 ldd #$027F - bcs L0D1D - ldd #$013F -L0D1D subd <$003D - addd <$00B3 - std <$009B + bra L0E4C +L0E49 ldd #$013F +L0E4C subd <u003D + addd #$0001 + std <u009B ldb #$BF - subb <$0040 -L0D27 incb - stb <$00A0 - lbsr L1E9C - lbsr L0C9D - ldd $0C,y - std <$0006 - lbsr L06A4 + subb <u0040 +L0E57 incb + stb <u00A0 + lbsr L1F2B + bsr L0DE7 + ldb $0C,y + stb <u0006 + ldb $0D,y + stb <u0007 + leax >L07A1,pcr + ldb <u0060 + ldb b,x abx lda ,x+ - stx <$0002 - leax <L0D6C,pcr + stx <u0002 + leax >L0EA8,pcr ldb $0E,y ldb b,x abx ldb ,x leay b,x - sty <$00A3 + sty <u00A3 anda $01,x - sta <$0008 + sta <u0008 ldb $02,x - stb <$0005 - ldb <$0006 + stb <u0005 + ldb <u0006 addb #$02 ldb b,x leay b,x - sty <$00A1 - sty <$00A5 + sty <u00A1 + sty <u00A5 puls pc,y -L0D63 inc <$007D - ldb <$007D - jsr <$00BC - ldy <$00B7 -L0D6C rts - fcb $05 - fdb $1010,$635c,$5d5e,$5f60,$6162,$5603,$0458 - fdb $5254,$564d,$0f02,$514d -L0D88 lbsr L0CA4 +L0E9C inc <u007D + ldb <u007D + lbsr L0189 + ldy #$2000 + rts +L0EA8 neg <u0005 + fcb $10 + fcb $10 + lbsr L6FB0 + lsl <u0062 + fcb $5B [ + incb + tstb + fcb $5E ^ + clrb + neg $01,s + fcb $55 U + com <u0004 + asrb + fcb $51 Q + comb + fcb $55 U + inca + clr <u0002 + negb + inca +L0EC4 leay <$20,y pshs y -L0D8D stx <$0072 - ldd <$00AB - std <$0047 - ldd <$009B - std <$009D - lda <$0050 - sta <$0004 - ldb <$0006 - stb <$0097 - ldd <$00A5 - std <$00A1 - ldb <$0074 -L0DA5 ldy ,s + ldx <u0072 +L0ECB stx <u0072 + ldd <u009B + std <u009D + lda <u0050 + sta <u0004 + ldb <u0006 + stb <u0097 + ldd <u00A5 + std <u00A1 + ldb <u0074 +L0EDF ldy ,s cmpy #$4000 - bcs L0DB4 - stb <$0099 - bsr L0D63 - ldb <$0099 -L0DB4 lda ,y+ + bcs L0EEE + stb <u0099 + bsr L0E9C + ldb <u0099 +L0EEE lda ,y+ sty ,s - ldy <$0002 + ldy <u0002 pshs y - leay <L0DD4,pcr - cmpy <$00A1 + leay >L0F0F,pcr + cmpy <u00A1 puls y - beq L0DD4 + beq L0F04 lsla - jmp [>$00A1,u] +L0F04 jmp [>$00A1,u] rola rola rola @@ -1744,544 +1837,534 @@ rola rola rola -L0DD4 pshs b,a,cc - ldd <$009D - beq L0DEC - subd <$00B3 - std <$009D +L0F0F pshs b,a,cc + ldd <u009D + beq L0F28 + subd #$0001 + std <u009D ldd $01,s - anda <$0008 + anda <u0008 lda a,y - lbsr L1F06 - lbsr L1EB3 + lbsr L1F9B + lbsr L1F4B stb $02,s -L0DEC dec <$0097 - beq L0DF6 +L0F28 dec <u0097 + beq L0F32 puls b,a,cc jmp [>$00A3,u] -L0DF6 leas $03,s - dec <$0004 - beq L0E12 - lda <$0004 +L0F32 leas $03,s + dec <u0004 + beq L0F4E + lda <u0004 cmpa #$01 - beq L0E06 - lda <$0005 - bra L0E08 -L0E06 lda <$0007 -L0E08 sta <$0097 - ldy <$00A3 - sty <$00A1 - bra L0DA5 -L0E12 ldx <$0072 - ldb <$0063 + beq L0F42 + lda <u0005 + bra L0F44 +L0F42 lda <u0007 +L0F44 sta <u0097 + ldy <u00A3 + sty <u00A1 + bra L0EDF +L0F4E ldx <u0072 + ldb <u0063 abx - dec <$00A0 - beq L0E23 - inc <$004A - dec <$0052 - lbne L0D8D -L0E23 puls pc,y - lbsr L0851 - bcs L0E9F - stb <$0097 + dec <u00A0 + beq L0F5D + dec <u0052 + lbne L0ECB +L0F5D puls pc,y + lbsr L098E + bcs L0FA7 + stb <u0097 ldb $0F,x - stb <$0099 + stb <u0099 ldd $05,x - std <$009B + std <u009B leax <$20,x tfr x,d anda #$1F - std <$009D - bra L0E9E -L0E3F ldb <$0060 - leax >L15C3,pcr - lda b,x - tfr a,b - cmpd $0C,y - bne L0E63 - leax >L1F83,pcr - cmpx <$0064 - bne L0E63 - leax >L1F9A,pcr - cmpx <$0068 - bne L0E63 - leas $02,s - lbra L0B8C -L0E63 sta <$0005 - rts - ldb <$2A,y - rorb - bcc L0E6E - clrb - rts -L0E6E lbsr L0107 + std <u009D + bra L0FA6 + lbsr L0184 tsta - bpl L0E8E + bpl L0F99 cmpa #$BF - bhi L0E84 + bhi L0F8F anda #$EF suba #$90 cmpa #$1A - bcc L0E8E -L0E80 lda #$2E - bra L0E8E -L0E84 anda #$DF + bcc L0F99 +L0F8B lda #$2E + bra L0F99 +L0F8F anda #$DF suba #$C1 - bmi L0E80 + bmi L0F8B cmpa #$19 - bhi L0E80 -L0E8E ldb <$0060 - bpl L0E96 - bsr L0EA0 - bra L0E9B -L0E96 lbsr L13FB - bsr L0EDE -L0E9B lbsr L10D0 -L0E9E clrb -L0E9F rts -L0EA0 cmpa #$60 - bne L0EA6 + bhi L0F8B +L0F99 ldb <u0060 + bpl L0FA1 + bsr L0FAA + bra L0FA3 +L0FA1 bsr L0FDC +L0FA3 lbsr L1284 +L0FA6 clrb +L0FA7 lbra L011D +L0FAA cmpa #$60 + bne L0FB0 lda #$27 -L0EA6 cmpa #$5F - bne L0EAC +L0FB0 cmpa #$5F + bne L0FB6 lda #$7F -L0EAC cmpa #$5E - bne L0EB2 +L0FB6 cmpa #$5E + bne L0FBC lda #$60 -L0EB2 ldx -$05,y +L0FBC ldx -$05,y tst $09,y - bmi L0EC6 + bmi L0FD0 ldb $01,x andb #$07 stb $01,x ldb $08,y andb #$F8 orb $01,x - bra L0EC8 -L0EC6 ldb $08,y -L0EC8 std ,x - ldd <$00B3 - std <$006E - std <$0070 - cmpy <$002E - bne L0EDD - sta <$0039 - ldb >$1000 - stb >$1001 -L0EDD rts -L0EDE pshs y,a + bra L0FD2 +L0FD0 ldb $08,y +L0FD2 std ,x + ldd #$0001 + std <u006E + std <u0070 + rts +L0FDC pshs y,a ldb $09,y - stb <$000E + stb <u000E bitb #$04 - beq L0EEE - ldd <$0061 + beq L0FEC + ldd <u0061 exg a,b - std <$0061 -L0EEE bsr L0F31 - bcs L0EFC + std <u0061 +L0FEC bsr L1031 + bcs L0FFA lda ,s ldb $0B,x mul cmpd $05,x - bcs L0F01 -L0EFC leax <L0F29,pcr - bra L0F05 -L0F01 addd <$00B5 + bcs L1000 +L0FFA leax >L1029,pcr + bra L1005 +L1000 addd #$0020 leax d,x -L0F05 ldb <$0060 +L1005 ldb <u0060 cmpb #$01 - bne L0F1B - ldb <$006F + bne L101B + ldb <u006F cmpb #$08 - bne L0F1B - ldb <$000E + bne L101B + ldb <u000E bitb #$10 - bne L0F1B - bsr L0F5C - bra L0F27 -L0F1B leay >L100B,pcr - sty <$00A9 + bne L101B + bsr L105E + bra L1027 +L101B leay >L110F,pcr + sty <u00A9 ldy $01,s - bsr L0F9A -L0F27 puls pc,y,a -L0F29 neg <$0000 - neg <$0000 - neg <$0000 + bsr L109C +L1027 puls pc,y,a +L1029 neg <u0000 + neg <u0000 + neg <u0000 fcb $10 - neg <$0034 - aim #$D6,<$0060 - bpl L0F3F - ldd <$00B3 - std <$006E - std <$0070 - bra L0F5A -L0F3F ldb $0B,y - bne L0F4D + neg <u0034 + aim #$D6,<u0060 + bpl L1040 + ldd #$0001 + std <u006E + std <u0070 + bra L105C +L1040 ldb $0B,y + bne L104E ldd #$0008 - std <$006E - std <$0070 + std <u006E + std <u0070 comb - bra L0F5A -L0F4D jsr <$00BC + bra L105C +L104E lbsr L0189 ldx $0C,y ldd $07,x - std <$006E + std <u006E ldd $09,x - std <$0070 + std <u0070 clrb -L0F5A puls pc,a -L0F5C ldy -$05,y +L105C puls pc,a +L105E ldy -$05,y exg x,y - lda <$0071 + lda <u0071 deca - sta <$0097 -L0F66 lda ,y+ - ldb <$000E + sta <u0097 +L1068 lda ,y+ + ldb <u000E bitb #$20 - beq L0F71 + beq L1073 lsra ora -$01,y -L0F71 tfr a,b +L1073 tfr a,b coma - tst <$000E - bmi L0F7C + tst <u000E + bmi L107E anda ,x - bra L0F7E -L0F7C anda <$0062 -L0F7E sta ,x - andb <$0061 + bra L1080 +L107E anda <u0062 +L1080 sta ,x + andb <u0061 orb ,x stb ,x - ldb <$0063 + ldb <u0063 abx - dec <$0097 - bmi L0F99 - bne L0F66 - ldb <$000E + dec <u0097 + bmi L109B + bne L1068 + ldb <u000E bitb #$40 - beq L0F66 + beq L1068 lda #$FF - bra L0F71 -L0F99 rts -L0F9A pshs x - leax <L0FFB,pcr - stx <$0010 + bra L1073 +L109B rts +L109C pshs x + leax >L10FF,pcr + stx <u0010 ldx ,s - ldb <$000E + ldb <u000E bitb #$10 - beq L0FD0 - ldb <$0071 + beq L10D4 + ldb <u0071 decb clra -L0FAD ora b,x +L10B0 ora b,x decb - bpl L0FAD + bpl L10B0 tsta - bne L0FB9 - lsr <$006F - bra L0FD0 -L0FB9 ldb #$FF -L0FBB incb + bne L10BC + lsr <u006F + bra L10D4 +L10BC ldb #$FF +L10BE incb lsla - bcc L0FBB - ldx #$504C + bcc L10BE + leax >L1151,pcr ldb b,x leax b,x - stx <$0010 + stx <u0010 ldb #$01 -L0FCA incb +L10CE incb lsla - bcs L0FCA - stb <$006F -L0FD0 puls x + bcs L10CE + stb <u006F +L10D4 puls x ldb -$03,y - stb <$000F + stb <u000F ldy -$05,y exg x,y - lda <$0071 + lda <u0071 deca - sta <$0099 - stx <$000C - lbsr L1E9C - ldx <$000C -L0FE7 lda ,y+ - ldb <$000E + sta <u0099 + stx <u000C + lbsr L1F2B + ldx <u000C +L10EB lda ,y+ + ldb <u000E bitb #$20 - beq L0FF2 + beq L10F6 lsra ora -$01,y -L0FF2 jmp [<$10,u] +L10F6 jmp [<$10,u] lsla lsla lsla lsla lsla lsla -L0FFB sta <$000B -L0FFD lda <$006F - sta <$0097 - ldb <$000F - stx <$000C -L1005 pshs b +L10FF sta <u000B +L1101 lda <u006F + sta <u0097 + ldb <u000F + stx <u000C +L1109 pshs b jmp [>$00A9,u] -L100B lsl <$000B - bcs L1017 - lda <$000E - bpl L102A - lda <$0062 - bra L1019 -L1017 lda <$0061 -L1019 comb +L110F lsl <u000B + bcs L111B +L1113 lda <u000E + bpl L112E + lda <u0062 + bra L111D +L111B lda <u0061 +L111D comb andb ,x stb ,x anda ,s ora ,x sta ,x - bra L102A - eorb ,x + bra L112E +L112A eorb ,x stb ,x -L102A dec <$0097 - beq L1035 +L112E dec <u0097 + beq L1139 puls b - lbsr L1EB9 - bra L1005 -L1035 puls b - ldx <$000C - ldb <$0063 + lbsr L1F4B + bra L1109 +L1139 puls b + ldx <u000C + ldb <u0063 abx - dec <$0099 - bmi L104C - bne L0FE7 - lda <$000E + dec <u0099 + bmi L1150 + bne L10EB + lda <u000E bita #$40 - beq L0FE7 + beq L10EB lda #$FF - bra L0FFB -L104C rts - stx w,y - jsr <L0FFD,pcr - ora >-$5473,y - inc <$0017 - neg <$00A5 - bra L10A5 - bsr L1063 - lbsr L1485 - bra L10A5 -L1063 jsr <$00B9 - lbra L0F31 - bsr L1063 + bra L10FF +L1150 rts +L1151 ldx w,y + jsr <L1101,pcr + ora >-$5756,y + lbsr L0184 + lbsr L1031 + bsr L1164 + bra L11C0 +L1164 cmpa #$01 + lbeq L124B + cmpa #$08 + lbeq L1263 + cmpa #$06 + lbeq L1284 + cmpa #$09 + lbeq L1299 + cmpa #$0A + lbeq L12A4 + cmpa #$0D + lbeq L12B9 + cmpa #$03 + lbeq L13C3 + cmpa #$04 + lbeq L13D0 + cmpa #$0B + lbeq L13FE + cmpa #$0C + lbeq L13E8 + rts + lbsr L0184 + lbsr L1031 + bsr L11AB + bra L11C0 +L11AB cmpa #$20 + lbeq L1511 + cmpa #$21 + lbeq L1509 + rts + lbsr L0184 + lbsr L1031 + bsr L11C3 +L11C0 lbra L1521 +L11C3 cmpa #$20 + lbeq L14B9 + cmpa #$21 + lbeq L14D5 + cmpa #$22 + lbeq L14E1 + cmpa #$23 + lbeq L14EE + cmpa #$24 + lbeq L14FB + cmpa #$25 + lbeq L1502 + cmpa #$30 + lbeq L1302 + cmpa #$31 + lbeq L1336 + rts + lbsr L0184 + lbsr L1031 clra - ldb <$0047 - subd <$00B5 + ldb <u0047 + subd #$0020 tfr d,x - ldb <$006F - lbsr L1E21 - std <$0047 - addd <$006E - subd <$00B3 + ldb <u006F + lbsr L1EA9 + std <u0047 + addd <u006E + subd #$0001 cmpd <$1B,y - bhi L10A5 + bhi L1238 clra - ldb <$0049 - subd <$00B5 + ldb <u0049 + subd #$0020 tfr d,x - ldb <$0071 - lbsr L1E21 - std <$0049 - addd <$0070 - subd <$00B3 + ldb <u0071 + lbsr L1EA9 + std <u0049 + addd <u0070 + subd #$0001 cmpd <$1D,y - bhi L10A5 - ldd <$0047 -L109C std -$02,y - ldd <$0049 + bhi L1238 + ldd <u0047 + std -$02,y + ldd <u0049 std ,y - lbsr L1131 -L10A5 clrb + bsr L123B +L1238 lbra L1521 +L123B ldd -$02,y + std <u0047 + ldd ,y + std <u0049 + lbsr L1ED4 + stx -$05,y + stb -$03,y rts -L10A7 clra +L124B clra clrb - std ,y - lbra L112D -L10AE ldd -$02,y - subd <$006E std -$02,y - lbpl L1139 + std ,y + ldd -$0D,y + std -$05,y + leax >L1F3B,pcr + ldb <u0060 + bmi L1262 + lslb + ldb b,x + stb -$03,y +L1262 rts +L1263 ldd -$02,y + subd <u006E + std -$02,y + bpl L123B ldd <$1B,y - subd <$006E - addd <$00B3 + subd <u006E + addd #$0001 std -$02,y ldd ,y - subd <$0070 + subd <u0070 std ,y - bpl L1139 + bpl L123B clra clrb std -$02,y std ,y rts -L10D0 ldd -$02,y - tfr d,x - addd <$006E +L1284 ldd -$02,y + addd <u006E std -$02,y - addd <$006E - subd <$00B3 + addd <u006E + subd #$0001 cmpd <$1B,y - bls L1139 - lda <$2A,y - bpl L10F0 - stx -$02,y - ora #$01 - sta <$2A,y - bra L1139 -L10F0 bsr L112D - bra L1119 -L10F4 ldd ,y - subd <$0070 - bmi L10FE + bls L123B + bsr L12B9 + bra L12A4 +L1299 ldd ,y + subd <u0070 + bmi L12A3 std ,y - bsr L1139 -L10FE rts - cmpa #$0D - beq L112D - cmpa #$01 - beq L10A7 - cmpa #$08 - beq L10AE - cmpa #$06 - beq L10D0 - cmpa #$09 - beq L10F4 - cmpa #$0A - lbne L1267 -L1119 ldd ,y - addd <$0070 + bsr L123B +L12A3 rts +L12A4 ldd ,y + addd <u0070 tfr d,x - addd <$0070 - subd <$00B3 + addd <u0070 + subd #$0001 cmpd <$1D,y - bhi L1149 + bhi L12C0 stx ,y - bra L1139 -L112D clra + bra L123B +L12B9 clra clrb std -$02,y -L1131 lda <$2A,y - anda #$FE - sta <$2A,y -L1139 ldd -$02,y - std <$0047 + lbra L123B +L12C0 pshs y + ldb $02,y + lbsr L13AE + std <u0097 + clra + ldb <u0063 + std <u0099 ldd ,y - std <$0049 - lbsr L1E48 - stx -$05,y - stb -$03,y - rts -L1149 pshs y - ldb $02,y - lbsr L1252 - std <$0097 - clra - ldb <$0063 - std <$0099 - ldd ,y - std <$009D + std <u009D lda -$08,y deca - sta <$009B - beq L1184 + sta <u009B + beq L12FB ldx -$0D,y ldd $04,y tfr x,y leax d,x - tst <$0060 - bmi L1175 - lda <$009B + tst <u0060 + bmi L12EC + lda <u009B lsla lsla lsla - sta <$009B -L1175 ldd <$0097 - lbsr L121F - ldd <$0099 + sta <u009B +L12EC ldd <u0097 + lbsr L137B + ldd <u0099 leax d,x leay d,y - dec <$009B - bne L1175 -L1184 puls y - ldd <$009D -L1188 lbra L127A -L118B lda #$80 - ora <$2A,y - bra L1197 -L1192 lda #$7E - anda <$2A,y -L1197 sta <$2A,y - clrb - rts -L119C cmpa #$26 - beq L118B - cmpa #$27 - beq L1192 - cmpa #$30 - beq L11AD - cmpa #$31 - beq L11E1 - rts -L11AD pshs y + dec <u009B + bne L12EC +L12FB puls y + ldd <u009D +L12FF lbra L13C5 +L1302 pshs y ldd ,y - std <$009D + std <u009D ldb $02,y - lbsr L1252 - std <$0097 + lbsr L13AE + std <u0097 clra - ldb <$0063 + ldb <u0063 nega negb sbca #$00 - std <$0099 + std <u0099 ldb -$08,y decb - lda <$0071 + lda <u0071 mul tfr b,a deca subb $01,y - cmpb <$0071 - bcs L1184 - stb <$009B - ldb <$0063 + cmpb <u0071 + bcs L12FB + stb <u009B + ldb <u0063 mul addd -$0D,y tfr d,x addd $04,y tfr d,y - bra L1175 -L11E1 pshs y + bra L12EC +L1336 pshs y ldb $02,y - bsr L1252 - std <$0097 + bsr L13AE + std <u0097 clra - ldb <$0063 - std <$0099 + ldb <u0063 + std <u0099 lda -$08,y deca - tst <$0060 - bmi L11F8 + tst <u0060 + bmi L134D lsla lsla lsla -L11F8 suba $01,y - bhi L1202 +L134D suba $01,y + bhi L1357 puls y ldd ,y - bra L1188 -L1202 sta <$009B + bra L12FF +L1357 sta <u009B ldd <$1D,y - subd <$0070 - addd <$00B3 - std <$009D - lda <$0063 + subd <u0070 + addd #$0001 + std <u009D + lda <u0063 ldb $01,y mul addd -$0D,y @@ -2289,343 +2372,304 @@ ldd $04,y tfr x,y leax d,x - lbra L1175 -L121F pshs u,y,x,dp,cc - pshs a + lbra L12EC + pshs u,y,x,dp,cc + bsr L13AE + bra L137D +L137B pshs u,y,x,dp,cc +L137D pshs a tstb - beq L122D -L1226 lda ,x+ + beq L1389 +L1382 lda ,x+ sta ,y+ decb - bne L1226 -L122D puls b + bne L1382 +L1389 puls b tstb - beq L1250 + beq L13AC orcc #$50 stb >$1006 sts >$1003 tfr x,u tfr y,s leas $07,s -L1241 pulu y,x,dp,b,a +L139D pulu y,x,dp,b,a pshs y,x,dp,b,a leas $0E,s dec >$1006 - bne L1241 + bne L139D lds >$1003 -L1250 puls pc,u,y,x,dp,cc -L1252 tfr b,a +L13AC puls pc,u,y,x,dp,cc +L13AE tfr b,a lsra lsra lsra andb #$07 pshs a addb ,s+ -L125D cmpb #$07 - blt L1266 +L13B9 cmpb #$07 + blt L13C2 subb #$07 inca - bra L125D -L1266 rts -L1267 cmpa #$03 - beq L1278 - cmpa #$04 - beq L1285 - cmpa #$0B - beq L12B4 - cmpa #$0C - beq L129C - rts -L1278 ldd ,y -L127A std <$0049 + bra L13B9 +L13C2 rts +L13C3 ldd ,y +L13C5 std <u0049 clra clrb - std <$0047 + std <u0047 ldd <$1B,y - bra L1292 -L1285 ldd -$02,y - std <$0047 + bra L13DD +L13D0 ldd -$02,y + std <u0047 ldd ,y - std <$0049 + std <u0049 ldd <$1B,y subd -$02,y -L1292 addd <$00B3 - std <$004F - ldd <$0070 - std <$0051 - bra L12C8 -L129C lbsr L10A7 +L13DD addd #$0001 + std <u004F + ldd <u0070 + std <u0051 + bra L1420 +L13E8 lbsr L124B + clra + clrb + std <u0047 + std <u0049 + ldd <$1B,y + addd #$0001 + std <u004F + ldd <$1D,y + bra L1419 +L13FE bsr L13D0 clra clrb - std <$0047 - bsr L12A7 - bra L12C4 -L12A7 std <$0049 + std <u0047 + ldd ,y + addd <u0070 + std <u0049 ldd <$1B,y - addd <$00B3 - std <$004F + addd #$0001 + std <u004F ldd <$1D,y - rts -L12B4 bsr L1285 - clra - clrb - std <$0047 - ldd ,y - addd <$0070 - bsr L12A7 - subd <$0049 - bmi L12CE -L12C4 addd <$00B3 - std <$0051 -L12C8 ldb <$0060 - bmi L12CF - bsr L12FA -L12CE rts -L12CF pshs y - lbsr L1E48 + subd <u0049 + ble L142A +L1419 addd #$0001 + std <u0051 + bra L1420 +L1420 ldb <u0060 + bpl L1428 + bsr L142B + bra L142A +L1428 bsr L1456 +L142A rts +L142B pshs y + lbsr L1ED4 lda #$20 ldb $08,y andb #$38 - orb <$0062 - std <$0097 - ldb <$0063 - subb <$0050 - subb <$0050 - stb <$0099 -L12E6 ldy <$004F - ldd <$0097 -L12EB std ,x++ + orb <u0062 + std <u0097 + ldb <u0063 + subb <u0050 + subb <u0050 + stb <u0099 +L1442 ldy <u004F + ldd <u0097 +L1447 std ,x++ leay -$01,y - bne L12EB - ldb <$0099 + bne L1447 + ldb <u0099 abx - dec <$0052 - bne L12E6 + dec <u0052 + bne L1442 puls pc,y -L12FA ldb <$0060 - ldx #$4C78 - lda <$0048 +L1456 ldb <u0060 + leax >L0DB6,pcr + lda <u0048 coma anda b,x inca - sta <$0097 - ldx #$4C7C + sta <u0097 + leax >L0DBB,pcr ldb b,x abx - lsla lda a,x - sta <$0012 + sta <u0012 clra - ldb <$0060 + ldb <u0060 tfr d,x - ldd <$004F - subb <$0097 + ldd <u004F + subb <u0097 sbca #$00 lsra rorb cmpx #$0004 - beq L132C + beq L148A lsra rorb - cmpx <$00B3 - bne L132C + cmpx #$0001 + bne L148A lsra rorb -L132C stb <$0097 - ldb <$0063 - subb <$0097 +L148A stb <u0097 + ldb <u0063 + subb <u0097 subb #$01 - stb <$0099 - lbsr L1E48 - lda <$0012 - inca - beq L1360 -L133E lda <$0012 + stb <u0099 + lbsr L1ED4 +L1497 lda <u0012 tfr a,b coma anda ,x sta ,x - andb <$0062 + andb <u0062 orb ,x stb ,x+ - lda <$0097 - beq L1358 - ldb <$0062 -L1353 stb ,x+ + lda <u0097 + beq L14B1 + ldb <u0062 +L14AC stb ,x+ deca - bne L1353 -L1358 ldb <$0099 + bne L14AC +L14B1 ldb <u0099 abx - dec <$0052 - bne L133E + dec <u0052 + bne L1497 rts -L1360 pshs u - lda <$0062 - tfr a,b - tfr d,u - ldb <$0097 - incb - clr <$0097 - lsrb - stb <$0012 - bcc L1374 - inc <$0097 -L1374 ldb <$0097 - beq L137A - sta ,x+ -L137A ldb <$0012 - beq L1383 -L137E stu ,x++ - decb - bne L137E -L1383 ldb <$0099 - abx - dec <$0052 - bne L1374 - puls pc,u - lbsr L1063 - bsr L1393 - clrb - rts -L1393 cmpa #$21 - beq L13C9 - cmpa #$22 - beq L13D3 - cmpa #$23 - beq L13DB - cmpa #$24 - beq L13E4 - cmpa #$25 - beq L13EA - cmpa #$20 - lbne L119C - ldb $09,y +L14B9 ldb $09,y bitb #$04 - bne L13C8 + bne L14D4 orb #$04 -L13B5 stb $09,y - lda $08,y - lbsr L14B4 + stb $09,y +L14C3 lda $08,y + lbsr L15CC pshs b,a ldb $08,y andb #$C0 orb ,s+ orb ,s+ stb $08,y -L13C8 rts -L13C9 ldb $09,y +L14D4 rts +L14D5 ldb $09,y bitb #$04 - beq L13C8 + beq L14D4 andb #$FB - bra L13B5 -L13D3 ldd $08,y - ora #$40 + stb $09,y + bra L14C3 +L14E1 ldb $08,y + orb #$40 + stb $08,y + ldb $09,y orb #$40 - bra L13E1 -L13DB ldd $08,y - anda #$BF + stb $09,y + rts +L14EE ldb $08,y andb #$BF -L13E1 std $08,y + stb $08,y + ldb $09,y + andb #$BF + stb $09,y rts -L13E4 ldb $08,y +L14FB ldb $08,y orb #$80 - bra L13EE -L13EA ldb $08,y + stb $08,y + rts +L1502 ldb $08,y andb #$7F -L13EE stb $08,y + stb $08,y rts - lbsr L0107 - bsr L1454 - lbsr L14C1 -L13F9 clrb - rts -L13FB pshs y,x,b,a - bsr L146D - lbsr L14E3 +L1509 ldb $09,y + andb #$FD + stb $09,y + bra L157C +L1511 ldb $09,y + orb #$02 + stb $09,y + bra L1593 + lbsr L0130 + bsr L157C + lbsr L15D9 +L1521 clrb + lbra L011D +L1525 pshs y,x,b,a + bsr L1593 + lbsr L15FC ldb >$1000 stb >$1001 puls pc,y,x,b,a - lbsr L0107 - cmpy <$002E - bne L1428 - ldd <$005B - cmpd <$003D - bne L1420 - ldd <$005D - cmpd <$003F - beq L1428 -L1420 lbsr L14E3 - bsr L142A - lbsr L14C1 -L1428 bra L13F9 -L142A ldd <$0047 + lbsr L0130 + cmpy <u002E + bne L1552 + ldd <u005B + cmpd <u003D + bne L154A + ldd <u005D + cmpd <u003F + beq L1552 +L154A lbsr L15FC + bsr L1554 + lbsr L15D9 +L1552 bra L1521 +L1554 ldd <u0047 pshs b,a - ldd <$0049 + ldd <u0049 pshs b,a - ldd <$005B - std <$0047 - std <$003D - ldd <$005D - std <$0049 - std <$003F + ldd <u005B + std <u0047 + std <u003D + ldd <u005D + std <u0049 + std <u003F ldx -$10,y ldd $02,x - lbsr L1E4A - stx <$0041 - stb <$0043 + lbsr L1ED6 + stx <u0041 + stb <u0043 puls b,a - std <$0049 + std <u0049 puls b,a - std <$0047 + std <u0047 rts -L1452 bsr L147E -L1454 lbsr L0F31 - cmpy <$002E - bne L146A +L157C lbsr L1031 + cmpy <u002E + bne L1592 ldb $09,y bitb #$02 - bne L146A - ldb <$0039 - bne L146A - bsr L148E - inc <$0039 -L146A rts -L146B bsr L147E -L146D lbsr L0F31 - cmpy <$002E - bne L147D - ldb <$0039 - beq L147D - bsr L148E - clr <$0039 -L147D rts -L147E eora #$21 - ldb #$02 - lbra L034E -L1485 cmpa #$20 - beq L146B - cmpa #$21 - beq L1452 - rts -L148E pshs y + bne L1592 + ldb <u0039 + bne L1592 + bsr L15A4 + inc <u0039 +L1592 rts +L1593 lbsr L1031 + cmpy <u002E + bne L15A3 + ldb <u0039 + beq L15A3 + bsr L15A4 + clr <u0039 +L15A3 rts +L15A4 pshs y ldx -$05,y - ldb <$0060 - bpl L14A8 + ldb <u0060 + bpl L15BE lda $01,x - bsr L14B4 + bsr L15CC pshs b,a ldb $01,x andb #$C0 orb ,s+ orb ,s+ stb $01,x - bra L14B2 -L14A8 ldx #$5026 - stx <$00A9 - clr <$000E - lbsr L0F9A -L14B2 puls pc,y -L14B4 tfr a,b + bra L15CA +L15BE leax >L112A,pcr + stx <u00A9 + clrb + stb <u000E + lbsr L109C +L15CA puls pc,y +L15CC tfr a,b anda #$38 lsra lsra @@ -2635,684 +2679,579 @@ lslb lslb rts -L14C1 pshs y,x +L15D9 pshs y,x ldx -$10,y - cmpx <$0030 - bne L14E1 - ldb <$003A - bne L14E1 + cmpx <u0030 + bne L15FA + ldb <u003A + bne L15FA ldb <$18,y - stb <$0044 - beq L14E1 - jsr <$00BC + stb <u0044 + beq L15FA + lbsr L0189 ldy <$19,y - sty <$0045 - bsr L14FE - inc <$003A -L14E1 puls pc,y,x -L14E3 pshs y,x + sty <u0045 + bsr L1618 + inc <u003A +L15FA puls pc,y,x +L15FC pshs y,x ldx -$10,y - cmpx <$0030 - bne L14FC - ldb <$003A - beq L14FC - ldb <$0044 - beq L14E1 - jsr <$00BC - ldy <$0045 - bsr L14FE - clr <$003A -L14FC puls pc,y,x -L14FE ldb <$0060 - bmi L1535 - lda <$004A - ldx <$0047 - pshs x,a - ldd <$004F - ldx <$0051 + cmpx <u0030 + bne L1616 + ldb <u003A + beq L1616 + ldb <u0044 + beq L15FA + lbsr L0189 + ldy <u0045 + bsr L1618 + clr <u003A +L1616 puls pc,y,x +L1618 ldb <u0060 + bmi L164E + ldd <u004F + ldx <u0051 pshs x,b,a - ldd <$0064 - pshs b,a - ldd <$0041 - std <$0072 - ldb <$0043 - stb <$0074 - ldx #$5FA5 - stx <$0064 - lbsr L0D10 - lbsr L0D88 - puls b,a - std <$0064 + ldd <u0064 + ldx <u0068 + pshs x,b,a + ldd <u0041 + std <u0072 + ldb <u0043 + stb <u0074 + leax >L1FDE,pcr + stx <u0064 + leax >L1FE3,pcr + stx <u0068 + lbsr L0E3C + lbsr L0EC4 + puls x,b,a + std <u0064 + stx <u0068 puls x,b,a - std <$004F - stx <$0051 - puls x,a - sta <$004A - stx <$0047 -L1535 rts - clr <$0047 - clr <$0049 - ldd -$05,y - subd -$0D,y -L153E cmpd $04,y - bcs L1549 - subd $04,y - inc <$0049 - bra L153E -L1549 lda [<-$10,y] - cmpa #$01 - beq L1556 - lsrb - cmpa #$04 - bne L1556 - lsrb -L1556 stb <$0048 - rts -L1559 tst ,y - bpl L1562 -L155D comb - ldb #$C0 - puls pc,x -L1562 lbsr L1DA2 - bcc L1569 - puls pc,x -L1569 jsr <$00B9 - lbra L1F65 - rts - bsr L1559 - lbsr L1E48 - lda <$0061 - lbsr L1F06 - bra L159B - bsr L1559 - lbsr L1DA9 - bcs L159C - ldd <$0049 - cmpd <$004D - bne L158D - bsr L159D - bra L159B -L158D ldd <$0047 - cmpd <$004B - bne L1598 - bsr L1607 - bra L159B -L1598 lbsr L1637 -L159B clrb -L159C rts -L159D bsr L15B6 -L159F ldd <$004B - subd <$0047 - addd <$00B3 - std <$0099 - bsr L15B0 - lda <$0061 - ldy <$0099 - bra L15C8 -L15B0 lbsr L1E9C - lbra L1E48 -L15B6 ldd <$004B - cmpd <$0047 - bge L15C3 -L15BD ldx <$0047 - std <$0047 - stx <$004B -L15C3 rts - lsl <$0004 - lsr <$0002 -L15C8 pshs u,y,x,b,a - sta $06,s - leax <L15C3,pcr - ldb <$0060 + std <u004F + stx <u0051 +L164E rts + lbsr L1E29 + bcs L16A1 + ldb $0E,y + beq L165B + lbsr L0189 +L165B lbsr L0184 + ldb <u0060 + lbmi L05A2 + lbsr L1ED4 + lda <u0061 + lbsr L1F9B + bra L16A0 + lbsr L0184 + ldb <u0060 + lbmi L05A2 + ldb $0E,y + beq L167E + lbsr L0189 +L167E lbsr L1E29 + bcs L16A1 + lbsr L1E30 + bcs L16A1 + ldd <u0049 + cmpd <u004D + bne L1693 + bsr L16A4 + bra L16A0 +L1693 ldd <u0047 + cmpd <u004B + bne L169E + bsr L16EC + bra L16A0 +L169E bsr L171C +L16A0 clrb +L16A1 lbra L011D +L16A4 bsr L16BC +L16A6 ldd <u004B + subd <u0047 + addd #$0001 + std <u0099 + lbsr L1F2B + lbsr L1ED4 + lda <u0061 + ldy <u0099 + bra L16CA +L16BC ldd <u004B + cmpd <u0047 + bge L16C9 +L16C3 ldx <u0047 + std <u0047 + stx <u004B +L16C9 rts +L16CA leas -$02,s + pshs x,b,a + leax >L16E7,pcr + ldb <u0060 clra ldb b,x std $04,s puls x,b,a - bra L15DC -L15DA ldb <$0079 -L15DC lbsr L1F06 +L16DB lbsr L1F9B + lbsr L1F45 leay -$01,y - beq L1605 - lbsr L1EB3 - bpl L15DC -L15E8 cmpy ,s - bcs L15DA - ldb #$FF - lbsr L1F06 - ldb $01,s - negb - leay b,y - beq L1605 - leax $01,x - ldd ,s - addd <$0047 - std <$0047 - lda $02,s - bra L15E8 -L1605 puls pc,x,b,a -L1607 bsr L1629 -L1609 ldd <$004D - subb <$004A + bne L16DB + puls pc,b,a +L16E7 neg <u0008 + lsr <u0004 + aim #$8D,<u0020 +L16EE ldd <u004D + subb <u004A incb - std <$0099 - lbsr L1E48 - stb <$0097 - lda <$0061 - ldy <$0099 -L161A ldb <$0097 - lbsr L1F06 - ldb <$0063 + std <u0099 + lbsr L1ED4 + stb <u0097 + lda <u0061 + ldy <u0099 +L16FF ldb <u0097 + lbsr L1F9B + ldb <u0063 abx - inc <$004A + inc <u004A leay -$01,y - bne L161A + bne L16FF rts -L1629 ldd <$004D - cmpd <$0049 - bge L1636 -L1630 ldx <$0049 - std <$0049 - stx <$004D -L1636 rts -L1637 ldd <$004B - cmpd <$0047 - bge L1647 - lbsr L15BD - ldd <$004D - bsr L1630 - ldd <$004B -L1647 subd <$0047 - std <$0013 - ldb <$0063 +L170E ldd <u004D + cmpd <u0049 + bge L171B +L1715 ldx <u0049 + std <u0049 + stx <u004D +L171B rts +L171C ldd <u004B + cmpd <u0047 + bge L172B + bsr L16C3 + ldd <u004D + bsr L1715 + ldd <u004B +L172B subd <u0047 + std <u0013 + ldb <u0063 clra - std <$0017 - ldd <$004D - subd <$0049 - std <$0015 - bpl L1666 + std <u0017 + ldd <u004D + subd <u0049 + std <u0015 + bpl L174A nega negb sbca #$00 - std <$0015 - ldd <$0017 + std <u0015 + ldd <u0017 nega negb sbca #$00 - std <$0017 -L1666 clra - clrb - std <$0075 - lbsr L15B0 - stb <$0074 -L166F ldb <$0074 - lda <$0061 - lbsr L1F06 - ldd <$0075 - bpl L168C - addd <$0013 - std <$0075 - ldd <$0017 + std <u0017 +L174A ldd #$0000 + std <u0075 + lbsr L1F2B + lbsr L1ED4 + stb <u0074 +L1757 ldb <u0074 + lda <u0061 + lbsr L1F9B + ldd <u0075 + bpl L1774 + addd <u0013 + std <u0075 + ldd <u0017 leax d,x - bmi L1688 - inc <$004A - bra L1697 -L1688 dec <$004A - bra L1697 -L168C subd <$0015 - std <$0075 - ldb <$0074 - lbsr L1EB3 - stb <$0074 -L1697 ldd <$0047 - cmpd <$004B - ble L166F + bmi L1770 + inc <u004A + bra L177F +L1770 dec <u004A + bra L177F +L1774 subd <u0015 + std <u0075 + ldb <u0074 + lbsr L1F45 + stb <u0074 +L177F ldd <u0047 + cmpd <u004B + ble L1757 rts + lbsr L0184 + ldb <u0060 + lbmi L05A2 + ldb $0E,y + beq L1797 + lbsr L0189 +L1797 lbsr L1E29 + bcs L17F0 + lbsr L1E30 + bcs L17F0 + lbsr L16BC + lbsr L170E + leas -$0A,s + sty ,s + ldd <u0047 + std $02,s + ldd <u0049 + std $04,s + ldd <u004B + std $06,s + ldd <u004D + std $08,s + lbsr L16A6 + ldd $02,s + std <u0047 + ldd $08,s + std <u004D + ldy ,s + lbsr L16EE + ldd $06,s + std <u0047 + ldd $04,s + std <u0049 + ldy ,s + lbsr L16EE + ldd $02,s + std <u0047 + ldd $06,s + std <u004B + ldd $08,s + std <u0049 + ldy ,s + lbsr L16A6 + leas $0A,s + clrb +L17F0 bra L184A + lbsr L0184 + ldb <u0060 + lbmi L05A2 + ldb $0E,y + beq L1802 + lbsr L0189 +L1802 lbsr L1E29 + bcs L184A + lbsr L1E30 + bcs L184A + lbsr L16BC + lbsr L170E + ldd <u004B + std <u0099 + ldd <u004B + subd <u0047 + addd #$0001 + std <u009B + lbsr L1F2B + lbsr L1ED4 + lda <u0061 + std <u009D + ldd <u004D + subb <u004A + incb + tfr d,y +L1830 pshs y,x + ldy <u009B + ldd <u009D + lbsr L16CA + puls y,x + ldb <u0063 + abx + inc <u004A + ldd <u0099 + std <u0047 + leay -$01,y + bne L1830 + clrb +L184A lbra L011D + lbsr L0184 + ldb <u0060 + lbmi L05A2 + ldd <u0053 + lsra + rorb + std <u0055 + bra L18BB + lbsr L0184 + ldb <u0060 + lbmi L05A2 + lbsr L1E38 + bcs L184A + lbsr L1E57 + bcs L184A + ldd <u0020 + cmpd <u0024 + bne L1889 + leax >L1ABF,pcr + ldd <u0022 + cmpd <u0026 + blt L18AE + leax >L1AC6,pcr + bra L18AE +L1889 ldx <u0022 + cmpx <u0026 + bne L189E + leax >L1ACD,pcr + cmpd <u0024 + blt L18AE + leax >L1AD3,pcr + bra L18AE +L189E leax >L1AD9,pcr + ldd <u0020 + subd <u0024 + std <u0097 + ldd <u0022 + subd <u0026 + std <u0099 +L18AE stx <u00A1 + bra L18C1 + lbsr L0184 + ldb <u0060 + lbmi L05A2 +L18BB leax >L1ADD,pcr + stx <u00A1 +L18C1 ldb $0E,y + beq L18C8 + lbsr L0189 +L18C8 lbsr L1E29 + lbcs L1A97 + lbsr L1E5B + lbcs L1A97 + ldd <u0047 + std <u0018 + ldd <u0049 + std <u001A clra clrb - std <$0053 - std <$0055 - lbsr L1559 - lbsr L1DA9 - bcc L16AE - rts -L16AE lbsr L15B6 - lbsr L1629 - lbsr L1DD4 - leas <-$1A,s - sty ,s - ldd <$0053 - std $0A,s - ldd <$0055 - std $0C,s - ldd <$0047 - std $02,s - addd <$0053 - std $0E,s - std <$0047 - ldd <$0049 - std $04,s - addd <$0055 - std <$12,s - ldd <$004B - std $06,s - subd <$0053 - std <$10,s - std <$004B - ldd <$004D - std $08,s - subd <$0055 - std <$14,s - lbsr L159F - ldd $0E,s - std <$0047 - ldd $08,s - std <$0049 - ldy ,s - lbsr L159F - ldd $02,s - std <$0047 - ldd <$12,s - std <$0049 - ldd <$14,s - std <$004D - ldy ,s - lbsr L1609 - ldd <$12,s - std <$0049 - ldd $06,s - std <$0047 - ldy ,s - lbsr L1609 - ldb <$0054 - beq L1786 - lda #$FF - sta <$00AD - negb - std <$16,s - ldb <$0056 - negb - std <$18,s - bsr L1791 - ldd $0E,s - std <$0047 - ldd <$12,s - std <$0049 - ldd <$16,s - std <$0020 - ldd <$18,s - std <$0026 - bsr L178C - ldd <$10,s - std <$0047 - ldd <$12,s - std <$0049 - ldd <$18,s - std <$0022 - ldd <$0053 - std <$0024 - bsr L178C - ldd $0E,s - std <$0047 - ldd <$14,s - std <$0049 - ldd <$0055 - std <$0022 - ldd <$16,s - std <$0024 - bsr L178C - ldd <$10,s - std <$0047 - ldd <$14,s - std <$0049 - ldd <$0053 - std <$0020 - ldd <$0055 - std <$0026 - bsr L178C -L1786 leas <$1A,s - clr <$00AD - rts -L178C ldy $02,s - bsr L1807 -L1791 clra - clrb - std <$0020 - std <$0022 - std <$0024 - std <$0026 - ldd $0C,s - std <$0053 - ldd $0E,s - std <$0055 - rts - lbsr L1559 - lbsr L1DA9 - bcs L17E6 - lbsr L15B6 - lbsr L1629 - ldd <$0047 - std <$0099 - ldd <$004B - subd <$0047 - addd <$00B3 - std <$009B - lbsr L15B0 - lda <$0061 - std <$009D - ldd <$004D - subb <$004A - incb - tfr d,y -L17CC pshs y,x - ldy <$009B - ldd <$009D - lbsr L15C8 - puls y,x - ldb <$0063 - abx - inc <$004A - ldd <$0099 - std <$0047 - leay -$01,y - bne L17CC - clrb -L17E6 rts - ldx #$5BDB - bra L17EF - ldx #$5A13 -L17EF stx <$002C - bsr L1822 - ldd <$0053 - lsra - rorb - std <$0055 - bra L1863 - bsr L1822 - lbsr L1DB1 - bcs L17E6 - lbsr L1DD0 - bcs L17E6 -L1807 ldx #$5A13 - stx <$002C - ldd <$0020 - cmpd <$0024 - bne L182B - ldx #$5A34 - ldd <$0022 - cmpd <$0026 - blt L184D - ldx #$5A39 - bra L184D -L1822 jsr <$00B9 - ldb <$0060 - lbmi L155D -L182A rts -L182B ldx <$0022 - cmpx <$0026 - bne L183E - ldx #$5A3E - cmpd <$0024 - blt L184D - ldx #$5A44 - bra L184D -L183E ldx #$5A4A - ldd <$0020 - subd <$0024 - std <$0097 - ldd <$0022 - subd <$0026 - std <$0099 -L184D stx <$00A1 - bra L1868 -L1851 lbsr L1ACE - lbra L1B69 - ldx #$5BDB - bra L185F - ldx #$5A13 -L185F stx <$002C - bsr L1822 -L1863 ldx #$5A4E - stx <$00A1 -L1868 lbsr L1F65 - tst <$00AD - bne L1879 - lbsr L1DA2 - bcs L182A - lbsr L1DD4 - bcs L182A -L1879 ldd <$0047 - std <$0018 - ldd <$0049 - std <$001A - clra - clrb - std <$001C - ldd <$0055 - std <$001E + std <u001C + ldd <u0055 + std <u001E leas <-$3E,s sty <$3C,s leax $05,s - ldd <$0053 - lbsr L1AC5 - lbsr L1B2E + ldd <u0053 + lbsr L1B54 + lbsr L1BC4 tfr x,y leax <$14,s - ldd <$0055 - lbsr L1B3E + ldd <u0055 + lbsr L1BD4 leax $0A,s - bsr L1851 + lbsr L1B5D + lbsr L1C03 tfr x,y leax $0F,s - bsr L1851 + lbsr L1B5D + lbsr L1C03 leax <$19,s - ldd <$0055 - lbsr L1AC5 - lbsr L1B2E + ldd <u0055 + lbsr L1B54 + lbsr L1BC4 tfr x,y leax <$1E,s - bsr L1851 + lbsr L1B5D + lbsr L1C03 tfr x,y leax <$23,s - bsr L1851 + lbsr L1B5D + lbsr L1C03 leax <$28,s clra clrb - lbsr L1AC5 + lbsr L1B54 leax <$2D,s - ldd <$001E - lbsr L1AC5 - subd <$00B3 - lbsr L1B2E + ldd <u001E + lbsr L1B54 + subd #$0001 + lbsr L1BC4 leay $0A,s - lbsr L1B40 + lbsr L1BD9 leay $05,s - bsr L1960 + lbsr L1B9D leax ,s - bsr L1963 - ldd <$00B3 - lbsr L1AF0 + lbsr L1B5D + lbsr L1C37 + ldd #$0001 + lbsr L1B86 leay <$1E,s - lbsr L1B40 + lbsr L1BD9 tfr x,y leax <$2D,s - bsr L1960 + lbsr L1B9D leax <$32,s leay $0F,s - bsr L1963 - ldd <$001E - bsr L195D + lbsr L1B5D + lbsr L1C37 + ldd <u001E + lbsr L1BC4 leax <$37,s leay <$1E,s - lbsr L1ACE -L190F leax <$14,s + lbsr L1B5D +L1989 leax <$14,s leay <$28,s - lbsr L1BBA - ble L1969 - lbsr L1A0C + lbsr L1C54 + ble L19DE + lbsr L1A9A tst <$2D,s - bmi L193E + bmi L19BB leax <$32,s leay $0F,s - bsr L1960 + lbsr L1B9D tfr x,y leax <$2D,s - bsr L1960 + lbsr L1B9D leax <$14,s leay $05,s - lbsr L1B1F - ldd <$001E - subd <$00B3 - std <$001E -L193E leax <$37,s + lbsr L1BB5 + ldd <u001E + subd #$0001 + std <u001E +L19BB leax <$37,s leay <$23,s - bsr L1960 + lbsr L1B9D tfr x,y leax <$2D,s - bsr L1960 + lbsr L1B9D leax <$28,s leay <$19,s - bsr L1960 - ldd <$001C - addd <$00B3 - std <$001C - bra L190F -L195D lbra L1B2E -L1960 lbra L1B07 -L1963 lbsr L1ACE - lbra L1B9D -L1969 leax <$2D,s - ldd <$001C - lbsr L1AC5 - addd <$00B3 - bsr L195D + lbsr L1B9D + ldd <u001C + addd #$0001 + std <u001C + bra L1989 +L19DE leax <$2D,s + ldd <u001C + lbsr L1B54 + addd #$0001 + lbsr L1BC4 leay <$1E,s - lbsr L1B40 + lbsr L1BD9 leax ,s - ldd <$001E - lbsr L1AC5 + ldd <u001E + lbsr L1B54 subd #$0002 - bsr L195D - ldd <$00B3 - lbsr L1AF0 + lbsr L1BC4 + ldd #$0001 + lbsr L1B86 leay $0A,s - lbsr L1B40 + lbsr L1BD9 tfr x,y leax <$2D,s - bsr L1960 + lbsr L1B9D leax ,s leay $0A,s - bsr L1963 - ldd <$00B3 - lbsr L1AF0 + lbsr L1B5D + lbsr L1C37 + ldd #$0001 + lbsr L1B86 leay <$19,s - lbsr L1B40 + lbsr L1BD9 tfr x,y leax <$2D,s - bsr L1960 + lbsr L1B9D leax <$32,s leay <$23,s - lbsr L1ACE - ldd <$001C - bsr L195D + lbsr L1B5D + ldd <u001C + lbsr L1BC4 leax <$37,s leay $0F,s - bsr L1963 - ldd <$001E - bsr L195D + lbsr L1B5D + lbsr L1C37 + ldd <u001E + lbsr L1BC4 leay $0A,s - bsr L1960 -L19CC ldd <$001E - addd <$00B3 - beq L1A07 - bsr L1A0C + lbsr L1B9D +L1A53 ldd <u001E + cmpd #$FFFF + beq L1A93 + bsr L1A9A tst <$2D,s - bpl L19EE + bpl L1A7A leax <$32,s leay <$23,s - bsr L1A04 + lbsr L1B9D tfr x,y leax <$2D,s - bsr L1A04 - ldd <$001C - addd <$00B3 - std <$001C -L19EE leax <$37,s + lbsr L1B9D + ldd <u001C + addd #$0001 + std <u001C +L1A7A leax <$37,s leay $0F,s - bsr L1A04 + lbsr L1B9D tfr x,y leax <$2D,s - bsr L1A04 - ldd <$001E - subd <$00B3 - std <$001E - bra L19CC -L1A04 lbra L1B07 -L1A07 leas <$3E,s + lbsr L1B9D + ldd <u001E + subd #$0001 + std <u001E + bra L1A53 +L1A93 leas <$3E,s clrb - rts -L1A0C ldy <$3E,s - jmp [<$2C,u] - ldd <$001C - ldx <$001E - bsr L1A2E +L1A97 lbra L011D +L1A9A ldy <$3E,s + ldd <u001C + ldx <u001E + bsr L1AB9 nega negb sbca #$00 - bsr L1A2E + bsr L1AB9 exg d,x nega negb sbca #$00 exg d,x - bsr L1A2E - ldd <$001C - bsr L1A2E + bsr L1AB9 + ldd <u001C + bsr L1AB9 rts -L1A2E pshs x,b,a +L1AB9 pshs x,b,a jmp [>$00A1,u] - cmpd <$0020 - bra L1A46 - cmpd <$0020 - bra L1A40 - cmpx <$0022 -L1A40 ble L1A4E - bra L1A70 - cmpx <$0022 -L1A46 bge L1A4E - bra L1A70 - bsr L1A72 - bgt L1A70 -L1A4E addd <$0018 - bmi L1A70 +L1ABF cmpd <u0020 + bge L1ADD + bra L1AFF +L1AC6 cmpd <u0020 + ble L1ADD + bra L1AFF +L1ACD cmpx <u0022 + ble L1ADD + bra L1AFF +L1AD3 cmpx <u0022 + bge L1ADD + bra L1AFF +L1AD9 bsr L1B01 + bgt L1AFF +L1ADD addd <u0018 + bmi L1AFF cmpd <$1B,y - bhi L1A70 - std <$0047 + bhi L1AFF + std <u0047 tfr x,d - addd <$001A - bmi L1A70 + addd <u001A + bmi L1AFF cmpd <$1D,y - bhi L1A70 - std <$0049 - lbsr L1E48 - lda <$0061 - lbsr L1F06 -L1A70 puls pc,x,b,a -L1A72 pshs x,b,a + bhi L1AFF + std <u0049 + lbsr L1ED4 + lda <u0061 + lbsr L1F9B +L1AFF puls pc,x,b,a +L1B01 pshs x,b,a tfr x,d - subd <$0026 - ldx <$0097 - bsr L1A90 + subd <u0026 + ldx <u0097 + bsr L1B1F pshs x,b ldd $03,s - subd <$0024 - ldx <$0099 - bsr L1A90 + subd <u0024 + ldx <u0099 + bsr L1B1F cmpb ,s - bne L1A8C + bne L1B1B cmpx $01,s -L1A8C leas $03,s +L1B1B leas $03,s puls pc,x,b,a -L1A90 pshs x,b,a +L1B1F pshs x,b,a lda $03,s mul pshs b,a @@ -3332,21 +3271,21 @@ addb ,s ldx $01,s tst $03,s - bpl L1ABA + bpl L1B49 neg $06,s addb $06,s -L1ABA tst $05,s - bpl L1AC2 +L1B49 tst $05,s + bpl L1B51 neg $04,s addb $04,s -L1AC2 leas $07,s +L1B51 leas $07,s rts -L1AC5 clr ,x +L1B54 clr ,x clr $01,x clr $02,x std $03,x rts -L1ACE pshs b,a +L1B5D pshs b,a ldd ,y std ,x ldd $02,y @@ -3354,17 +3293,21 @@ ldb $04,y stb $04,x puls pc,b,a -L1ADE exg y,u + exg x,y + bsr L1B5D exg x,y - bsr L1ACE + rts +L1B74 exg y,u + exg x,y + bsr L1B5D exg x,y exg y,u rts -L1AE9 exg x,u - bsr L1ACE +L1B7F exg x,u + bsr L1B5D exg x,u rts -L1AF0 pshs b,a +L1B86 pshs b,a addd $03,x std $03,x ldd #$0000 @@ -3375,7 +3318,7 @@ adcb ,x stb ,x puls pc,b,a -L1B07 pshs b,a +L1B9D pshs b,a ldd $03,x addd $03,y std $03,x @@ -3387,363 +3330,349 @@ adcb ,y stb ,x puls pc,b,a -L1B1F exg x,y - bsr L1B9D - exg x,y - bsr L1B07 +L1BB5 exg x,y + bsr L1C37 exg x,y bsr L1B9D exg x,y + bsr L1C37 + exg x,y rts -L1B2E pshs y,b,a +L1BC4 pshs y,b,a clra clrb pshs b,a pshs b tfr s,y - bsr L1B40 + bsr L1BD9 leas $03,s puls pc,y,b,a -L1B3E bsr L1AC5 -L1B40 pshs u,y,b,a +L1BD4 lbsr L1B54 + bra L1BD9 +L1BD9 pshs u,y,b,a leas -$0A,s tfr s,u - bsr L1AE9 + bsr L1B7F tfr u,y leau $05,u - bsr L1ADE - clra - clrb - lbsr L1AC5 - bra L1B57 -L1B55 bsr L1B74 -L1B57 bsr L1B7F - beq L1B61 - bcc L1B55 - bsr L1B07 - bra L1B55 -L1B61 bcc L1B65 - bsr L1B07 -L1B65 leas $0A,s + bsr L1B74 + ldd #$0000 + lbsr L1B54 + bra L1BF1 +L1BEF bsr L1C0E +L1BF1 bsr L1C19 + beq L1BFB + bcc L1BEF + bsr L1B9D + bra L1BEF +L1BFB bcc L1BFF + bsr L1B9D +L1BFF leas $0A,s puls pc,u,y,b,a -L1B69 lsl $04,x +L1C03 lsl $04,x rol $03,x rol $02,x rol $01,x rol ,x rts -L1B74 lsl $04,y +L1C0E lsl $04,y rol $03,y rol $02,y rol $01,y rol ,y rts -L1B7F lsr ,u - bne L1B92 +L1C19 lsr ,u + bne L1C2C ror $01,u - bne L1B94 + bne L1C2E ror $02,u - bne L1B96 + bne L1C30 ror $03,u - bne L1B98 + bne L1C32 ror $04,u rts -L1B92 ror $01,u -L1B94 ror $02,u -L1B96 ror $03,u -L1B98 ror $04,u +L1C2C ror $01,u +L1C2E ror $02,u +L1C30 ror $03,u +L1C32 ror $04,u andcc #$FB rts -L1B9D com ,x +L1C37 com ,x com $01,x com $02,x com $03,x com $04,x inc $04,x - bne L1BB9 + bne L1C53 inc $03,x - bne L1BB9 + bne L1C53 inc $02,x - bne L1BB9 + bne L1C53 inc $01,x - bne L1BB9 + bne L1C53 inc ,x -L1BB9 rts -L1BBA pshs b,a +L1C53 rts +L1C54 pshs b,a ldd ,x cmpd ,y - bne L1BD9 + bne L1C73 ldd $02,x cmpd $02,y - bne L1BD0 + bne L1C6A ldb $04,x cmpb $04,y - beq L1BD9 -L1BD0 bhi L1BD6 + beq L1C73 +L1C6A bhi L1C70 lda #$08 - bra L1BD7 -L1BD6 clra -L1BD7 tfr a,cc -L1BD9 puls pc,b,a - ldd <$0018 - addd <$001C - cmpd <$1B,y - bls L1BE8 - ldd <$1B,y -L1BE8 pshs y,b,a - std <$004B - ldd <$0018 - subd <$001C - bpl L1BF4 - clra - clrb -L1BF4 pshs b,a - std <$0047 - ldd <$001A - subd <$001E - bpl L1C00 - clra - clrb -L1C00 bsr L1C15 - puls y,x,b,a - std <$0047 - stx <$004B - ldd <$001A - addd <$001E - cmpd <$1D,y - bls L1C15 - ldd <$1D,y -L1C15 std <$0049 - std <$004D - lbra L159F - lbsr L1559 - ldb #$01 - stb <$002A - lbsr L1E48 - stx <$0072 - stb <$0074 - lbsr L1EF6 - sta <$0028 - lbsr L06AC + bra L1C71 +L1C70 clra +L1C71 tfr a,cc +L1C73 puls pc,b,a + lbsr L0184 + ldb <u0060 + lbmi L05A2 + ldb $0E,y + beq L1C85 + lbsr L0189 +L1C85 ldb #$01 + stb <u002A + lbsr L1E29 + bcs L1CE7 + lbsr L1ED4 + stx <u0072 + stb <u0074 + lbsr L1F8B + sta <u0028 + leax >L07A1,pcr + ldb <u0060 + ldb b,x + leax b,x + anda ,x+ + ldb a,x + stb <u0029 cmpb $06,y - beq L1C67 + beq L1CDF clrb pshs b - lbsr L1E9C - lbsr L1EC8 - ldx <$0072 - bra L1C76 -L1C43 tst >$101B - beq L1C6C + lbsr L1F2B + lbsr L1F5A + ldx <u0072 + bra L1CEE +L1CBB tst >$101B + beq L1CE4 ldb ,s+ - beq L1C67 - stb <$002B + beq L1CDF + stb <u002B addb ,s+ cmpb <$1E,y - bhi L1C72 - stb <$004A + bhi L1CEA + stb <u004A puls b,a - std <$0047 + std <u0047 puls b,a - std <$004B - lbsr L1E48 - stb <$0074 - lbra L1CEE -L1C67 clrb - ldb <$002A - bne L1C6F -L1C6C ldb #$BA + std <u004B + lbsr L1ED4 + stb <u0074 + lbra L1D6A +L1CDF clrb + ldb <u002A + bne L1CE7 +L1CE4 ldb #$BA coma -L1C6F lbra L00F4 -L1C72 leas $04,s - bra L1C43 -L1C76 ldb <$0074 -L1C78 lbsr L1EDF - bsr L1CC4 - beq L1C84 - lbsr L1EF6 - beq L1C78 -L1C84 lbsr L1EB3 +L1CE7 lbra L011D +L1CEA leas $04,s + bra L1CBB +L1CEE ldb <u0074 +L1CF0 lbsr L1F74 + bsr L1D3E + beq L1CFC + lbsr L1F8B + beq L1CF0 +L1CFC lbsr L1F45 pshs b - ldd <$0047 - std <$009B + ldd <u0047 + std <u009B puls b -L1C8F bsr L1CD6 - bsr L1CCC - bhi L1C9A - lbsr L1EF6 - beq L1C8F -L1C9A lbsr L1EDF - lbsr L1D9A - beq L1CA8 - bsr L1CB5 +L1D07 bsr L1D52 + bsr L1D48 + bhi L1D12 + lbsr L1F8B + beq L1D07 +L1D12 lbsr L1F74 + lbsr L1E21 + beq L1D28 + ldd <u0047 + pshs b,a + ldd <u009B + pshs b,a + ldb <u004A lda #$FF pshs b,a -L1CA8 lbsr L1D9A - beq L1C43 - bsr L1CB5 +L1D28 lbsr L1E21 + beq L1CBB + ldd <u0047 + pshs b,a + ldd <u009B + pshs b,a + ldb <u004A lda #$01 pshs b,a -L1CB3 bra L1C43 -L1CB5 puls b,a - pshs y,x,b,a - ldd <$0047 - std $04,s - ldd <$009B - std $02,s - ldb <$004A - rts -L1CC4 pshs b,a - ldd <$0047 - addd <$00B3 + lbra L1CBB +L1D3E pshs b,a + ldd <u0047 + cmpd #$FFFF puls pc,b,a -L1CCC pshs b,a - ldd <$0047 +L1D48 pshs b,a + ldd <u0047 cmpd <$1B,y puls pc,b,a -L1CD6 lda ,x +L1D52 lda ,x sta ,-s - lda <$0061 - lbsr L1F06 + lda <u0061 + lbsr L1F9B lda ,x cmpa ,s+ - beq L1CEA + beq L1D66 lda #$FF sta >$101B -L1CEA lbsr L1EB3 +L1D66 lbsr L1F45 rts -L1CEE ldd <$0047 +L1D6A ldd <u0047 subd #$0002 - std <$009B - ldb <$0074 -L1CF7 lbsr L1EF6 - bne L1D03 - lbsr L1EDF - bsr L1CC4 - bne L1CF7 -L1D03 lbsr L1EB3 - stb <$0074 - ldd <$0047 - cmpd <$004B - bhi L1CB3 - ldb <$0074 - lbsr L1EF6 - bne L1D03 - ldd <$0047 - cmpd <$009B - bgt L1D34 - bsr L1D9A - beq L1D34 - ldd <$009B + std <u009B + ldb <u0074 +L1D73 lbsr L1F8B + bne L1D7F + lbsr L1F74 + bsr L1D3E + bne L1D73 +L1D7F lbsr L1F45 + stb <u0074 + ldd <u0047 + cmpd <u004B + lbgt L1CBB + ldb <u0074 + lbsr L1F8B + bne L1D7F + ldd <u0047 + cmpd <u009B + bgt L1DB3 + lbsr L1E21 + beq L1DB3 + ldd <u009B pshs b,a - ldd <$0047 - bpl L1D2B + ldd <u0047 + bpl L1DAA clra clrb -L1D2B pshs b,a - ldb <$004A - lda <$002B +L1DAA pshs b,a + ldb <u004A + lda <u002B nega pshs b,a -L1D34 ldd <$0047 - std <$009B - ldb <$0074 -L1D3A lbsr L1EF6 - bne L1D45 - bsr L1CD6 - bsr L1CCC - bls L1D3A -L1D45 lbsr L1EDF - stb <$0074 - bsr L1D9A - beq L1D57 - lbsr L1CB5 - lda <$002B +L1DB3 ldd <u0047 + std <u009B + ldb <u0074 +L1DB9 lbsr L1F8B + bne L1DC4 + bsr L1D52 + bsr L1D48 + bls L1DB9 +L1DC4 lbsr L1F74 + stb <u0074 + bsr L1E21 + beq L1DDD + ldd <u0047 + pshs b,a + ldd <u009B + pshs b,a + ldb <u004A + lda <u002B pshs b,a - ldb <$0074 -L1D57 lbsr L1EB3 - stb <$0074 - lbsr L1CCC - bgt L1D71 - ldd <$0047 - cmpd <$004B - bgt L1D71 - ldb <$0074 - lbsr L1EF6 - bne L1D57 - bra L1D34 -L1D71 cmps <$003B - bhi L1D78 - clr <$002A -L1D78 ldd <$0047 - subd <$00B3 - std <$0047 - ldd <$004B + ldb <u0074 +L1DDD lbsr L1F45 + stb <u0074 + lbsr L1D48 + bgt L1DF7 + ldd <u0047 + cmpd <u004B + bgt L1DF7 + ldb <u0074 + lbsr L1F8B + bne L1DDD + bra L1DB3 +L1DF7 cmps <u003B + bhi L1DFE + clr <u002A +L1DFE ldd <u0047 + subd #$0001 + std <u0047 + ldd <u004B addd #$0002 - cmpd <$0047 - bhi L1D97 + cmpd <u0047 + bhi L1E1E leas -$02,s pshs b,a - ldd <$0047 + ldd <u0047 std $02,s - ldb <$004A - lda <$002B + ldb <u004A + lda <u002B nega pshs b,a -L1D97 lbra L1C43 -L1D9A cmps <$003B - bhi L1DA1 - clr <$002A -L1DA1 rts -L1DA2 ldb #$47 -L1DA4 bsr L1DD8 - lbra L1E31 -L1DA9 ldb #$4B - bra L1DA4 -L1DAD ldb #$4F - bra L1DA4 -L1DB1 ldb #$20 -L1DB3 bsr L1DD8 +L1E1E lbra L1CBB +L1E21 cmps <u003B + bhi L1E28 + clr <u002A +L1E28 rts +L1E29 ldb #$47 +L1E2B bsr L1E5F + lbra L1EB9 +L1E30 ldb #$4B + bra L1E2B +L1E34 ldb #$4F + bra L1E2B +L1E38 ldb #$20 +L1E3A bsr L1E5F ldd #$027F - bsr L1DBF - bcs L1DCF + bsr L1E46 + bcs L1E56 ldd #$00BF -L1DBF pshs b,a +L1E46 pshs b,a ldd ,x++ - bpl L1DC9 + bpl L1E50 nega negb sbca #$00 -L1DC9 cmpd ,s++ - bgt L1E44 +L1E50 cmpd ,s++ + bgt L1ED0 clrb -L1DCF rts -L1DD0 ldb #$24 - bra L1DB3 -L1DD4 ldb #$53 - bra L1DB3 -L1DD8 tfr u,x +L1E56 rts +L1E57 ldb #$24 + bra L1E3A +L1E5B ldb #$53 + bra L1E3A +L1E5F tfr u,x abx lda $09,y bita #$08 - beq L1DE5 + beq L1E6C ldd -$07,y - bne L1DE6 -L1DE5 rts -L1DE6 pshs y,x,b,a + bne L1E6D +L1E6C rts +L1E6D pshs y,x,b,a tfr x,y ldx ,y ldb ,s - beq L1DF4 - bsr L1E00 + beq L1E7B + bsr L1E87 std ,y -L1DF4 ldx $02,y +L1E7B ldx $02,y ldb $01,s - beq L1DFE - bsr L1E00 + beq L1E85 + bsr L1E87 std $02,y -L1DFE puls pc,y,x,b,a -L1E00 pshs x,b +L1E85 puls y,x,b,a +L1E87 pshs x,b leas -$02,s lda $04,s mul @@ -3752,16 +3681,16 @@ exg a,b clra puls cc - bcs L1E14 - addd <$00B3 -L1E14 std ,s + bcs L1E9C + addd #$0001 +L1E9C std ,s lda $03,s ldb $02,s mul addd ,s leas $03,s puls pc,x -L1E21 pshs x +L1EA9 pshs x lda ,s stb ,s mul @@ -3770,208 +3699,177 @@ mul adda ,s+ puls pc,x -L1E31 ldd ,x +L1EB9 ldd ,x + bmi L1ED0 cmpd <$1B,y - bhi L1E44 + bgt L1ED0 ldd $02,x + bmi L1ED0 cmpd <$1D,y - bhi L1E44 + bgt L1ED0 andcc #$FE rts -L1E44 comb +L1ED0 comb ldb #$BD rts -L1E48 ldd -$0D,y -L1E4A pshs y,b,a - lda <$004A - ldb <$0063 +L1ED4 ldd -$0D,y +L1ED6 pshs y,b,a + lda <u004A + ldb <u0063 mul addd ,s++ tfr d,x - ldb <$0060 - bpl L1E60 - ldd <$0047 + ldb <u0060 + bpl L1EEC + ldd <u0047 lslb leax d,x puls pc,y -L1E60 cmpb #$04 - bne L1E6B - ldd <$0047 - leay <L1E99,pcr - bra L1E7F -L1E6B cmpb #$01 - beq L1E76 - ldd <$0047 - leay <L1E94,pcr - bra L1E7D -L1E76 ldd <$0047 - leay <L1E8B,pcr +L1EEC cmpb #$04 + bne L1EF8 + ldd <u0047 + leay >L1F28,pcr + bra L1F0E +L1EF8 cmpb #$01 + beq L1F04 + ldd <u0047 + leay >L1F23,pcr + bra L1F0C +L1F04 ldd <u0047 + leay >L1F1A,pcr lsra rorb -L1E7D lsra +L1F0C lsra rorb -L1E7F lsra +L1F0E lsra rorb leax d,x - ldb <$0048 + ldb <u0048 andb ,y+ ldb b,y puls pc,y -L1E8B asr <$0080 +L1F1A asr <u0080 nega - bra L1EA0 - lsl <$0004 - aim #$01,<$0003 + bra L1F2F + lsl <u0004 + aim #$01,<u0003 subb #$30 - inc <$0003 -L1E99 oim #$F0,<$000F -L1E9C lda <$0060 - leax <L1EA9,pcr + inc <u0003 +L1F28 oim #$F0,<u000F +L1F2B lda <u0060 + leax >L1F3B,pcr lsla ldd a,x - sta <$0079 + sta <u0079 leax b,x - stx <$0077 + stx <u0077 rts +L1F3B neg <u0000 suba #$19 subb #$18 subb #$18 subb >$160C lsla - bne L1EB9 - inc <$0047 -L1EB9 lsrb - bcs L1EC3 + bne L1F4B + inc <u0047 +L1F4B lsrb + bcs L1F55 jmp [<$77,u] lsrb lsrb lsrb rts -L1EC3 ldb <$0079 +L1F55 ldb <u0079 leax $01,x rts -L1EC8 lda <$0060 - leax <L1ED5,pcr +L1F5A lda <u0060 + leax >L1F6A,pcr lsla ldd a,x - sta <$007C + sta <u007C leax b,x - stx <$007A + stx <u007A rts - oim #$1B,<$0003 +L1F6A neg <u0000 + oim #$1B,<u0003 orcc #$03 orcc #$0F fcb $18 -L1EDF tst <$0048 - bne L1EE5 - dec <$0047 -L1EE5 dec <$0048 +L1F74 tst <u0048 + bne L1F7A + dec <u0047 +L1F7A dec <u0048 lslb - bcs L1EF1 + bcs L1F86 jmp [<$7A,u] lslb lslb lslb rts -L1EF1 ldb <$007C +L1F86 ldb <u007C leax -$01,x rts -L1EF6 pshs b +L1F8B pshs b tfr b,a anda ,x -L1EFC lsrb - bcs L1F02 - lsra - bra L1EFC -L1F02 cmpa <$0028 - puls pc,b -L1F06 pshs b,a - jmp [<$64,u] - eim #$0F,<$000F - lbsr L5325 - bsr L1F55 - lsra - rorb - lsra - rorb - bra L1F25 - pshs x,b - bsr L1F55 +L1F91 lsrb + bcs L1F97 lsra - rorb - bra L1F25 + bra L1F91 +L1F97 cmpa <u0028 + puls pc,b +L1F9B pshs b,a + jmp [<$64,u] pshs x,b - bsr L1F55 -L1F25 andb <$00B0 + bsr L1FD5 abx - lda <$008A - pshs a - lda <$00B1 -L1F2E cmpx #$4000 - bcs L1F3A - inca - leax >-$2000,x - bra L1F2E -L1F3A sta <$008A - sta >$FFA9 - ldb ,x - puls a - sta <$008A - sta >$FFA9 + ldb <u0048 + lsrb + lsrb + lsrb + andb #$03 + bra L1FC8 + pshs x,b + bsr L1FD5 + lslb + abx + ldb <u0048 + lsrb + lsrb + andb #$07 + bra L1FC8 + pshs x,b + bsr L1FD5 + lslb + lslb + abx + ldb <u0048 + lsrb + andb #$0F +L1FC8 ldb b,x andb ,s+ ldx ,s++ - lda ,s pshs b anda ,s+ jmp [<$68,u] -L1F55 ldx <$0066 - lda <$00AF - ldb <$00B2 - anda <$004A - mul - leax d,x - ldd <$0047 - lsra - rorb +L1FD5 ldx <u0066 + ldb <u004A + andb #$07 + lslb + lslb rts -L1F65 ldb $0E,y - beq L1F82 - stb <$00B1 - jsr <$00BC - ldx $0F,y - stx <$0066 - ldd <-$16,x - deca - bpl L1F79 - lda #$FF -L1F79 stb <$00B2 - decb - bpl L1F80 - ldb #$FF -L1F80 std <$00AF -L1F82 rts -L1F83 anda $01,s +L1FDE anda $01,s jmp [<$68,u] - ldb $01,s - bra L1F9A - anda <$0061 - ldb ,s - andb $01,s - bra L1F9A - eora ,x - bra L1FA1 +L1FE3 eora ,x + bra L1FF0 anda ,x -L1F9A comb +L1FE9 comb andb ,x stb ,x ora ,x -L1FA1 sta ,x +L1FF0 sta ,x puls pc,b,a - anda $01,s - eora ,x - sta ,x - puls pc,b,a - +L1FF4 neg <u00AC + ora >$BAC8 emod eom equ * - endc
--- a/level2/cmds/makefile Wed Jul 24 05:56:33 2002 +0000 +++ b/level2/cmds/makefile Wed Jul 24 06:01:12 2002 +0000 @@ -20,10 +20,7 @@ list.asm load.asm login.asm makdir.asm merge.asm os9gen.asm pwd.asm pxd.asm rename.asm \ save.asm setime.asm sleep.asm tee.asm tmode.asm tuneport.asm tsmon.asm verify.asm xmode.asm -LEVEL2FILES = gfx2.asm mdir.asm mfree.asm montype.asm procs.asm \ - shell_21.asm unlink.asm wcreate.asm - -# Files not compilable by os9asm: Config attr cmp dcheck dir dsave +# Files not compilable by os9asm: config all: $(ALLOBJS) shell utilpak1 $(DEPENDS) $(CHMOD) a+rx $(ALLOBJS) shell utilpak1 @@ -40,12 +37,10 @@ @$(ECHO) $(LEVEL1FILES): ../../level1/CMDS/$@ - -ln -s ../../level1/CMDS/$@ + -$(SOFTLINK) ../../level1/CMDS/$@ -$(LEVEL2FILES): ../../level2/CMDS/$@ - -ln -s ../../level2/CMDS/$@ clean: - $(RM) $(ALLOBJS) $(LEVEL1FILES) $(LEVEL2FILES) shell utilpak1 + $(RM) $(ALLOBJS) $(LEVEL1FILES) shell utilpak1 identify: $(IDENT_SHORT) $(ALLOBJS)
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/mdir.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,316 @@ +******************************************************************** +* MDir - Show module information +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 7 Original Tandy/Microware version + + nam MDir + ttl Show module information + +* Disassembled 98/09/11 11:57:27 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set 7 + + mod eom,name,tylg,atrv,start,size + +u0000 rmb 2 +u0002 rmb 1 +u0003 rmb 1 +u0004 rmb 1 +u0005 rmb 3 +u0008 rmb 3 +u000B rmb 1 +u000C rmb 1 +u000D rmb 1 +u000E rmb 80 +u005E rmb 2 +u0060 rmb 2 +u0062 rmb 4096 +u1062 rmb 64 +u10A2 rmb 269 +size equ . + +name fcs /MDir/ + fcb edition + +L0012 fcc " Module Directory at" + fcb $A0 +L0029 fcs "Block Offset Size Typ Rev Attr Use Module Name" +L0058 fcs "----- ------ ---- --- --- ---- ---- ------------" +L0088 fcs "Blk Ofst Size Ty Rv At Uc Name" +L00A7 fcs "___ ____ ____ __ __ __ __ ______" +L00C7 fcc "Lock" + fcb $A0 +L00CC fcs "Lk" + +start pshs u + leau >u1062,u +L00D4 clr ,-u + cmpu ,s + bhi L00D4 + puls u + clr <u000B + lda #$0C + ldb #$30 + std <u000C + stx <u0000 + leax u000E,u + stx <u0003 + lbsr L02A3 + lda #$01 + ldb #$26 + os9 I$GetStt + bcc L00FF + cmpb #$D0 + lbne L0241 + bra L010C +L00FF cmpx #$0032 + bge L010C + inc <u000B + lda #$0A + ldb #$15 + std <u000C +L010C leay >L0012,pcr + lbsr L0298 + leax u0005,u + os9 F$Time + leax u0008,u + lbsr L02B8 + lbsr L02A3 + leax <u0062,u + pshs u + os9 F$GModDr + sty <u005E + stu <u0060 + puls u + leax -$08,x + ldy <u0000 + lda ,y+ + eora #$45 + anda #$DF + bne L018E + lbsr L02A3 + tst <u000B + beq L0149 + leay >L0088,pcr + bra L014D +L0149 leay >L0029,pcr +L014D lbsr L0298 + lbsr L02A3 + tst <u000B + beq L015D + leay >L00A7,pcr + bra L0161 +L015D leay >L0058,pcr +L0161 lbsr L0298 + lbsr L02A3 + leax <u0062,u + lbra L023A +L016D lbsr L0308 + beq L018E + lbsr L02DE + lbsr L0298 +L0178 lbsr L0285 + ldb <u0004 + subb #$0E + cmpb <u000D + bhi L018B +L0183 subb <u000C + bhi L0183 + bne L0178 + bra L018E +L018B lbsr L02A3 +L018E leax $08,x + cmpx <u005E + bcs L016D + lbsr L02A3 + lbra L0240 +L019A lbsr L0308 + lbeq L0238 + tfr d,y + ldd ,y + tst <u000B + beq L01B1 + lbsr L0285 + lbsr L024C + bra L01B4 +L01B1 lbsr L0244 +L01B4 tst <u000B + bne L01BE + lbsr L0285 + lbsr L0285 +L01BE ldd $04,x + lbsr L0244 + tst <u000B + bne L01CA + lbsr L0285 +L01CA lbsr L02DE + leay >u10A2,u + ldd $02,y + bsr L0244 + tst <u000B + bne L01DC + lbsr L0285 +L01DC lda $06,y + bsr L0252 + tst <u000B + bne L01E7 + lbsr L0285 +L01E7 lda $07,y + anda #$0F + bsr L0252 + ldb $07,y + lda #$72 + lbsr L0291 + tst <u000B + bne L0207 + lda #$3F + lbsr L0291 + lda #$3F + lbsr L0291 + lda #$3F + lbsr L0291 +L0207 bsr L0285 + ldd $06,x + cmpd #$FFFF + bne L0223 + tst <u000B + beq L021B + leay >L00CC,pcr + bra L021F +L021B leay >L00C7,pcr +L021F bsr L0298 + bra L0230 +L0223 tst <u000B + beq L022E + lbsr L0285 + bsr L024C + bra L0230 +L022E bsr L0244 +L0230 leay >u1062,u + bsr L0298 + bsr L02A3 +L0238 leax $08,x +L023A cmpx <u005E + lbcs L019A +L0240 clrb +L0241 os9 F$Exit +L0244 bsr L0256 + tst <u0002 + bne L024C + dec <u0002 +L024C tfr b,a + bsr L0258 + bra L0285 +L0252 bsr L0256 + bra L0285 +L0256 clr <u0002 +L0258 pshs a + lsra + lsra + lsra + lsra + bsr L026C + tst <u0002 + bpl L0268 + lda #$01 + sta <u0002 +L0268 lda ,s+ + anda #$0F +L026C tsta + beq L0271 + sta <u0002 +L0271 tst <u0002 + bmi L0277 + bne L027B +L0277 lda #$20 + bra L0287 +L027B adda #$30 + cmpa #$39 + bls L0287 + adda #$07 + bra L0287 +L0285 lda #$20 +L0287 pshs x + ldx <u0003 + sta ,x+ + stx <u0003 + puls pc,x +L0291 rolb + bcs L0287 + lda #$2E + bra L0287 +L0298 lda ,y + anda #$7F + bsr L0287 + lda ,y+ + bpl L0298 + rts +L02A3 pshs y,x,a + lda #$0D + bsr L0287 + leax u000E,u + stx <u0003 + ldy #$0050 + lda #$01 + os9 I$WritLn + puls pc,y,x,a +L02B8 bsr L02C0 + bsr L02BC +L02BC lda #$3A + bsr L0287 +L02C0 ldb ,x+ + lda #$2F +L02C4 inca + subb #$64 + bcc L02C4 + cmpa #$30 + beq L02CF + bsr L0287 +L02CF lda #$3A +L02D1 deca + addb #$0A + bcc L02D1 + bsr L0287 + tfr b,a + adda #$30 + bra L0287 +L02DE pshs u,x + bsr L0308 + ldx $04,x + ldy #$000D + leau >u10A2,u + os9 F$CpyMem + pshs b,a + ldd u0004,u + leax d,x + puls b,a + ldu $02,s + leau >u1062,u + ldy #$0040 + os9 F$CpyMem + tfr u,y + puls pc,u,x +L0308 ldd ,x + beq L0319 + pshs y + leay <u0062,u + pshs y + subd <u0060 + addd ,s++ + puls y +L0319 rts + + emod +eom equ * + end
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/mfree.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,222 @@ +******************************************************************** +* Mfree - Show free memory +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 2 Original Tandy/Microware version + + nam Mfree + ttl Show free memory + +* Disassembled 98/09/11 12:07:32 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set 2 + + mod eom,name,tylg,atrv,start,size + +u0000 rmb 1 +u0001 rmb 1 +u0002 rmb 2 +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 80 +u005D rmb 7 +u0064 rmb 132 +u00E8 rmb 1135 +size equ . + +name fcs /Mfree/ + fcb edition + +L0013 fcs " Blk Begin End Blks Size" + fcs " --- ------ ------ ---- ------" +L004E fcs " ==== ======" + fcc " Total:" + fcb $A0 + +start leax u000D,u + stx <u0009 + stx <u000B + lbsr L016E + leay <L0013,pcr + lbsr L0183 + lbsr L016E + lbsr L0183 + lbsr L016E + clr <u0000 + clr <u0001 + leax <u005D,u + os9 F$GBlkMp + sty <u0002 + sta <u0004 + ldy #$0000 +L00AA ldu #$0000 +L00AD tst ,x+ + beq L00BA + leay $01,y + cmpy <u0002 + bcs L00AD + bra L0109 +L00BA tfr y,d + bsr L0123 + lda <u0004 + pshs y,a + clra + clrb +L00C4 addd $01,s + dec ,s + bne L00C4 + leas $03,s + std <u0006 + clr <u0008 + bsr L0133 +L00D2 leau u0001,u + leay $01,y + cmpy <u0002 + beq L0109 + tst ,x+ + beq L00D2 + lda <u0004 + pshs y,a + clra + clrb +L00E5 addd $01,s + dec ,s + bne L00E5 + leas $03,s + subd #$0001 + std <u0006 + lda #$FF + sta <u0008 + bsr L0133 + leax -$01,x + tfr u,d + bsr L0123 + lbsr L0199 + addd <u0000 + std <u0000 + bsr L016E + bra L00AA +L0109 leay >L004E,pcr + bsr L0183 + bsr L016E + bsr L0183 + tfr u,d + addd <u0000 + std <u0000 + bsr L0123 + bsr L0199 + bsr L016E + clrb + os9 F$Exit +L0123 pshs b,a + clr <u0005 + bsr L0145 + tfr b,a + bsr L0145 + lda #$20 + bsr L0164 + puls pc,b,a +L0133 clr <u0005 + lda <u0006 + bsr L0145 + lda <u0007 + bsr L0145 + lda <u0008 + bsr L0145 + lda #$20 + bra L0164 +L0145 pshs a + lsra + lsra + lsra + lsra + bsr L014F + puls a +L014F anda #$0F + tsta + beq L0156 + sta <u0005 +L0156 tst <u0005 + bne L015C + lda #$F0 +L015C adda #$30 + cmpa #$3A + bcs L0164 + adda #$07 +L0164 pshs x + ldx <u000B + sta ,x+ + stx <u000B + puls pc,x +L016E pshs y,x,a + lda #$0D + bsr L0164 + ldx <u0009 + stx <u000B + ldy #$0050 + lda #$01 + os9 I$WritLn + puls pc,y,x,a +L0183 lda ,y + anda #$7F + bsr L0164 + tst ,y+ + bpl L0183 + rts +L018E fdb $2710,$03e8,$0064,$000a,$0001 + fcb $ff +L0199 pshs y,x,b,a + lda <u0004 + pshs a + lda $01,s + lsr ,s + lsr ,s + bra L01A9 +L01A7 lslb + rola +L01A9 lsr ,s + bne L01A7 + leas 1,s + leax <L018E,pcr + ldy #$2F20 +L01B6 leay >$0100,y + subd ,x + bcc L01B6 + addd ,x++ + pshs b,a + tfr y,d + tst ,x + bmi L01DE + ldy #$2F30 + cmpd #$3020 + bne L01D8 + ldy #$2F20 + lda #$20 +L01D8 bsr L0164 + puls b,a + bra L01B6 +L01DE bsr L0164 + lda #$6B + bsr L0164 + leas $02,s + puls pc,y,x,b,a + + emod +eom equ * + end
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/modpatch.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,1399 @@ +******************************************************************** +* progname - program module +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* - Original Tandy distribution version +* +* + + nam modpatch + ttl program module + +* Disassembled 02/07/06 13:11:04 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use os9defs + 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 2 +u0009 rmb 2 +u000B rmb 2 +u000D rmb 2 +u000F rmb 1 +u0010 rmb 1 +u0011 rmb 1 +u0012 rmb 2 +u0014 rmb 2 +u0016 rmb 1 +u0017 rmb 1 +u0018 rmb 1 +u0019 rmb 7 +u0020 rmb 10 +u002A rmb 5 +u002F rmb 5 +u0034 rmb 55 +u006B rmb 2 +u006D rmb 26 +u0087 rmb 2 +u0089 rmb 2 +u008B rmb 2 +u008D rmb 2 +u008F rmb 2 +u0091 rmb 2 +u0093 rmb 2 +u0095 rmb 2 +u0097 rmb 1 +u0098 rmb 1 +u0099 rmb 2 +u009B rmb 2 +u009D rmb 2 +u009F rmb 35 +u00C2 rmb 31 +u00E1 rmb 92 +u013D rmb 2 +u013F rmb 58 +u0179 rmb 1 +u017A rmb 3 +u017D rmb 912 +size equ . +name equ * + fcs /modpatch/ + fcb $04 +L0016 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 +L0025 sta ,u+ + decb + bne L0025 + ldx ,s + leau ,x + leax >$018D,x + pshs x + leay >L0A92,pcr + ldx ,y++ + beq L0040 + bsr L0016 + ldu $02,s +L0040 leau >u0087,u + ldx ,y++ + beq L004B + bsr L0016 + clra +L004B cmpu ,s + beq L0054 + sta ,u+ + bra L004B +L0054 ldu $02,s + ldd ,y++ + beq L0061 + leax >L0000,pcr + lbsr L0164 +L0061 ldd ,y++ + beq L006A + leax ,u + lbsr L0164 +L006A leas $04,s + puls x + stx >u017D,u + sty >u013D,u + ldd #$0001 + std >u0179,u + leay >u013F,u + leax ,s + lda ,x+ +L0086 ldb >u017A,u + cmpb #$1D + beq L00E2 +L008E cmpa #$0D + beq L00E2 + cmpa #$20 + beq L009A + cmpa #$2C + bne L009E +L009A lda ,x+ + bra L008E +L009E cmpa #$22 + beq L00A6 + cmpa #$27 + bne L00C4 +L00A6 stx ,y++ + inc >u017A,u + pshs a +L00AE lda ,x+ + cmpa #$0D + beq L00B8 + cmpa ,s + bne L00AE +L00B8 puls b + clr -$01,x + cmpa #$0D + beq L00E2 + lda ,x+ + bra L0086 +L00C4 leax -$01,x + stx ,y++ + leax $01,x + inc >u017A,u +L00CE cmpa #$0D + beq L00DE + cmpa #$20 + beq L00DE + cmpa #$2C + beq L00DE + lda ,x+ + bra L00CE +L00DE clr -$01,x + bra L0086 +L00E2 leax >u013D,u + pshs x + ldd >u0179,u + pshs b,a + leay ,u + bsr L00FC + lbsr L017E + clr ,-s + clr ,-s + lbsr L0A85 +L00FC leax >$018D,y + stx >$0187,y + sts >$017B,y + sts >$0189,y + ldd #$FF82 +L0111 leax d,s + cmpx >$0189,y + bcc L0123 + cmpx >$0187,y + bcs L013D + stx >$0189,y +L0123 rts +L0124 bpl L0150 + bpl L0152 + bra L017D + lsrb + fcb $41 A + coma + fcb $4B K + bra L017F + rorb + fcb $45 E + fcb $52 R + rora + inca + clra + asrb + bra L0163 + bpl L0165 + bpl L014A +L013D leax <L0124,pcr + ldb #$CF + pshs b + lda #$02 + ldy #$0064 +L014A os9 I$WritLn + clr ,-s + lbsr L0A8B +L0152 ldd >$017B,y + subd >$0189,y + rts + ldd >$0189,y + subd >$0187,y +L0163 rts +L0164 pshs x + leax d,y + leax d,x + pshs x +L016C ldd ,y++ + leax d,u + ldd ,x + addd $02,s + std ,x + cmpy ,s + bne L016C + leas $04,s +L017D rts +L017E pshs u + ldd #$FFB6 + lbsr L0111 + clra + clrb + std <u0009 + stb <u0016 + ldd #$0001 + stb <u0018 + stb <u0017 + clra + clrb + std <u000D + ldd $04,s + lbne L0235 + lbsr L045A + lbra L0235 +L01A3 ldx $06,s + leax $02,x + stx $06,s + ldb [,x] + cmpb #$2D + lbne L0213 + ldd [<$06,s] + bra L0204 +L01B6 ldb [>$0012,y] + sex + pshs b,a + lbsr L07E5 + leas $02,s + tfr d,x + bra L01EC +L01C6 ldd #$0001 + stb <u0016 + bra L0202 +L01CD clra + clrb + stb <u0017 + bra L0202 +L01D3 clra + clrb + stb <u0018 + bra L0202 +L01D9 lbsr L045A +L01DC leax >L074A,pcr + pshs x + lbsr L056A + leas $02,s + lbsr L045A + bra L0202 +L01EC cmpx #$0053 + beq L01C6 + cmpx #$0057 + beq L01CD + cmpx #$0043 + beq L01D3 + cmpx #$003F + beq L01D9 + bra L01DC +L0202 ldd <u0012 +L0204 addd #$0001 + std <u0012 + ldb [>$0012,y] + lbne L01B6 + bra L0235 +L0213 ldd #$0001 + pshs b,a + ldd [<$08,s] + pshs b,a + lbsr L08DD + leas $04,s + std <u0003 + cmpd #$FFFF + bne L0235 + leax >L0764,pcr + pshs x + lbsr L0533 + leas $02,s +L0235 ldd $04,s + addd #$FFFF + std $04,s + lbne L01A3 + lbra L02C6 +L0243 ldb <u0016 + bne L026D + ldb <u0010 + cmpb #$0D + bne L025D + ldd #$0002 + pshs b,a + leax >$000F,y + pshs x + lbsr L057D + bra L026B +L025D ldd #$0002 + pshs b,a + leax >$000F,y + pshs x + lbsr L0550 +L026B leas $04,s +L026D ldb <u000F + sex + pshs b,a + lbsr L07E5 + leas $02,s + tfr d,x + bra L02A6 +L027B lbsr L0320 + bra L02C6 +L0280 lbsr L0387 + bra L02C6 +L0285 lbsr L0414 + bra L02C6 +L028A lbsr L030B + bra L02C6 +L028F lbsr L0317 + bra L02C6 +L0294 lbsr L048A + bra L02C6 +L0299 leax >$00A1,y + pshs x + lbsr L056A + leas $02,s + bra L02C6 +L02A6 cmpx #$004C + beq L027B + cmpx #$0043 + beq L0280 + cmpx #$0056 + beq L0285 + cmpx #$004D + beq L028A + cmpx #$0055 + beq L028F + cmpx #$002A + beq L0294 + bra L0299 +L02C6 ldd #$0002 + pshs b,a + leax >$000F,y + pshs x + ldd <u0003 + pshs b,a + lbsr L0959 + leas $06,s + std <u000B + ldd <u000B + lbgt L0243 + ldd <u000B + cmpd #$FFFF + bne L02F5 + leax >L0786,pcr + pshs x + lbsr L0533 + leas $02,s +L02F5 ldd <u0009 + beq L02FB + bsr L0317 +L02FB ldd <u000D + lbeq L054E + ldd <u000D + pshs b,a + lbsr L0A6B + lbra L054C +L030B ldd #$0001 + std <u0009 + tfr cc,b + stb <u0011 + orcc #$50 + rts +L0317 clra + clrb + std <u0009 + ldb <u0011 + tfr b,cc + rts +L0320 pshs u + ldd #$FFB6 + lbsr L0111 + ldd <u000D + beq L0335 + ldd <u000D + pshs b,a + lbsr L0A6B + leas $02,s +L0335 ldd #$001D + pshs b,a + leax >$001A,y + pshs x + ldd <u0003 + pshs b,a + lbsr L0967 + leas $06,s + std <u000B + lble L054E + ldb <u0016 + bne L035E + leax >$001A,y + pshs x + lbsr L056A + leas $02,s +L035E clra + clrb + pshs b,a + clra + clrb + pshs b,a + leax >$001A,y + pshs x + lbsr L0A3F + leas $06,s + std <u000D + cmpd #$FFFF + lbne L054E + leax >L07A7,pcr + pshs x + lbsr L0533 + lbra L054C +L0387 pshs u + ldd #$FFB4 + lbsr L0111 + leas -$02,s + ldd #$0050 + pshs b,a + leax >$0037,y + pshs x + ldd <u0003 + pshs b,a + lbsr L0967 + leas $06,s + std <u000B + lble L054C + ldb <u0016 + bne L03BA + leax >$0037,y + pshs x + lbsr L056A + leas $02,s +L03BA leax >$0037,y + stx ,s + leax ,s + pshs x + lbsr L04B8 + leas $02,s + std <u0001 + leax ,s + pshs x + lbsr L04B8 + leas $02,s + std <u0005 + leax ,s + pshs x + lbsr L04B8 + leas $02,s + std <u0007 + ldd <u000D + addd <u0001 + std <u0014 + ldb [>$0014,y] + stb <u0019 + ldb <u0019 + clra + tstb + cmpd <u0005 + beq L0405 + ldb <u0017 + beq L0405 + leax >L07C8,pcr + pshs x + lbsr L056A + leas $02,s +L0405 ldb <u0018 + lbeq L054C + ldd <u0007 + stb [>$0014,y] + lbra L054C +L0414 pshs u + ldd #$FFB6 + lbsr L0111 + ldx <u000D + ldd $02,x + addd #$FFFD + std <u0001 + ldd <u000D + addd <u0001 + tfr d,u + ldd #$00FF + stb u0002,u + stb u0001,u + stb ,u + pshs u + ldd <u0001 + pshs b,a + ldd <u000D + pshs b,a + lbsr L0A19 + leas $06,s + ldb ,u + sex + coma + comb + stb ,u + ldb u0001,u + sex + coma + comb + stb u0001,u + ldb u0002,u + sex + coma + comb + stb u0002,u + puls pc,u +L045A pshs u + ldd #$FFB8 + lbsr L0111 + leas -$02,s + leau >$0087,y + leax >$00A1,y + stx ,s + bra L0479 +L0470 ldd ,u++ + pshs b,a + lbsr L056A + leas $02,s +L0479 cmpu ,s + bcs L0470 + clra + clrb + pshs b,a + lbsr L0A85 + leas $02,s + lbra L054C +L048A pshs u + ldd #$FFB6 + lbsr L0111 + ldd #$0050 + pshs b,a + leax >$0037,y + pshs x + ldd <u0003 + pshs b,a + lbsr L0967 + leas $06,s + ldb <u0016 + lbne L054E + leax >$0037,y + pshs x + lbsr L056A + lbra L054C +L04B8 pshs u + ldd #$FFB6 + lbsr L0111 + leas -$02,s + ldu [<$06,s] + clra + clrb + std ,s + bra L04CD +L04CB leau u0001,u +L04CD ldb ,u + sex + leax >$00BD,y + leax d,x + ldb ,x + clra + andb #$40 + beq L04CB + bra L0518 +L04DF ldd ,s + pshs b,a + ldd #$0004 + lbsr L08C2 + std ,s + pshs b,a + ldb ,u + sex + leax >$00BD,y + leax d,x + ldb ,x + clra + andb #$08 + beq L0505 + ldb ,u + sex + addd #$FFD0 + bra L0512 +L0505 ldb ,u + sex + pshs b,a + lbsr L07E5 + leas $02,s + addd #$FFC9 +L0512 addd ,s++ + std ,s + leau u0001,u +L0518 ldb ,u + sex + leax >$00BD,y + leax d,x + ldb ,x + clra + andb #$40 + bne L04DF + leau u0001,u + tfr u,d + std [<$06,s] + ldd ,s + bra L054C +L0533 pshs u + ldd #$FFBA + lbsr L0111 + ldu $04,s + pshs u + bsr L056A + leas $02,s + ldd >$018B,y + pshs b,a + lbsr L0A85 +L054C leas $02,s +L054E puls pc,u +L0550 pshs u + ldd #$FFB6 + lbsr L0111 + ldu $04,s + ldd $06,s + pshs b,a + pshs u + ldd #$0002 + pshs b,a + lbsr L097D + bra L0595 +L056A pshs u + ldd #$FFB6 + lbsr L0111 + ldu $04,s + pshs u + lbsr L0818 + std ,s + bra L058B +L057D pshs u + ldd #$FFB6 + lbsr L0111 + ldu $04,s + ldd $06,s + pshs b,a +L058B pshs u + ldd #$0002 + pshs b,a + lbsr L098D +L0595 leas $06,s + puls pc,u + tsta + clr $04,s + negb + oim #$74,$03,s + lsl $00,y + cwai #$66 + rol $0C,s + eim #$6E,$01,s + tst $05,s + fcb $3E > + bra L0609 + clr -$10,s + lsr >$735D + tst <u0000 + fcb $55 U + com >$6167 + eim #$3A,$00,y + bra L060E + oim #$74,$03,s + lsl $00,y + tst $0F,s + lsr -$0B,s + inc $05,s + com >$2069 + jmp $00,y + fcb $52 R + fcb $41 A + tsta + tst <u0000 + clra + neg >$7473 + bra L0613 + bra L05FB + blt L0650 + bra L061C + bra L0654 + rol $0C,s + eim #$6E,-$0C,s + bra L0655 + clr $04,s + eim #$0D,$00,x + bra L060F + bra L0611 + bra L0613 + bra L0615 + blt L066E + bra L0636 + bra L066E +L05FB eim #$70,>$7072 + eim #$73,-$0D,s + bra L067B + oim #$72,$0E,s + rol $0E,s +L0609 asr -$0D,s + tst <u0000 + bra L062F +L060F bra L0631 +L0611 bra L0633 +L0613 bra L0635 +L0615 blt L067A + bra L0656 + bra L067E + clr $0D,s + neg >$6172 + eim #$20,$0F,s + jmp $0C,s + rol >$2C20 + jmp $0F,s + bra L068F + lsl $01,s + jmp $07,s + eim #$0D,$00,x +L0633 bra L0655 +L0635 bra L0657 + bra L0659 + bra L065B + blt L067C + bra L067C + bra L06A9 + eim #$6C,-$10,s + tst <u0000 + coma + tst $04,s + com >$203A + bra L066E + inca + bra L06BE + clr $04,s + jmp $01,s +L0655 tst $05,s +L0657 bra L0679 +L0659 blt L067B +L065B inc $09,s + jmp $0B,s + bra L06D5 + clr $00,y + tst $0F,s + lsr -$0B,s + inc $05,s + tst <u0000 + bra L068D + bra L068F + bra L0691 + bra L0693 + coma + bra L06E5 + ror $06,s + bra L06E9 +L067A aim #$79,-$0C,s + eim #$20,$0E,s + aim #$79,-$0C,s + eim #$20,$0D,y + bra L06EB + lsl $01,s + jmp $07,s + eim #$20,$0F,s +L068F aim #$79,-$0C,s + eim #$20,$01,s + lsr >$0D00 + bra L06BA + bra L06BC + bra L06BE + bra L06C0 + bra L06C2 + bra L06C4 + bra L06C6 + bra L06C8 + bra L06CA + bra L06CC + bra L06CE + bra L06D0 + bra L06D2 + bra L06D4 + clr $06,s + ror $00,y + lsr >$6F20 + jmp $02,s + rol >$7465 +L06C0 tst <u0000 +L06C2 bra L06E4 +L06C4 bra L06E6 +L06C6 bra L06E8 +L06C8 bra L06EA +L06CA rorb + bra L06FA + bra L0745 + eim #$72,$09,s +L06D2 ror -$07,s +L06D4 bra L0743 + clr $04,s + eim #$6C,>$6520 + coma + fcb $52 R + coma + tst <u0000 + bra L0703 + bra L0705 +L06E5 bra L0707 + bra L0709 +L06E9 tsta +L06EA bra L0719 + bra L073B + oim #$73,$0B,s + bra L073C + fcb $52 R + fcb $51 Q + com >$2028 + lsr >$6F20 + neg >$6174 + com $08,s + bra L074B + fcb $52 R +L0703 fcb $51 Q + bra L0779 + eim #$72,-$0A,s +L0709 rol $03,s + eim #$20,-$0E,s + clr -$0B,s + lsr >$696E + eim #$0D,$00,x + bra L0738 + bra L073A + bra L073C + bra L073E + fcb $55 U + bra L074E + bra L0778 + jmp u000D,u + oim #$73,$0B,s + bra L0773 + fcb $52 R + fcb $51 Q + com >$0D00 + bra L0751 + bra L0753 + bra L0755 + bra L0757 + bpl L0759 + blt L075B +L073B coma +L073C clr $0D,s +L073E tst $05,s + jmp -$0C,s + bra L0790 + rol $0E,s + eim #$0D,$0D,x + neg <u006D +L074B clr $04,s + neg >$6174 + com $08,s + abx +L0753 bra L07CA +L0755 jmp $0B,s +L0757 jmp $0F,s +L0759 asr >$6E20 + clr -$10,s + lsr >$696F + jmp $0D,x + neg <u006D + clr $04,s + neg >$6174 + com $08,s + abx + bra L07D2 + oim #$6E,$07,y + lsr >$206F + neg >$656E +L0778 bra L07E3 + jmp -$10,s + eim #$74,>$2066 + rol $0C,s + eim #$0D,$0D,x + neg <u006D + clr $04,s + neg >$6174 + com $08,s + abx + bra L07FA + jmp -$10,s + eim #$74,>$2066 + rol $0C,s + eim #$20,-$0E,s + eim #$61,$04,s + bra L0806 + aim #$72,>$6F72 + tst <u0000 +L07A7 tst $0F,s + lsr -$10,s + oim #$74,$03,s + lsl -$06,y + bra L0815 + oim #$6E,$07,y + lsr >$206C + rol $0E,s + tim #$20,-$0C,s + clr $00,y + tst $0F,s + lsr -$0B,s + inc $05,s + tst <u000D + neg <u002A + bpl L07F5 + bra L082F + rol >$7465 + bra L0836 +L07D2 clr $05,s + com >$206E + clr -$0C,s + bra L0848 + oim #$74,$03,s + lsl $00,y + bpl L080C + bpl L07F1 + neg <u0034 + nega + ldd $04,s + leax >$00BD,y + leax d,x + ldb ,x +L07F1 clra + andb #$04 + beq L0814 + ldd $04,s + clra + andb #$DF + bra L0816 + pshs u + ldd $04,s + leax >$00BD,y + leax d,x + ldb ,x + clra + andb #$02 +L080C beq L0814 + ldd $04,s + orb #$20 + bra L0816 +L0814 ldd $04,s +L0816 puls pc,u +L0818 pshs u + ldu $04,s +L081C ldb ,u+ + bne L081C + tfr u,d + subd $04,s + addd #$FFFF + puls pc,u + pshs u + ldu $06,s + leas -$02,s +L082F ldd $06,s + std ,s +L0833 ldb ,u+ + ldx ,s + leax $01,x + stx ,s + stb -$01,x + bne L0833 + bra L0868 + pshs u + ldu $06,s + leas -$02,s + ldd $06,s + std ,s +L084B ldx ,s + leax $01,x + stx ,s + ldb -$01,x + bne L084B + ldd ,s + addd #$FFFF + std ,s +L085C ldb ,u+ + ldx ,s + leax $01,x + stx ,s + stb -$01,x + bne L085C +L0868 ldd $06,s + leas $02,s + puls pc,u + pshs u + ldu $04,s + bra L0884 +L0874 ldx $06,s + leax $01,x + stx $06,s + ldb -$01,x + bne L0882 + clra + clrb + puls pc,u +L0882 leau u0001,u +L0884 ldb ,u + sex + pshs b,a + ldb [<$08,s] + sex + cmpd ,s++ + beq L0874 + ldb [<$06,s] + sex + pshs b,a + ldb ,u + sex + subd ,s++ + puls pc,u + tstb + beq L08B5 +L08A2 asr $02,s + ror $03,s + decb + bne L08A2 + bra L08B5 + tstb + beq L08B5 +L08AE lsr $02,s + ror $03,s + decb + bne L08AE +L08B5 ldd $02,s + pshs b,a + ldd $02,s + std $04,s + ldd ,s + leas $04,s + rts +L08C2 tstb + beq L08B5 +L08C5 lsl $03,s + rol $02,s + decb + bne L08C5 + bra L08B5 + ldx $02,s + lda $05,s + os9 I$Open + bcs L08DA + os9 I$Close +L08DA lbra L0A80 +L08DD ldx $02,s + lda $05,s + os9 I$Open + lbcs L0A77 + tfr a,b + clra + rts + lda $03,s + os9 I$Close + lbra L0A80 + ldx $02,s + ldb $05,s + os9 I$MakDir + lbra L0A80 + ldx $02,s + lda $05,s + tfr a,b + andb #$24 + orb #$0B + os9 I$Create + bcs L0911 +L090D tfr a,b + clra + rts +L0911 cmpb #$DA + lbne L0A77 + lda $05,s + bita #$80 + lbne L0A77 + anda #$07 + ldx $02,s + os9 I$Open + lbcs L0A77 + pshs u,a + ldx #$0000 + leau ,x + ldb #$02 + os9 I$SetStt + puls u,a + bcc L090D + pshs b + os9 I$Close + puls b + lbra L0A77 + ldx $02,s + os9 I$Delete + lbra L0A80 + lda $03,s + os9 I$Dup + lbcs L0A77 + tfr a,b + clra + rts +L0959 pshs y + lda $05,s + ldx $06,s + ldy $08,s + os9 I$Read + bra L0973 +L0967 pshs y + lda $05,s + ldx $06,s + ldy $08,s + os9 I$ReadLn +L0973 bcc L09A2 + cmpb #$D3 + bne L099D + clra + clrb + puls pc,y +L097D pshs y + ldy $08,s + beq L09A2 + lda $05,s + ldx $06,s + os9 I$Write + bra L099B +L098D pshs y + ldy $08,s + beq L09A2 + lda $05,s + ldx $06,s + os9 I$WritLn +L099B bcc L09A2 +L099D puls y + lbra L0A77 +L09A2 tfr y,d + puls pc,y + pshs u + ldd $0A,s + bne L09B4 + ldu #$0000 + ldx #$0000 + bra L09E8 +L09B4 cmpd #$0001 + beq L09DF + cmpd #$0002 + beq L09D4 + ldb #$F7 +L09C2 clra + std >$018B,y + ldd #$FFFF + leax >$017F,y + std ,x + std $02,x + puls pc,u +L09D4 lda $05,s + ldb #$02 + os9 I$GetStt + bcs L09C2 + bra L09E8 +L09DF lda $05,s + ldb #$05 + os9 I$GetStt + bcs L09C2 +L09E8 tfr u,d + addd $08,s + std >$0181,y + tfr d,u + tfr x,d + adcb $07,s + adca $06,s + bmi L09C2 + tfr d,x + std >$017F,y + lda $05,s + os9 I$Seek + bcs L09C2 + leax >$017F,y + puls pc,u + rts + ldx #$0000 + clrb + os9 F$Sleep + lbra L0A77 + rts +L0A19 pshs u,y + ldx $06,s + ldy $08,s + ldu $0A,s + os9 F$CRC + puls pc,u,y + lda $03,s + ldb $05,s + os9 F$PErr + lbcs L0A77 + rts + ldx $02,s + os9 F$Sleep + lbcs L0A77 + tfr x,d + rts +L0A3F pshs u,y + ldx $06,s + lda $09,s + lsla + lsla + lsla + lsla + ora $0B,s + os9 F$Link + bcs L0A66 +L0A50 tfr u,d + puls u,y + rts + pshs u,y + ldx $06,s + lda $09,s + lsla + lsla + lsla + lsla + ora $0B,s + os9 F$Load + bcc L0A50 +L0A66 puls u,y + lbra L0A77 +L0A6B pshs u + ldu $04,s + os9 F$UnLink + puls u + lbra L0A80 +L0A77 clra + std >$018B,y + ldd #$FFFF + rts +L0A80 bcs L0A77 + clra + clrb + rts +L0A85 lbsr L0A90 + lbsr L0A91 +L0A8B ldd $02,s + os9 F$Exit +L0A90 rts +L0A91 rts +L0A92 neg <u0001 + neg <u0000 + lda >$0599 + eim #$B5,<u0005 + addd <u0005 + std $06,x + tst <u0006 + leau $06,x + rora + ror <u006B + ror <u0098 + ror <u00C2 + ror <u00E1 + asr <u0016 + asr <u002F + tst $0F,s + lsr -$10,s + oim #$74,$03,s + lsl -$06,y + bra L0B25 + inc $0C,s + eim #$67,$01,s + inc $00,y + com $0F,s + tst $0D,s + oim #$6E,$04,s + tst <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 L0B11 + bra L0B13 + bra L0B15 + bra L0B17 + bra L0B19 + bra L0B1B + bra L0B1D + lsla + lsla + lsla + lsla + lsla + lsla + lsla + lsla + lsla + lsla + bra L0B29 + bra L0B2B + bra L0B2D + bra L0B51 + fcb $42 B + fcb $42 B +L0B11 fcb $42 B + fcb $42 B +L0B13 fcb $42 B + aim #$02,<u0002 +L0B17 aim #$02,<u0002 + aim #$02,<u0002 +L0B1D aim #$02,<u0002 + aim #$02,<u0002 + aim #$02,<u0002 + aim #$02,<u0020 +L0B29 bra L0B4B +L0B2B bra L0B4D +L0B2D bra L0B73 + 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 L0B6A + bra L0B6C + oim #$00,<u000D + neg <u0091 +L0B51 neg <u008F + neg <u008D + neg <u008B + neg <u0089 + neg <u0087 + neg <u009F + neg <u009D + neg <u009B + neg <u0099 + neg <u0097 + neg <u0095 + neg <u0093 + neg <u0000 + tst $0F,s + lsr -$10,s + oim #$74,$03,s + lsl $00,x + emod +eom equ *
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/montype.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,90 @@ +******************************************************************** +* MonType - Change monitor type +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 1 Original Tandy/Microware version + + nam MonType + ttl Change monitor type + +* Disassembled 98/09/10 23:52:51 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set 1 + + mod eom,name,tylg,atrv,start,size + +u0000 rmb 300 +size equ . + +name fcs /MonType/ + fcb edition + +CurOn fdb $1B21 +HelpMsg fcb C$CR + fcb C$LF + fcc "MonType - Set up the monitor type" + fcb C$CR + fcb C$LF + fcc "Syntax: MonType [opt]" + fcb C$CR + fcb C$LF + fcc "Options: r = rgb monitor" + fcb C$CR + fcb C$LF + fcc " c = composite monitor (t.v.)" + fcb C$CR + fcb C$LF + fcc " m = monochrome monitor" + fcb C$CR + fcb C$LF +HelpMsgL equ *-HelpMsg + +start bsr L00F3 + cmpa #C$CR + beq L00FA + anda #$5F + cmpa #'R + bne L00C7 + ldx #$0001 + bra L00D7 +L00C7 cmpa #'C + bne L00D0 + ldx #$0000 + bra L00D7 +L00D0 cmpa #'M + bne L00FA + ldx #$0002 +L00D7 lda #1 + ldb #SS.Montr + os9 I$SetStt + bcs L00F0 + leax >CurOn,pcr + lda #1 + ldy #2 + os9 I$Write + bcs L00F0 +L00EF clrb +L00F0 os9 F$Exit +L00F3 lda ,x+ + cmpa #C$SPAC + beq L00F3 + rts +L00FA lda #1 + leax >HelpMsg,pcr + ldy #HelpMsgL + os9 I$Write + bra L00EF + + emod +eom equ * + end
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/procs.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,287 @@ +******************************************************************** +* Procs - Show process information +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 14 Original Tandy/Microware version + + nam Procs + ttl program module + +* Disassembled 98/09/11 17:07:20 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set 14 + + 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 2 +u0008 rmb 1 +u0009 rmb 1 +u000A rmb 32 +u002A rmb 58 +u0064 rmb 22 +u007A rmb 110 +u00E8 rmb 1164 +size equ . + +name fcs /Procs/ + fcb edition +L0013 fcs " User Mem Stack" +L003E fcs "Id PId Number Pty Age Sts Signl Siz Ptr Primary Module" +L0079 fcs "--- --- ------- --- --- --- ----- --- ----- ----------------" +L00B5 fcs "Id PId User# Pty Age Sts" +L00D2 fcs " Sigl Mem StPtr Primary" +L00EF fcs "=============================" +L010C fcs "DEAD" + +start clr <u0000 + clr <u0002 + lda #$01 + sta <u0001 + lda ,x+ + eora #'E + anda #$DF + bne L0122 + inc <u0000 +L0122 leax <u002A,u + stx <u0006 + leax <u007A,u + os9 F$GBlkMp + tfr a,b + nega + sta <u0008 + lda #$FE +L0134 inca + lsrb + bne L0134 + sta <u0009 + os9 F$ID + sty <u0003 + lbsr L024F + lda #$01 + ldb #SS.ScSiz + os9 I$GetStt + bcc L0154 + cmpb #E$UnkSvc + lbne L0241 + bra L017B +L0154 cmpx #$003C + bge L017B + inc <u0002 + leay >L00B5,pcr + lbsr L0244 + lbsr L024F + leay >L00D2,pcr + lbsr L0244 + lbsr L024F + leay >L00EF,pcr + lbsr L0244 + lbsr L024F + bra L0199 +L017B leay >L0013,pcr + lbsr L0244 + lbsr L024F + leay >L003E,pcr + lbsr L0244 + lbsr L024F + leay >L0079,pcr + lbsr L0244 + lbsr L024F +L0199 inc <u0001 + lbeq L0240 + lda <u0001 + leax <u007A,u + os9 F$GPrDsc + bcs L0199 + ldd <u0003 + cmpd $08,x + beq L01B4 + tst <u0000 + beq L0199 +L01B4 ldb ,x + lbsr L026F + lbsr L0292 + ldb $01,x + lbsr L026F + lbsr L0292 + ldd $08,x + lbsr L02C3 + lbsr L0292 + lbsr L0292 + lbsr L0292 + ldb $0A,x + lbsr L026F + lbsr L0292 + tst <u0002 + beq L01E1 + lbsr L0292 +L01E1 ldb $0B,x + lbsr L026F + lbsr L0292 + tst <u0002 + beq L01F0 + lbsr L0292 +L01F0 lda #$24 + lbsr L0296 + lda $0C,x + lbsr L02A0 + clra + tst <u0002 + beq L0202 + lbsr L024F +L0202 ldb <$19,x + lbsr L02C3 + lbsr L0292 + lbsr L0292 + ldb $07,x + bsr L026F + bsr L0292 + tst <u0002 + beq L021E + bsr L0292 + bsr L0292 + bsr L0292 +L021E lda #$24 + bsr L0296 + lda $04,x + bsr L02A0 + lda $05,x + bsr L02A0 + bsr L0292 + tst <u0002 + beq L0234 + bsr L0292 + bsr L0292 +L0234 lbsr L02FA + bsr L0244 + bsr L0292 + bsr L024F + lbra L0199 +L0240 clrb +L0241 os9 F$Exit +L0244 lda ,y + anda #$7F + bsr L0296 + lda ,y+ + bpl L0244 + rts +L024F pshs y,x,a + lda #C$CR + bsr L0296 + leax <u002A,u + stx <u0006 + tst <u0002 + beq L0264 + ldy #$0020 + bra L0268 +L0264 ldy #80 +L0268 lda #$01 + os9 I$WritLn + puls pc,y,x,a +L026F clr <u0005 + lda #$FF +L0273 inca + subb #$64 + bcc L0273 + bsr L0289 + lda #$0A +L027C deca + addb #$0A + bcc L027C + bsr L0289 + tfr b,a + adda #$30 + bra L0296 +L0289 tsta + beq L028E + sta <u0005 +L028E tst <u0005 + bne L0294 +L0292 lda #$F0 +L0294 adda #$30 +L0296 pshs x + ldx <u0006 + sta ,x+ + stx <u0006 + puls pc,x +L02A0 pshs a + anda #$F0 + lsra + lsra + lsra + lsra + bsr L02AE + puls a + anda #$0F +L02AE adda #$30 + cmpa #$39 + bls L0296 + adda #$07 + bra L0296 +L02B8 fdb $2710,$03e8,$0064,$000a + fcb $00,$01,$ff + +L02C3 pshs y,x,b,a + leax <L02B8,pcr + ldy #$2F20 +L02CC leay >$0100,y + subd ,x + bcc L02CC + addd ,x++ + pshs b,a + tfr y,d + tst ,x + bmi L02F4 + ldy #$2F30 + cmpd #$3020 + bne L02EE + ldy #$2F20 + lda #$20 +L02EE bsr L0296 + puls b,a + bra L02CC +L02F4 bsr L0296 + leas $02,s + puls pc,y,x,b,a +L02FA pshs u,x + leay >L010C,pcr + lda $0C,x + bita #$01 + bne L0330 + leay <$40,x + tfr y,d + ldx <$11,x + ldy #$0009 + leau u000A,u + os9 F$CpyMem + pshs b,a + ldd u0004,u + leax d,x + puls b,a + ldy #$0020 + os9 F$CpyMem + leay ,u + lda <$1F,y + ora #$80 + sta <$1F,y +L0330 puls pc,u,x + + emod +eom equ * + end +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/shell_21.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,769 @@ +******************************************************************** +* Shell - OS-9 command line interpreter +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 21 Original Tandy/Microware version + + nam Shell + ttl OS-9 command line interpreter + +* Disassembled 99/04/18 22:59:49 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set 21 + + mod eom,name,tylg,atrv,start,size + +u0000 rmb 1 +u0001 rmb 2 +u0003 rmb 1 +u0004 rmb 1 +u0005 rmb 1 +u0006 rmb 2 +u0008 rmb 1 +u0009 rmb 1 +u000A rmb 1 +u000B rmb 1 +u000C rmb 1 +u000D rmb 1 +u000E rmb 1 +u000F rmb 1 +u0010 rmb 1 +u0011 rmb 1 +u0012 rmb 1 +u0013 rmb 1 +u0014 rmb 1 +u0015 rmb 1 +u0016 rmb 1 +u0017 rmb 22 +u002D rmb 3 +u0030 rmb 14 +u003E rmb 32 +u005E rmb 2 +u0060 rmb 16 +u0070 rmb 58 +u00AA rmb 85 +u00FF rmb 513 +size equ . +name equ * + +L000D fcs /Shell/ + fcb edition + +L0013 fcb $13 + fcs "PascalS" + fcb $25 % + fcs "RunC" + fcb $22 " + fcs "RunB" + fcb $00 + fcb $00 + fcb $00 + fcb $00 + fcb $00 + fcb $00 + fcb $00 + fcb $00 + fcb $00 +L002E fcb C$LF + fcc "Shell" + fcb C$CR +L0035 fcb C$LF +L0036 fcc "OS9:" +L003A fcs "W" + fcb $0E + fcc ";" + +start leas -$05,s + pshs y,x,b,a + ldb #$6F + lbsr L0175 + leax <L003A,pcr + os9 F$Icpt + puls x,b,a + std <u0006 + beq L005B + lbsr L017B + bcs L00C2 + tst <u000C + bne L00C1 +L005B lds ,s++ +L005E leax <L002E,pcr + tst <u0012 + bne L0076 + bsr L00CB + bcs L00C8 +L0069 leax <L0035,pcr + ldy #$0005 +L0070 tst <u0012 + bne L0076 + bsr L00CF +L0076 clra + leax <u0070,u + ldy #$00C8 + os9 I$ReadLn + bcc L0094 + cmpb #$D3 + beq L00B8 +L0087 tst <u000F + bne L008F + tst <u0014 + bne L00C2 +L008F os9 F$PErr + bra L0069 +L0094 cmpy #$0001 + bhi L00A4 + leax >L0036,pcr + ldy #$0004 + bra L0070 +L00A4 tst <u0013 + beq L00AA + bsr L00CB +L00AA lbsr L017B + bcc L0069 + tstb + bne L0087 + bra L0069 +L00B4 fcc "eof" + fcb C$CR +L00B8 tst <u0012 + bne L00C1 + leax <L00B4,pcr + bsr L00CB +L00C1 clrb +L00C2 lda <u000F + lbne L0331 +L00C8 os9 F$Exit +L00CB ldy #$0050 +L00CF lda #$02 + os9 I$WritLn + rts + lbsr L03B3 + lbcs L02ED + pshs x + ldb #$0E + leax <u0016,u + lda #$2F + sta ,x+ + clra + os9 I$GetStt + puls x + lbcs L02ED + inc <u000F + inc <u0010 + lbsr L02ED + clr <u0010 + rts +L00FB fcb $01,$e3,$aa,$03,$60 +L0100 fcs "W" + fcb $01,$BF + fcs "CHD" + fcb $01,$B6 + fcs "CHX" + fcb $01,$8B + fcs "EX" + fcb $04,$AF + fcs "KILL" + fcb $01,$C1 + fcb $d8,$01,$c2,$2d,$d8,$01,$aa,$d0,$01 + fcb $aa + fcs "-P" + fcb $01,$ab + fcs "T" + fcb $01,$ac + fcs "-T" + fcb $04,$c0 + fcs "SETPR" + fcb $FF,$a4 + fcs "I=" + fcb $01,$2c + fcs ";" + fcb $00,$00 +L013A fcb $04,$30,$a1,$02,$fb,$bb,$03,$11 + fcs "&" + fcb $02,$ee,$8d +L0146 fcb $02,$69 + fcs "<>>>" + fcb $02,$79 + fcs "<>>" + fcb $02,$67 + fcs "<>" + fcb $02,$7d + fcs ">>>" + fcb $01,$fb + fcs ">>" + fcb $01,$f2 + fcs "<" + fcb $01,$fb + fcs ">" + fcb $02,$ab + fcs "#" + fcb $00,$00 +L0169 fcb $0d + fcc "()" + fcb $ff +L016D fcb $0d + fcc "!#&;<>" + fcb $ff + +L0175 clr b,u + decb + bpl L0175 + rts +L017B ldb #$0E + bsr L0175 +L017F clr <u0003 + clr <u000E + leay >L00FB,pcr + lbsr L020F + bcs L01DE + cmpa #$0D + beq L01DE + sta <u000C + cmpa #$28 + bne L01BA + leay >L000D,pcr + sty <u0004 + leax $01,x + stx <u0008 +L01A1 inc <u000D +L01A3 leay <L0169,pcr + bsr L0227 + cmpa #$28 + beq L01A1 + cmpa #$29 + bne L01D6 + dec <u000D + bne L01A3 + lda #$0D + sta -$01,x + bra L01BE +L01BA bsr L01E1 + bcs L01DE +L01BE leay <L016D,pcr + bsr L0227 + tfr x,d + subd <u0008 + std <u0006 + leax -$01,x + leay >L013A,pcr + bsr L020F + bcs L01DE + ldy <u0004 +L01D6 lbne L0326 + cmpa #$0D + bne L017F +L01DE lbra L02ED +L01E1 stx <u0004 + bsr L01F4 + bcs L01F3 +L01E7 bsr L01F4 + bcc L01E7 + leay >L0146,pcr + bsr L020F + stx <u0008 +L01F3 rts +L01F4 os9 F$PrsNam + bcc L0205 + lda ,x+ + cmpa #$2E + bne L0209 + cmpa ,x+ + beq L0207 + leay -$01,x +L0205 leax ,y +L0207 clra + rts +L0209 comb + leax -$01,x + ldb #$D7 + rts +L020F bsr L0241 + pshs y + bsr L0264 + bcs L0220 + ldd ,y + jsr d,y + puls y + bcc L020F + rts +L0220 clra + lda ,x + puls pc,y +L0225 puls y +L0227 pshs y + lda ,x+ +L022B tst ,y + bmi L0225 + cmpa #$22 + bne L023B +L0233 lda ,x+ + cmpa #$22 + bne L0233 + lda ,x+ +L023B cmpa ,y+ + bne L022B + puls pc,y +L0241 pshs x + lda ,x+ + cmpa #$20 + beq L0257 + cmpa #$2C + beq L0257 + leax >L016D,pcr +L0251 cmpa ,x+ + bhi L0251 + puls pc,x +L0257 leas $02,s + lda #$20 +L025B cmpa ,x+ + beq L025B + leax -$01,x + andcc #$FE + rts +L0264 pshs y,x + leay $02,y +L0268 ldx ,s +L026A lda ,x+ + cmpa #$61 + bcs L0272 + suba #$20 +L0272 eora ,y+ + lsla + bne L0286 + bcc L026A + lda -$01,y + cmpa #$C1 + bcs L0283 + bsr L0241 + bcs L0286 +L0283 clra + puls pc,y,b,a +L0286 leay -$01,y +L0288 lda ,y+ + bpl L0288 + sty $02,s + ldd ,y++ + bne L0268 + comb + puls pc,y,x + lbsr L01E1 + clra + bsr L02B8 + bsr L02B7 + bsr L02B7 + bsr L02DE + leax $01,x + tfr x,d + subd <u0008 + std <u0006 + leas >u00FF,u + lbsr L0497 + os9 F$Chain + lbra L00C2 +L02B7 inca +L02B8 pshs a + bra L0313 + lda #$84 + bra L02C2 + lda #$83 +L02C2 os9 I$ChgDir + rts + clra + bra L02CB + lda #$01 +L02CB sta <u0012 + rts + lda #$01 + bra L02D3 + clra +L02D3 sta <u0013 + rts + lda #$01 + bra L02DB + clra +L02DB sta <u0014 + rts +L02DE lda #$0D +L02E0 cmpa ,x+ + bne L02E0 + cmpa ,-x + rts +L02E7 pshs b,a,cc + lda #$01 + bra L02F1 +L02ED pshs b,a,cc + lda #$02 +L02F1 sta <u0011 + clra +L02F4 bsr L02FF + inca + cmpa <u0011 + bls L02F4 + ror ,s+ + puls pc,b,a +L02FF pshs a + tst <u0010 + bmi L031B + bne L0313 + tst a,u + beq L031E + os9 I$Close + lda a,u + os9 I$Dup +L0313 ldb ,s + lda b,u + beq L031E + clr b,u +L031B os9 I$Close +L031E puls pc,a +L0320 fcc "WHAT?" + fcb C$CR +L0326 bsr L02ED + leax <L0320,pcr + lbsr L00CB + clrb + coma + rts +L0331 inc <u0010 + bsr L02ED + lda #$FF + sta <u0010 + bsr L02E7 + leax <u0016,u + bsr L03BC + lbcs L00C8 + lda #$02 + bsr L02FF + lbsr L03DC + clr <u0010 + lbra L005E +L0350 ldd #$0001 + bra L036E + ldd #$020D + stb -$02,x + bra L035E + lda #$01 +L035E ldb #$02 + bra L036E +L0362 tst a,u + bne L0326 + pshs b,a + tst <u0010 + bmi L0386 + bra L0378 +L036E tst a,u + bne L0326 + pshs b,a + ldb #$0D + stb -$01,x +L0378 os9 I$Dup + bcs L03A8 + ldb ,s + sta b,u + lda ,s + os9 I$Close +L0386 lda $01,s + bmi L0391 + ldb ,s + bsr L03E1 + tsta + bpl L0398 +L0391 anda #$0F + os9 I$Dup + bra L03A6 +L0398 bita #$02 + bne L03A1 + os9 I$Open + bra L03A6 +L03A1 ldb #$0B + os9 I$Create +L03A6 stb $01,s +L03A8 puls pc,b,a +L03AA clra +L03AB ldb #$03 + bra L0362 + lda #$0D +L03B1 sta -$04,x +L03B3 bsr L03BC + bcc L03DC +L03B7 rts + lda #$0D + sta -$02,x +L03BC bsr L03AA + bcs L03B7 + ldd #$0180 + bra L0362 + lda #$0D + sta -$03,x + bsr L03AA + bcs L03B7 + ldd #$0280 + bra L0362 + lda #$0D + sta -$03,x + lda #$01 + bsr L03AB + bcs L03B7 +L03DC ldd #$0281 + bra L0362 +L03E1 pshs x,b,a + ldd ,x++ + cmpd #$2F30 + bcs L040D + cmpd #$2F32 + bhi L040D + pshs x,b,a + lbsr L0241 + puls x,b,a + bcs L040D + andb #$03 + cmpb $01,s + bne L0404 + ldb $01,s + ldb b,u +L0404 orb #$80 + stb ,s + puls b,a + leas $02,s + rts +L040D puls pc,x,b,a + ldb #$0D + stb -$01,x + ldb <u0003 + lbne L0326 + lbsr L05CC + eora #$4B + anda #$DF + bne L042C + leax $01,x + lda #$04 + mul + tsta + lbne L0326 +L042C stb <u0003 + lbra L0241 + leax -$01,x + lbsr L04CA + bra L043B + lbsr L04C6 +L043B bcs L044E + lbsr L02ED + bsr L045F +L0442 bcs L044E + lbsr L0241 + cmpa #$0D + bne L044D + leas $04,s +L044D clrb +L044E lbra L02ED + bsr L04C6 + bcs L044E + bsr L044E + ldb #$26 + lbsr L0597 + bra L0442 + clra +L045F pshs a +L0461 os9 F$Wait + tst <u000E + beq L0479 + ldb <u000E + cmpb #$02 + bne L0491 + lda ,s + beq L0491 + os9 F$Send + clr ,s + bra L0461 +L0479 bcs L0495 + cmpa ,s + beq L0491 + tst ,s + beq L0486 + tstb + beq L0461 +L0486 pshs b + bsr L044E + ldb #$2D + lbsr L0597 + puls b +L0491 tstb + beq L0495 + coma +L0495 puls pc,a +L0497 lda #$11 + ldb <u0003 + ldx <u0004 + ldy <u0006 + ldu <u0008 + rts +L04A3 lda #$04 + os9 I$Open + bcs L0500 + leax <u005E,u + ldy #$000D + os9 I$Read + pshs b,cc + os9 I$Close + puls b,cc + lbcs L0561 + lda $06,x + ldy $0B,x + bra L04D9 +L04C6 lda #$0D + sta -$01,x +L04CA pshs u,y,x + clra + ldx <u0004 + os9 F$NMLink + bcs L04A3 + ldx <u0004 + os9 F$UnLoad +L04D9 cmpa #$11 + beq L0527 + sty <u000A + leax >L0013,pcr +L04E4 tst ,x + beq L055F + cmpa ,x+ + beq L04F2 +L04EC tst ,x+ + bpl L04EC + bra L04E4 +L04F2 ldd <u0008 + subd <u0004 + addd <u0006 + std <u0006 + ldd <u0004 + std <u0008 + bra L0525 +L0500 ldx <u0006 + leax $05,x + stx <u0006 + ldx <u0004 + ldu $04,s + lbsr L0350 + bcs L0561 + ldu <u0008 + ldd #$5820 + std ,--u + ldd #$5020 + std ,--u + ldb #$2D + stb ,-u + stu <u0008 + leax >L000D,pcr +L0525 stx <u0004 +L0527 ldx <u0004 + lda #$11 + os9 F$NMLink + bcc L0535 + os9 F$NMLoad + bcs L0561 +L0535 tst <u0003 + bne L0542 + tfr y,d + addd <u000A + addd #$00FF + sta <u0003 +L0542 lbsr L0497 + os9 F$Fork + pshs b,a,cc + bcs L0552 + ldx #$0001 + os9 F$Sleep +L0552 lda #$11 + ldx <u0004 + clr <u0004 + clr <u0005 + os9 F$UnLoad + puls pc,u,y,x,b,a,cc +L055F ldb #$EA +L0561 coma + puls pc,u,y,x + +L0564 fcc "/pipe" + fcb C$CR +L0569 pshs x + leax <L0564,pcr + ldd #$0103 + lbsr L0362 + puls x + bcs L05CB + lbsr L04C6 + bcs L05CB + lda ,u + bne L0589 + os9 I$Dup + bcs L05CB + sta ,u +L0589 clra + os9 I$Close + lda #$01 + os9 I$Dup + lda #$01 + lbra L02FF +L0597 pshs y,x,b,a + pshs y,x,b + leax $01,s + ldb #$2F +L059F incb + suba #$64 + bcc L059F + stb ,x+ + ldb #$3A +L05A8 decb + adda #$0A + bcc L05A8 + stb ,x+ + adda #$30 + ldb #$0D + std ,x + leax ,s + lbsr L00CB + leas $05,s + puls pc,y,x,b,a + bsr L05CC + cmpb #$02 + bls L05E7 + tfr b,a + ldb #$00 + os9 F$Send +L05CB rts +L05CC clrb +L05CD lda ,x+ + suba #$30 + cmpa #$09 + bhi L05DE + pshs a + lda #$0A + mul + addb ,s+ + bcc L05CD +L05DE lda ,-x + bcs L05E5 + tstb + bne L05CB +L05E5 leas $02,s +L05E7 lbra L0326 + bsr L05CC + stb <u0015 + lbsr L0241 + bsr L05CC + lda <u0015 + os9 F$SPrior + rts + + emod +eom equ * + end
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/unlink.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,46 @@ +******************************************************************** +* Unlink - Unlink a module +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 2 Original Tandy/Microware version + + nam Unlink + ttl Unlink a module + +* Disassembled 98/09/10 23:12:44 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set 2 + + mod eom,name,tylg,atrv,start,size + +u0000 rmb 512 +size equ . + +name fcs /Unlink/ + fcb edition + +start clra + os9 F$UnLoad + bcs exit + lda ,x+ + cmpa #C$COMA + beq start + lda ,-x + cmpa #C$CR + bne start + clrb +exit os9 F$Exit + + emod +eom equ * + end
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/wcreate.asm Wed Jul 24 06:01:12 2002 +0000 @@ -0,0 +1,228 @@ +******************************************************************** +* WCreate - Create a window +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 3 Original Tandy/Microware version + + nam WCreate + ttl Create a window + +* Disassembled 98/09/11 18:26:55 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set 3 + + mod eom,name,tylg,atrv,start,size + +u0000 rmb 2 +u0002 rmb 1 +u0003 rmb 7 +u000A rmb 1 +u000B rmb 1 +u000C rmb 1 +u000D rmb 1 +u000E rmb 480 +size equ . + +name fcs /WCreate/ + fcb edition +L0015 fcb C$CR + fcb C$LF + fcc "WCreate <windpath> [-s=stype] xpos ypos width height fcol bcol [bord]" + fcb C$CR + fcb C$LF + fcc "Use: Create a new window" + fcb C$CR + fcb C$LF + fcc "Options: -s=stype place the window on a new screen, must also" + fcb C$CR + fcb C$LF + fcc " include the border color." + fcb C$CR + fcb C$LF + fcc " -z receive commands from standard input" + fcb C$CR + fcb C$LF + fcc " -? receive help message" + fcb C$CR + fcb C$LF +L0148 fdb $1B21 + +start clr <u000D + clra + coma + sta <u000C + lbsr L0260 + lda ,x + cmpa #PDELIM + bne L015D + bsr L01B2 + bra L01AF +L015D cmpa #'- + lbne L026B + leax 1,x + lda ,x+ + cmpa #$3F + lbeq L026B + cmpa #$7A + beq L0177 + cmpa #$5A + lbne L026B +L0177 lda #$01 + sta <u000D +L017B clra + leax u000E,u + ldy #$0050 + os9 I$ReadLn + bcs L019C + lda ,x + cmpa #$2A + beq L0177 + lbsr L0260 + lda ,x + cmpa #C$CR + beq L01A0 + bsr L01B5 + bcs L01AF + bra L017B +L019C cmpb #$D3 + bne L01AF +L01A0 lda #$01 + lbsr L0254 + lda <u000C + bmi L01AE + os9 I$Close + bcs L01AF +L01AE clrb +L01AF os9 F$Exit +L01B2 lbsr L0260 +L01B5 clr <u000A + clr <u0002 + lda ,x + cmpa #PDELIM + lbne L0269 + lda #$03 + pshs u,x,a + leax $01,x + os9 I$Attach + puls u,x,a + lbcs L0253 + os9 I$Open + bcs L0253 + sta <u000B + lbsr L0260 + lda ,x+ + cmpa #'- + bne L01FD + lda ,x+ + cmpa #$73 + beq L01EA + cmpa #$53 + bne L0269 +L01EA lda ,x+ + cmpa #$3D + bne L0269 + leay u0002,u + lbsr L027B + bcs L0269 + inc <u000A + ldb #$07 + bra L0203 +L01FD leay u0003,u + ldb #$06 + leax -1,x +L0203 bsr L027B + bcs L0269 + decb + bne L0203 + leax ,u + lda #$1B + sta ,x + lda #$20 + sta 1,x + tst <u000A + beq L021E + ldy #$000A + bra L0222 +L021E ldy #$0009 +L0222 lda <u000B + os9 I$Write + bcs L0253 + tst <u000D + beq L024E + tst <u000A + beq L024E + tst <u000C + bpl L0239 + lda #$01 + bsr L0254 +L0239 lda <u000B + bsr L0254 + bcs L0253 + tst <u000C + bmi L0248 + lda <u000C + os9 I$Close +L0248 lda <u000B + sta <u000C + bra L0253 +L024E lda <u000B + os9 I$Close +L0253 rts +L0254 leax >L0148,pcr + ldy #$0002 + os9 I$Write + rts +L0260 lda ,x+ + cmpa #$20 + beq L0260 + leax -1,x + rts +L0269 leas $02,s +L026B lda #$01 + leax >L0015,pcr + ldy #$0133 + os9 I$Write + lbra L01AE +L027B pshs b + clrb + stb ,y +L0280 lda ,x+ + cmpa #$30 + blt L029B + cmpa #$39 + bhi L029B + suba #$30 + pshs a + lda #$0A + ldb ,y + mul + addb ,s+ + stb ,y + bvs L02A7 + bra L0280 +L029B cmpa #C$CR + beq L02AA + cmpa #C$SPAC + bsr L0260 + bra L02AA + bne L02A7 +L02A7 comb + bra L02AD +L02AA clrb + leay $01,y +L02AD puls pc,b + + emod +eom equ * + end +