Mercurial > hg > Members > kono > nitros9-code
changeset 195:ebcece198317
Migrated OS-9 Level Two command
| author | boisy |
|---|---|
| date | Sun, 14 Jul 2002 05:32:44 +0000 |
| parents | 49fc033007f5 |
| children | b213f39b1bc6 |
| files | level1/cmds/edit.asm level1/cmds/makefile |
| diffstat | 2 files changed, 2357 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/cmds/edit.asm Sun Jul 14 05:32:44 2002 +0000 @@ -0,0 +1,2356 @@ + nam Edit + ttl program module + +* Disassembled 02/07/05 22:33:05 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 + +L0000 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 1 +u000C rmb 1 +u000D rmb 1 +u000E rmb 1 +u000F rmb 1 +u0010 rmb 1 +u0011 rmb 1 +u0012 rmb 2 +u0014 rmb 2 +u0016 rmb 2 +u0018 rmb 2 +u001A rmb 2 +u001C rmb 2 +u001E rmb 2 +u0020 rmb 1 +u0021 rmb 2 +u0023 rmb 1 +u0024 rmb 1 +u0025 rmb 1 +u0026 rmb 1 +u0027 rmb 2 +u0029 rmb 1 +u002A rmb 1 +u002B rmb 2 +u002D rmb 2 +u002F rmb 1 +u0030 rmb 2 +u0032 rmb 4 +u0036 rmb 1 +u0037 rmb 1 +u0038 rmb 1 +u0039 rmb 1 +u003A rmb 1 +u003B rmb 1 +u003C rmb 1 +u003D rmb 1 +u003E rmb 1 +u003F rmb 1 +u0040 rmb 1 +u0041 rmb 1 +u0042 rmb 1 +u0043 rmb 1 +u0044 rmb 1 +u0045 rmb 2 +u0047 rmb 1 +u0048 rmb 1 +u0049 rmb 2 +u004B rmb 2 +u004D rmb 1 +u004E rmb 1 +u004F rmb 2 +u0051 rmb 4 +u0055 rmb 2 +u0057 rmb 13 +u0064 rmb 7 +u006B rmb 2 +u006D rmb 2 +u006F rmb 5 +u0074 rmb 7 +u007B rmb 14 +u0089 rmb 1 +u008A rmb 4 +u008E rmb 16 +u009E rmb 7 +u00A5 rmb 1 +u00A6 rmb 11 +u00B1 rmb 3 +u00B4 rmb 2 +u00B6 rmb 15 +u00C5 rmb 8 +u00CD rmb 2 +u00CF rmb 2 +u00D1 rmb 2 +u00D3 rmb 2 +u00D5 rmb 1 +u00D6 rmb 18 +u00E8 rmb 4 +u00EC rmb 1 +u00ED rmb 10 +u00F7 rmb 4 +u00FB rmb 3 +u00FE rmb 121 +u0177 rmb 255 +u0276 rmb 40 +u029E rmb 384 +u041E rmb 2049 +size equ . +name equ * + fcs /Edit/ + fcb $03 + fcc "(C)1981Microware" +L0022 fcb $01 + lbra L0292 + lbra L0C38 + lbra L0BEC + lbra L0BE3 + lbra L100F + lbra L0770 + lbra L06EA + lbra L0716 + lbra L073F + lbra L04A1 + lbra L046B + lbra L05D6 + lbra L0626 + lbra L0094 + lbra L0B96 + lbra L0B01 +L0053 lda #$00 + sta <u0023,u + rti +L0059 ldx <u000E + jmp ,x +L005D lda <u0026 + lbsr L0107 + lda #$3A + lbsr L0107 + ldx <u0012 + leax >$0177,x + lda <u000A + ldy #$0080 + os9 I$ReadLn + bcc L0081 + cmpb #$D3 + lbeq L114D + lbra L12AA +L0081 rts +L0082 pshs x,b,a + lbsr L06D7 + bsr L008B + puls pc,x,b,a +L008B pshs b,a + lbsr L0130 + bsr L0094 + puls pc,b,a +L0094 pshs y,x,b,a + cmpd #$0000 + beq L00C6 + leay d,x + pshs y +L00A0 tst <u0037 + beq L00AC + lda #$20 + bsr L0107 + bsr L0107 + bsr L0107 +L00AC tst <u0023 + beq L00C4 + lda ,x+ + bsr L0107 + cmpx ,s + beq L00BE + cmpa #$0D + bne L00AC + bra L00A0 +L00BE cmpa #$0D + beq L00C4 + bsr L00FF +L00C4 puls y +L00C6 puls pc,y,x,b,a +L00C8 pshs y,b,a + ldd <u0002 + tstb + beq L00E0 + cmpa ,s + bne L00E0 + ldd <u0021 + addd #$0001 + std <u0021 + ldb <u0020 + adcb #$00 + stb <u0020 +L00E0 bsr L0130 + tfr d,y + lda ,s + os9 I$Write + lbcs L12AA + puls pc,y,b,a +L00EF pshs a + bsr L00FF + lda <u0037 + clr <u0037 + bsr L008B + sta <u0037 + puls pc,a +L00FD bsr L00FF +L00FF pshs a + lda #$0D + bsr L0107 + puls pc,a +L0107 pshs y,x,a + lda <u000B + ldy #$0001 + tfr s,x + tst <u0041 + bmi L0119 + tst <u003E + beq L0120 +L0119 os9 I$WritLn + lbcs L12AA +L0120 puls pc,y,x,a +L0122 pshs x + lda ,x+ + cmpa #$0D + lbeq L1272 + bsr L0132 + puls pc,x +L0130 lda #$0D +L0132 pshs y,x + ldb #$0D + ldy #$0000 +L013A cmpx <u001C + beq L014C + leay $01,y + cmpb ,x + beq L014C + cmpa ,x+ + bne L013A + leay -$01,y + bra L0152 +L014C cmpa #$0D + lbne L1272 +L0152 tfr y,d + cmpd #$0000 + puls pc,y,x +L015A pshs u,x,b,a + os9 F$PrsNam + puls pc,u,x,b,a +start equ * + tfr u,d + std <u0012 + sts <u001E + leas >u041E,u + addd #$041F + std <u0014 + std <u0016 + std <u001C + std <u001A + pshs u,y,x,b,a + leax >L0022,pcr + stx <u000C + leax >L005D,pcr + stx <u000E + leax >L09DD,pcr + stx <u0010 + ldd #$0000 + std <u0051 + std <u006F + std <u0089 + leax >L1482,pcr + stx <u004D + leax >L13CF,pcr + stx <u006B + leax >L0000,pcr + stx <u004F + stx <u006D + leax >L13B0,pcr + lda #$01 + os9 F$Link + bcs L01B5 + jsr ,y +L01B5 leax >L13B6,pcr + lda #$01 + os9 F$Link + bcs L01C2 + jsr ,y +L01C2 puls u,y,x,b,a + lda #$FF + sta <u0041 + inca + sta <u0001 + sta <u0003 + sta <u0005 + sta <u0007 + sta <u000A + sta <u003D + inca + sta <u000B + sta <u003E + sta <u0040 + lda #$45 + sta <u0026 + clr <u0036 + lbsr L0691 + cmpa #$0D + beq L0260 + lbsr L015A + bcs L0259 + lda #$01 + stx <u0032 + os9 I$Open + bcs L024B + ldb #$01 + std <u0000 + pshs x + leay >u00F7,u + leax >L139F,pcr + ldd #$0007 + lbsr L0B96 + pshs y + ldx <u0032 +L020F cmpx $02,s + beq L0220 + lda ,x+ + sta ,y+ + cmpa #$2F + bne L020F + sty ,s + bra L020F +L0220 puls y + leax >L13A7,pcr + ldd #$0008 + lbsr L0B96 + ldx <u0032 + ldd ,s + subd <u0032 + sty <u0032 + lbsr L0B96 + lda #$0D + sta ,y + puls x + lbsr L0691 + cmpa #$0D + bne L024B + leax >u00FE,u + inc <u0036 +L024B ldd #$020B + os9 I$Create + bcs L025B + ldb #$02 + std <u0002 + bra L0260 +L0259 ldb #$D8 +L025B orcc #$01 + os9 F$Exit +L0260 ldy #$0000 + sty <u0024 + lda #$42 + lbsr L06EA + lbsr L073F + lda #$42 + ldy #$0001 + lbsr L06EA + leax >L0053,pcr + ldu <u0012 + os9 F$Icpt + tst <u0001 + beq L028F + ldd <u001E + subd <u001C + subd #$0400 + lbsr L0F43 +L028F lbsr L00FD +L0292 ldu <u0012 + leas >u041E,u + leax >u029E,u + stx <u0045 + stx <u0047 + leax <-$28,x + stx <u0049 + lda #$FF + sta <u0041 + sta <u0023 + lda <u0040 + sta <u003E + clr <u003B + clr <u003A + clr <u003C + lda #$01 + sta <u0037 + tst <u003D + beq L02CB + tst <u0039 + bne L02CB + leax >L1398,pcr + lbsr L00EF + lbsr L00FF +L02CB clr <u003D + clr <u0039 + lbsr L0059 + leax >u0177,u + lbsr L0130 + leay d,x + sty <u002B + ldy #$0000 + sty <u0029 + leau >u0276,u + stu <u0027 + lda ,x + cmpa #$20 + bne L02F8 + leax $01,x + lbsr L0BDE + bra L0292 +L02F8 cmpa #$0D + bne L0308 + ldx <u001A + lbsr L06B2 + stx <u001A + lbsr L008B + bra L0292 +L0308 bsr L0310 + lbsr L00FF + lbra L0292 +L0310 ldd <u0043 + pshs b,a + ldd <u0045 + std <u0043 + pshs b,a + lda <u003E + pshs a + clr <u002F + inc <u0041 +L0322 cmpx <u002B + lbcc L03B8 + lbsr L0691 + cmpa #$0D + bne L0335 + leax $01,x + clr <u002F + bra L0322 +L0335 ldd <u0027 + pshs b,a + stu <u0027 + ldd <u0029 + pshs b,a + ldd <u002B + pshs b,a + pshs u + lbsr L0691 + sta <u0038 + lbsr L03D3 + pshs x + pshs u + leax <L039D,pcr + pshu x + pshu u + tfr d,x + lda <u0038 + tst <u003B + bne L0372 + tst <u003C + bne L0372 + tst <u003D + beq L0397 + tst <u003A + bne L0372 + cmpa #$3A + bne L0372 + stb <u003D +L0372 cmpa #$5B + bne L0378 + inc <u003A +L0378 cmpa #$5D + bne L039D + dec <u003A + bpl L039D + tst <u003C + bne L0395 + lbsr L0964 + tst <u003B + bne L038F + clr <u003D + bra L039D +L038F clr <u003B + bra L039D + bra L039D +L0395 clr <u003C +L0397 lda <u0041 + clr <u0039 + jsr ,y +L039D puls u + puls x + puls u + puls b,a + std <u002B + puls b,a + std <u0029 + puls b,a + std <u0027 + tst <u0023 + lbeq L127B + lbra L0322 +L03B8 dec <u0041 + puls a + sta <u003E + puls b,a + std <u0045 + puls b,a + std <u0043 + tst <u003D + beq L03D2 + lda #$01 + sta <u003D + clr <u003C + clr <u003B +L03D2 rts +L03D3 lbsr L0691 + bsr L040E + beq L0400 + leax $01,x + lbsr L04A1 + lbeq L1269 + pshs y + tfr d,y + ldd ,y + leay d,y + sty <u002B + ldy ,s + lbsr L04F4 + tfr y,d + puls y + sty <u0029 + leay >L0310,pcr + rts +L0400 pshs b,a + lbsr L04F4 + ldd #$0000 + std <u0029 + std <u002B + puls pc,y +L040E ldb ,x+ + lbsr L04D0 + tfr a,b +L0415 ldy <u0012 + leay <$4D,y + cmpb #$2E + bne L0425 + ldy <u0012 + leay <$6B,y +L0425 sty <u004B + ldy ,y +L042B lda ,y + bne L043C + ldy <u004B + leay $04,y + sty <u004B + ldy ,y + beq L045D +L043C cmpb #$2E + beq L0446 + cmpb ,y+ + bne L044A + bra L044E +L0446 bsr L046B + beq L044E +L044A bsr L0462 + bra L042B +L044E pshs y + bsr L0462 + ldd -$02,y + ldy <u004B + addd $02,y + orcc #$04 + puls pc,y +L045D leax -$01,x + andcc #$FB + rts +L0462 lda ,y+ + cmpa #$0D + bne L0462 + leay $02,y + rts +L046B pshs y,x,b,a + lda ,y + bsr L04DA + bne L049D +L0473 sty $04,s + lda ,y+ + bsr L04D0 + bne L0491 + pshs a + lda ,x+ + bsr L04D0 + cmpa ,s+ + beq L0473 +L0486 sty $04,s + lda ,y+ + bsr L04DA + beq L0486 + bra L049D +L0491 lda ,x + bsr L04DA + beq L049D + stx $02,s + orcc #$04 + bra L049F +L049D andcc #$FB +L049F puls pc,y,x,b,a +L04A1 pshs u + ldu <u0014 + lbsr L0691 +L04A8 lda u0004,u + cmpa #$4D + bne L04C0 + leay u000B,u + lbsr L069A + bsr L046B + beq L04C4 + ldd ,u + leau d,u + cmpu <u001C + bcs L04A8 +L04C0 orcc #$04 + puls pc,u +L04C4 lbsr L069A + lbsr L0691 + tfr u,d + andcc #$FB + puls pc,u +L04D0 cmpa #$61 + bcs L04DA + cmpa #$7A + bhi L04DA + suba #$20 +L04DA cmpa #$5F + beq L04EE + cmpa #$41 + bcs L04F1 + cmpa #$5A + bls L04EE + cmpa #$61 + bcs L04F1 + cmpa #$7A + bhi L04F1 +L04EE orcc #$04 + rts +L04F1 andcc #$FB + rts +L04F4 clr <u0042 + pshs b,a +L04F8 lbsr L069A + lbsr L0691 + bsr L052B +L0500 cmpa #$0D + beq L0525 + cmpa #$4C + bne L050F + pshu x + lbsr L06C2 + bra L0525 +L050F cmpa #$23 + bne L0517 + bsr L0540 + bra L04F8 +L0517 cmpa #$24 + lbne L1287 +L051D bsr L0553 + cmpa #$24 + beq L051D + bra L0500 +L0525 ldb <u0042 + pshu b + puls pc,b,a +L052B lbsr L069A + pshs a + cmpa #$0D + beq L053E + inc <u0042 +L0536 leay $01,y + lda ,y + bsr L04DA + beq L0536 +L053E puls pc,a +L0540 pshs b,a + lda ,x + cmpa #$23 + bne L054C + bsr L05B3 + bra L0551 +L054C lbsr L05D6 + pshu b,a +L0551 puls pc,b,a +L0553 pshs b + lbsr L0691 + cmpa #$24 + bne L0562 + bsr L05B3 + bsr L052B + bra L057E +L0562 pshu x + lbsr L0122 + leax d,x + leax $02,x + bsr L052B + cmpa #$24 + bne L057E + pshs x,a + lbsr L0691 + cmpa #$24 + puls x,a + beq L057E + leax -$01,x +L057E puls pc,b +L0580 pshs y,x,a + ldy <u0029 + ldb #$00 +L0587 lbsr L069A + cmpa #$0D + beq L05AB + lbsr L0691 + addb #$01 + lda ,x+ + cmpa ,y+ + bne L059E + lbsr L046B + beq L05AD +L059E ldx $01,s +L05A0 lda ,y+ + lbsr L04DA + beq L05A0 + leay -$01,y + bra L0587 +L05AB ldb #$00 +L05AD stx $01,s + cmpb #$00 + puls pc,y,x,a +L05B3 pshs y + lda ,x + cmpa #$24 + beq L05C1 + cmpa #$23 + lbne L1287 +L05C1 bsr L0580 + lbeq L1290 + ldy <u0027 + negb + addb $04,y + lslb + leay $05,y + ldd b,y + pshu b,a + puls pc,y +L05D6 lda ,x + cmpa #$2A + bne L05E3 + leax $01,x + ldd #$FFFF + bra L05F3 +L05E3 ldd #$0000 + bsr L0600 + bne L05EF + ldd #$0001 + bra L05F3 +L05EF bsr L0600 + bne L05EF +L05F3 rts +L05F4 beq L0606 + com <u00E8 + neg <u0064 + neg <u000A + neg <u0001 + neg <u0000 +L0600 pshs y,b,a + ldb ,x + subb #$30 +L0606 cmpb #$0A + bcc L0622 + leax $01,x + lda #$00 + ldy #$000A +L0612 addd ,s + lbcs L1266 + leay -$01,y + bne L0612 + std ,s + andcc #$FB + puls pc,y,b,a +L0622 orcc #$04 + puls pc,y,b,a +L0626 pshs y,x,b,a + leax >L05F4,pcr + ldy #$2F20 +L0630 leay >$0100,y + subd ,x + bcc L0630 + addd ,x++ + pshs b,a + ldd ,x + tfr y,d + beq L0659 + ldy #$2F30 + cmpd #$3020 + bne L0652 + ldy #$2F20 + tfr b,a +L0652 lbsr L0107 + puls b,a + bra L0630 +L0659 lbsr L0107 + leas $02,s + puls pc,y,x,b,a +L0660 pshs x,b,a + ldx <u0027 + ldd -$02,x + puls pc,x,b,a +L0668 pshs x,b,a + tst <u0023 + beq L0683 + ldx <u0027 + ldd -$02,x + beq L0683 + cmpd #$FFFF + bne L067E + andcc #$FB + bra L0683 +L067E subd #$0001 + std -$02,x +L0683 puls pc,x,b,a +L0685 pshs x,b,a + ldx <u0027 + ldd -$02,x + cmpd #$FFFF + puls pc,x,b,a +L0691 lda ,x+ + cmpa #$20 + beq L0691 + leax -$01,x + rts +L069A lda ,y+ + cmpa #$20 + beq L069A + leay -$01,y + rts +L06A3 pshs b,a + ldd <u001C + sty <u001C + bsr L06B2 + pshs cc + std <u001C + puls pc,b,a,cc +L06B2 pshs a +L06B4 cmpx <u001C + beq L06C0 + lda ,x+ + cmpa #$0D + bne L06B4 + andcc #$FB +L06C0 puls pc,a +L06C2 cmpx <u001C + beq L06CE + bsr L06B2 + cmpx <u0018 + beq L06CE + leax -$01,x +L06CE andcc #$FB + rts +L06D1 bsr L06D7 + beq L06E9 + leax -$01,x +L06D7 pshs a +L06D9 cmpx <u0018 + beq L06E7 + lda ,-x + cmpa #$0D + bne L06D9 + leax $01,x + andcc #$FB +L06E7 puls a +L06E9 rts +L06EA pshs y,x,b,a + ldd #$000B + ldy <u001C + lbsr L0BC0 + leax d,y + sty <u0016 + stx <u001C + stx <u0018 + stx <u001A + std ,y + std $02,y + lda ,s + sta $04,y + ldd $04,s + std $05,y + ldd <u0000 + std <u0004 + ldd <u0002 + std <u0006 + puls pc,y,x,b,a +L0716 pshs y,x,b,a + stx <u001A + ldd ,x + lbsr L0BEC + nega + negb + sbca #$00 + ldx <u001C + leax d,x + stx <u0016 + leay $0B,x + sty <u0018 + ldd $02,x + leay d,x + sty <u001A + ldd $07,x + std <u0004 + ldd $09,x + std <u0006 + puls pc,y,x,b,a +L073F pshs y,x,b,a + ldx <u0016 + ldd <u001C + subd <u0016 + std ,x + ldd <u001A + subd <u0016 + std $02,x + ldd <u0004 + std $07,x + ldd <u0006 + std $09,x + lda $04,x + cmpa #$42 + bne L0763 + ldd $05,x + std <u0024 + bra L076E +L0763 ldy <u0014 + sty <u001A + ldd ,x + lbsr L0C38 +L076E puls pc,y,x,b,a +L0770 pshs b,a + ldx <u0014 +L0774 lda $04,x + cmpa #$42 + bne L0781 + ldd ,s + cmpd $05,x + beq L0788 +L0781 lbsr L089B + bcs L0774 + andcc #$FB +L0788 puls pc,b,a + ldx <u0012 + ldd u0005,u + addd #$041F + leax d,x + cmpx <u001C + bls L07A1 + os9 F$Mem + lbcs L12AA + sty <u001E +L07A1 pulu pc,u + lbsr L0922 + lbsr L00FF + ldd <u001C + subd <u0014 + lbsr L0626 + lda #$20 + lbsr L0107 + lbsr L0107 + ldd <u001E + subd <u0014 + lbsr L0626 + lbsr L00FF + lbra L0929 + ldx <u0016 + lda $04,x + cmpa #$42 + lbne L127E + ldd <u001C + subd <u0016 + std ,x + ldd u0005,u + cmpd $05,x + beq L07F9 + bsr L0770 + beq L07F3 + ldd #$000B + lbsr L0BC0 + lbsr L073F + lda #$42 + ldy u0005,u + lbsr L06EA + pulu pc,u +L07F3 lbsr L073F + lbsr L0716 +L07F9 pulu pc,u + tst <u0041 + lbne L127E + ldx <u0016 + lda $04,x + cmpa #$42 + lbne L127E + ldx $05,x + ldy <u0024 + pshs y,x + ldx u0005,u + lbsr L0691 + cmpa $01,x + bne L0825 + lbsr L073F + lda #$4D + lbsr L06EA + bra L0836 +L0825 leax $01,x + lbsr L04A1 + lbeq L1278 + lbsr L073F + tfr d,x + lbsr L0716 +L0836 puls y,x + stx <u0024 + sty <u002D + lda #$4D + sta <u0026 + pulu pc,u + lbsr L0922 + leax >L13C6,pcr + lbsr L00EF + ldx <u0014 +L084F ldb $04,x + cmpb #$42 + bne L0873 + ldd $05,x + cmpx <u0016 + beq L0863 + cmpd <u0024 + beq L0866 + lda #$20 + fcb $8C +L0863 fdb $862A + fcb $8C +L0866 fdb $8624 + lbsr L0107 + ldd $05,x + lbsr L0626 + lbsr L00FF +L0873 bsr L089B + bcs L084F + leax >L13BE,pcr + lbsr L00EF + ldx <u0014 +L0880 pshs x + lda $04,x + cmpa #$4D + bne L0893 + leax $0B,x + lbsr L008B + puls x + bsr L089B + bcs L0880 +L0893 lbsr L00FF + lbsr L0929 + pulu pc,u +L089B pshs b,a + ldd ,x + leax d,x + cmpx <u001C + puls pc,b,a + tst <u0041 + lbne L127E + ldx u0005,u + lda ,x+ + pshs a + lbsr L0691 + lbsr L04A1 + lbeq L1278 + tfr d,y + ldd ,y + ldx <u001A + pshs x,b,a + sty <u001A + lbsr L0BEC + ldd <u0016 + subd ,s + std <u0016 + ldd <u0018 + subd ,s + std <u0018 + ldd <u001C + subd ,s + std <u001C + puls x + puls b,a + pshs x + subd ,s++ + std <u001A + pulu pc,u + pshs u + ldx u0005,u + lbsr L0130 + tfr d,y + tfr x,u + leax <L090C,pcr + lda #$01 + ldb #$00 + os9 F$Fork + lbcs L12AA + os9 F$Wait + tstb + lbne L12AA + puls u + pulu pc,u +L090C fcc "SHELL" + fcb C$CR +L0912 fcb $ec,$45 + beq L0918 + lda #$01 +L0918 sta <u003E + tst <u0041 + bne L0920 + sta <u0040 +L0920 pulu pc,u +L0922 lda <u003E + sta <u003F + inc <u003E + rts +L0929 lda <u003F + sta <u003E + rts + ldx ,u + ldx $02,x + ldy <u0045 + cmpy <u0049 + lbls L128D + stx ,--y + ldx #$0000 + stx ,--y + sty <u0045 + pulu pc,u + ldx <u0045 + ldd ,x + addd #$0001 + std ,x + cmpd u0005,u + bcs L095A + bsr L0964 + pulu pc,u +L095A ldy $02,x + ldx ,u + sty $02,x + pulu pc,u +L0964 pshs x + ldx <u0045 + leax $04,x + cmpx <u0043 + lbhi L128A + stx <u0045 + puls pc,x + bsr L0922 + ldx <u001A + lbsr L0660 + beq L098A +L097D lbsr L008B + lbsr L06B2 + beq L098A + lbsr L0668 + bne L097D +L098A bsr L0929 + pulu pc,u + bsr L0922 + lbsr L0660 + beq L09AF + ldx <u001A + lbsr L06D7 + bra L09A1 +L099C lbsr L06D1 + beq L09A6 +L09A1 lbsr L0668 + bne L099C +L09A6 pshs x + ldd <u001A + subd ,s++ + lbsr L0094 +L09AF lbsr L0929 + pulu pc,u + inc <u002F + ldd u0005,u + std <u0030 + bne L09BE + clr <u002F +L09BE pulu pc,u +L09C0 lbsr L06B2 + beq L09D4 +L09C5 pshs b,a + ldd <u0030 + lbsr L0B01 + puls b,a + bne L09C0 + cmpx <u001A + bcs L09C0 +L09D4 rts +L09D5 pshs y,x + ldx <u0010 + stx $02,s + puls pc,x +L09DD pshs y,b,a + ldx <u001A + lda ,y+ + tst <u002F + beq L09E9 + bsr L09C5 +L09E9 pshs y,x +L09EB cmpa ,y + beq L0A0B + ldb ,y+ + cmpx <u001C + bcc L0A05 + cmpb ,x+ + beq L09EB + puls y,x + leax $01,x + tst <u002F + beq L09E9 + bsr L09C0 + bra L09E9 +L0A05 orcc #$01 + bra L0A0B + andcc #$FE +L0A0B puls y,x + puls pc,y,b,a +L0A0F lbsr L1126 + tst <u0041 + bne L0A29 + tst <u003D + beq L0A29 + inc <u0039 + lbsr L0922 + leax >L1318,pcr + lbsr L00EF + lbsr L0929 +L0A29 pulu pc,u +L0A2B pshs y,x,b,a + lbsr L0660 + andcc #$FE + beq L0A4E + ldx u0005,u + lbsr L0122 +L0A39 ldy u0005,u + bsr L09D5 + bcs L0A4E + lbsr L0082 + leax d,x + stx <u001A + lbsr L0668 + bne L0A39 + andcc #$FE +L0A4E puls pc,y,x,b,a +L0A50 pshs y,x,b,a + lbsr L0660 + andcc #$FE + beq L0A94 + ldx u0005,u + lbsr L0122 + pshs b,a + ldx u0007,u + lbsr L0122 + pshs b,a +L0A67 ldd $02,s + subd ,s + lbsr L0BC0 + ldy u0007,u + lbsr L09D5 + bcs L0A92 + stx <u001A + ldd ,s + lbsr L100F + ldx u0005,u + leax $01,x + ldd $02,s + lbsr L0BE3 + ldx <u001A + lbsr L0082 + lbsr L0668 + bne L0A67 + andcc #$FE +L0A92 leas $04,s +L0A94 puls pc,y,x,b,a + lbsr L0A2B + lbcs L0A0F + rts + lbsr L0A50 + lbcs L0A0F + rts + ldx <u001A + lbsr L0A50 + bra L0AB2 + ldx <u001A + lbsr L0A2B +L0AB2 pshs cc + cmpx <u001A + beq L0ABF + ldx <u001A + lbsr L06D7 + stx <u001A +L0ABF puls cc + lbcs L0A0F + rts + lbsr L0660 + beq L0AFF + ldx u0005,u + lbsr L0122 + leax $01,x +L0AD2 pshs x,b,a + ldx <u001A + cmpx <u001C + bcs L0ADF + lbsr L1126 + bra L0AFF +L0ADF lbsr L06C2 + ldd ,s + lbsr L0BC0 + stx <u001A + ldx $02,s + lbsr L0BE3 + ldx <u001A + lbsr L0082 + lbsr L06B2 + stx <u001A + puls x,b,a + lbsr L0668 + bne L0AD2 +L0AFF pulu pc,u +L0B01 pshs y + cmpd #$0000 + beq L0B26 + tfr d,y + lbsr L06D7 +L0B0E lda ,x + cmpa #$0D + beq L0B20 + cmpx <u001C + bcc L0B20 + leax $01,x + leay -$01,y + bne L0B0E + leax -$01,x +L0B20 tfr y,d + cmpd #$0000 +L0B26 puls pc,y + lbsr L0660 + beq L0B5C + ldx <u001A + ldd u0005,u + bsr L0B01 + stx <u001A + std u0005,u + beq L0B5C + tfr d,y + lbsr L0668 + beq L0B5C + leay -$01,y + lda #$20 + ldx <u001C + pshs x +L0B48 cmpx <u001E + lbcc L126F + sta ,x+ + lbsr L0668 + bne L0B48 + tfr y,d + puls x + lbsr L0BE3 +L0B5C pulu pc,u + lbsr L0660 + beq L0B94 + ldx <u001A + lbsr L06D7 + pshs x + ldx u0005,u + lbsr L0122 + leax $01,x + ldy <u001C +L0B74 bsr L0B96 + lbeq L126F + lbsr L0668 + bne L0B74 + ldx <u001C + tfr y,d + subd <u001C + bsr L0BE3 + lda #$0D + bsr L0BB5 + ldx ,s + ldd <u001A + subd ,s++ + lbsr L0094 +L0B94 pulu pc,u +L0B96 pshs u,x,b,a + tfr d,u +L0B9A cmpy <u001E + bcc L0BB1 + cmpu #$0000 + beq L0BAD + lda ,x+ + sta ,y+ + leau -u0001,u + bra L0B9A +L0BAD andcc #$FB + puls pc,u,x,b,a +L0BB1 orcc #$04 + puls pc,u,x,b,a +L0BB5 pshs x,b,a + tfr s,x + ldd #$0001 + bsr L0BE3 + puls pc,x,b,a +L0BC0 pshs x + ldx <u001C + leax d,x + cmpx <u001E + lbcc L126F + puls pc,x +L0BCE pshs y + ldy <u001C + bsr L0B96 + lbeq L126F + sty <u001C + puls pc,y +L0BDE lda #$0D + lbsr L0132 +L0BE3 bsr L0BCE + bsr L0C38 + addd <u001A + std <u001A + rts +L0BEC pshs u,y,x,b,a + cmpd #$0000 + beq L0C36 + std <u00CF + ldd <u001A + subd <u001C + tfr d,y + addd ,s + std <u00D1 + ldd <u001C + subd <u00CF + std <u00D3 + ldx <u001C + lda ,-x + stx <u00D5 + sta <u00CD + bra L0C22 +L0C10 cmpx <u00D5 + bne L0C1E + lda <u00CD + sta ,u + lda ,-x + stx <u00D5 + sta <u00CD +L0C1E leay $01,y + beq L0C36 +L0C22 ldd <u00D1 +L0C24 tfr x,u + leax d,x + lda ,x + sta ,u + cmpx <u00D3 + bcc L0C10 + ldd <u00CF + leay $01,y + bne L0C24 +L0C36 puls pc,u,y,x,b,a +L0C38 pshs b,a + ldd <u001C + subd <u001A + subd ,s + bsr L0BEC + puls pc,b,a + lbsr L0660 + beq L0CAF + ldd <u0024 + lbsr L0770 + pshs x + ldd ,x + leay d,x + leax $0B,x + pshs x +L0C58 pshs y + cmpx ,s++ + bne L0C63 + lbsr L1126 + bra L0C6D +L0C63 lbsr L06A3 + beq L0C6D + lbsr L0668 + bne L0C58 +L0C6D tfr x,d + subd ,s + puls y,x + pshs b,a + lbsr L0094 + ldd $02,y + subd #$000B + subd ,s + bcc L0C84 + ldd #$0000 +L0C84 addd #$000B + std $02,y + ldd ,y + subd ,s + std ,y + ldd <u0016 + subd ,s + std <u0016 + ldd <u0018 + subd ,s + std <u0018 + puls b,a + ldy <u001A + stx <u001A + ldx <u001C + sty <u001C + lbsr L0BEC + stx <u001C + sty <u001A +L0CAF pulu pc,u + lbsr L0660 + beq L0D0D + ldx <u001C + pshs x + ldd <u0024 + lbsr L0770 + pshs x + ldx <u001A + pshs x +L0CC5 cmpx <u001C + bcs L0CCE + lbsr L1126 + bra L0CD8 +L0CCE lbsr L06B2 + beq L0CD8 + lbsr L0668 + bne L0CC5 +L0CD8 tfr x,d + subd ,s + puls y,x + lbsr L0094 + leax d,x + pshs x,b,a + stx <u001C + ldd ,y + addd ,s + std ,y + ldd $02,y + leax d,y + stx <u001A + addd ,s + std $02,y + ldd <u0016 + addd ,s + std <u0016 + ldd <u0018 + addd ,s + std <u0018 + puls y,x,b,a + lbsr L0C38 + stx <u001A + sty <u001C +L0D0D pulu pc,u + tst <u0005 + beq L0D4D + lbsr L0660 + beq L0D7A + ldx <u001C +L0D1A leay >$0080,x + cmpy <u001E + bls L0D28 + bsr L0D68 + lbra L126F +L0D28 lda <u0004 + ldy #$0080 + os9 I$ReadLn + bcc L0D5F + pshs b + bsr L0D68 + puls b + cmpb #$D3 + lbne L12AA + ldd <u0004 + cmpd <u0000 + beq L0D4D + os9 I$Close + lbcs L12AA +L0D4D clr <u0005 + lbsr L1126 + tst <u0041 + bne L0D5D + leax >L138A,pcr + lbsr L00EF +L0D5D bra L0D7A +L0D5F tfr y,d + leax d,x + lbsr L0668 + bne L0D1A +L0D68 tfr x,d + subd <u001C + ldx <u001A + pshs x,b,a + ldx <u001C + lbsr L0BE3 + puls x,b,a + lbsr L0094 +L0D7A rts + tst <u0007 + lbeq L1275 + lbsr L0660 + beq L0DB5 + ldy <u001A +L0D89 tfr y,x + lbsr L0130 + bne L0D9D + bsr L0DA9 + lbsr L1126 + leax >L137C,pcr + lbsr L00EF + rts +L0D9D leay d,x + lda <u0006 + lbsr L00C8 + lbsr L0668 + bne L0D89 +L0DA9 ldx <u001A + tfr y,d + subd <u001A + lbsr L0094 + lbsr L100F +L0DB5 rts + ldd <u0004 + cmpd <u0000 + beq L0DC9 + tstb + beq L0DC9 + os9 I$Close + lbcs L12AA + clr <u0005 +L0DC9 ldx u0005,u + ldb ,x+ + cmpb ,x + bne L0DD7 + ldd <u0000 + std <u0004 + pulu pc,u +L0DD7 lbsr L0EC6 + lbne L12A8 + lda #$01 + os9 I$Open + lbcs L12AA + ldb #$01 + std <u0004 + pulu pc,u + ldd <u0006 + cmpd <u0002 + beq L0E00 + tstb + beq L0E00 + os9 I$Close + lbcs L12AA + clr <u0007 +L0E00 ldx u0005,u + ldb ,x+ + cmpb ,x + bne L0E0E + ldd <u0002 + std <u0006 + pulu pc,u +L0E0E lbsr L0EC6 + lbne L12A8 + ldd #$021B + os9 I$Create + lbcs L12AA + ldb #$01 + std <u0006 + pulu pc,u + ldx u0005,u + ldb ,x+ + lbsr L0EC6 + lbne L12A8 + lda #$01 + os9 I$Open + lbcs L12AA + sta <u0008 +L0E3B ldx <u001C + ldy #$000B + bsr L0EB7 + lda <u0008 + os9 I$Read + bcs L0E6E + lda $04,x + cmpa #$4D + beq L0E58 + ldd $05,x + beq L0E58 + ldb #$D3 + bra L0E6E +L0E58 clr $08,x + clr $0A,x + ldd ,x + subd #$000B + tfr d,y + leax $0B,x + bsr L0EB7 + lda <u0008 + os9 I$Read + bcc L0E7F +L0E6E pshs b + lda <u0008 + os9 I$Close + puls b + cmpb #$D3 + lbne L12AA + pulu pc,u +L0E7F lbsr L0691 + pshs x + lbsr L04A1 + puls x + bne L0E3B + lbsr L008B + ldx <u001C + ldd ,x + ldy <u001A + leax d,x + stx <u001C + pshs y,b,a + ldx <u0014 + stx <u001A + lbsr L0C38 + ldd <u0016 + addd ,s + std <u0016 + ldd <u0018 + addd ,s + std <u0018 + puls y,b,a + leay d,y + sty <u001A + bra L0E3B +L0EB7 pshs y,b,a + tfr y,d + leay d,x + cmpy <u001E + lbcc L126F + puls pc,y,b,a +L0EC6 lbsr L0691 + pshs y,x + leay ,x +L0ECD cmpb ,y+ + bne L0ECD + pshs y + lbsr L015A + bcs L0EE1 + cmpy ,s++ + bcc L0EE1 + orcc #$04 + puls pc,y,x +L0EE1 andcc #$FB + puls pc,y,x + ldx #$FFFF + pshs x + ldx u0007,u + leax $01,x + lbsr L0691 +L0EF1 lbsr L04A1 + lbeq L1278 + pshs b,a + lbsr L0691 + ldy u0007,u + cmpa ,y + bne L0EF1 + ldx u0005,u + ldb ,x+ + bsr L0EC6 + lbne L12A8 + ldd #$021B + os9 I$Create + lbcs L12AA + sta <u0008 +L0F1A puls x + cmpx #$FFFF + beq L0F3C + ldd #$0000 + std $05,x + ldy ,x + lda <u0008 + os9 I$Write + bcc L0F1A + pshs b + lda <u0008 + os9 I$Close + puls b + lbra L12AA +L0F3C lda <u0008 + os9 I$Close + pulu pc,u +L0F43 tst <u0001 + beq L0F8E + ldx <u001C + leay d,x + leay >$0080,y + cmpy <u001E + bcs L0F5D + cmpd #$0080 + bcs L0F8E + subd #$0080 +L0F5D tfr d,y + lda <u0000 + os9 I$Read + bcs L0F77 + tfr y,d + leax d,x + stx <u001C + ldy #$0080 + lda <u0000 + os9 I$ReadLn + bcc L0F88 +L0F77 cmpb #$D3 + lbne L12AA + leax >L138A,pcr + lbsr L00EF + clr <u0005 + bra L0F8E +L0F88 tfr y,d + leax d,x + stx <u001C +L0F8E rts + tst <u0003 + beq L0FA8 + ldx <u0018 + ldd <u001A + subd <u0018 + tfr d,y + lda <u0002 + os9 I$Write + stx <u001A + tfr y,d + bsr L100F + bsr L0F43 +L0FA8 pulu pc,u + lbsr L0660 + beq L0FD4 + ldx <u001A + lbsr L06D7 + stx <u001A + pshs x +L0FB8 cmpx <u001C + bne L0FC1 + lbsr L1126 + bra L0FCE +L0FC1 lbsr L008B + lbsr L06B2 + beq L0FCE + lbsr L0668 + bne L0FB8 +L0FCE tfr x,d + subd ,s++ + bsr L100F +L0FD4 pulu pc,u + lbsr L0660 + beq L0FFA + ldx <u001A + pshs x +L0FDF cmpx <u001C + bne L0FE8 + lbsr L1126 + bra L0FEF +L0FE8 leax $01,x + lbsr L0668 + bne L0FDF +L0FEF tfr x,d + subd ,s + puls x + lbsr L0094 + bsr L100F +L0FFA pulu pc,u + ldx <u001A + lbsr L0130 + beq L100D + subd #$0001 + beq L100D + bsr L100F + lbsr L0082 +L100D pulu pc,u +L100F pshs b,a + lbsr L0BEC + ldd <u001C + subd ,s + std <u001C + puls pc,b,a + lbsr L0660 + beq L1035 + ldx <u001A +L1023 cmpx <u0018 + bne L102C + lbsr L1126 + bra L1033 +L102C leax -$01,x + lbsr L0668 + bne L1023 +L1033 stx <u001A +L1035 pulu pc,u + lbsr L0660 + beq L1035 + ldx <u001A +L103E cmpx <u001C + bne L1047 + lbsr L1126 + bra L1033 +L1047 leax $01,x + lbsr L0668 + bne L103E + bra L1033 + ldx <u001A + lbsr L0660 + bne L105C + lbsr L06C2 + bra L106F +L105C cmpx <u001C + bne L1065 + lbsr L1126 + bra L106F +L1065 lbsr L06B2 + beq L106F + lbsr L0668 + bne L105C +L106F stx <u001A + lbsr L008B + pulu pc,u + ldx <u001A + lbsr L0660 + bne L1082 + lbsr L06D7 + bra L106F +L1082 cmpx <u0018 + bne L108B + lbsr L1126 + bra L106F +L108B lbsr L06D1 + beq L106F + lbsr L0668 + bne L1082 + bra L106F + ldx <u0018 + stx <u001A + pulu pc,u + ldx <u001C + stx <u001A + pulu pc,u + lda #$01 + sta <u003C + clr <u003A + pulu pc,u +L10AB lda #$01 + sta <u003D + clr <u003A + pulu pc,u +L10B3 clra + sta <u003D + sta <u003A + pulu pc,u + ldx <u001A + cmpx <u001C + beq L10AB + lda ,x + cmpa #$0D + beq L10AB + bra L10B3 + ldx <u001A + cmpx <u001C + beq L10B3 + lda ,x + cmpa #$0D + beq L10B3 + bra L10AB + ldx <u001A + cmpx <u001C + bne L10B3 + bra L10AB + ldx <u001A + cmpx <u001C + beq L10B3 + bra L10AB + bsr L10F2 + bne L10AB + bra L10B3 + bsr L10F2 + beq L10AB + bra L10B3 +L10F2 ldx u0005,u + ldy <u001A + ldb ,x+ +L10F9 cmpb ,x + beq L110A + cmpy <u001C + beq L1108 + lda ,x+ + cmpa ,y+ + beq L10F9 +L1108 andcc #$FB +L110A rts + tst <u0005 + bne L10B3 + bra L10AB + lda <u0005 + beq L10B3 + bra L10AB + ldd u0005,u + beq L10B3 + bra L10AB + lda #$00 + lbsr L0685 + beq L10B3 + bra L10AB +L1126 pshs a + lbsr L0685 + beq L1133 + lda #$01 + sta <u003D + clr <u003A +L1133 puls pc,a + lda #$00 + sta <u003D + sta <u003A + inca + sta <u003B + pulu pc,u + + lda #$00 + sta <u003A + inca + sta <u003D + sta <u003B + pulu pc,u + pulu pc,u +L114D tst <u0041 + lbne L127E + ldx <u0016 + lda $04,x + cmpa #$42 + beq L11C5 + ldx <u001C + cmpx <u0018 + lbeq L1281 + lda #$0D + cmpa -$01,x + beq L1175 + leax $01,x + cmpx <u001E + lbcc L126F + sta -$01,x + stx <u001C +L1175 ldx <u0018 + lbsr L0691 + lbsr L04DA + lbne L1281 + pshs x +L1183 lda ,x+ + lbsr L04DA + beq L1183 + cmpa #$20 + beq L119C + cmpa #$0D + beq L119C + cmpa #$24 + beq L119C + cmpa #$23 + lbne L1281 +L119C ldx ,s + lbsr L04A1 + lbne L1284 + ldb #$2E + puls x + lbsr L0415 + lbeq L1284 + lbsr L073F + ldd <u0024 + lbsr L0770 + lbsr L0716 + ldd <u002D + std <u0024 + lda #$45 + sta <u0026 + pulu pc,u +L11C5 ldd #$0001 + lbsr L0770 + cmpx <u0016 + beq L11D2 + lbra L126C +L11D2 ldy <u0012 + leay >$0089,y +L11D9 ldx ,y++ + beq L11E4 + jsr ,x + os9 F$UnLink + bra L11D9 +L11E4 ldx <u0018 + ldd <u001C + subd <u0018 + tfr d,y +L11EC ldd <u0002 + cmpb #$00 + beq L1261 + os9 I$Write + bcs L1263 + ldx <u0014 + ldd <u001E + subd <u0014 + tfr d,y + ldd <u0000 + cmpb #$00 + beq L1261 + os9 I$Read + bcc L11EC + cmpb #$D3 + bne L1263 + tst <u0036 + beq L1261 + ldd <u001E + subd <u0014 + os9 F$Mem + bcs L1263 + lda <u0000 + os9 I$Close + bcs L1263 + lda <u0002 + os9 I$Close + bcs L1263 + ldx <u0032 + os9 I$Delete + bcs L1261 + ldy <u0032 +L1233 ldx <u0032 +L1235 lda ,y+ + sta ,x+ + cmpa #$2F + beq L1233 + cmpa #$0D + bne L1235 + ldy <u0012 + leax >$00FE,y + tfr x,u + lbsr L0130 + leax >$00F7,y + tfr d,y + ldd #$0100 + os9 F$Fork + bcs L1263 + os9 F$Wait + tstb + bne L1263 +L1261 ldb #$00 +L1263 os9 F$Exit +L1266 ldb #$00 +L1268 fcb $8C +L1269 fdb $C60B + fcb $8C +L126C fdb $C613 + fcb $8C +L126F fdb $C622 +L1271 fcb $8C +L1272 fdb $C633 + fcb $8C +L1275 fdb $C641 + fcb $8C +L1278 fdb $C64F + fcb $8C +L127B fdb $C659 + fcb $8C +L127E fdb $C65F + fcb $8C +L1281 fdb $C66D + fcb $8C +L1284 fdb $C67C + fcb $8C +L1287 fdb $C687 + fcb $8C +L128A fdb $C694 + fcb $8C +L128D fdb $C694 + fcb $8C +L1290 fdb $C6A5 + lda #$FF + sta <u0023 + inc <u003E + leax >L12C9,pcr + clra + leax d,x + lbsr L00EF + lbsr L00FF + lbra L0292 +L12A8 ldb #$D7 +L12AA inc <u003E + pshs b + leax <L12C5,pcr + ldy #$0004 + lda <u000B + os9 I$Write + puls b + os9 F$PErr + lbsr L00FF + lbra L0292 +L12C5 fcc "OS9 " +L12C9 fcc "BAD NUMBER" + fcb C$CR + fcc "WHAT ??" + fcb C$CR + fcc "* NOT BUF #1 *" + fcb C$CR + fcc "*WORKSPACE FULL*" + fcb C$CR + fcc "MISSING DELIM" + fcb C$CR + fcc "*FILE CLOSED*" + fcb C$CR +L1318 fcc "NOT FOUND" + fcb C$CR + fcc "BREAK" + fcb C$CR + fcc "MACRO IS OPEN" + fcb C$CR + fcc "BAD MACRO NAME" + fcb C$CR + fcc "DUPL MACRO" + fcb C$CR + fcc "BAD VAR LIST" + fcb C$CR + fcc "BRACKET MISMATCH" + fcb C$CR + fcc "UNDEFINED VAR" + fcb C$CR +L137C fcc "*END OF TEXT*" + fcb C$CR +L138A fcc "*END OF FILE*" + fcb C$CR +L1398 fcc "*FAIL*" + fcb C$CR +L139F fcc "RENAME " + fcb C$CR +L13A7 fcc "SCRATCH " + fcb C$CR +L13B0 fcc "EDTP2" + fcb C$CR +L13B6 fcc "EDTLIB1" + fcb C$CR +L13BE fcc "MACROS:" + fcb C$CR +L13C6 fcc "BUFFERS:" + fcb C$CR +L13CF fcc "MAC$" + fcb C$CR + fdb $07FB + fcc "EOF" + fcb C$CR + fdb $1111 + fcc "NEOF" + fcb C$CR + fdb $110B + fcc "EOB" + fcb C$CR + fdb $10DE" + fcc "NEOB" + fcb C$CR + fdb $10d6 + fcc "EOL" + fcb C$CR + fdb $10c8 + fcc "NEOL" + fcb C$CR + fdb $10ba + fcc "ZERO#" + fcb C$CR + fdb $1117 + fcc "STAR#" + fcb C$CR + fdb $111d + fcc "STR$" + fcb C$CR + fdb $10e6 + fcc "NSTR$" + fcb C$CR + fdb $10ec + fcc "DIR" + fcb C$CR + fdb $0843 + fcc "S" + fcb C$CR + fdb $1135 + fcc "F" + fcb C$CR + fdb $1140 + fcc "SEARCH#$" + fcb C$CR + fdb $0a96 + fcc "CHANGE#$$" + fcb C$CR + fdb $0a9e + fcc "LOAD$" + fcb C$CR + fdb $0e25 + fcc "SAVE$$" + fcb C$CR + fdb $0ee5 + fcc "SIZE" + fcb C$CR + fdb $07a3 + fcc "DEL$" + fcb C$CR + fdb $08a5 + fcc "READ$" + fcb C$CR + fdb $0db6 + fcc "WRITE$" + fcb C$CR + fdb $0ded + fcc "SHELL L" + fcb C$CR + fdb $08e7 + fcc "NEW" + fcb C$CR + fdb $0f8f + + fcb $00 +L1482 fdb $4123,$0d09,$b44c,$230d,$0974,$5823,$0d09 + fdb $8e2b,$230d,$1050,$2d23,$0d10,$7644,$230d,$0faa + fdb $4523,$240d,$0ac6,$3c23,$0d10,$1c3e,$230d,$1037 + fdb $4923,$240d,$0b5e,$4b23,$0d0f,$d653,$2324,$0d0a + fdb $ad43,$2324,$240d,$0aa6,$550d,$0ffc,$5423,$0d0b + fdb $2842,$230d,$07c5,$5e0d,$1097,$2f0d,$109d,$4d23 + fdb $0d07,$8a56,$230d,$0912,$4723,$0d0c,$4450,$230d + fdb $0cb1,$5b0d,$092e,$5d23,$0d09,$483a,$0d10,$a352 + fdb $230d,$0d0f,$5723,$0d0d,$7b21,$4c0d,$114b,$510d + fdb $114d + fcb $00 + + emod +eom equ * + end +
--- a/level1/cmds/makefile Sun Jul 14 05:26:51 2002 +0000 +++ b/level1/cmds/makefile Sun Jul 14 05:32:44 2002 +0000 @@ -4,7 +4,7 @@ CMDS = asm attr backup binex build cobbler cobbler_d64 copy date \ dcheck debug del deldir dir display dsave dump \ - echo exbin format format_d64 free grfo ident iniz link list \ + echo edit exbin format format_d64 free grfo ident iniz link list \ load login makdir mdir merge mfree os9gen os9gen_d64 \ park printerr procs pwd pxd \ rename save setime shell sleep tee tmode tsmon \