Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/edit.asm @ 3295:6b7a7b233925 default tip
makefile: Allow PORTS with level1/2 mix
https://sourceforge.net/p/nitros9/feature-requests/10/
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Tue, 19 Apr 2022 18:12:17 +0200 |
| parents | db58cdca8a7f |
| children |
line wrap: on
line source
******************************************************************** * Edit - Line editor * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 3 ????/??/?? * From Tandy OS-9 Level One VR 02.00.00. nam Edit ttl Line editor * 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 $00 edition set 3 L0000 mod eom,name,tylg,atrv,start,size org 0 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 fcs /Edit/ fcb edition 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 #Carry 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 s 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 #Zero puls pc,y L045D leax -$01,x andcc #^Zero 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 #Zero bra L049F L049D andcc #^Zero 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 #Zero puls pc,u L04C4 lbsr L069A lbsr L0691 tfr u,d andcc #^Zero 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 #Zero rts L04F1 andcc #^Zero 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 #^Zero puls pc,y,b,a L0622 orcc #Zero 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 #^Zero 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 #^Zero L06C0 puls pc,a L06C2 cmpx <u001C beq L06CE bsr L06B2 cmpx <u0018 beq L06CE leax -$01,x L06CE andcc #^Zero 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 #^Zero 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 #^Zero 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,s 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,s L07F3 lbsr L073F lbsr L0716 L07F9 pulu pc,s 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,s 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,s 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,s 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,s 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,s 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,s ldx <u0045 ldd ,x addd #$0001 std ,x cmpd u0005,u bcs L095A bsr L0964 pulu pc,s L095A ldy $02,x ldx ,u sty $02,x pulu pc,s 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,s 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,s inc <u002F ldd u0005,u std <u0030 bne L09BE clr <u002F L09BE pulu pc,s 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 #Carry bra L0A0B andcc #^Carry 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,s L0A2B pshs y,x,b,a lbsr L0660 andcc #^Carry 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 #^Carry L0A4E puls pc,y,x,b,a L0A50 pshs y,x,b,a lbsr L0660 andcc #^Carry 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 #^Carry 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,s 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,s 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,s 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 #^Zero puls pc,u,x,b,a L0BB1 orcc #Zero 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,s 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,s 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,s L0DD7 lbsr L0EC6 lbne L12A8 lda #$01 os9 I$Open lbcs L12AA ldb #$01 std <u0004 pulu pc,s 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,s L0E0E lbsr L0EC6 lbne L12A8 ldd #$021B os9 I$Create lbcs L12AA ldb #$01 std <u0006 pulu pc,s 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,s 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 #Zero puls pc,y,x L0EE1 andcc #^Zero 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,s 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,s 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,s 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,s ldx <u001A lbsr L0130 beq L100D subd #$0001 beq L100D bsr L100F lbsr L0082 L100D pulu pc,s 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,s 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,s 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,s ldx <u001C stx <u001A pulu pc,s lda #$01 sta <u003C clr <u003A pulu pc,s L10AB lda #$01 sta <u003D clr <u003A pulu pc,s L10B3 clra sta <u003D sta <u003A pulu pc,s 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 #^Zero 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,s lda #$00 sta <u003A inca sta <u003D sta <u003B pulu pc,s pulu pc,s 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,s 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