* Disassembly by Os9disasm of ident
mod L06ce,L000d,$11,$81,L0235,D099c
* OS-9 system function equates
F$Link equ $00
F$UnLink equ $02
F$Exit equ $06
F$CRC equ $17
I$Open equ $84
I$Seek equ $88
I$Read equ $89
I$WritLn equ $8c
* class D external label equates
D2842 equ $2842
Dfff2 equ $fff2
Dfff9 equ $fff9
Dfffa equ $fffa
Dffff equ $ffff
* OS9 data area definitions
D0000 rmb 1
D0001 rmb 1
D0002 rmb 2
D0004 rmb 2
D0006 rmb 1
D0007 rmb 1
D0008 rmb 1
D0009 rmb 1
D000a rmb 1
D000b rmb 1
D000c rmb 1
D000d rmb 1
D000e rmb 2
D0010 rmb 2
D0012 rmb 1
D0013 rmb 1
D0014 rmb 1
D0015 rmb 1
D0016 rmb 1
D0017 rmb 1
D0018 rmb 1
D0019 rmb 1
D001a rmb 1
D001b rmb 1
D001c rmb 2
D001e rmb 2
D0020 rmb 68
D0064 rmb 61
D00a1 rmb 71
D00e8 rmb 2228
D099c equ .
L000d rola
lsr 5,s
jmp [,s]
ror D000a
L0013 equ *-1
fcb $55
com $653a
bra L0063
lsr 5,s
jmp -12,s
bra L007b
blt L0091
neg 29811
tstb
bra L0064
tst 15,s
lsr -11,s
inc 5,s
fcb $3e
bra L008c
blt L00a2
neg 29811
tstb
dec D0020
bra L00af
fcb $6f
bra L00a2
rol -13,s
neg $6c61
rol $206d
clr 4,s
fcb $75
inc 5,s
bra L00b5
fcb $65
fcb $61
lsr 5,s
fcb $72
bgt L005e
bra L0076
blt L00c5
bra L00ce
fcb $6f
bra L00c1
rol -13,s
L005e equ *-1
neg $6c61
rol $206d
L0063 equ *-2
L0064 equ *-1
clr 4,s
fcb $75
inc 5,s
bra L00d5
fcb $6e
bra L00dc
fcb $65
tst 15,s
fcb $72
rol $2e0a
L0076 bra L0098
blt L00ed
bra L00e2
L007b equ *-1
clr -14,s
bra L00f3
asl 15,s
fcb $72
lsr $2066
clr -14,s
tst D000e,y
dec D0020
L008c bra L00bb
ror $2066
L0091 clr -14,s
bra L0103
fcb $6f
bra L00db
L0098 fcb $52
coma
bra L0112
fcb $65
fcb $72
rol 6,s
rol 3,s
L00a2 fcb $61
lsr $696f
jmp 10,x
bra L00ca
blt L0124
bra L0114
clr -14,s
L00af equ *-1
bra L0118
rol 12,s
fcb $65
L00b5 bra L0120
fcb $6e
bra L011f
asl $6563
L00bb equ *-2
fcb $75
lsr $696f
L00c1 fcb $6e
bra L0128
L00c4 rol -14,s
L00c5 equ *-1
fcb $65
com -12,s
clr -14,s
L00ca equ *-1
rol $0d4d
L00cd equ *-1
L00ce clr 4,s
L00d0 fcb $75
inc 5,s
bra L013d
L00d5 fcb $65
fcb $61
lsr 5,s
fcb $72
bra L0145
L00db equ *-1
L00dc com $2069
jmp 3,s
clr -14,s
L00e2 equ *-1
fcb $72
fcb $65
com -12,s
cmpa 8,u
L00e8 equ *-1
fcb $65
fcb $61
lsr 5,s
L00ed fcb $72
bra L0156
clr -14,s
abx
L00f3 suba 13,u
L00f4 equ *-1
clr 4,s
fcb $75
inc 5,s
bra L016f
rol -6,s
fcb $65
ora $4d6f
L0100 equ *-2
lsr -11,s
L0103 equ *-1
inc 5,s
bra L014b
fcb $52
coma
abx
suba 8,u
L010c equ *-1
lsr -14,s
bra L0181
fcb $61
L0112 fcb $72
rol -12,s
L0114 equ *-1
rol 15008
L0118 fcb $45
asl $6563
bgt L013e
clr 6,s
L011f equ *-1
L0120 ror Dfffa,y
bra L00c4
L0124 lsra
fcb $61
lsr $6120
L0128 equ *-1
comb
rol -6,s
fcb $65
abx
bra L00d0
L0130 lsrb
rol $2f4c
fcb $61
bra L0178
lsr $2f52
ror -17851
L013c equ *-1
L013d lsr 9,s
L013e equ *-1
lsr $696f
jmp Dfffa,y
bra L0166
L0145 equ *-1
bra L00e8
L0148 tst 15,s
lsr <L01bf,pcr
L014b equ *-2
L014c equ *-1
fcb $65
blt L01b5
ldu 14,s
L0151 equ *-1
clr 14,s
blt L01c9
L0156 asl [,-s]
L0158 bvc L01a1
clr 15,s
lsr D2842,y
L015d equ *-3
L015e equ *-2
fcb $61
lsr D0009,y
fcb $87
L0164 fcb $10
andcc #$20
L0166 equ *-1
bcc L0192
blt L019d
pulu b,dp,x,y
fcb $41
rora
L016f fcb $4b
L0170 negb
rorb
fcb $5e
fcb $65
fcb $62
fcb $61
fcb $64
bra L01ed
L0178 equ *-1
rol 28773
bra L01e4
clr [,-s]
negb
L0181 fcb $72
fcb $6f
stb -13,u
fcb $75
fcb $62
sbcb $4d75
inc -12,s
adcb 4,u
fcb $61
lsr $e155
L0192 com 29216
bita 21875
fcb $72
bra L0151
fcb $55
com 29216
L019d equ *-2
sta 21875
L01a1 equ *-1
fcb $72
bra L015d
fcb $55
com 29216
adca 21875
fcb $72
bra L0170
fcb $55
com 29216
sbcb #$53
L01b5 rol 29556
fcb $65
std 6,u
rol 12,s
fcb $65
bra L020d
L01bf equ *-1
fcb $61
ldu 4,u
fcb $65
ror $2044
ror -3516
L01c9 equ *-1
fcb $65
ror $2044
com $e310
L01d0 equ *-1
fcb $15
fcb $1e
blt L0210
lsra
fcb $51
fcb $60
fcb $60
fcb $60
fcb $60
fcb $60
fcb $60
fcb $60
fcb $60
neg 4,u
fcb $61
lsr $61ac
L01e4 equ *-1
pshu dp,x,y
leax Dfff9,y
bra L025a
fcb $62
dec <L0231,pcr
L01ed equ *-2
fcb $41
comb
rola
coma
leax Dfff9,y
bra L0240
blt L025c
clr 4,s
fcb $65
cmpx -16,u
fcb $41
comb
coma
fcb $41
inca
bra L0255
blt L026a
clr 4,s
fcb $65
cmpx 3,u
bra L0257
L020d equ *-1
blt L0273
L0210 clr 4,s
fcb $65
cmpx 3,u
clra
fcb $42
clra
inca
bra L0264
blt L0280
clr 4,s
fcb $65
cmpx 6,u
clra
fcb $52
lsrb
fcb $52
fcb $41
fcb $4e
bra L0273
blt L028f
clr 4,s
fcb $65
cmpx Dffff,y
L0231 swi
swi
swi
cmpx Dfff2,y
L0235 equ *-1
adcb #1
cmpx D0010
stu D0006
tfr y,d
subd D0006
L0240 std D0008
leay 34,u
sty D0000
clr D000a
clr D000b
clr D000c
clr D0018
lda #1
sta D000d
ldd #0
L0255 equ *-2
L0257 std D0002
std D0004
L025a equ *-1
L025b lda ,x+
L025c equ *-1
L025d cmpa #$20
beq L025b
cmpa #$2c
beq L025b
L0264 equ *-1
cmpa #$0d
beq L02b3
cmpa #$2d
L026a equ *-1
beq L0276
ldy D0002
bne L025b
stx D0002
L0273 equ *-1
bra L025b
L0276 lda ,x+
cmpa #$2d
beq L0276
cmpa #$30
bcs L025d
L0280 eora #$4d
anda #$df
bne L028a
inc D000a
bra L0276
L028a lda -1,x
eora #$53
anda #$df
L028f equ *-1
bne L0296
inc D000b
bra L0276
L0296 lda -1,x
eora #$56
anda #$df
bne L02a2
inc D000c
bra L0276
L02a2 lda -1,x
eora #$58
anda #$df
bne L02b0
lda #5
sta D000d
bra L0276
L02b0 lbra L03bc
L02b3 ldx D0002
lbeq L03bc
leax -1,x
tst D000a
beq L030c
pshs u
clra
os9 F$Link
lblo L03ca
stu D000e
ldd ,u
cmpd #$87cd
beq L02e3
puls u
L02d5 leay L00cd,pcr
lbsr L05e3
lbsr L05f9
clrb
lbra L03ca
L02e3 ldd 2,u
subd #3
leax d,u
puls u
leay 16,u
pshs u
lda #3
L02f3 ldb ,x+
stb ,y+
deca
bne L02f3
puls u
lbsr L03cd
ldu D000e
os9 F$UnLink
lblo L03ca
clrb
lbra L03ca
L030c lda #$80
sta D00a1
lda D000d
os9 I$Open
lblo L03ca
sta D0019
ldd #0
std D001e
std D0020
std D001c
L0324 ldd D0020
addd D001c
std D0020
bcc L0333
ldd D001e
addd #1
std D001e
L0333 pshs u
ldx D001e
ldu D0020
lda D0019
os9 I$Seek
lblo L03ca
puls u
leax 114,u
stx D000e
ldy #$000e
os9 I$Read
bcc L0358
cmpb #$d3
bne L03ca
bra L03b9
L0358 ldd ,x
cmpd #$87cd
lbne L02d5
pshs x,u
ldd 2,x
std D001c
addd D0020
tfr d,u
leau -3,u
ldx D001e
bcc L0374
leax 1,x
L0374 lda D0019
os9 I$Seek
bcs L03ca
puls x,u
leax 16,u
ldy #3
lda D0019
os9 I$Read
bcs L03ca
pshs x,u
ldy D000e
ldd D0004,y
addd D0020
tfr d,u
ldx D001e
bcc L039c
leax 1,x
L039c lda D0019
os9 I$Seek
bcs L03ca
puls x,u
leax 128,u
ldy #$0021
lda D0019
os9 I$Read
bcs L03ca
bsr L03cd
lbra L0324
L03b9 clrb
bra L03ca
L03bc lda #1
leax L0013,pcr
ldy #$00ba
os9 I$WritLn
clrb
L03ca os9 F$Exit
L03cd tst D000b
lbne L04e9
lbsr L05f9
leay L00e8,pcr
lbsr L05e3
lbsr L04d0
lbsr L05f9
leay L00f4,pcr
lbsr L05e3
ldy D000e
ldd D0002,y
lbsr L05b9
leay L0100,pcr
lbsr L05e3
lbsr L052a
tst D000c
bne L0416
lbsr L053a
tsta
beq L040f
leay L015e,pcr
lbsr L05e3
bra L0416
L040f leay L0158,pcr
lbsr L05e3
L0416 lbsr L05f9
leay L010c,pcr
lbsr L05e3
ldy D000e
ldb D0008,y
lbsr L061a
lbsr L05f9
ldy D000e
ldb D0006,y
stb D001a
andb #$f0
cmpb #$e0
beq L043c
cmpb #$10
bne L045a
L043c leay L0118,pcr
lbsr L05e3
ldy D000e
ldd D0009,y
lbsr L05b9
leay L0124,pcr
lbsr L05e3
ldy D000e
ldd D000b,y
lbsr L05b9
L045a leay L013c,pcr
lbsr L05e3
ldb D0016
pshs b
lbsr L061a
ldb #5
lbsr L063b
puls b
clra
lbsr L0630
lbsr L05f9
leay L0130,pcr
lbsr L05e3
ldb D001a
lbsr L061a
ldy D000e
ldb D0007,y
stb D001b
lbsr L061a
lbsr L05f9
ldb D001a
lsrb
lsrb
lsrb
lsrb
leax L0164,pcr
lda b,x
leay a,x
lbsr L05e3
leay L0148,pcr
lbsr L05e3
ldb D001a
andb #$0f
leax L01d0,pcr
lda b,x
leay a,x
lbsr L05e3
ldb D001b
bitb #$80
beq L04c5
leay L014c,pcr
lbsr L05e3
bra L04cc
L04c5 leay L0151,pcr
lbsr L05e3
L04cc lbsr L05f9
rts
L04d0 tst D000a
beq L04dd
ldy D000e
ldd D0004,y
leay d,y
bra L04e1
L04dd leay 128,u
L04e1 lbsr L05e3
lda ,y
sta D0016
rts
L04e9 ldb #6
lbsr L063b
ldy D000e
ldb D0006,y
lbsr L061a
bsr L052a
tst D000c
beq L0500
lda #$20
bra L0507
L0500 bsr L053a
tsta
bne L0507
lda #$2e
L0507 lbsr L05ef
lbsr L064d
bsr L04d0
ldx D0000
pshs x
leax 34,u
stx D0000
ldb D0016
inc D0018
clra
lbsr L0679
clr D0018
puls x
stx D0000
lbsr L05f9
rts
L052a lda #$24
lbsr L05ef
ldd D0010
lbsr L0655
ldb D0012
lbsr L064b
rts
L053a ldd #-1
std D0013
stb D0015
pshs x,y,u
leau 19,u
tst D000a
beq L0558
ldx D000e
ldy 2,x
os9 F$CRC
lblo L03ca
bra L0573
L0558 pshs x,u
ldx D001e
ldu D0020
lda D0019
os9 I$Seek
puls x,u
lblo L03ca
ldd D001c
pshs d
bsr L05a6
puls d
std D001c
L0573 puls x,y,u
lda D0013
cmpa #$80
bne L0585
ldd D0014
cmpd #$0fe3
bne L0585
bra L0588
L0585 lda #$3f
rts
L0588 clra
rts
L058a lda D0019
ldx D0006
ldy D0008
cmpy D001c
bls L0599
ldy D001c
L0599 os9 I$Read
sty D0004
rts
L05a0 bsr L058a
lblo L03ca
L05a6 ldy D0004
beq L05a0
os9 F$CRC
ldd D001c
subd D0004
std D001c
bne L05a0
std D0004
rts
L05b9 pshs d
bsr L060f
ldb #3
bsr L063b
puls d
bsr L0630
bsr L05f9
rts
pshs d
andb #$f0
lsrb
lsrb
lsrb
lsrb
L05d0 lda #$24
bsr L05ef
lbsr L0669
ldb #2
bsr L063b
puls d,pc
pshs d
andb #$0f
bra L05d0
L05e3 lda ,y
anda #$7f
bsr L05ef
lda ,y+
bpl L05e3
L05ed lda #$20
L05ef pshs x
ldx D0000
sta ,x+
stx D0000
puls x,pc
L05f9 pshs a,x,y
lda #$0d
bsr L05ef
leax 34,u
stx D0000
ldy #$0050
lda #1
os9 I$WritLn
puls a,x,y,pc
L060f pshs a
lda #$24
bsr L05ef
puls a
bsr L0647
rts
L061a pshs a
lda #$24
bsr L05ef
puls a
bsr L064b
rts
pshs a
lda #$24
bsr L05ef
puls a
bsr L0669
rts
L0630 pshs a
lda #$23
bsr L05ef
puls a
bsr L0679
rts
L063b pshs d
L063d tstb
ble L0645
bsr L05ed
decb
bra L063d
L0645 puls d,pc
L0647 bsr L0655
bra L064d
L064b bsr L065b
L064d pshs a
lda #$20
bsr L05ef
puls a,pc
L0655 exg a,b
bsr L065b
tfr a,b
L065b pshs b
andb #$f0
lsrb
lsrb
lsrb
lsrb
bsr L0669
puls b
andb #$0f
L0669 cmpb #9
bls L066f
addb #7
L066f addb #$30
exg a,b
lbsr L05ef
exg a,b
rts
L0679 pshs b,y,u
leau <L06aa,pcr
clr D0017
ldy #5
L0684 clr ,s
L0686 subd ,u
bcs L068e
inc ,s
bra L0686
L068e addd ,u++
pshs b
ldb 1,s
exg a,b
bsr L06b4
exg a,b
puls b
cmpy #2
bgt L06a4
inc D0017
L06a4 leay Dffff,y
bne L0684
puls b,y,u,pc
L06aa beq L06bc
com D00e8
neg D0064
neg D000a
neg D0001
L06b4 tsta
beq L06b9
sta D0017
L06b9 tst D0017
bne L06c6
L06bc equ *-1
tst D0018
beq L06c5
lda #$20
bra L06c8
L06c5 rts
L06c6 adda #$30
L06c8 lbra L05ef
emod
L06ce equ *
end