* Disassembly by Os9disasm of FORMAT
mod L0a88,L000d,$11,$81,L009b,D2b39
* OS-9 system function equates
F$Exit equ $06
F$PErr equ $0f
F$PrsNam equ $10
F$AllBit equ $13
F$Time equ $15
I$Attach equ $80
I$Detach equ $81
I$Open equ $84
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$SetStt equ $8e
I$Close equ $8f
* class D external label equates
Dffff equ $ffff
* OS9 data area definitions
D0000 rmb 1
D0001 rmb 1
D0002 rmb 1
D0003 rmb 1
D0004 rmb 1
D0005 rmb 2
D0007 rmb 1
D0008 rmb 1
D0009 rmb 1
D000a rmb 1
D000b rmb 1
D000c rmb 2
D000e rmb 1
D000f rmb 1
D0010 rmb 1
D0011 rmb 1
D0012 rmb 1
D0013 rmb 2
D0015 rmb 1
D0016 rmb 1
D0017 rmb 1
D0018 rmb 1
D0019 rmb 1
D001a rmb 1
D001b rmb 1
D001c rmb 1
D001d rmb 2
D001f rmb 1
D0020 rmb 2
D0022 rmb 1
D0023 rmb 1
D0024 rmb 1
D0025 rmb 1
D0026 rmb 1
D0027 rmb 1
D0028 rmb 1
D0029 rmb 1
D002a rmb 1
D002b rmb 1
D002c rmb 1
D002d rmb 2
D002f rmb 1
D0030 rmb 1
D0031 rmb 1
D0032 rmb 1
D0033 rmb 1
D0034 rmb 2
D0036 rmb 2
D0038 rmb 2
D003a rmb 1
D003b rmb 2
D003d rmb 2
D003f rmb 4
D0043 rmb 1
D0044 rmb 2
D0046 rmb 15
D0055 rmb 15
D0064 rmb 28
D0080 rmb 16
D0090 rmb 71
D00d7 rmb 17
D00e8 rmb 13
D00f5 rmb 1
D00f6 rmb 10
D0100 rmb 10809
D2b39 equ .
L000d rora
clr -14,s
tst 1,s
andb 4352
L0014 equ *-1
neg D0000
L0016 equ *-1
neg D0000
L0018 equ *-1
neg D0080
L001a equ *-1
bitb ,x+
fcb $e5
neg D0000
L0020 fcb $01
neg D0028
stu $0600
fcb $01
ldd $0cff
neg D0000
ror D0000
fcb $01
ldu $0400
fcb $01
stb $0aff
ror D0000
fcb $01
addb $80e5
suba #$e5
fcb $01
stb $0aff
neg D0000
stu >$0043
fcb $01
bvc L009a
L0049 equ *-1
fcb $4e
inc D0000
com D00f6
fcb $01
ldd $204e
neg D0000
inc D0000
com D00f5
fcb $01
ldu $0400
fcb $01
stb 5710
inc D0000
com D00f5
fcb $01
addb $80e5
suba #$e5
fcb $01
stb 5710
neg D0000
fcb $4e
neg D0090
fcb $01
fcb $52
L0076 bra L00c6
neg D0000
asl D0000
com D00f5
fcb $01
ldu $0400
fcb $01
stb 5710
inc D0000
com D00f5
fcb $01
addb $80e5
suba #$e5
fcb $01
stb 6222
neg D0000
fcb $4e
neg D002c
fcb $01
L009a negb
L009b stu D0000
bsr L00be
bsr L00cf
bsr L011a
lbsr L0295
lbsr L0351
lbsr L04a9
lbsr L0586
lbsr L05bc
lbsr L07b6
ldu D0044
os9 I$Detach
clrb
L00bb os9 F$Exit
L00be leay 2,u
pshs y
leay 175,u
L00c6 clr ,-y
cmpy ,s
bhi L00c6
puls y,pc
L00cf lda ,x+
cmpa #$2f
beq L00da
L00d5 ldb #$d7
lbra L08d3
L00da os9 F$PrsNam
lblo L08d3
lda #$2f
cmpa ,y
beq L00d5
sty D0020
leay 71,u
L00ed sta ,y+
lda ,x+
decb
bpl L00ed
leax 72,u
lda #$20
sta ,y
clra
os9 I$Attach
lblo L08d3
stu D0044
ldu D0000
lda #$40
ldb #$20
std ,y
lda #2
leax 71,u
os9 I$Open
bcs L00bb
sta D0002
rts
L011a bsr L0122
bsr L015d
lbsr L0216
rts
L0122 leax 431,u
clrb
os9 I$GetStt
bcs L00bb
ldb 7,x
stb D0012
ldb 4,x
pshs b
andb #1
stb D0010
puls b
lsrb
andb #1
stb D0011
ldd 5,x
std D0013
ldb 3,x
stb D001b
andb #$20
stb D0046
ldd 9,x
std D0017
ldd 11,x
std D0019
ldb 13,x
stb D001f
ldb #1
stb D0025
clrb
rts
L015d ldx D0020
L015f leay >L0188,pcr
bsr L0176
bcs L017f
pshs d
ldd D0002,y
leay d,y
puls d
jsr ,y
bcc L015f
lbra L00bb
L0176 lda ,x+
L0178 cmpa ,y
bne L0180
ldb D0001,y
clra
L017f rts
L0180 leay D0004,y
tst ,y
bne L0178
coma
rts
L0188 fcb $52
rolb
neg D002c
fcb $72
rolb
neg D0028
bhi L0192
L0192 neg D002d
abx
neg D0000
tstb
coma
neg D0000
bhi L0200
neg D0000
fcb $1e
bvc L01a2
L01a2 neg D0013
bvs L01a6
L01a6 neg D000f
bge L01aa
L01aa neg D000b
bra L01ae
L01ae neg D0007
neg D00d7
fcb $10
rts
stb D001c
rts
stb D0012
rts
inc D0046
rts
leay 103,u
ldb #$20
L01c2 lda ,x+
cmpa #$22
beq L01d9
sta ,y+
decb
bne L01c2
L01cd ldb ,x+
cmpb #$22
beq L01df
cmpb #$20
bcc L01cd
bra L01df
L01d9 lda #$20
cmpb #$20
beq L01e3
L01df leay Dffff,y
lda ,y
L01e3 adda #$80
sta ,y
clrb
rts
lbsr L089e
ldd D001d
std D0013
rts
lbsr L089e
ldd D001d
tsta
beq L01fb
ldb #1
L01fb stb D001f
L01fd rts
lbsr L089e
L0200 equ *-1
ldd D001d
tsta
beq L0208
ldb #1
L0208 stb D0025
negb
decb
andb D0025
beq L0214
ldb #1
stb D0025
L0214 clrb
rts
L0216 leax L08e8,pcr
lbsr L0272
leay 431,u
ldx D000b,y
tst D0010
beq L0229
ldx D0009,y
L0229 stx D0017
leax L0946,pcr
ldy #$0011
lbsr L0276
leax 71,u
tfr x,y
L023b lda ,y+
cmpa #$40
bne L023b
pshs y
lda #$0d
sta Dffff,y
lbsr L0272
puls y
lda #$40
sta Dffff,y
lda D001c
bne L01fd
L0254 leax L0957,pcr
ldy #$001a
lbsr L027c
anda #$df
cmpa #$59
beq L01fd
clrb
cmpa #$4e
lbeq L00bb
bra L0254
L026e leax L0901,pcr
L0272 ldy #$0050
L0276 lda #1
os9 I$WritLn
rts
L027c pshs d,x,y,u
bsr L0276
leax ,s
ldy #1
clra
os9 I$Read
lblo L00bb
bsr L026e
puls d,x,y,u
anda #$7f
rts
L0295 leax L001a,pcr
stx D000a
ldb D001b
bitb #$c0
bne L02b9
ldb D0046
beq L02ab
leax L0076,pcr
bra L02b9
L02ab leax L0020,pcr
stx D000a
tst D0010
beq L02b9
leax L0049,pcr
L02b9 stx D000c
clra
ldb D0012
tfr d,y
clrb
ldx D0013
bsr L0303
exg d,x
subd #1
bcc L02ce
leax -1,x
L02ce exg d,x
ldy D0017
bsr L0303
exg d,x
addd D0019
std D0023
exg d,x
adcb #0
stb D0022
lda #8
pshs a
ldx D0023
ldb D0022
bsr L034c
lda D0025
pshs a
bsr L034c
tstb
beq L02fe
leax L09e1,pcr
lbsr L0272
lbra L0525
L02fe leas 2,s
stx D0026
rts
L0303 lda #8
L0305 clr ,-s
deca
bne L0305
sty ,s
stb 2,s
stx 3,s
L0311 ldd ,s
beq L0334
lsra
rorb
std ,s
bcc L0327
ldd 3,s
addd 6,s
std 6,s
lda 2,s
adca 5,s
sta 5,s
L0327 ldd 3,s
lslb
rola
std 3,s
lda 2,s
rola
sta 2,s
bra L0311
L0334 leas 5,s
puls b,x,pc
L0338 pshs b,x
lsr ,s
ror 1,s
ror 2,s
puls b,x
exg d,x
adcb #0
adca #0
exg d,x
adcb #0
L034c lsr 2,s
bne L0338
rts
L0351 tst D001b
bpl L036b
leax L0a4a,pcr
ldy #$0022
lbsr L027c
anda #$df
cmpa #$59
beq L036b
cmpa #$4e
bne L0351
rts
L036b lda D0002
ldb #3
os9 I$SetStt
lblo L00bb
ldd #0
std D0003
inca
sta D0007
L037e clr D0005
L0380 bsr L03da
leax 175,u
ldu D0003
clrb
tst D0010
beq L039b
tst D0046
bne L0399
tst D0004
bne L0399
tst D0005
beq L039b
L0399 orb #2
L039b tst D0011
beq L03a1
orb #4
L03a1 lda D0005
beq L03a7
orb #1
L03a7 tfr d,y
lda D0002
ldb #4
os9 I$SetStt
lblo L00bb
ldu D0000
ldb D0005
incb
stb D0005
cmpb D0012
bcs L0380
ldd D0003
addd #1
std D0003
cmpd D0013
bcs L037e
rts
L03cc ldy D000e
L03cf ldd ,y++
beq L03e9
L03d3 stb ,x+
deca
bne L03d3
bra L03cf
L03da lda D001b
bita #$c0
beq L03ea
ldy D000c
leax 175,u
bsr L03cf
L03e9 rts
L03ea ldy D000c
ldb D0018
tst D0046
bne L0400
tst D0004
bne L0400
tst D0005
bne L0400
ldy D000a
ldb D001a
L0400 sty D000e
stb D0009
stb D0016
bsr L0466
leax 175,u
bsr L03cf
sty D000e
L0412 bsr L03cc
dec D0009
bne L0412
lda ,y+
sty D000e
stx D003b
leay 10614,u
sty D001d
tfr a,b
L0428 std ,x++
cmpx D001d
bcs L0428
ldy D000e
ldd ,y++
std D003d
ldd ,y
std D003f
clr D0009
leax 175,u
ldd D003d
leay 135,u
L0445 leax d,x
ldd D0004
std ,x
ldb D0009
lda b,y
incb
stb D0009
ldb D0007
tst D0046
beq L0459
inca
L0459 std 2,x
lda D0009
cmpa D0016
bcc L0465
ldd D003f
bra L0445
L0465 rts
L0466 pshs b,y
tfr b,a
ldb D0004
cmpb #1
bhi L0492
leax 135,u
leay a,x
ldb D001f
bne L0481
L047a leax L0971,pcr
lbra L066d
L0481 cmpb D0016
bhi L047a
nega
pshs d,x,y
clra
L0489 sta ,x
inca
cmpa D0016
bne L0494
leas 6,s
L0492 puls b,y,pc
L0494 ldb D001f
abx
cmpx 4,s
bcs L049f
ldb ,s
leax b,x
L049f cmpx 2,s
bne L0489
leax 1,x
stx 2,s
bra L0489
L04a9 lbsr L080a
ldd D0023
std 1,x
ldb D0022
stb ,x
ldd D0017
std 17,x
stb 3,x
lda D0025
sta 7,x
clra
ldb D0026
tst D0027
beq L04c9
addd #1
L04c9 addd #1
std 9,x
clra
tst D0010
beq L04d5
ora #2
L04d5 ldb D0012
cmpb #1
beq L04dd
ora #1
L04dd tst D0011
beq L04e3
ora #4
L04e3 sta 16,x
ldd D0026
std 4,x
lda #255
sta 13,x
leax 201,u
os9 F$Time
leax 206,u
leay 103,u
tst ,y
beq L0508
L0500 lda ,y+
sta ,x+
bpl L0500
bra L053b
L0508 leax L0995,pcr
ldy #$000b
lbsr L0276
leax 206,u
ldy #$0021
clra
os9 I$ReadLn
bcc L052c
cmpa #$d3
bne L0508
L0525 leax L09d2,pcr
lbra L066d
L052c tfr y,d
leax d,x
clr ,-x
decb
beq L0508
lda ,-x
ora #$80
sta ,x
L053b leax 201,u
leay 64,x
pshs y
ldd #0
L0547 addd ,x++
cmpx ,s
bcs L0547
leas 2,s
std 189,u
ldd L0014,pcr
std 415,u
ldd L0016,pcr
std 417,u
ldd L0018,pcr
std 419,u
lda D0002
ldb #0
leax 238,u
os9 I$GetStt
ldb #3
os9 I$SetStt
lblo L00bb
leax 175,u
lbra L0816
L0586 lda D0002
os9 I$Close
leax 71,u
lda #1
os9 I$Open
lblo L0669
sta D0002
leax 175,u
ldy #$0100
os9 I$Read
lblo L0669
lda D0002
os9 I$Close
leax 71,u
lda #3
os9 I$Open
lblo L0669
sta D0002
rts
L05bc lda D001b
clr D0043
bita #$80
beq L05db
L05c4 leax L0a6c,pcr
ldy #$0019
lbsr L027c
anda #$df
cmpa #$59
beq L05db
cmpa #$4e
bne L05c4
sta D0043
L05db ldd D0019
std D0015
clra
clrb
std D0034
std D0003
std D0008
std D0030
stb D002f
sta D003a
leax 431,u
stx D0036
lbsr L080e
leax 256,x
stx D0038
clra
ldb #1
std D0032
lda D0025
sta D0029
clr D0028
clra
ldb D0026
tst D0027
beq L0611
addd #1
L0611 addd #9
std D002b
lda D0025
L0618 lsra
bcs L0629
lsr D002b
ror D002c
bcc L0618
inc D002c
bne L0618
inc D002b
bra L0618
L0629 ldb D002c
stb D002d
lda D0025
mul
std D002b
subd #1
subb D0026
sbca #0
tst D0027
beq L0640
subd #1
L0640 stb D002a
L0642 tst D0043
bne L0674
lda D0002
leax 175,u
ldy #$0100
os9 I$Read
bcc L0674
os9 F$PErr
lbsr L083a
lda #255
sta D0028
tst D002f
bne L0674
ldx D0030
cmpx D002b
bhi L0674
L0669 leax L09bf,pcr
L066d lbsr L0272
clrb
lbra L00bb
L0674 ldd D0008
addd #1
std D0008
cmpd D0015
bcs L06b9
clr D0008
clr D0009
tst D0043
bne L06ae
lda #$20
pshs a
lda D0004
lbsr L071b
pshs d
lda D0003
lbsr L071b
pshs b
tfr s,x
ldy #4
lbsr L0276
lda 2,s
cmpa #$46
bne L06ac
lbsr L026e
L06ac leas 4,s
L06ae ldd D0003
addd #1
std D0003
ldd D0017
std D0015
L06b9 dec D0029
bne L06cf
bsr L06f8
tst D0028
bne L06c9
ldx D0034
leax 1,x
stx D0034
L06c9 clr D0028
lda D0025
sta D0029
L06cf ldb D002f
ldx D0030
leax 1,x
bne L06d8
incb
L06d8 cmpb D0022
bcs L06e0
cmpx D0023
bcc L06e7
L06e0 stb D002f
stx D0030
lbra L0642
L06e7 lda #255
sta D0028
leay 431,u
L06ef cmpy D0036
beq L0733
bsr L06f8
bra L06ef
L06f8 ldx D0036
lda D0028
rora
rol ,x+
inc D003a
lda D003a
cmpa #8
bcs L071a
clr D003a
stx D0036
cmpx D0038
bne L071a
bsr L0777
leax 431,u
stx D0036
lbsr L080e
L071a rts
L071b tfr a,b
lsra
lsra
lsra
lsra
andb #$0f
addd #12336
cmpa #$39
bls L072c
adda #7
L072c cmpb #$39
bls L0732
addb #7
L0732 rts
L0733 lbsr L026e
leax L0a31,pcr
ldy #$0019
lbsr L0276
ldb D0025
clra
ldx D0034
pshs a,x
L0748 lsrb
bcs L0753
asl 2,s
rol 1,s
rol ,s
bra L0748
L0753 puls a,x
ldb #$0d
pshs b
tfr d,y
tfr x,d
tfr b,a
bsr L071b
pshs d
tfr x,d
bsr L071b
pshs d
tfr y,d
bsr L071b
pshs d
tfr s,x
lbsr L0272
leas 7,s
rts
L0777 pshs y
clra
ldb #1
cmpd D0032
bne L0792
leax 431,u
clra
ldb D002d
tfr d,y
clrb
os9 F$AllBit
lblo L0669
L0792 lbsr L0824
leax 431,u
bsr L0816
ldd D0022
cmpd D002f
bcs L07ad
bhi L07aa
ldb D0024
cmpb D0031
bcc L07ad
L07aa lbsr L083a
L07ad ldd D0032
addd #1
std D0032
puls y,pc
L07b6 bsr L0824
leax 687,u
bsr L080e
leax 690,u
os9 F$Time
leax 687,u
lda #$bf
sta ,x
lda #2
sta 8,x
clra
ldb #$40
std 11,x
ldb D002a
decb
stb 20,x
ldd D0032
addd #1
std 17,x
bsr L0816
bsr L080a
ldd #$2eae
std ,x
stb 32,x
ldd D0032
std 30,x
std 62,x
bsr L0816
bsr L080a
ldb D002a
L07fe decb
bne L0802
rts
L0802 pshs b
bsr L0816
puls b
bra L07fe
L080a leax 175,u
L080e clra
clrb
L0810 sta d,x
decb
bne L0810
rts
L0816 lda D0002
ldy #$0100
os9 I$Write
lblo L00bb
rts
L0824 clra
ldb D0032
tfr d,x
lda D0033
clrb
tfr d,u
L082e lda D0002
os9 I$Seek
ldu D0000
lblo L00bb
rts
L083a ldx D002f
lda D0031
clrb
addd #$0100
tfr d,u
bcc L082e
leax 1,x
bra L082e
ldd ,y
leau 175,u
leax >L0892,pcr
ldy #$2f20
L0858 leay D0100,y
subd ,x
bcc L0858
addd ,x++
pshs d
ldd ,x
tfr y,d
beq L0880
ldy #$2f30
cmpd #12320
bne L087a
ldy #$2f20
tfr b,a
L087a sta ,u+
puls d
bra L0858
L0880 sta ,u+
lda #$0d
sta ,u
ldu D0000
leas 2,s
leax 175,u
lbsr L0272
rts
L0892 beq L08a4
com D00e8
neg D0064
neg D000a
neg D0001
neg D0000
L089e ldd #0
L08a1 bsr L08b1
bcs L08ab
L08a4 equ *-1
bne L08a1
std D001d
bne L08b0
L08ab ldd #1
std D001d
L08b0 rts
L08b1 pshs d,y
ldb ,x+
subb #$30
cmpb #$0a
bcc L08cf
lda #0
ldy #$000a
L08c1 addd ,s
bcs L08cd
leay Dffff,y
bne L08c1
std ,s
andcc #251
L08cd puls d,y,pc
L08cf orcc #4
puls d,y,pc
L08d3 lda #2
os9 F$PErr
leax <L0902,pcr
ldy #$0154
lda #2
os9 I$WritLn
clrb
os9 F$Exit
L08e8 dec D0043
clra
inca
clra
fcb $52
bra L0933
clra
tsta
negb
fcb $55
lsrb
fcb $45
fcb $52
bra L093f
clra
fcb $52
tsta
fcb $41
lsrb
lsrb
fcb $45
fcb $52
L0901 tst D0055
L0902 equ *-1
com $653a
bra L094e
clra
fcb $52
tsta
fcb $41
lsrb
bra L093e
lsr 5,s
ror $6e61
tst 5,s
bra L0954
clr -16,s
lsr 29502
dec D0020
bra L0990
neg 29811
abx
bra L0979
bra L0949
blt L094b
fcb $52
fcb $65
fcb $61
lsr -7,s
dec D0020
bra L0954
L0933 equ *-1
bra L0956
bra L0958
bra L095c
lsr 9,s
com $6b20
L093e equ *-1
L093f jmp 1,s
tst 5,s
bhi L094f
tst D0046
L0946 equ *-1
clr -14,s
L0949 tst 1,s
L094b lsr 29801
L094e jmp 7,s
L094f equ *-1
bra L09b6
fcb $72
rol -10,s
L0954 equ *-1
fcb $65
L0956 bra L09d1
L0957 equ *-1
L0958 bra L0982
rol $6573
L095c equ *-1
bvs L097f
clr -14,s
bra L09d1
bra L098d
jmp 15,s
bvs L0973
fcb $52
fcb $65
fcb $61
lsr -7,s
swi
bra L0991
L0971 fcb $41
fcb $42
L0973 clra
fcb $52
lsrb
bra L09c1
jmp -12,s
L0979 equ *-1
fcb $65
fcb $72
inc 5,s
fcb $61
L097f ror $6520
L0982 ror $616c
fcb $75
fcb $65
bra L09f8
fcb $75
lsr $206f
L098d fcb $66
bra L0a02
L0990 fcb $61
L0991 jmp 7,s
fcb $65
tst D0044
L0995 equ *-1
rol -13,s
fcb $6b
bra L0a09
fcb $61
tst 5,s
abx
bra L09e9
clr -9,s
bra L0a12
fcb $61
jmp -7,s
bra L09ed
rol $6c69
jmp 4,s
fcb $65
fcb $72
com $2028
lsrb
fcb $72
L09b6 fcb $61
com 11,s
com 16169
bra L09f8
bra L0a02
L09bf equ *-1
fcb $61
L09c1 fcb $64
bra L0a37
rol 29556
fcb $65
fcb $6d
bra L0a3e
fcb $65
com -12,s
clr -14,s
bge L09f2
L09d1 equ *-1
L09d2 rora
clra
fcb $52
tsta
fcb $41
lsrb
bra L0a1b
fcb $42
clra
fcb $52
lsrb
fcb $45
lsra
tst D0043
L09e1 equ *-1
inc -11,s
com 29797
fcb $72
bra L0a5d
L09e9 equ *-1
rol -6,s
fcb $65
L09ed bra L0a5c
rol -13,s
tst 1,s
L09f2 equ *-1
lsr $6368
tst D0044
L09f8 clr -11,s
fcb $62
inc 5,s
bra L0a63
fcb $65
jmp -13,s
L0a02 rol -12,s
rol 16160
coma
asl 1,s
L0a09 equ *-1
jmp 7,s
fcb $65
bra L0a75
fcb $72
clr 13,s
L0a12 bra L0a4d
pshu b,x,y,u
neg $6920
lsr $6f20
L0a1b equ *-1
pshs dp,x,y
lsr 28777
swi
bra L0a68
clr -11,s
fcb $62
inc 5,s
bra L0a9e
rol 4,s
fcb $65
lsr Dffff,y
bra L0a80
L0a31 equ *-1
fcb $75
tst 2,s
fcb $65
fcb $72
L0a37 bra L0aa8
fcb $66
bra L0aa3
clr 15,s
L0a3e fcb $64
bra L0ab4
fcb $65
com -12,s
clr -14,s
com 14880
bcc L0a8d
L0a4a equ *-1
clr -12,s
L0a4d fcb $68
bra L0aa0
asla
rolb
comb
rola
coma
fcb $41
inca
bra L0aba
jmp 4,s
bra L0aa9
L0a5c equ *-1
L0a5d clra
asra
rola
coma
fcb $41
inca
L0a63 bra L0acb
clr -14,s
tst 1,s
L0a68 equ *-1
lsr 16160
L0a6c negb
asl -7,s
com $6963
fcb $61
fcb $6c
bra L0acc
L0a75 equ *-1
fcb $65
fcb $72
rol 6,s
rol $2064
fcb $65
com $6972
L0a80 equ *-1
fcb $65
lsr Dffff,y
fcb $20
emod
L0a88 equ *
end