* Disassembly by Os9disasm of procs
mod L01e8,L000d,$11,$81,L005e,D0b15
* OS-9 system function equates
F$Exit equ $06
I$WritLn equ $8c
* OS9 data area definitions
D0000 rmb 1
D0001 rmb 2
D0003 rmb 1
D0004 rmb 1
D0005 rmb 2
D0007 rmb 2
D0009 rmb 1
D000a rmb 35
D002d rmb 55
D0064 rmb 66
D00a6 rmb 66
D00e8 rmb 24
D0100 rmb 2581
D0b15 equ .
L000d negb
fcb $72
clr 3,s
addd $080a
L0013 equ *-1
fcb $55
com 29216
bls L003a
bra L0085
fcb $64
bra L008f
lsr 31008
com 29793
bra L0094
fcb $65
fcb $6d
bra L009b
fcb $72
fcb $69
bra L009c
clr 4,s
tst D002d
L0032 equ *-1
blt L0062
blt L0064
bra L0066
blt L0068
L003a equ *-1
bra L006a
blt L006c
bra L006e
blt L0070
bra L0072
blt L0074
bra L0076
blt L0078
blt L007a
blt Lfffc
L004f bra L00b2
com -12,s
fcb $a0
L0054 bra L00cd
fcb $61
rol ,y+
L0059 bra L00ce
inc 5,s
suba 15,x
L005e equ *-1
neg D00a6
suba #$88
L0062 equ *-1
fcb $45
L0064 anda #$df
L0066 bne L006a
L0068 inc D0000
L006a leax 12,u
L006c stx D000a
L006e orcc #$50
L0070 ldx >$004d
L0072 equ *-1
stx D0001
L0074 equ *-1
ldx >$004f
L0076 equ *-2
L0078 stx D0003
L007a ldx >$0051
stx D0005
ldx >$004b
ldd 9,x
std D0007
L0085 equ *-1
pshs u
leau 2387,u
lda #1
ldx D0001
L008f equ *-1
lbsr L019d
lda #2
L0094 equ *-1
ldx D0003
lbsr L019d
lda #3
L009b equ *-1
L009c ldx D0005
lbsr L019d
andcc #$af
clra
clrb
pshu d
pshu d
puls u
leay L0013,pcr
bsr L010a
bsr L0115
L00b2 equ *-1
leay L0032,pcr
bsr L010a
bsr L0115
leax 2387,u
L00bf leax -9,x
ldd 5,x
beq L0106
ldd 7,x
lbsr L0166
lbsr L014d
L00cd ldb ,x
L00ce equ *-1
bsr L012a
lbsr L014d
ldb 3,x
bsr L012a
lda 4,x
leay L004f,pcr
cmpa #1
beq L00ee
leay L0054,pcr
cmpa #2
beq L00ee
leay L0059,pcr
L00ee bsr L010a
ldb 2,x
bsr L012a
lbsr L014d
ldy 5,x
ldd D0004,y
leay d,y
bsr L010a
bsr L014d
bsr L0115
bra L00bf
L0106 clrb
os9 F$Exit
L010a lda ,y
anda #$7f
bsr L0151
lda ,y+
bpl L010a
rts
L0115 pshs a,x,y
lda #$0d
bsr L0151
leax 12,u
stx D000a
ldy #$0050
lda #1
os9 I$WritLn
puls a,x,y,pc
L012a clr D0009
lda #255
L012e inca
subb #$64
bcc L012e
bsr L0144
lda #$0a
L0137 deca
addb #$0a
bcc L0137
bsr L0144
tfr b,a
adda #$30
bra L0151
L0144 tsta
beq L0149
sta D0009
L0149 tst D0009
bne L014f
L014d lda #$f0
L014f adda #$30
L0151 pshs x
ldx D000a
sta ,x+
stx D000a
puls x,pc
L015b beq L016d
com D00e8
neg D0064
neg D000a
neg D0001
stu 13366
L0166 equ *-2
leax <L015b,pcr
ldy #$2f20
L016d equ *-2
L016f leay D0100,y
subd ,x
bcc L016f
addd ,x++
pshs d
tfr y,d
tst ,x
bmi L0197
ldy #$2f30
cmpd #12320
bne L0191
ldy #$2f20
lda #$20
L0191 bsr L0151
puls d
bra L016f
L0197 bsr L0151
leas 2,s
puls d,x,y,pc
L019d pshs d,y
leax ,x
beq L01c9
L01a3 ldd 9,x
tst D0000
bne L01ae
cmpd D0007
bne L01c5
L01ae pshu d
lda 11,x
ldb ,s
ldy 18,x
pshu d,y
lda 8,x
pshu a
lda ,x
ldb 38,x
pshu d
L01c5 ldx 14,x
bne L01a3
L01c9 puls d,y,pc
pshs d,x
ldx >$0064
tsta
beq L01e2
clrb
lsra
rorb
lsra
rorb
lda a,x
tfr d,y
beq L01e2
tst ,y
bne L01e3
L01e2 coma
L01e3 puls d,x,pc
emod
L01e8 equ *
end