* 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