* Disassembly by Os9disasm of xmode
mod L0380,L000d,$11,$81,L012d,D0241
* OS-9 system function equates
F$Link equ $00
F$UnLink equ $02
F$Exit equ $06
F$CRC equ $17
I$WritLn equ $8c
* class D external label equates
Dfff1 equ $fff1
Dfffe equ $fffe
Dffff equ $ffff
* OS9 data area definitions
D0000 rmb 1
D0001 rmb 1
D0002 rmb 1
D0003 rmb 1
D0004 rmb 1
D0005 rmb 1
D0006 rmb 1
D0007 rmb 1
D0008 rmb 1
D0009 rmb 2
D000b rmb 2
D000d rmb 3
D0010 rmb 2
D0012 rmb 1
D0013 rmb 49
D0044 rmb 29
D0061 rmb 1
D0062 rmb 3
D0065 rmb 12
D0071 rmb 1
D0072 rmb 2
D0074 rmb 461
D0241 equ .
L000d lslb
tst 15,s
lsr b,s
fcb $01
L0013 fcb $55
com $653a
bra L0071
tst 15,s
lsr 5,s
bra L005b
ble L0085
fcb $65
ror $6963
fcb $65
fcb $3e
bra L0084
clr -16,s
lsr $696f
jmp -13,s
tstb
dec D0074
fcb $6f
bra L0099
asl 1,s
jmp 7,s
fcb $65
bra L00a1
fcb $65
ror $2064
fcb $65
com $6372
rol -16,s
lsr $6f72
tst D0044
L004b equ *-1
fcb $65
com $6372
rol -16,s
lsr $6f72
bra L00cb
clr 15,s
bra L00ce
L005b tst 1,s
inc 12,s
bra L00d5
fcb $6f
bra L00c7
asl 1,s
jmp 7,s
fcb $65
bgt L0078
L006b comb
rol $6e74
fcb $61
asl $2045
L0071 equ *-2
fcb $72
fcb $72
clr -14,s
bge L0099
L0078 equ *-1
com 15,s
fcb $75
inc 4,s
jmp D0007,y
lsr $2070
fcb $72
L0084 clr 3,s
L0085 equ *-1
fcb $65
com 29498
tst D0000
fcb $15
L008d stu $0101
fcb $01
fcb $75
neg $e3ff
fcb $01
fcb $02
fcb $01
fcb $62
L0099 com $e2ff
neg D0003
neg D0062
com $ecff
L00a1 equ *-2
fcb $01
lsr D0001
fcb $65
com 8,s
fcb $ef
stu $0105
fcb $01
inc a,s
neg D0000
ror D0000
jmp -11,s
inc <L00b8,pcr
L00b8 equ *-1
fcb $01
asr D0001
neg $6175
com $e500
fcb $18
asl D0000
neg $61e7
L00c7 equ *-1
fcb $01
asl D0009
L00cb neg D0062
com -4095
L00ce equ *-2
fcb $18
dec D0000
lsr 5,s
L00d5 ldd 1,x
tst D000b
neg D0065
clr [,-s]
fcb $01
fcb $1b
inc D0000
fcb $65
clr a,s
fcb $01
lsr D000d
neg D0072
fcb $65
neg 29289
jmp [,s]
fcb $01
fcb $01
jmp D0000
lsr -11,s
subb $0117
clr D0000
neg 29667
fcb $01
com D0010
neg D0061
fcb $62
clr -14,s
andb $0105
fcb $11
neg D0071
fcb $75
rol [,s]
fcb $01
asl D0012
neg D0062
com $e501
asr D0013
neg D0062
fcb $65
inc <L011f,pcr
fcb $15
L011f fcb $14
neg D0074
rol 28901
neg D0002
fcb $15
neg D0062
fcb $61
fcb $75
andb Dfff1,y
L012d equ *-1
eorb #$79
pshs u
L0132 clr ,-y
cmpy ,s
bhi L0132
leas 2,s
bsr L01ba
cmpb #$2f
lbne L01dc
leax 1,x
pshs u
lda #$f1
os9 F$Link
lblo L01da
stu D0000
lda 18,u
leay 17,u
puls u
cmpa #0
bne L01dc
pshs x
leax 9,u
ldb ,y+
stb D0008
L0166 lda ,y+
sta ,x+
subb #1
bhi L0166
puls x
bsr L01ba
cmpb #$0d
lbeq L0287
L0178 bsr L01ee
bcs L01d0
cmpb #$0d
bne L0178
leax 9,u
ldy D0000
leay D0012,y
ldb D0008
L018a lda ,x+
sta ,y+
subb #1
bhi L018a
ldx D0000
ldd 2,x
subd #3
tfr d,y
leau d,x
ldd #-1
std 1,u
sta ,u
os9 F$CRC
com ,u
com 1,u
com 2,u
L01ad ldu D0000
beq L01b4
os9 F$UnLink
L01b4 clrb
ldb D0007
os9 F$Exit
L01ba ldb ,x+
cmpb #$2c
bne L01c2
L01c0 ldb ,x+
L01c2 cmpb #$20
beq L01c0
leax -1,x
clra
rts
L01ca leax L004b,pcr
bsr L01e4
L01d0 leax L006b,pcr
bsr L01e4
ldx D0003
bra L01e0
L01da stb D0007
L01dc leax L0013,pcr
L01e0 bsr L01e4
bra L01ad
L01e4 ldy #$0050
lda #1
os9 I$WritLn
rts
L01ee clr D0002
lda ,x
cmpa #$2d
bne L01fa
inc D0002
leax 1,x
L01fa stx D0003
leay L008d,pcr
lbsr L0351
bcs L01d0
lda ,y
bpl L0219
L0209 ldb D0001,y
L020b lda D0002,y
cmpa D0008
bhi L01ca
eorb D0002
leay 9,u
stb a,y
bra L01ba
L0219 tst D0002
bne L01d0
ldb ,x
cmpb #$3d
bne L0209
leax 1,x
tsta
bne L0240
clrb
L0229 lda ,x
suba #$30
cmpa #9
bhi L0257
pshs a
leax 1,x
lda #$0a
mul
addb ,s+
adca #0
beq L0229
bra L01d0
L0240 bsr L0268
bcs L01d0
pshs b
bsr L0268
puls a
bcc L024f
clrb
exg a,b
L024f asla
asla
asla
asla
pshs a
addb ,s+
L0257 lda ,x
cmpa #$20
beq L020b
cmpa #$0d
beq L020b
cmpa #$2c
beq L020b
lbra L01d0
L0268 ldb ,x
subb #$30
cmpb #9
bls L0280
cmpb #$31
bcs L0276
subb #$20
L0276 subb #7
cmpb #$0f
bhi L0285
cmpb #$0a
bcs L0285
L0280 andcc #254
leax 1,x
rts
L0285 comb
rts
L0287 clr D0005
leax L008d,pcr
leay 9,u
clrb
L0290 lda b,y
bsr L02a1
incb
cmpb #$20
bcs L0290
lda #$0d
lbsr L032f
lbra L01ad
L02a1 pshs d,x,y,u
ldy -2,x
L02a6 cmpb 2,x
beq L02b6
leax 4,x
L02ac lda ,x+
bpl L02ac
leay Dffff,y
bne L02a6
puls d,x,y,u,pc
L02b6 bsr L032d
tst ,x
bpl L02de
lda ,s
cmpa 3,x
beq L02c6
lda #$2d
bsr L032f
L02c6 bsr L02ce
puls d,x,y,u,pc
pshs x
bra L02d2
L02ce pshs x
leax 4,x
L02d2 lda ,x
anda #$7f
bsr L032f
lda ,x+
bpl L02d2
puls x,pc
L02de bsr L02ce
lda #$3d
bsr L032f
tst ,x
bne L0311
ldb ,s
lda #$2f
clr D0006
L02ee inca
subb #$64
bcc L02ee
bsr L0306
lda #$3a
L02f7 deca
addb #$0a
bcc L02f7
bsr L0306
tfr b,a
adda #$30
bsr L032f
puls d,x,y,u,pc
L0306 inc D0006
cmpa #$30
bne L032f
dec D0006
bne L032f
rts
L0311 lda ,s
anda #$f0
lsra
lsra
lsra
lsra
bsr L0323
lda ,s
anda #$0f
bsr L0323
puls d,x,y,u,pc
L0323 adda #$30
cmpa #$39
bls L032f
adda #7
bra L032f
L032d lda #$20
L032f pshs d,x,y
leax 41,u
ldb D0005
sta b,x
cmpa #$0d
beq L0349
incb
cmpb #$16
bcs L034d
cmpa #$20
bne L034d
lda #$0d
sta b,x
L0349 lbsr L01e4
clrb
L034d stb D0005
puls d,x,y,pc
L0351 pshs x,y,u
ldu Dfffe,y
L0355 ldx ,s
sty 2,s
leay D0004,y
L035c lda ,y+
eora ,x+
anda #$df
asla
bne L036c
bcc L035c
stx ,s
clra
puls x,y,u,pc
L036c leay Dffff,y
L036e lda ,y+
bpl L036e
leau -1,u
cmpu #0
bhi L0355
coma
puls x,y,u,pc
emod
L0380 equ *
end