====== DSAVE ====== Header for : dsave Module size: $1A18 #6680 Module CRC : $598919 (Good) Hdr parity : $32 Exec. off : $0E0B #3595 Data size : $0B51 #2897 Edition : $02 #2 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O ===== CODE ===== * Disassembly by Os9disasm of dsave mod L1a18,L1a0f,$11,$81,L0e0b,D0b51 * OS-9 system function equates F$Exit equ $06 F$Mem equ $07 I$Create equ $83 I$Open equ $84 I$ChgDir equ $86 I$Delete equ $87 I$Seek equ $88 I$Read equ $89 I$Write equ $8a I$ReadLn equ $8b I$WritLn equ $8c I$GetStt equ $8d I$Close equ $8f * class D external label equates Dff03 equ $ff03 * OS9 data area definitions D0000 rmb 1 D0001 rmb 1 D0002 rmb 2 D0004 rmb 2 D0006 rmb 2 D0008 rmb 2 D000a rmb 2 D000c rmb 1 D000d rmb 1 D000e rmb 2 D0010 rmb 2 D0012 rmb 2 D0014 rmb 2 D0016 rmb 1 D0017 rmb 1 D0018 rmb 2 D001a rmb 2 D001c rmb 2 D001e rmb 2 D0020 rmb 1 D0021 rmb 1 D0022 rmb 1 D0023 rmb 1 D0024 rmb 1 D0025 rmb 4 D0029 rmb 3 D002c rmb 1 D002d rmb 1 D002e rmb 1 D002f rmb 34 D0051 rmb 19 D0064 rmb 8 D006c rmb 6 D0072 rmb 2 D0074 rmb 1 D0075 rmb 4 D0079 rmb 32 D0099 rmb 32 D00b9 rmb 80 D0109 rmb 70 D014f rmb 250 D0249 rmb 2 D024b rmb 2 D024d rmb 2 D024f rmb 2306 D0b51 equ . L000d pshs d leas -6,s clrb clra std D000c,y std D000a,y std D0008,y std D0006,y std D0004,y std D0002,y std ,y clr D0029,y clr D0051,y clr D0109,y ldb #$20 stb D0024,y leax D0024,y tfr x,d addd #1 tfr d,x clr ,x leax D0024,y tfr x,d addd #2 tfr d,x clr ,x leax L0ab0,pcr stx D0249,y L0050 ldd 6,s subd #1 std 6,s cmpd #0 lble L01c9 ldd 10,s addd #2 std 10,s tfr d,x ldd ,x std ,s tfr d,x ldb ,x cmpb #$2d lbne L01c9 ldd ,s addd #1 std 2,s L007d ldb [2,s] beq L0050 ldb [2,s] orb #$20 stb [2,s] ldb [2,s] cmpb #$69 beq L00ac cmpb #$76 beq L00b9 cmpb #$6d beq L00c1 cmpb #$73 beq L00c9 cmpb #$6c lbeq L014b cmpb #$62 lbeq L0153 lbra L01a6 L00ac ldd #1 std D0002,y clrb clra std D0010,y lbra L01bc L00b9 ldd #1 std D000c,y lbra L01bc L00c1 ldd #1 std D0006,y lbra L01bc L00c9 ldd #1 std D0008,y clrb clra std 4,s ldd 4,s addd #1 std 4,s subd #1 leax D0024,y pshs x addd ,s++ pshs d ldb #$23 stb [,s++] L00e9 ldx 2,s ldb 1,x cmpb #$30 bcs L0126 ldx 2,s ldb 1,x cmpb #$39 bhi L0126 ldd 4,s cmpd #3 bge L0126 ldd 4,s addd #1 std 4,s subd #1 leax D0024,y pshs x addd ,s++ pshs d ldd 4,s addd #1 std 4,s subd #1 tfr d,x ldb 1,x stb [,s++] bra L00e9 L0126 ldd 4,s addd #1 std 4,s subd #1 leax D0024,y pshs x addd ,s++ pshs d ldb #$4b stb [,s++] leax D0024,y tfr x,d addd 4,s tfr d,x clr ,x lbra L01bc L014b ldd #1 std D0004,y lbra L01bc L0153 ldx 2,s ldb 1,x cmpb #$3d lbne L019f clrb clra std 4,s L0161 ldd 2,s addd #1 std 2,s tfr d,x ldb 1,x cmpb #0 beq L018c ldd 4,s addd #1 std 4,s subd #1 leax D00b9,y pshs x addd ,s++ pshs d ldx 4,s ldb 1,x stb [,s++] bra L0161 L018c leax D00b9,y tfr x,d addd 4,s tfr d,x clr ,x ldd #2 std ,y bra L01bc L019f ldd #1 std ,y bra L01bc L01a6 ldb [2,s] clra pshs d leax L0ad8,pcr pshs x ldd D000e lbsr L0df0 leas 4,s lbsr L0a4f L01bc ldd 2,s addd #1 std 2,s subd #1 lbra L007d L01c9 ldd 6,s subd #1 std 6,s addd #1 cmpd #0 lble L0209 ldd [10,s] std ,s tfr d,x ldb ,x cmpb #$2f beq L01f8 leax L0af4,pcr pshs x leax D0029,y tfr x,d lbsr L094c leas 2,s L01f8 ldd [10,s] pshs d leax D0029,y tfr x,d lbsr L094c leas 2,s bra L0219 L0209 leax L0af6,pcr pshs x leax D0029,y tfr x,d lbsr L094c leas 2,s L0219 ldd 6,s subd #1 std 6,s addd #1 cmpd #0 lble L0260 ldd #1 std D000a,y ldx 10,s ldd 2,x std ,s tfr d,x ldb ,x cmpb #$2f beq L024e leax L0afa,pcr pshs x leax D0051,y tfr x,d lbsr L094c leas 2,s L024e ldx 10,s ldd 2,x pshs d leax D0051,y tfr x,d lbsr L094c leas 2,s bra L0270 L0260 leax L0afc,pcr pshs x leax D0051,y tfr x,d lbsr L094c leas 2,s L0270 ldd 6,s cmpd #0 ble L0288 leax L0b00,pcr pshs x ldd D000e lbsr L0df0 leas 2,s lbsr L0a4f L0288 clr D014f,y ldd #$00f9 std D0012,y ldd D0012,y subd #1 std D0012,y addd #1 leax D014f,y pshs x addd ,s++ tfr d,x clr ,x leax L0b1f,pcr tfr x,d lbsr L0df3 ldd D000a,y beq L02c7 leax D0051,y pshs x leax L0b22,pcr tfr x,d lbsr L0df3 leas 2,s L02c7 leax L0b2a,pcr tfr x,d lbsr L0df3 leax L0b3b,pcr tfr x,d lbsr L0df3 ldd D000c,y beq L02e6 leax L0b46,pcr tfr x,d lbsr L0df3 L02e6 lbsr L088b cmpd #0 lbne L0439 ldd D0016,y lbsr L0df6 leax D0079,y ldb 29,x clra std D001a,y leax D0079,y ldb 30,x clra std D001c,y leax D0079,y ldb 31,x clra std D001e,y leax L0b53,pcr pshs x leax L0b50,pcr tfr x,d lbsr L0a29 leas 2,s ldd #1 std D0018,y L032c ldd D0018,y lbeq L03e1 lbsr L088b addd #0 beq L0340 clrb clra std D0018,y L0340 ldd D0016,y lbsr L0704 cmpd #0 bge L035e leax L0b55,pcr pshs x ldd D000e lbsr L0df0 leas 2,s ldd D0002 lbsr L0df9 L035e leax D0099,y ldb 31,x clra cmpd D001e,y lbne L0340 leax D0099,y ldb 30,x clra cmpd D001c,y lbne L0340 leax D0099,y ldb 29,x clra cmpd D001a,y lbne L0340 leax D0099,y tfr x,d lbsr L0838 leax D0099,y tfr x,d lbsr L09b9 leax L0b73,pcr tfr x,d lbsr L09b9 leax D0079,y ldb 29,x clra std D001a,y leax D0079,y ldb 30,x clra std D001c,y leax D0079,y ldb 31,x clra std D001e,y ldd D0016,y lbsr L0df6 leax L0b78,pcr pshs x leax L0b75,pcr tfr x,d lbsr L0a29 leas 2,s lbra L032c L03e1 leax D0029,y tfr x,d lbsr L09b9 ldd D0012,y addd #1 std D0012,y leax D014f,y pshs x addd ,s++ pshs d leax D014f,y tfr x,d lbsr L094c leas 2,s ldd #1 std D0012,y L040d ldd D0012,y addd #1 std D0012,y subd #1 leax D014f,y ldb d,x cmpb #$2f bne L040d leax L0b7a,pcr pshs x leax D014f,y tfr x,d addd D0012,y lbsr L0a29 leas 2,s bra L0449 L0439 leax D0029,y pshs x leax D014f,y tfr x,d lbsr L094c leas 2,s L0449 ldd D0016,y lbsr L0df6 clrb clra std D000e,y lbsr L047d ldd D000c,y beq L0463 leax L0b7c,pcr tfr x,d lbsr L0df3 L0463 leax L0b88,pcr tfr x,d lbsr L0df3 leax L0b95,pcr tfr x,d lbsr L0df3 clrb clra lbsr L0df9 leas 8,s rts L047d leas -254,s ldd D000e,y addd #1 std D000e,y subd #1 ldd D0002,y lbeq L04eb ldd D0010,y addd #1 std D0010,y subd #1 leax D0109,y pshs x addd ,s++ pshs d ldb #$20 stb [,s++] ldd D0010,y addd #1 std D0010,y subd #1 leax D0109,y pshs x addd ,s++ pshs d ldb #$20 stb [,s++] leax D0109,y tfr x,d addd D0010,y tfr d,x clr ,x ldd D0010,y cmpd #$001e ble L04eb leax L0ba5,pcr pshs x ldd D000e lbsr L0df0 leas 2,s lbsr L0df9 L04eb ldd #$0081 pshs d leax L0bcb,pcr tfr x,d lbsr L0dfc leas 2,s std D0014,y cmpd #0 bgt L0516 leax L0bcd,pcr pshs x ldd D000e lbsr L0df0 leas 2,s ldd D0002 lbsr L0df9 L0516 clrb clra std D0020,y ldd #$0040 std D0022,y ldd D0014,y lbsr L073d L0527 ldd D0014,y lbsr L0704 cmpd #0 lblt L06ca ldd #1 pshs d leax D0099,y tfr x,d lbsr L0dfc leas 2,s std D0016,y cmpd #0 lbgt L06b8 ldd D0004,y bne L0527 ldd #$0081 pshs d leax D0099,y tfr x,d lbsr L0dfc leas 2,s std D0016,y cmpd #0 lbgt L059c ldd D0002 pshs d leax D0099,y pshs x ldd D0249,y lbsr L0df3 leas 4,s ldd D0002 pshs d leax D0099,y pshs x ldd D0249,y pshs d ldd D000e lbsr L0df0 leas 6,s lbra L0527 L059c leax D0099,y tfr x,d lbsr L0838 ldd D0006,y bne L05c0 leax D0099,y pshs x leax D0109,y pshs x leax L0beb,pcr tfr x,d lbsr L0df3 leas 4,s L05c0 ldd D0016,y lbsr L0dff leax D0099,y tfr x,d lbsr L0838 leax D0099,y pshs x leax D0109,y pshs x leax L0bf8,pcr tfr x,d lbsr L0df3 leas 4,s leax L0c02,pcr pshs x leax D0099,y tfr x,d lbsr L0a29 leas 2,s clr ,s leax D014f,y pshs x leax 2,s tfr x,d lbsr L094c leas 2,s leax L0c04,pcr pshs x leax D014f,y tfr x,d lbsr L094c leas 2,s leax D0099,y pshs x leax D014f,y tfr x,d lbsr L094c leas 2,s ldd D0020,y std 250,s ldd D0022,y std 252,s ldd D0014,y lbsr L0dff lbsr L047d leax D0109,y pshs x leax L0c06,pcr tfr x,d lbsr L0df3 leas 2,s leax L0c13,pcr pshs x leax L0c10,pcr tfr x,d lbsr L0a29 leas 2,s ldd #$0081 pshs d leax L0c15,pcr tfr x,d lbsr L0dfc leas 2,s std D0014,y cmpd #0 bgt L068e leax L0c17,pcr pshs x ldd D000e lbsr L0df0 leas 2,s ldd D0002 lbsr L0df9 L068e ldd 250,s std D0020,y ldd 252,s std D0022,y ldd D0014,y lbsr L073d clr D014f,y leax ,s pshs x leax D014f,y tfr x,d lbsr L094c leas 2,s lbra L0527 L06b8 ldd D0016,y lbsr L0dff leax D0099,y tfr x,d lbsr L076f lbra L0527 L06ca ldd D0014,y lbsr L0dff ldd D0002,y beq L06f5 ldd D0010,y subd #1 std D0010,y addd #1 ldd D0010,y subd #1 std D0010,y leax D0109,y pshs x addd ,s++ tfr d,x clr ,x L06f5 ldd D000e,y subd #1 std D000e,y addd #1 leas 254,s rts L0704 pshs d clr D0099,y L070a ldb D0099,y bne L0737 ldd D0022,y addd #$0020 std D0022,y ldd #$0020 pshs d leax D0099,y pshs x ldd 4,s lbsr L0e02 leas 4,s cmpd #$0020 beq L070a ldd #-1 leas 2,s rts L0737 ldd #1 leas 2,s rts L073d pshs d clrb clra pshs d ldd D0022,y pshs d ldd D0020,y pshs d ldd 6,s lbsr L0e05 leas 6,s cmpd #0 bge L076c leax L0c35,pcr pshs x ldd D000e lbsr L0df0 leas 2,s ldd D0002 lbsr L0df9 L076c leas 2,s rts L076f pshs d ldd ,s lbsr L0838 ldd D000e,y cmpd #1 lbne L07ee leax L0c48,pcr pshs x ldd 2,s lbsr L0909 leas 2,s cmpd #0 lbne L07ee ldd ,y cmpd #1 bne L07bf leax D014f,y pshs x leax D0109,y pshs x leax D0051,y pshs x leax D0109,y pshs x leax L0c50,pcr tfr x,d lbsr L0df3 leas 8,s L07bf ldd ,y cmpd #2 bne L07e9 leax D00b9,y pshs x leax D0109,y pshs x leax D0051,y pshs x leax D0109,y pshs x leax L0c6b,pcr tfr x,d lbsr L0df3 leas 8,s L07e9 clrb clra leas 2,s rts L07ee ldd ,s pshs d ldd 2,s pshs d leax D014f,y pshs x leax D0024,y pshs x leax D0109,y pshs x leax L0c7e,pcr tfr x,d lbsr L0df3 leas 10,s ldd D000c,y beq L0835 ldd ,s pshs d ldd 2,s pshs d leax D014f,y pshs x leax D0109,y pshs x leax L0c92,pcr tfr x,d lbsr L0df3 leas 8,s L0835 leas 2,s rts L0838 pshs d leas -4,s clrb clra std 2,s std ,s L0842 ldd 4,s addd ,s tfr d,x ldb ,x andb #$80 cmpb #0 bne L0864 ldd ,s cmpd #$001d bgt L0864 ldd ,s addd #1 std ,s subd #1 bra L0842 L0864 ldd 4,s addd ,s pshs d ldd 6,s addd 2,s tfr d,x ldb ,x andb #$7f stb [,s++] ldd ,s addd #1 std ,s subd #1 ldd 4,s addd ,s tfr d,x clr ,x leas 6,s rts L088b ldd #$0081 pshs d leax L0ca2,pcr tfr x,d lbsr L0dfc leas 2,s std D0016,y ldd #$0020 pshs d leax D0099,y pshs x ldd D0016,y lbsr L0e02 leas 4,s ldd #$0020 pshs d leax D0079,y pshs x ldd D0016,y lbsr L0e02 leas 4,s leax D0079,y tfr x,d addd #$001f pshs d leax D0099,y ldb 31,x cmpb [,s++] bne L0906 leax D0079,y tfr x,d addd #$001e pshs d leax D0099,y ldb 30,x cmpb [,s++] bne L0906 leax D0079,y tfr x,d addd #$001d pshs d leax D0099,y ldb 29,x cmpb [,s++] bne L0906 ldd #1 rts L0906 clrb clra rts L0909 pshs d leas -3,s clrb clra std 1,s L0911 ldd 1,s ldx 3,s ldb d,x beq L0942 ldd 3,s addd 1,s tfr d,x ldb ,x orb #$20 stb ,s tstb beq L0942 ldd 1,s addd #1 std 1,s subd #1 addd 7,s pshs d ldb 2,s cmpb [,s++] beq L0911 ldd #1 leas 5,s rts L0942 ldd 1,s ldx 7,s ldb d,x clra leas 5,s rts L094c pshs d leas -4,s clrb clra std ,s L0954 ldd ,s ldx 4,s ldb d,x beq L0968 ldd ,s addd #1 std ,s subd #1 bra L0954 L0968 clrb clra std 2,s L096c ldd ,s addd #1 std ,s subd #1 addd 4,s pshs d ldd 4,s ldx 10,s ldb d,x stb [,s++] ldd 2,s addd #1 std 2,s subd #1 ldx 8,s ldb d,x cmpb #0 beq L099c ldd ,s cmpd #$00f9 blt L096c L099c ldd ,s cmpd #$00f9 blt L09b6 leax L0ca4,pcr pshs x ldd D000e lbsr L0df0 leas 2,s clrb clra lbsr L0df9 L09b6 leas 6,s rts L09b9 pshs d leas -2,s clrb clra std ,s L09c1 ldd ,s ldx 2,s ldb d,x beq L09d5 ldd ,s addd #1 std ,s subd #1 bra L09c1 L09d5 ldd ,s cmpd #0 ble L0a0b ldd D0012,y cmpd #0 blt L0a0b ldd D0012,y subd #1 std D0012,y addd #1 leax D014f,y pshs x addd ,s++ pshs d ldd 2,s subd #1 std 2,s ldx 4,s ldb d,x stb [,s++] bra L09d5 L0a0b ldd D0012,y cmpd #0 bgt L0a26 leax L0cc0,pcr pshs x ldd D000e lbsr L0df0 leas 2,s clrb clra lbsr L0df9 L0a26 leas 4,s rts L0a29 pshs d ldd ,s lbsr L0e08 cmpd #0 bge L0a4c ldd ,s pshs d leax L0cdc,pcr pshs x ldd D000e lbsr L0df0 leas 4,s ldd D0002 lbsr L0df9 L0a4c leas 2,s rts L0a4f leax L0d02,pcr pshs x ldd D000e lbsr L0df0 leas 2,s leax L0d2a,pcr pshs x ldd D000e lbsr L0df0 leas 2,s leax L0d4b,pcr pshs x ldd D000e lbsr L0df0 leas 2,s leax L0d6d,pcr pshs x ldd D000e lbsr L0df0 leas 2,s leax L0d90,pcr pshs x ldd D000e lbsr L0df0 leas 2,s leax L0dad,pcr pshs x ldd D000e lbsr L0df0 leas 2,s leax L0dcc,pcr pshs x ldd D000e lbsr L0df0 leas 2,s clrb clra lbsr L0df9 rts L0ab0 bpl L0ad2 comb fcb $6b rol -16,s neg $696e fcb $67 bra L0b20 rol -14,s fcb $65 com -12,s clr -14,s rol 14880 beq L0aed com $272e bra L0aed fcb $45 fcb $72 fcb $72 clr -14,s L0ad2 bra L0af7 bcs L0b3a dec D0000 L0ad8 lsr -13,s fcb $61 ror $653a bra L0b55 jmp 11,s jmp 15,s asr $6e20 clr -16,s lsr $696f jmp D000d,y L0aed equ *-1 bra L0b15 com 10,x dec D0000 L0af4 ble L0af6 L0af6 ble L0b3c L0af7 equ *-1 fcb $30 neg D002f L0afa equ *-1 neg D002f L0afc equ *-1 lsra fcb $31 neg D0064 L0b00 equ *-1 com $6176 fcb $65 abx bra L0b7d jmp -16,s fcb $72 clr 3,s fcb $65 com 29541 fcb $64 bra L0b75 fcb $72 L0b15 asr -11,s tst 5,s jmp -12,s com $0a0a neg D0074 L0b1f equ *-1 L0b20 dec D0000 L0b22 com 8,s fcb $64 bra L0b4c com $0a00 L0b2a lsr $6d6f lsr 5,s bra L0b5f fcb $31 bra L0b61 neg $6175 com $650a L0b3a neg D006c L0b3b equ *-1 L0b3c clr 1,s fcb $64 bra L0ba4 clr -16,s rol $0a00 L0b46 inc 15,s fcb $61 fcb $64 bra L0baf L0b4c tst -16,s dec D0000 L0b50 bgt L0b80 neg D0072 L0b53 equ *-1 neg D0064 L0b55 equ *-1 com $6176 fcb $65 abx bra L0bc2 fcb $72 fcb $72 L0b5f clr -14,s L0b61 bra L0bcc fcb $6e bra L0bd8 fcb $65 fcb $61 lsr 9,s jmp 7,s bra L0bde fcb $61 lsr $680a neg D002f L0b73 equ *-1 neg D002e L0b75 equ *-1 bgt L0b78 L0b78 fcb $72 neg D0072 L0b7a equ *-1 neg D0075 L0b7c equ *-1 L0b7d jmp 12,s rol 14,s L0b80 equ *-1 fcb $6b bra L0be7 tst -16,s dec D0000 L0b88 fcb $75 jmp 12,s rol 14,s fcb $6b bra L0bf3 clr -16,s rol $0a00 L0b95 lsr $6d6f lsr 5,s bra L0bca fcb $31 bra L0c0f fcb $61 fcb $75 com $650a L0ba4 neg D0064 L0ba5 equ *-1 com $6176 fcb $65 abx bra L0c11 rol -14,s L0baf bra L0c1d fcb $65 ror $656c bra L0c2b clr 15,s bra L0c1f fcb $65 fcb $65 neg $2066 clr -14,s L0bc2 bra L0c2d jmp 4,s fcb $65 jmp -12,s dec D0000 L0bca equ *-1 L0bcb bgt L0bcd L0bcc equ *-1 L0bcd lsr -13,s fcb $61 ror $653a bra L0c38 fcb $61 jmp 14,s L0bd8 clr -12,s bra L0c4b neg $656e L0bde equ *-1 bra L0c45 rol -14,s fcb $65 com -12,s clr -14,s L0be7 equ *-1 rol $0a00 L0beb bcs L0c60 tsta fcb $61 fcb $6b lsr 9,s fcb $72 L0bf3 bra L0c1a com $0a00 L0bf8 bcs L0c6d coma asl 4,s bra L0c24 com $0a00 L0c02 fcb $72 neg D002f L0c04 equ *-1 neg D0025 L0c06 equ *-1 com $4368 fcb $64 bra L0c3b bgt L0c19 L0c0f neg D002e L0c10 equ *-1 L0c11 bgt L0c13 L0c13 fcb $72 neg D002e L0c15 equ *-1 neg D0064 L0c17 equ *-1 com $6176 L0c19 equ *-2 L0c1a equ *-1 fcb $65 abx L0c1d bra L0c82 L0c1f fcb $61 jmp 14,s clr -12,s L0c24 bra L0c95 neg $656e bra L0c8f L0c2b rol -14,s L0c2d fcb $65 com -12,s clr -14,s rol $0a00 L0c35 lsr -13,s fcb $61 L0c38 ror $653a L0c3b bra L0cb0 fcb $65 fcb $65 fcb $6b bra L0ca7 fcb $72 fcb $72 clr -14,s L0c45 equ *-1 dec D0000 L0c48 clr -13,s rts L0c4b fcb $62 clr 15,s lsr >$0025 L0c50 equ *-1 com $4f53 rts asra fcb $65 fcb $6e bra L0c7f com $0a25 com $2573 L0c60 ble L0cb1 comb rts fcb $42 clr 15,s lsr $0a0a neg D0025 L0c6b equ *-1 com $4f53 L0c6d equ *-2 rts asra fcb $65 fcb $6e bra L0c9a com $0a25 com $2573 dec D000a neg D0025 L0c7e equ *-1 L0c7f com $436f L0c82 neg 31008 bcs L0cfa bra L0cae com $2f25 com $2025 L0c8f com $0a00 L0c92 bcs L0d07 coma L0c95 tst -16,s bra L0cbe com $2f25 L0c9a equ *-2 com $2025 com $0a00 L0ca2 bgt L0ca4 L0ca4 lsr -13,s fcb $61 L0ca7 ror $653a bra L0d11 fcb $72 fcb $72 L0cae clr -14,s L0cb0 bra L0d22 L0cb1 equ *-1 fcb $61 lsr $6820 lsr $6f6f bra L0d27 clr 14,s asr 10,x L0cbe equ *-1 neg D0064 L0cc0 equ *-1 com $6176 fcb $65 abx bra L0d2d fcb $72 fcb $72 clr -14,s bra L0d3e fcb $61 lsr $6820 lsr $6f6f bra L0d43 clr 14,s asr 10,x neg D0064 L0cdc equ *-1 com $6176 fcb $65 abx bra L0d47 fcb $61 jmp 14,s clr -12,s bra L0d4e asl 1,s jmp 7,s fcb $65 bra L0d56 rol -14,s fcb $65 com -12,s clr -14,s rol $2074 L0cfa equ *-2 fcb $6f bra L0d24 com $0a00 L0d02 fcb $55 com $653a bra L0d4c L0d07 equ *-1 comb fcb $41 rorb fcb $45 bra L0d4a blt L0d7f neg 29811 L0d11 equ *-2 fcb $3e bra L0d52 ror -14,s clr 13,s bra L0d80 fcb $65 ror 15904 cwai #$74 L0d22 fcb $6f bra L0d89 L0d24 equ *-1 fcb $65 ror 15882 L0d27 equ *-2 neg D0020 L0d2a equ *-1 bra L0d4d L0d2d bra L0d4f clr -16,s lsr 29472 bra L0d98 bra L0d75 bra L0da3 jmp 3,s inc -11,s L0d3e lsr 5,s bra L0da4 clr 15,s L0d43 equ *-1 lsr $6669 L0d47 inc 5,s dec D0000 L0d4a equ *-1 L0d4b bra L0d6d L0d4c equ *-1 L0d4d bra L0d6f L0d4e equ *-1 L0d4f bra L0d71 bra L0d73 L0d52 equ *-1 bra L0d75 bra L0dc0 L0d56 equ *-1 bra L0d96 bra L0dc4 jmp 4,s fcb $65 jmp -12,s bra L0dc6 rol -14,s bra L0dd2 fcb $65 ror $656c com $0a00 L0d6d bra L0d8f L0d6f bra L0d91 L0d71 bra L0d93 L0d73 bra L0d95 L0d75 bra L0d97 bra L0de5 bra L0db8 bra L0dec jmp 12,s L0d7f rol $206f L0d80 equ *-2 jmp 5,s bra L0dea rol -14,s bra L0df6 L0d89 equ *-1 fcb $65 ror $656c dec D0000 L0d8f equ *-1 L0d90 bra L0db2 L0d91 equ *-1 bra L0db4 L0d93 equ *-1 bra L0db6 L0d95 equ *-1 L0d96 bra L0db8 L0d97 equ *-1 L0d98 bra L0dba bra L0e09 bra L0ddb bra L0e0f tst 9,s lsr $206d L0da3 equ *-2 L0da4 equ *-1 fcb $61 fcb $6b lsr 9,s fcb $72 com $0a00 L0dad bra L0dcf bra L0dd1 bra L0dd3 L0db2 equ *-1 bra L0dd5 L0db4 equ *-1 bra L0dd7 L0db6 equ *-1 bra L0e2c L0db8 equ *-1 bra L0df8 L0dba equ *-1 bra L0e1e inc -12,s fcb $65 L0dc0 fcb $72 bra L0e30 fcb $65 L0dc4 fcb $6d bra L0e3a L0dc6 equ *-1 rol -6,s fcb $65 dec D0000 L0dcc bra L0dee bra L0df0 L0dcf equ *-1 bra L0df2 L0dd1 equ *-1 L0dd2 bra L0df4 L0dd3 equ *-1 bra L0df6 L0dd5 equ *-1 bra L0e4e L0dd7 equ *-1 bra L0e17 bra L0e52 L0ddb equ *-1 fcb $65 fcb $72 rol 6,s rol $2063 clr -16,s L0de5 rol 5,s fcb $64 bra L0e50 L0dea rol 12,s L0dec fcb $65 com $0a00 L0dee equ *-2 L0df0 lbra L0eb6 L0df2 equ *-1 L0df3 lbra L0eeb L0df4 equ *-2 L0df6 lbra L11ea L0df8 equ *-1 L0df9 lbra L0e9b L0dfc lbra L191e L0dff lbra L192b L0e02 lbra L1935 L0e05 lbra L19ce L0e08 lbra L190c L0e09 equ *-2 L0e0b clrb stb ,u++ L0e0e lda ,x+ L0e0f equ *-1 cmpa #$0d beq L0e2c bsr L0e94 beq L0e0e L0e17 equ *-1 leax -1,x stx ,u++ inc D0000 L0e1e lda ,x+ cmpa #$0d beq L0e2c bsr L0e94 bne L0e1e clr -1,x bra L0e0e L0e2c clr ,-x lda D0000 L0e30 sta D0001 clra clrb pshs d L0e36 tst D0000 beq L0e42 L0e3a dec D0000 ldd ,--u pshs d bra L0e36 L0e42 pshs x leax ,s pshs x leax -2,s pshs x leax ,u L0e4e clr ,x+ L0e50 cmpx ,s L0e52 bcs L0e4e puls x leau -2,u leax 16,u stx D000a stx D0008 leax 27,u stx D000c stx D0018 leax 38,u stx D000e stx D0023 lda #5 sta D0016 lda #6 sta D0021 lda #6 sta D002c clra sta D0017 inca sta D0022 inca sta D002d ldd ,u addd #1 sty D0000 leay 253,u lbsr L000d lbra L0e9b L0e94 cmpa #$20 beq L0e9a cmpa #9 L0e9a rts L0e9b pshs d L0e9d ldd D0008 beq L0ea8 ldd D0008 lbsr L0eb0 bra L0e9d L0ea8 ldd ,s lbsr L0eb3 leas 2,s rts L0eb0 lbra L11ea L0eb3 lbra L1a0c L0eb6 pshs d leas -256,s leax 262,s pshs x ldd 262,s pshs d leax 4,s tfr x,d lbsr L0ee5 leas 4,s ldd 256,s pshs d leax 2,s tfr x,d lbsr L0ee8 leas 2,s leas 258,s rts L0ee5 lbra L0f18 L0ee8 lbra L1343 L0eeb pshs d leas -256,s leax 260,s pshs x ldd 258,s pshs d leax 4,s tfr x,d lbsr L0f12 leas 4,s leax ,s tfr x,d lbsr L0f15 leas 258,s rts L0f12 lbra L0f18 L0f15 lbra L12de L0f18 pshs d leas -269,s L0f1e ldx 273,s ldb ,x+ stx 273,s stb ,s tstb lbeq L114b ldb ,s cmpb #$25 beq L0f4b ldd 269,s addd #1 std 269,s subd #1 pshs d ldb 2,s stb [,s++] bra L0f1e L0f4b leax 13,s stx 9,s ldd #6 std 4,s clr 7,s ldb #$20 stb 8,s clr 6,s ldb [273,s] cmpb #$2d bne L0f73 ldd 273,s addd #1 std 273,s ldb #1 stb 7,s L0f73 ldb [273,s] clra lbsr L11d8 addd #0 beq L0f99 ldb [273,s] cmpb #$30 bne L0f8c ldb #$30 stb 8,s L0f8c leax 273,s tfr x,d lbsr L11db std 2,s bra L0f9d L0f99 clrb clra std 2,s L0f9d ldb [273,s] cmpb #$2e bne L0fbf ldd 273,s addd #1 std 273,s leax 273,s tfr x,d lbsr L11db std 4,s ldb #1 stb 6,s L0fbf ldx 273,s ldb ,x+ stx 273,s stb ,s ldb ,s clra lbsr L11de cmpb #$64 beq L0ff4 cmpb #$75 beq L1021 cmpb #$78 lbeq L1027 cmpb #$6f lbeq L102d cmpb #$63 lbeq L1057 cmpb #$73 lbeq L1079 lbra L1134 L0ff4 ldd [275,s] cmpd #0 bge L1021 ldd 9,s addd #1 std 9,s subd #1 pshs d ldb #$2d stb [,s++] ldd [275,s] nega negb sbca #0 std [275,s] ldd 2,s subd #1 std 2,s L1021 ldb #$0a stb 1,s bra L1031 L1027 ldb #$10 stb 1,s bra L1031 L102d ldb #8 stb 1,s L1031 ldb 1,s clra pshs d ldx 277,s ldd ,x++ stx 277,s pshs d leax 13,s tfr x,d lbsr L1154 leas 4,s clra pshs d ldd 4,s subd ,s++ std 2,s lbra L10bb L1057 ldd 9,s addd #1 std 9,s subd #1 pshs d ldx 277,s ldd ,x++ stx 277,s stb [,s++] ldd 2,s subd #1 std 2,s lbra L10bb L1079 ldb 6,s bne L1082 ldd #$0100 std 4,s L1082 ldx 275,s ldd ,x++ stx 275,s std 11,s L108e ldb [11,s] beq L10bb ldd 4,s beq L10bb ldd 9,s addd #1 std 9,s subd #1 pshs d ldx 13,s ldb ,x+ stx 13,s stb [,s++] ldd 4,s subd #1 std 4,s ldd 2,s subd #1 std 2,s bra L108e L10bb clr [9,s] leax 13,s stx 9,s ldb 7,s bne L10ec L10c6 ldd 2,s subd #1 std 2,s addd #1 cmpd #0 ble L10ec ldd 269,s addd #1 std 269,s subd #1 pshs d ldb 10,s stb [,s++] bra L10c6 L10ec ldx 9,s ldb ,x+ stx 9,s stb [269,s] tstb beq L1106 ldd 269,s addd #1 std 269,s bra L10ec L1106 ldb 7,s lbeq L0f1e L110c ldd 2,s subd #1 std 2,s addd #1 cmpd #0 lble L0f1e ldd 269,s addd #1 std 269,s subd #1 pshs d ldb 10,s stb [,s++] bra L110c L1134 ldd 269,s addd #1 std 269,s subd #1 pshs d ldb 2,s stb [,s++] lbra L0f1e L114b clr [269,s] leas 271,s rts L1154 pshs d leas -3,s ldd [3,s] std ,s ldd 7,s pshs d ldd 11,s lbsr L11e4 stb 2,s ldd [3,s] addd #1 std [3,s] subd #1 pshs d ldb 4,s cmpb #$0a bcc L1182 ldb 4,s addb #$30 bra L1186 L1182 ldb 4,s addb #$37 L1186 stb [,s++] L1188 ldd 7,s pshs d ldd 11,s lbsr L11e7 std 7,s addd #0 beq L11c5 ldd 7,s pshs d ldd 11,s lbsr L11e4 stb 2,s ldd [3,s] addd #1 std [3,s] subd #1 pshs d ldb 4,s cmpb #$0a bcc L11bd ldb 4,s addb #$30 bra L11c1 L11bd ldb 4,s addb #$37 L11c1 stb [,s++] bra L1188 L11c5 ldx [3,s] clr ,x ldd ,s lbsr L11e1 ldd [3,s] subd ,s clra leas 5,s rts L11d8 lbra L179b L11db lbra L129f L11de lbra L17b2 L11e1 lbra L12f1 L11e4 lbra L1850 L11e7 lbra L186c L11ea pshs d leas -5,s clrb clra std 2,s ldd D0008 std ,s L11f6 ldd ,s lbeq L1259 ldd ,s cmpd 5,s lbne L124c ldd 2,s beq L1218 ldd 2,s addd #8 pshs d ldx 2,s ldd 8,x std [,s++] bra L121e L1218 ldx ,s ldd 8,x std D0008 L121e clr 4,s ldd 5,s lbsr L1296 ldx 5,s ldb 7,x clra lbsr L1299 cmpd #-1 bne L1237 ldb #1 stb 4,s L1237 ldd 5,s lbsr L125f ldb 4,s beq L1246 ldd #-1 leas 7,s rts L1246 ldd #1 leas 7,s rts L124c ldd ,s std 2,s ldx ,s ldd 8,x std ,s lbra L11f6 L1259 ldd #-1 leas 7,s rts L125f pshs d ldd ,s addd #6 tfr d,x ldb ,x andb #8 tstb beq L1276 ldx ,s ldd 4,x lbsr L129c L1276 ldd ,s cmpd D000a beq L128b ldd ,s cmpd D000c beq L128b ldd ,s cmpd D000e bne L128e L128b leas 2,s rts L128e ldd ,s lbsr L129c leas 2,s rts L1296 lbra L15f8 L1299 lbra L192b L129c lbra L16e4 L129f pshs d leas -2,s clrb clra std ,s L12a7 ldx [2,s] ldb ,x clra lbsr L12d8 addd #0 beq L12d3 ldx [2,s] ldb ,x+ stx [2,s] clra pshs d ldd 2,s pshs d ldd #$000a lbsr L12db addd ,s++ subd #$0030 std ,s bra L12a7 L12d3 ldd ,s leas 4,s rts L12d8 lbra L179b L12db lbra L1801 L12de pshs d ldd D000c pshs d ldd 2,s lbsr L12ee leas 2,s leas 2,s rts L12ee lbra L1343 L12f1 pshs d leas -5,s clrb clra std ,s ldd 5,s lbsr L1340 subd #1 std 2,s L1303 ldd ,s cmpd 2,s lbge L133d ldd ,s ldx 5,s ldb d,x stb 4,s ldd 5,s addd ,s pshs d ldd 4,s ldx 7,s ldb d,x stb [,s++] ldd 5,s addd 2,s pshs d ldb 6,s stb [,s++] ldd ,s addd #1 std ,s ldd 2,s subd #1 std 2,s lbra L1303 L133d leas 7,s rts L1340 lbra L17e5 L1343 pshs d leas -263,s ldd 267,s lbsr L1431 ldd 263,s std 1,s leax 7,s stx 3,s L135a ldb [1,s] lbeq L13f1 ldb [1,s] cmpb #$0a lbne L1399 ldb #$0d stb [3,s] ldd #$0100 pshs d leax 9,s pshs x ldx 271,s ldb 7,x clra lbsr L1434 leas 4,s cmpd #-1 bne L1392 ldd #-1 leas 265,s rts L1392 leax 7,s stx 3,s lbra L13e7 L1399 ldb [1,s] cmpb #9 bne L13d6 ldd 3,s leax 7,s pshs x subd ,s++ pshs d ldd #8 lbsr L143d pshs d ldd #8 subd ,s++ std 5,s L13b9 ldd 5,s beq L13e7 ldd 3,s addd #1 std 3,s subd #1 pshs d ldb #$20 stb [,s++] ldd 5,s subd #1 std 5,s bra L13b9 L13d6 ldd 3,s addd #1 std 3,s subd #1 pshs d ldb [3,s] stb [,s++] L13e7 ldd 1,s addd #1 std 1,s lbra L135a L13f1 clr [3,s] ldd 3,s leax 7,s pshs x cmpd ,s++ lbeq L1428 leax 7,s tfr x,d lbsr L143a pshs d leax 9,s pshs x ldx 271,s ldb 7,x clra lbsr L1437 leas 4,s cmpd #-1 bne L1428 ldd #-1 leas 265,s rts L1428 ldd 263,s leas 265,s rts L1431 lbra L15f8 L1434 lbra L1974 L1437 lbra L194a L143a lbra L17e5 L143d lbra L1844 pshs d ldd D000c pshs d ldd 2,s lbsr L1450 leas 2,s leas 2,s rts L1450 pshs d ldd 4,s addd #2 tfr d,x ldd ,x subd #1 std ,x cmpd #0 blt L147b ldd [4,s] addd #1 std [4,s] subd #1 pshs d ldb 3,s stb [,s++] clra bra L148c L147b ldd #1 pshs d ldd 6,s pshs d ldb 5,s clra lbsr L149f leas 4,s L148c leas 2,s rts pshs d ldd D000e pshs d ldd 2,s lbsr L1450 leas 2,s leas 2,s rts L149f pshs d leas -3,s ldb 4,s stb 2,s ldd 7,s addd #6 tfr d,x ldb ,x andb #2 cmpb #0 beq L14c5 ldd 7,s addd #6 tfr d,x ldb ,x andb #$30 cmpb #0 beq L14cb L14c5 ldd #-1 leas 5,s rts L14cb ldb 10,s beq L14d4 ldd #1 bra L14d6 L14d4 clrb clra L14d6 pshs d ldd 9,s addd #2 pshs d ldd #$0100 subd [,s++] subd ,s++ std ,s ldd 7,s addd #6 tfr d,x ldb ,x andb #4 cmpb #0 lbne L1527 ldx 7,s ldd 4,x bne L1527 ldd 7,s addd #4 pshs d ldd #$0100 lbsr L160c std [,s++] cmpd #0 bne L1523 ldd 7,s addd #6 tfr d,u ldb ,u orb #4 stb ,u bra L1527 L1523 clrb clra std ,s L1527 ldd 7,s addd #6 tfr d,x ldb ,x andb #4 tstb lbeq L156b ldb 10,s lbeq L159c ldd #1 pshs d leax 4,s pshs x ldx 11,s ldb 7,x clra lbsr L160f leas 4,s cmpd #-1 lbne L159c ldd 7,s addd #6 tfr d,u ldb ,u orb #$20 stb ,u ldd #-1 leas 5,s rts L156b ldd ,s beq L159c ldd ,s pshs d ldx 9,s ldd 4,x pshs d ldx 11,s ldb 7,x clra lbsr L160f leas 4,s cmpd #-1 bne L159c ldd 7,s addd #6 tfr d,u ldb ,u orb #$20 stb ,u ldd #-1 leas 5,s rts L159c ldd 7,s addd #2 pshs d ldd 9,s addd #6 tfr d,x ldb ,x andb #4 tstb beq L15b5 clrb clra bra L15b8 L15b5 ldd #$0100 L15b8 std [,s++] ldx 7,s ldd 4,x std [7,s] ldb 10,s beq L15f2 ldd 7,s addd #6 tfr d,x ldb ,x andb #4 cmpb #0 bne L15f2 ldd [7,s] addd #1 std [7,s] subd #1 pshs d ldb 6,s stb [,s++] ldd 7,s addd #2 pshs d ldd #$00ff std [,s++] L15f2 ldb 4,s clra leas 5,s rts L15f8 pshs d clrb clra pshs d ldd 2,s pshs d clrb clra lbsr L149f leas 4,s leas 2,s rts L160c lbra L1612 L160f lbra L194a L1612 pshs d leas -8,s ldd 8,s addd #3 lsra rorb lsra rorb addd #1 std 6,s ldd D024f,y std 2,s cmpd #0 bne L1644 leax D024b,y stx 2,s stx D024f,y stx D024b,y clrb clra std D024d,y L1644 ldd [2,s] std ,s L1649 ldx ,s ldd 2,x cmpd 6,s lblo L169f ldx ,s ldd 2,x cmpd 6,s bne L1664 ldd [,s] std [2,s] bra L1691 L1664 ldd ,s addd #2 tfr d,u ldd ,u subd 6,s std ,u ldd ,s addd #2 tfr d,x ldd ,x lslb rola lslb rola pshs d ldd 2,s addd ,s++ std ,s ldd ,s addd #2 pshs d ldd 8,s std [,s++] L1691 ldd 2,s std D024f,y ldd ,s addd #4 leas 10,s rts L169f ldd ,s cmpd D024f,y lbne L16d9 ldd 6,s lslb rola lslb rola lbsr L1798 std 4,s cmpd #-1 bne L16c0 clrb clra leas 10,s rts L16c0 ldd 4,s addd #2 pshs d ldd 8,s std [,s++] ldd 4,s addd #4 lbsr L16e4 ldd D024f,y std ,s L16d9 ldd ,s std 2,s ldd [,s] std ,s lbra L1649 L16e4 pshs d leas -4,s ldd 4,s subd #4 std ,s ldd D024f,y std 2,s L16f5 ldd ,s cmpd 2,s bls L1704 ldd ,s cmpd [2,s] bcs L1723 L1704 ldd 2,s cmpd [2,s] bcs L171b ldd ,s cmpd 2,s bhi L1723 ldd ,s cmpd [2,s] bcs L1723 L171b ldd [2,s] std 2,s lbra L16f5 L1723 ldd ,s addd #2 tfr d,x ldd ,x lslb rola lslb rola addd ,s cmpd [2,s] bne L1756 ldd [2,s] addd #2 pshs d ldd 2,s addd #2 tfr d,u ldd ,u addd [,s++] std ,u ldx [2,s] ldd ,x std [,s] bra L175b L1756 ldd [2,s] std [,s] L175b ldd 2,s addd #2 tfr d,x ldd ,x lslb rola lslb rola addd 2,s cmpd ,s bne L178a ldd ,s addd #2 pshs d ldd 4,s addd #2 tfr d,u ldd ,u addd [,s++] std ,u ldd [,s] std [2,s] bra L178f L178a ldd ,s std [2,s] L178f ldd 2,s std D024f,y leas 6,s rts L1798 lbra L18e3 L179b pshs d ldb 1,s cmpb #$30 bcs L17ad ldb 1,s cmpb #$39 bhi L17ad ldb #1 bra L17ae L17ad clrb L17ae clra leas 2,s rts L17b2 pshs d ldb 1,s clra lbsr L17cb addd #0 beq L17c5 ldb 1,s addb #$20 bra L17c7 L17c5 ldb 1,s L17c7 clra leas 2,s rts L17cb lbra L17ce L17ce pshs d ldb 1,s cmpb #$41 bcs L17e0 ldb 1,s cmpb #$5a bhi L17e0 ldb #1 bra L17e1 L17e0 clrb L17e1 clra leas 2,s rts L17e5 pshs d leas -2,s ldd 2,s std ,s L17ed ldb [,s] beq L17fa ldd ,s addd #1 std ,s bra L17ed L17fa ldd ,s subd 2,s leas 4,s rts L1801 leas -5,s clr ,s bsr L183a std 1,s ldd 7,s bsr L183a std 7,s lda 2,s ldb 8,s mul std 3,s lda 1,s ldb 8,s mul tfr b,a clrb addd 3,s std 3,s lda 2,s ldb 7,s mul tfr b,a clrb addd 3,s tst ,s bpl L1834 nega negb sbca #0 L1834 ldx 5,s leas 9,s jmp ,x L183a tsta bpl L1843 com 2,s nega negb sbca #0 L1843 rts L1844 ldx 2,s bsr L18c3 pshs cc stx 3,s puls cc bra L1852 L1850 andcc #247 L1852 orcc #1 pshs cc ldx #0 puls cc bra L1871 ldx 2,s bsr L18c3 pshs cc stx 3,s ldx #32767 puls cc bra L1871 L186c ldx #-1 andcc #246 L1871 leas -3,s pshs cc std 2,s bne L187f puls cc tfr x,d bra L18bd L187f lda #1 sta 1,s L1883 tst 2,s bmi L188f asl 3,s rol 2,s inc 1,s bra L1883 L188f ldd 6,s clr 6,s clr 7,s L1895 subd 2,s bcc L189f addd 2,s andcc #254 bra L18a1 L189f orcc #1 L18a1 rol 7,s rol 6,s lsr 2,s ror 3,s dec 1,s bne L1895 puls cc bcs L18b7 pshs cc ldd 6,s puls cc L18b7 bpl L18bd nega negb sbca #0 L18bd ldx 3,s leas 7,s jmp ,x L18c3 pshs u tfr d,u pshs x eora ,s++ andcc #254 pshs cc tfr x,d bsr L18db tfr d,x tfr u,d bsr L18db puls cc,u,pc L18db tsta bpl L18e2 nega negb sbca #0 L18e2 rts L18e3 pshs d leax Dff03,y tfr x,d nega negb sbca #0 addd D0000 addd ,s pshs y os9 F$Mem puls y puls x bcs L1905 ldd D0000 leax d,x stx D0000 rts L1905 clra std D0002 ldd #-1 rts L190c tfr d,x lda #1 os9 I$ChgDir bcc L191b std D0002 ldd #-1 rts L191b clra clrb rts L191e tfr d,x lda 3,s os9 I$Open bcs L1989 tfr a,b clra rts L192b tfr b,a os9 I$Close bcs L1989 clra clrb rts L1935 pshs y tfr b,a ldx 4,s ldy 6,s os9 I$Read puls x exg x,y bcs L1989 tfr x,d rts L194a pshs y tfr b,a ldx 4,s ldy 6,s os9 I$Write puls x exg x,y bcs L1989 tfr x,d rts pshs y tfr b,a ldx 4,s ldy 6,s os9 I$ReadLn puls x exg x,y bcs L1989 tfr x,d rts L1974 pshs y tfr b,a ldx 4,s ldy 6,s os9 I$WritLn puls x exg x,y bcs L1989 tfr x,d rts L1989 clra std D0002 ldd #-1 rts tfr d,x lda #2 ldb 3,s bmi L199c tfr b,a anda #3 L199c orb #1 pshs d,x os9 I$Create puls x,u exg x,u bcc L19b9 pshs x os9 I$Delete puls x bcs L1989 tfr u,d os9 I$Create bcs L1989 L19b9 tfr a,b clra rts pshs d ldx 4,s ldd ,x std 4,s clrb lda 2,x addd 6,s std 6,s puls d L19ce tfr b,a ldb 7,s ldx 2,s ldu 4,s decb bne L19e2 ldb #5 os9 I$GetStt bcs L1989 bra L19ec L19e2 decb bne L19fa ldb #2 os9 I$GetStt bcs L1989 L19ec exg d,u addd 4,s exg d,u exg d,x adcb 3,s adca 2,s exg d,x L19fa os9 I$Seek bcs L1989 clra clrb rts tfr d,x os9 I$Delete bcs L1989 clra clrb rts L1a0c os9 F$Exit L1a0f lsr -13,s fcb $61 ror $e502 emod L1a18 equ * end ===== RTS ===== Return to [[:OS-9:]] or [[:Top:]]