* Disassembly by Os9disasm of asm
mod L16e5,L000d,$11,$81,L0011,D1000
* OS-9 system function equates
F$Exit equ $06
F$PErr equ $0f
F$Time equ $15
F$CRC equ $17
I$Create equ $83
I$Open equ $84
I$Seek equ $88
I$Write equ $8a
I$ReadLn equ $8b
I$WritLn equ $8c
I$Close equ $8f
* class D external label equates
Dfff0 equ $fff0
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 1
D000a rmb 1
D000b rmb 1
D000c rmb 1
D000d rmb 1
D000e rmb 1
D000f rmb 1
D0010 rmb 2
D0012 rmb 2
D0014 rmb 2
D0016 rmb 1
D0017 rmb 1
D0018 rmb 1
D0019 rmb 1
D001a rmb 1
D001b rmb 2
D001d rmb 2
D001f rmb 1
D0020 rmb 1
D0021 rmb 1
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 1
D002e rmb 1
D002f rmb 1
D0030 rmb 1
D0031 rmb 1
D0032 rmb 1
D0033 rmb 1
D0034 rmb 1
D0035 rmb 1
D0036 rmb 1
D0037 rmb 1
D0038 rmb 1
D0039 rmb 1
D003a rmb 1
D003b rmb 1
D003c rmb 1
D003d rmb 1
D003e rmb 1
D003f rmb 1
D0040 rmb 1
D0041 rmb 1
D0042 rmb 1
D0043 rmb 1
D0044 rmb 1
D0045 rmb 1
D0046 rmb 1
D0047 rmb 2
D0049 rmb 1
D004a rmb 1
D004b rmb 1
D004c rmb 1
D004d rmb 1
D004e rmb 1
D004f rmb 1
D0050 rmb 1
D0051 rmb 1
D0052 rmb 1
D0053 rmb 1
D0054 rmb 1
D0055 rmb 1
D0056 rmb 1
D0057 rmb 1
D0058 rmb 1
D0059 rmb 1
D005a rmb 1
D005b rmb 1
D005c rmb 1
D005d rmb 1
D005e rmb 1
D005f rmb 1
D0060 rmb 1
D0061 rmb 1
D0062 rmb 1
D0063 rmb 1
D0064 rmb 1
D0065 rmb 5
D006a rmb 3
D006d rmb 1
D006e rmb 1
D006f rmb 1
D0070 rmb 1
D0071 rmb 1
D0072 rmb 1
D0073 rmb 2
D0075 rmb 11
D0080 rmb 1
D0081 rmb 2
D0083 rmb 2
D0085 rmb 2
D0087 rmb 1
D0088 rmb 2
D008a rmb 2
D008c rmb 1
D008d rmb 1
D008e rmb 1
D008f rmb 8
D0097 rmb 15
D00a6 rmb 1
D00a7 rmb 2
D00a9 rmb 6
D00af rmb 7
D00b6 rmb 11
D00c1 rmb 1
D00c2 rmb 1
D00c3 rmb 3
D00c6 rmb 8
D00ce rmb 1
D00cf rmb 8
D00d7 rmb 10
D00e1 rmb 7
D00e8 rmb 4
D00ec rmb 12
D00f8 rmb 3848
D1000 equ .
L000d fcb $41
com $ed05
L0011 tfr u,d
addd #$01c0
std D0014
std D0016
addd #9
std D0000
addd #$0051
std D0002
addd #$0085
std D0004
addd #$0092
std D0006
std D001f
std D0008
addd #$0050
std D000a
addd #$0028
std D000e
addd #$0100
std D0010
addd #$0034
std D001d
leau Dffff,y
stu D0012
lds D0014
clra
ldb #1
sta D0059
sta D005b
sta D005e
sta D005d
stb D005c
sta D0058
sta D005a
stb D005f
sta D0060
sta D003e
sta D0018
sta D0019
stb D001a
ldb #255
stb D0056
sta D0057
ldb #$42
stb D0036
ldb #$50
stb D0037
lbsr L1696
lda D0056
bmi L0081
inc D0057
L0081 ldx D0008
clr ,x
ldx D000a
clr ,x
ldx D0010
L008b clr ,x+
cmpx D0012
bls L008b
ldb D005d
beq L0099
dec D003e
bra L00a0
L0099 bsr L00a5
lbsr L1607
inc D003e
L00a0 bsr L00a5
lbra L159f
L00a5 bsr L00b1
L00a7 lbsr L1537
bcc L00ad
rts
L00ad bsr L00d5
bra L00a7
L00b1 clra
clrb
std D0028
std D0022
std D0026
std D0024
std D0040
std D0042
stb D003f
stb D0055
stb D0054
incb
std D003a
std D0038
ldd D000e
std D001b
lbsr L1360
lbsr L141a
rts
L00d5 clra
clrb
std D004a
std D0061
std D0063
sta D0065
sta D0046
sta D002a
sta D0021
sta D004c
sta D002c
sta D004f
sta D004e
sta D004d
lda #$35
sta D002b
ldd D0040
std D0044
ldx D0000
lda ,x
cmpa #$0d
beq L0136
cmpa #$2a
beq L0136
cmpa #$20
beq L0125
ldb D002b
orb #8
stb D002b
lbsr L0368
bcc L0119
ldb #1
lbsr L02fa
bra L0125
L0119 tst D0054
bne L0125
lbsr L0f4a
bcc L0125
lbsr L02fa
L0125 lbsr L1164
cmpa #$0d
bne L0141
lda D002b
bita #8
beq L0136
lda #9
bra L0138
L0136 lda #$80
L0138 sta D002b
lda D0054
bne L018e
lbra L01f2
L0141 stx D002f
L0143 lda ,x+
cmpa #$0d
beq L0150
cmpa #$20
bne L0143
lbsr L1164
L0150 stx D0031
ldx D002f
ldb #$74
leay L03b8,pcr
lbsr L0344
bcc L0172
L015f ldb #2
lbsr L02fa
ldb #3
stb D0046
lda D002b
anda #$df
sta D002b
ldx D0031
bra L01c4
L0172 lda D0054
beq L0195
ldb D0001,y
andb #$0f
cmpb #$0d
bne L0181
inca
bra L018c
L0181 cmpb #$0e
bne L018e
deca
beq L0195
ldb ,y
bne L018e
L018c sta D0054
L018e inc D0039
bne L0194
inc D0038
L0194 rts
L0195 ldd ,y
sta D0062
stb D0047
lda #$10
bitb #$10
bne L01a7
lda #$11
bitb #$20
beq L01ab
L01a7 sta D0061
inc D0046
L01ab leay L0780,pcr
andb #$0f
lslb
ldd b,y
jsr d,y
lda D002b
bita #$20
beq L01c4
lda ,x
clr ,x+
cmpa #$0d
beq L01d3
L01c4 lbsr L1164
cmpa #$0d
beq L01d3
ldb D002b
beq L01d3
orb #$40
stb D002b
L01d3 ldb D005d
beq L01db
ldb D0021
bne L01f2
L01db ldd D0040
addb D0046
adca #0
std D0040
bra L01f2
L01e5 ldd #$2084
ldx D0004
L01ea sta ,x+
decb
bne L01ea
L01ef ldx D0004
rts
L01f2 ldb D003e
beq L01ef
ldb D002b
beq L01ef
bsr L01e5
tst D0060
bne L0205
ldd D0038
lbsr L1084
L0205 ldb D002b
bitb #$80
beq L0213
ldb #$0d
ldy D0000
lbra L02ab
L0213 bitb #1
beq L0240
lda #$45
ldb D0021
bne L022f
lda #$44
ldb D002c
bne L022f
lda #$57
ldb D004f
beq L0236
inc D0023
bne L022f
inc D0022
L022f ldb #6
lbsr L02e2
sta ,x
L0236 ldb #8
lbsr L02e2
ldd D0044
lbsr L1057
L0240 ldb D002b
bitb #4
beq L0272
ldb D0046
beq L0272
ldb #$61
tfr dp,a
tfr d,u
ldb ,u+
bne L0256
L0254 ldb ,u+
L0256 pshs b
lbsr L106b
puls a
ldb D005d
beq L0265
ldb D0021
bne L026e
L0265 lbsr L130d
inc D0025
bne L026e
inc D0024
L026e dec D0046
bne L0254
L0272 ldy D0000
ldb D002b
bitb #8
beq L0281
ldb #$18
bsr L02e2
bsr L02c9
L0281 ldb D002b
bitb #$10
beq L028f
ldb #$21
bsr L02e2
bsr L02c9
leay D0001,y
L028f ldb D002b
bitb #$20
beq L02a3
ldb #$27
bsr L02e2
ldy D0031
lbsr L11bd
lda #$20
sta ,x+
L02a3 ldb D002b
bitb #$40
beq L02b7
ldb #$32
L02ab bsr L02e2
L02ad lda ,y+
cmpa #$0d
beq L02b7
sta ,x+
bra L02ad
L02b7 ldb D002b
andb #$bf
cmpb #4
beq L02c8
lbsr L1370
inc D0039
bne L02c8
inc D0038
L02c8 rts
L02c9 lda ,y+
cmpa #$20
beq L02c9
L02cf cmpa #$0d
beq L02df
cmpx D001f
bcc L02d9
sta ,x+
L02d9 lda ,y+
cmpa #$20
bne L02cf
L02df leay Dffff,y
rts
L02e2 pshs u
tst D0060
beq L02ec
leax 1,x
bra L02f8
L02ec ldu D0004
leau b,u
pshs u
cmpx ,s++
bcc L02f8
tfr u,x
L02f8 puls u,pc
L02fa pshs d,x,y,u
tst D005c
beq L0325
leay L061c,pcr
ldx D0004
lbsr L11bd
clra
decb
lslb
leay L062a,pcr
ldd d,y
leay d,y
lbsr L11bd
ldb 1,s
cmpb #$18
bne L0322
ldy 2,s
bsr L033d
L0322 lbsr L1368
L0325 inc D0021
inc D0029
bne L032d
inc D0028
L032d puls d,x,y,u,pc
lbsr L01e5
ldb #$18
bsr L02e2
ldy D0000
bra L033d
L033b sta ,x+
L033d lda ,y+
cmpa #$0d
bne L033b
rts
L0344 pshs b,x
L0346 lda ,y+
bmi L035e
eora ,x+
anda #$df
beq L0346
L0350 lda ,y+
bpl L0350
L0354 leay D0002,y
ldx 1,s
decb
bne L0346
comb
puls b,x,pc
L035e eora ,x+
anda #$5f
bne L0354
leas 3,s
clrb
rts
L0368 lbsr L1164
bsr L03a0
bcs L03b7
pshs y,u
ldu D0016
ldb #8
leax 1,x
bra L0393
L0379 lda ,x+
bsr L03a0
bcc L0393
cmpa #$39
bhi L039a
cmpa #$30
bcc L0393
cmpa #$2e
beq L0393
cmpa #$24
beq L0393
cmpa #$5f
bne L039a
L0393 sta ,u+
decb
bne L0379
bra L039c
L039a leax -1,x
L039c clr ,u+
puls y,u,pc
L03a0 cmpa #$41
bcs L03b5
cmpa #$5a
bhi L03ad
L03a8 anda #$5f
andcc #254
rts
L03ad cmpa #$61
bcs L03b5
cmpa #$7a
bls L03a8
L03b5 orcc #1
L03b7 rts
L03b8 clra
fcb $52
fcb $c7
neg D000c
fcb $45
fcb $4e
lsra
addd #$000e
inca
fcb $42
fcb $52
cmpb #$16
neg D004c
fcb $42
comb
sbcb D0017
neg D004f
fcb $52
coma
addd #6657
fcb $41
fcb $4e
lsra
coma
addd #7169
coma
asrb
fcb $41
adcb #$3c
fcb $01
fcb $41
lsra
lsra
andb #$c3
fcb $02
comb
fcb $55
fcb $42
andb #$83
fcb $02
inca
lsra
andb #$cc
fcb $02
inca
lsra
eorb D008e
fcb $02
inca
lsra
bitb D00ce
fcb $02
coma
tsta
negb
eorb D008c
fcb $02
deca
comb
sbcb D008d
fcb $42
comb
lsrb
andb #$cd
fcb $42
comb
lsrb
eorb D008f
fcb $42
comb
lsrb
bitb D00cf
fcb $42
coma
tsta
negb
bitb D0083
bhi L0461
tsta
negb
addd D008c
bhi L0467
tsta
negb
andb #$83
nop
coma
tsta
negb
adcb D008c
nop
inca
lsra
adcb D008e
nop
inca
lsra
addd D00ce
nop
comb
lsrb
adcb D008f
fcb $52
comb
lsrb
addd D00cf
fcb $52
fcb $41
lsra
andb #$8b
com D0043
tsta
subb D0081
com D0053
fcb $55
sbcb #$80
com D0053
fcb $42
addd #$8203
fcb $41
fcb $4e
andb #$84
com D0042
rola
andb D0085
com D004c
L0461 equ *-1
andb #$86
com D0053
andb D0087
L0467 equ *-1
coma
fcb $45
clra
sbcb D0088
com D0041
lsra
addd #$8903
clra
sbcb D008a
com D004e
fcb $45
fcb $c7
neg D0004
coma
clra
fcb $cd
com D0004
inca
comb
sbcb D0004
lsr D0052
clra
sbcb D0006
lsr D0041
comb
sbcb D0007
lsr D004c
comb
ldd #$0804
fcb $41
comb
ldd #$0804
fcb $52
clra
ldd #$0904
lsra
fcb $45
addd #$0a04
rola
fcb $4e
addd #$0c04
lsrb
comb
andb D000d
lsr D004a
tsta
subb D000e
lsra
coma
inca
sbcb D000f
lsr D0052
lsrb
addd D0039
fcb $05
tsta
fcb $55
ldd #15621
fcb $4e
clra
subb D0012
fcb $05
comb
rolb
fcb $4e
addd #4869
lsra
fcb $41
cmpb #$19
fcb $05
comb
fcb $45
eorb D001d
fcb $05
fcb $41
fcb $42
eorb D003a
fcb $05
fcb $52
lsrb
adcb #$3b
fcb $05
comb
asrb
rola
sbca 16149
comb
asrb
rola
subd 16165
comb
asrb
adcb #$3f
fcb $05
inca
fcb $45
fcb $41
eorb D0030
ror D004c
fcb $45
fcb $41
adcb D0031
ror D004c
fcb $45
fcb $41
addd D0032
ror D004c
fcb $45
fcb $41
bitb D0033
ror D0054
rora
sbcb D001f
asr D0045
lslb
fcb $c7
fcb $1e
asr D0050
comb
asla
addd D0034
asl D0050
fcb $55
inca
addd D0035
asl D0050
comb
asla
bitb D0036
asl D0050
fcb $55
inca
bitb D0037
asl D004c
sbcb #0
daa
L0530 fcb $42
comb
sbcb D008d
dec D0042
fcb $52
cmpb #$20
dec D0042
fcb $52
ldu #8458
fcb $42
asla
adcb #$22
dec D0042
inca
addd D0023
dec D0042
asla
addd D0024
dec D0042
coma
addd #$240a
fcb $42
inca
fcb $cf
bcs L0562
fcb $42
coma
addd D0025
dec D0042
fcb $4e
bitb #$26
dec D0042
L0562 equ *-1
fcb $45
cmpb D0027
dec D0042
rorb
addd #$280a
fcb $42
rorb
addd D0029
dec D0042
negb
ldd #$2a0a
fcb $42
tsta
adcb #$2b
dec D0042
asra
bitb #$2c
dec D0042
inca
andb D002d
dec D0042
asra
andb D002e
dec D0042
inca
bitb #$2f
dec D0052
tsta
sbcb #0
fcb $0b
rora
coma
addd #$010b
rora
lsra
sbcb #2
fcb $0b
rora
coma
addd D0003
fcb $0b
rora
coma
sbcb #4
fcb $0b
fcb $45
fcb $51
bitb D0005
fcb $0b
tsta
clra
andb #6
fcb $0b
fcb $45
tsta
clra
andb #7
fcb $0b
comb
fcb $45
lsrb
lsra
subb D0007
inc D0053
fcb $45
andb D0008
fcb $0b
clra
comb
adca $090b
fcb $45
fcb $4e
andb #1
inc D004e
fcb $41
fcb $cd
fcb $02
inc D004f
negb
andb D0003
inc D0054
lsrb
ldd #$040c
negb
fcb $41
fcb $c7
fcb $05
inc D0053
negb
addd #$060c
fcb $55
comb
bitb #8
inc D0049
rora
fcb $45
cmpb D0000
tst D0049
rora
fcb $4e
bitb #1
tst D0049
rora
inca
andb D0002
tst D0049
rora
inca
bitb #3
tst D0049
rora
asra
bitb #4
tst D0049
rora
asra
andb D0005
tst D0049
rora
negb
cmpa $060d
fcb $45
inca
comb
bitb #1
jmp D002a
L061c equ *-1
bpl L0649
bpl L064b
bra L0668
fcb $72
fcb $72
clr -14,s
abx
bra L062a
L062a neg D0035
neg D003f
neg D0049
neg D0053
neg D005c
neg D005e
neg D006a
neg D0071
neg D0080
neg D008f
neg D0097
neg D00a9
neg D00b6
neg D00c3
neg D00ce
neg D00d7
L0649 equ *-1
neg D00e1
L064b equ *-1
neg D00ec
neg D00f8
fcb $01
fcb $02
fcb $01
inc D0001
fcb $18
fcb $01
brn L065a
bmi L065c
L065a equ *-1
pulu cc
L065c equ *-1
rola
neg D0062
fcb $61
fcb $64
bra L06d0
fcb $61
fcb $62
fcb $65
fcb $6c
L0668 neg D0062
fcb $61
fcb $64
bra L06d7
jmp -13,s
lsr 29184
rol 14,s
bra L06e5
fcb $75
tst 2,s
fcb $65
fcb $72
neg D0064
rol -10,s
bra L06e4
rol $2030
neg D0020
neg D0065
asl 28786
bra L0701
rol $6e74
fcb $61
asl >$0070
fcb $61
fcb $72
fcb $65
jmp -13,s
neg D0072
fcb $65
lsr 5,s
ror 9,s
jmp 5,s
fcb $64
bra L0714
fcb $61
tst 5,s
neg D0075
jmp 4,s
fcb $65
ror 9,s
jmp 5,s
fcb $64
bra L0723
fcb $61
tst 5,s
neg D0070
asl 1,s
com $696e
fcb $67
neg D0073
rol $6d62
clr 12,s
bra L073d
fcb $61
fcb $62
inc 5,s
bra L0735
fcb $75
L06d0 inc 12,s
neg D0061
lsr 4,s
fcb $72
L06d7 fcb $65
com 29472
tst 15,s
lsr 5,s
neg D006f
fcb $75
lsr $206f
L06e4 equ *-1
L06e5 fcb $66
bra L075a
fcb $61
jmp 7,s
fcb $65
neg D0072
fcb $65
com 30060
lsr 15922
puls cc,b,x,y
neg D0072
fcb $65
fcb $67
bra L076b
fcb $61
tst 5,s
neg D0072
L0701 equ *-1
fcb $65
fcb $67
bra L0779
rol -6,s
fcb $65
com >$0069
jmp -16,s
fcb $75
lsr $2070
fcb $61
lsr $6800
L0714 equ *-2
clr 2,s
dec 5,s
com -12,s
bra L078e
fcb $61
lsr $6800
rol 14,s
L0723 equ *-1
lsr 5,s
asl $2072
fcb $65
fcb $67
neg D005d
bra L079c
rol -13,s
com $696e
fcb $67
L0735 neg D006e
fcb $65
fcb $65
lsr -13,s
bra L07a9
L073d fcb $61
fcb $62
fcb $65
fcb $6c
neg D006f
neg 29728
inc 9,s
com 29696
com 15,s
jmp -13,s
lsr $2064
fcb $65
fcb $66
neg D0063
fcb $61
jmp D0007,y
lsr $206f
L075a equ *-2
neg $656e
bra L0761
L0761 inc 1,s
fcb $62
fcb $65
fcb $6c
bra L07d6
clr -12,s
bra L07cd
L076b equ *-1
inc 12,s
clr -9,s
fcb $65
fcb $64
neg D0063
clr 14,s
fcb $64
bra L07e7
L0779 fcb $65
com 29801
jmp 7,s
neg D0000
L0780 equ *-1
exg d,d
bcs L0785
L0785 rts
neg D004e
neg D0073
neg D00a6
neg D00af
L078e neg D00c6
fcb $01
lsr D0001
sex
fcb $01
abx
fcb $01
incb
fcb $01
fcb $61
fcb $01
rol $07a9
L079c equ *-2
lda #3
sta D0046
lbra L0951
lbsr L0932
bcc L07af
L07a9 equ *-1
ldb #$0c
lbsr L02fa
L07af lbsr L12f7
stb D0063
lda #2
sta D0046
rts
inc D0046
lbsr L0932
lblo L09c6
lbsr L12f1
std D0063
inc D0046
inc D0046
lbra L0941
L07cd equ *-1
inc D0046
lda ,x+
anda #$5f
cmpa #$41
L07d6 beq L07e7
cmpa #$42
beq L07e1
leas 2,s
lbra L015f
L07e1 ldb #$40
orb D0062
stb D0062
L07e7 lbsr L0932
lblo L09c6
lbsr L0941
bra L07af
inc D0046
lda D0062
cmpa #$0e
beq L080b
lda ,x
anda #$5f
ldb #$40
cmpa #$41
beq L0819
ldb #$50
cmpa #$42
beq L0819
L080b lbsr L09c6
ldb D0062
bitb #$f0
beq L0825
orb #$40
stb D0062
rts
L0819 orb D0062
stb D0062
leax 1,x
ldb #$df
andb D002b
stb D002b
L0825 rts
inc D0046
ldb D002b
andb #$df
stb D002b
rts
inc D0046
lbsr L09c6
lda D004e
bne L0825
ldd #4626
std D0062
ldb #2
stb D0046
ldb #$0c
lbra L02fa
ldb #2
stb D0046
lbsr L1164
lbsr L096b
bcc L0857
L0852 ldb #$0f
lbra L02fa
L0857 lda ,x+
cmpa #$2c
bne L0852
pshs b
lbsr L096b
puls a
bcs L0852
pshs d
anda #8
andb #8
pshs b
eora ,s+
beq L0879
ldb #$10
leas 2,s
lbra L02fa
L0879 puls a
asla
asla
asla
asla
ora ,s+
sta D0063
rts
ldb #2
stb D0046
lbsr L1164
L088b lbsr L096b
bcs L0852
ora D0063
sta D0063
lda ,x+
cmpa #$2c
beq L088b
leax -1,x
rts
lda #4
sta D0046
leax -1,x
ldb #$13
leay L0530,pcr
lbsr L0344
bcc L08b3
leas 2,s
lbra L015f
L08b3 lda ,y
sta D0062
lbra L0951
lda #2
sta D0046
lbsr L12f1
subd D0040
subd #2
cmpd #$007f
bgt L08d2
cmpd #-128
bge L08d9
L08d2 ldb #$0d
lbsr L02fa
ldb #254
L08d9 stb D0063
rts
leau <L08fe,pcr
bra L08ef
ldb D002b
bitb #8
beq L08ec
ldb #$19
lbsr L02fa
L08ec leau <L0912,pcr
L08ef lbsr L1164
ldb D0062
lslb
ldd b,u
jmp d,u
leau <L0924,pcr
bra L08ef
L08fe fcb $02
eora 3,x
rola
com D00c1
com D006d
com D00af
com D0029
lsr D0062
lsr D0042
com D002d
lsr D0053
L0912 lsr D00a7
lsr D00af
lsr D00c2
fcb $05
orcc #4
addb 4,x
cmpb $04f7
fcb $05
cmpa 5,x
sbca $05bf
L0924 equ *-2
fcb $05
andb #5
adcb #5
ldu #1491
fcb $05
eorb D0005
std D0017
L0932 equ *-1
asl D002f
cmpa #$23
bne L093e
leax 1,x
andcc #254
rts
L093e orcc #1
rts
L0941 ldb D0047
bitb #$40
bne L0948
rts
L0948 ldb #3
stb D0046
ldb #$0c
lbra L02fa
L0951 lbsr L12f1
subd D0040
subb D0046
sbca #0
std D0063
cmpd #$007f
bgt L096a
cmpd #-128
blt L096a
inc D004f
L096a rts
L096b leay >L09a2,pcr
pshs x
ldb #$0c
L0973 lda ,y
beq L098f
cmpa ,x+
beq L0981
adda #$20
cmpa -1,x
bne L098f
L0981 lda D0001,y
beq L099a
cmpa ,x+
beq L099a
adda #$20
cmpa -1,x
beq L099a
L098f ldx ,s
leay D0003,y
decb
bne L0973
orcc #1
puls x,pc
L099a decb
leas 2,s
lda D0002,y
andcc #254
rts
L09a2 lsra
negb
asl D0043
coma
fcb $01
fcb $42
neg D0004
fcb $41
neg D0002
neg D0000
neg D0000
neg D0000
negb
coma
suba #$53
neg D0040
fcb $55
neg D0040
rolb
neg D0020
lslb
neg D0010
lsra
neg D0006
L09c6 lbsr L1164
bsr L0a14
cmpa #$5b
bne L09d7
inc D004d
leax 1,x
lda ,x
bsr L0a14
L09d7 cmpa #$2c
lbeq L0a64
ldb 1,x
cmpb #$2c
bne L09f1
anda #$df
cmpa #$41
beq L0a27
cmpa #$42
beq L0a2b
cmpa #$44
beq L0a2f
L09f1 lbsr L12f1
bcc L09f8
clra
clrb
L09f8 std D004a
lda ,x
cmpa #$2c
lbeq L0b18
ldb D004d
bne L0a35
ldb D004c
bmi L0a35
bne L0a53
lda D004a
cmpa D003f
beq L0a53
bra L0a35
L0a14 ldb #255
cmpa #$3e
beq L0a20
cmpa #$3c
bne L0a26
ldb #1
L0a20 stb D004c
leax 1,x
lda ,x
L0a26 rts
L0a27 ldb #$86
bra L0a31
L0a2b ldb #$85
bra L0a31
L0a2f ldb #$8b
L0a31 leax 1,x
bra L0a97
L0a35 ldd D004a
inc D0046
inc D0046
inc D004f
tst D004d
bne L0a4a
std D0063
ldb #$30
orb D0062
stb D0062
rts
L0a4a std D0064
ldb #$9f
stb D0063
lbra L0aea
L0a53 inc D0046
ldb D004b
stb D0063
ldb D0062
bitb #$f0
beq L0a63
orb #$10
stb D0062
L0a63 rts
L0a64 leax 1,x
clr D004a
clr D004b
ldd ,x
cmpd #$2d2d
beq L0a8d
cmpa #$2d
beq L0a93
bsr L0ac7
lblo L0b68
stb D0063
ldd ,x
cmpd #$2b2b
beq L0aab
cmpa #$2b
beq L0ab1
lbra L0b22
L0a8d leax 1,x
ldb #$83
bra L0a97
L0a93 bsr L0abd
ldb #$82
L0a97 stb D0063
leax 1,x
bsr L0ac7
bcc L0aa5
L0a9f ldb #$13
lbsr L02fa
clrb
L0aa5 orb D0063
stb D0063
bra L0aea
L0aab ldb #$81
leax 1,x
bra L0ab5
L0ab1 bsr L0abd
ldb #$80
L0ab5 leax 1,x
orb D0063
stb D0063
bra L0aea
L0abd tst D004d
beq L0ac6
ldb #$0c
lbsr L02fa
L0ac6 rts
L0ac7 lda ,x+
anda #$5f
clrb
cmpa #$58
beq L0ae2
ldb #$20
cmpa #$59
beq L0ae2
ldb #$40
cmpa #$55
beq L0ae2
ldb #$60
cmpa #$53
bne L0ae5
L0ae2 andcc #254
rts
L0ae5 leax -1,x
orcc #1
rts
L0aea ldb #$20
orb D0062
stb D0062
inc D0046
inc D004e
tst D004d
beq L0b08
ldb #$10
orb D0063
stb D0063
lda ,x+
cmpa #$5d
beq L0b08
ldb #$14
bra L0b14
L0b08 lda ,x
cmpa #$20
beq L0b17
cmpa #$0d
beq L0b17
ldb #$0c
L0b14 lbsr L02fa
L0b17 rts
L0b18 leax 1,x
bsr L0ac7
bcs L0b68
orb D0063
stb D0063
L0b22 ldd D004a
tst D004c
bmi L0b5a
bne L0b52
ldd D004a
bne L0b32
ldb #$84
bra L0b62
L0b32 tst D004d
bne L0b46
cmpd #$000f
bgt L0b46
cmpd #-16
blt L0b46
andb #$1f
bra L0b62
L0b46 cmpd #$007f
bgt L0b5a
cmpd #-128
blt L0b5a
L0b52 stb D0064
inc D0046
ldb #$88
bra L0b62
L0b5a std D0064
inc D0046
inc D0046
ldb #$89
L0b62 orb D0063
stb D0063
bra L0aea
L0b68 ldd ,x
anda #$5f
andb #$5f
cmpd #20547
lbne L0a9f
leax 2,x
lda ,x
anda #$5f
cmpa #$52
bne L0b82
leax 1,x
L0b82 inc D0046
ldd D004a
subd D0040
subb D0046
sbca #0
subd #1
tst D004c
bmi L0b9b
beq L0b9b
stb D0064
ldb #$8c
bra L0b62
L0b9b subd #1
inc D0046
std D0064
ldb #$8d
bra L0b62
bsr L0be4
pshs d
addd D0026
std D0026
bsr L0bef
beq L0bb6
lda #4
bsr L0bf7
L0bb6 bsr L0bd8
bsr L0bef
beq L0bbe
bsr L0c0a
L0bbe addd ,s++
L0bc0 pshs a
lda D002b
anda #8
ora #$31
sta D002b
puls a
tst D005a
beq L0bd3
std D0040
rts
L0bd3 std D0042
inc D002c
rts
L0bd8 tst D005a
beq L0bdf
ldd D0040
rts
L0bdf ldd D0042
std D0044
rts
L0be4 lbsr L11c2
bcc L0bee
lbsr L02fa
clra
clrb
L0bee rts
L0bef pshs a
lda D002b
bita #8
puls a,pc
L0bf7 ldu D002d
ldb 8,u
bmi L0c09
cmpb #2
bne L0c07
cmpa #2
beq L0c07
ora #$80
L0c07 sta 8,u
L0c09 rts
L0c0a tst D003e
ble L0c24
cmpd 9,u
beq L0c26
pshs d
lda 8,u
bmi L0c22
cmpa #2
beq L0c22
ldb #$0a
lbsr L02fa
L0c22 puls d
L0c24 std 9,u
L0c26 rts
lda #3
bra L0c2d
lda #2
L0c2d bsr L0bef
bne L0c38
ldb #$15
lbsr L02fa
bra L0c46
L0c38 bsr L0bf7
bsr L0be4
ldu D002d
bsr L0c0a
std D0044
ldb #$39
stb D002b
L0c46 rts
lda ,x+
pshs a
cmpa #$0d
beq L0c64
cmpa #$2f
bhi L0c64
bsr L0c8d
L0c55 lda ,x+
cmpa ,s
beq L0c69
cmpa #$0d
beq L0c64
lbsr L0cec
bra L0c55
L0c64 ldb #$17
lbsr L02fa
L0c69 puls a,pc
lda ,x+
pshs a
cmpa #$0d
beq L0c64
cmpa #$2f
bhi L0c64
bsr L0c8d
L0c79 ldd ,x+
cmpa #$0d
beq L0c64
cmpa ,s
beq L0c69
cmpb ,s
bne L0c89
ora #$80
L0c89 bsr L0cec
bra L0c79
L0c8d pshs a,x
leax -1,x
L0c91 leax 1,x
lda ,x
cmpa #$0d
beq L0ca1
cmpa ,s
bne L0c91
leax 1,x
lda ,x
L0ca1 clr ,x+
stx D0033
cmpa #$0d
bne L0cab
sta ,x
L0cab puls a,x,pc
bsr L0cd5
L0caf lbsr L12f7
tfr b,a
bsr L0cec
lda ,x+
cmpa #$2c
beq L0caf
leax -1,x
rts
bsr L0cd5
L0cc1 lbsr L12f1
pshs b
bsr L0cec
puls a
bsr L0cec
lda ,x+
cmpa #$2c
beq L0cc1
leax -1,x
rts
L0cd5 pshs x
L0cd7 lbsr L12f1
lda ,x+
cmpa #$2c
beq L0cd7
clr -1,x
stx D0033
cmpa #$0d
bne L0cea
sta ,x
L0cea puls x,pc
L0cec ldb D0046
cmpb #4
bcs L0cf4
bsr L0d03
L0cf4 pshs d
tfr dp,a
ldb #$62
tfr d,u
puls d
sta b,u
inc D0046
rts
L0d03 pshs d,x
ldb D002a
bne L0d14
ldx D0033
lbsr L01c4
tst D005b
beq L0d27
bra L0d30
L0d14 tst D005b
bne L0d2d
lda D0056
pshs a
clr D0056
com D0056
lbsr L01d3
puls a
sta D0056
L0d27 ldb #4
stb D002b
bra L0d34
L0d2d lbsr L01d3
L0d30 ldb #5
stb D002b
L0d34 ldd D0040
std D0044
clr D0046
inc D002a
clr 1,s
puls d,x,pc
ldd D0051
coma
comb
std D0062
ldb D0053
comb
lda D002b
anda #$df
sta D002b
bra L0d59
ldd #4159
std D0062
lbsr L12f7
L0d59 stb D0064
ldb #3
stb D0046
rts
clra
clrb
stb D0050
std D0040
std D0044
std D0042
lbsr L1360
lbsr L0cd5
ldd #$87cd
bsr L0d93
bsr L0d90
bsr L0d8e
bsr L0da9
bsr L0da4
bsr L0da9
bsr L0da4
lda D0050
coma
bsr L0da1
lda ,x
cmpa #$2c
bne L0db8
bsr L0d8e
L0d8e bsr L0da9
L0d90 lbsr L12f1
L0d93 pshs b
tfr a,b
bsr L0d9b
puls b
L0d9b tfr b,a
eorb D0050
stb D0050
L0da1 lbra L0cec
L0da4 lbsr L12f7
bra L0d9b
L0da9 lda ,x+
cmpa #$2c
beq L0db8
leax -1,x
ldb #$17
lbsr L02fa
leas 2,s
L0db8 rts
lbsr L0be4
std D0044
lbra L0bc0
ldb D002b
andb #8
orb #$10
stb D002b
lbsr L01f2
lbsr L156c
bcc L0dd3
leas 4,s
L0dd3 rts
ldb #$27
ldu D000a
L0dd8 lbsr L1164
lda D003e
bne L0de3
lda ,u
bne L0dfc
L0de3 lda ,x+
cmpa #$0d
beq L0df4
sta ,u+
decb
bne L0de3
lda #$0d
L0df0 cmpa ,x+
bne L0df0
L0df4 clr ,u
leax -1,x
ldb #$30
stb D002b
L0dfc rts
ldb #$4f
ldu D0008
bra L0dd8
lbsr L1408
L0e06 leas 2,s
rts
bsr L0e21
bcc L0e12
ldb #$30
stb D002b
rts
L0e12 stb ,-s
beq L0e1d
L0e16 lbsr L149a
dec ,s
bne L0e16
L0e1d leas 1,s
bra L0e06
L0e21 lbsr L10b4
bcc L0e2b
lbsr L02fa
orcc #1
L0e2b rts
L0e2c ldb #$30
stb D002b
lbsr L1164
L0e33 clr ,-s
lda ,x+
cmpa #$2d
bne L0e3f
com ,s
lda ,x+
L0e3f leau <L0ea3,pcr
ldb #8
cmpa #$61
bcs L0e4a
suba #$20
L0e4a cmpa ,u++
beq L0e68
decb
bne L0e4a
puls b
cmpa #$44
beq L0e88
cmpa #$57
beq L0e80
cmpa #$4c
beq L0e90
cmpa #$4e
beq L0e9b
L0e63 ldb #$16
lbra L02fa
L0e68 ldb -1,u
tfr dp,a
tfr d,u
puls a
coma
sta ,u
L0e73 lda ,x+
cmpa #$2c
beq L0e33
cmpa #$20
beq L0e2c
leax -1,x
rts
L0e80 bsr L0e21
bcs L0e63
stb D0037
bra L0e73
L0e88 bsr L0e21
bcs L0e63
stb D0036
bra L0e73
L0e90 tstb
beq L0e97
dec D0056
bra L0e73
L0e97 inc D0056
bra L0e73
L0e9b inc D0060
lda #$1f
sta D0037
bra L0e97
L0ea3 coma
clrb
rora
rolb
tsta
decb
asra
fcb $5b
fcb $45
incb
comb
fcb $5e
rola
tstb
clra
lslb
lbsr L12f7
bcs L0eba
stb D003f
L0eba clra
std D0044
ldb #$31
stb D002b
inc D002c
rts
lbsr L1164
lbsr L15fb
bra L0ece
L0ecc leax -1,x
L0ece ldb -1,x
cmpb #$20
beq L0ecc
ldu D001f
ldb D0018
pshu b
stu D001f
sta D0018
ldb #$30
stb D002b
rts
bsr L0f0f
bne L0f0c
rts
bsr L0f0f
beq L0f0c
rts
bsr L0f0f
bge L0f0c
rts
bsr L0f0f
bgt L0f0c
rts
bsr L0f0f
blt L0f0c
rts
bsr L0f0f
ble L0f0c
rts
inc D0055
ldb #$10
bsr L0f21
lda D003e
bne L0f0c
rts
L0f0c inc D0054
rts
L0f0f inc D0055
ldb #$30
bsr L0f21
lbsr L12f1
bcc L0f1c
puls d,pc
L0f1c cmpd #0
rts
L0f21 tst D005f
bne L0f26
clrb
L0f26 stb D002b
rts
ldb #$10
bsr L0f21
lda D0055
beq L0f42
lda D0062
bne L0f3b
dec D0055
lda D0054
beq L0f41
L0f3b lda D0054
beq L0f0c
dec D0054
L0f41 rts
L0f42 ldb #$1a
lbsr L02fa
clr D0054
rts
L0f4a pshs x,y,u
bsr L0fc3
stx D002d
ldb D003e
bgt L0f7d
bcc L0f63
lda #1
ldu D0040
lbsr L100b
stx D002d
bcc L0f9e
bra L0f9a
L0f63 cmpa #0
bne L0f71
lda #1
ldu D0040
sta 8,x
stu 9,x
bra L0f9e
L0f71 cmpa #2
beq L0f9e
ora #$80
sta 8,x
L0f79 ldb #8
bra L0f9a
L0f7d bcc L0f83
L0f7f ldb #9
bra L0f9a
L0f83 cmpa #0
beq L0f7f
bita #$80
bne L0f79
cmpa #1
bne L0f9e
ldd D0040
cmpd 9,x
beq L0f9e
std 9,x
ldb #$0a
L0f9a orcc #1
puls x,y,u,pc
L0f9e andcc #254
puls x,y,u,pc
L0fa2 pshs x,y,u
bsr L0fc3
ldb D003e
bne L0fbb
bcc L0fb7
lda #0
ldu #0
bsr L100b
bcs L0f9a
bra L0f9e
L0fb7 ldd 9,x
bra L0f9e
L0fbb lda 8,x
cmpa #0
bne L0fb7
bra L0f7f
L0fc3 bsr L0ffa
ldx ,x
bne L0fcd
leay ,x
bra L0ff7
L0fcd pshs x
ldy D0016
ldb #8
L0fd4 lda ,y+
beq L0fe5
cmpa ,x+
bne L0fe9
decb
bne L0fd4
L0fdf puls x
lda 8,x
clrb
rts
L0fe5 cmpa ,x+
beq L0fdf
L0fe9 puls y
bhi L0ff3
ldx D000b,y
bne L0fcd
bra L0ff7
L0ff3 ldx D000d,y
bne L0fcd
L0ff7 orcc #1
rts
L0ffa ldx D0016
ldb ,x
ldx D0010
subb #$41
cmpb #$20
bcs L1008
subb #6
L1008 lslb
abx
rts
L100b ldx D001d
pshs a,x
leax 15,x
cmpx D0012
bcs L1023
ldb #$0b
L1017 clr D0056
lda #1
sta D003e
lbsr L02fa
lbra L15e9
L1023 stx D001d
sty ,--s
bne L1032
leas 2,s
bsr L0ffa
leay -11,x
bra L1040
L1032 ldx D0016
L1034 lda ,x+
cmpa ,y+
beq L1034
puls y
bcs L1040
leay D0002,y
L1040 ldx 1,s
stx D000b,y
ldy D0016
lda ,y+
L1049 sta ,x+
lda ,y+
bne L1049
puls a,x
sta 8,x
stu 9,x
clrb
rts
L1057 bsr L1065
bra L105d
bsr L106b
L105d pshs a
lda #$20
sta ,x+
puls a,pc
L1065 exg a,b
bsr L106b
tfr a,b
L106b pshs b
andb #$f0
lsrb
lsrb
lsrb
lsrb
bsr L1079
puls b
andb #$0f
L1079 cmpb #9
bls L107f
addb #7
L107f addb #$30
stb ,x+
rts
L1084 pshs b,y,u
leau >L10aa,pcr
ldy #5
L108e clr ,s
L1090 subd ,u
bcs L1098
inc ,s
bra L1090
L1098 addd ,u++
pshs b
ldb 1,s
addb #$30
stb ,x+
puls b
leay Dffff,y
bne L108e
puls b,y,u,pc
L10aa beq L10bc
com D00e8
neg D0064
neg D000a
neg D0001
L10b4 lbsr L1164
leax 1,x
cmpa #$25
beq L111d
L10bc equ *-1
cmpa #$24
beq L10c5
leax -1,x
bra L10f7
L10c5 leas -4,s
bsr L1134
L10c9 bsr L113b
bcc L10dd
cmpb #$61
bcs L10d3
subb #$20
L10d3 cmpb #$41
bcs L114d
cmpb #$46
bhi L114d
subb #$37
L10dd stb ,s
ldd 2,s
bita #$f0
bne L1160
lslb
rola
lslb
rola
lslb
rola
lslb
rola
addb ,s
adca #0
std 2,s
inc 1,s
bra L10c9
L10f7 leas -4,s
bsr L1134
L10fb bsr L113b
bcs L114d
stb ,s
ldd 2,s
lslb
rola
std 2,s
lslb
rola
lslb
rola
bcs L1160
addd 2,s
bcs L1160
addb ,s
adca #0
bcs L1160
std 2,s
inc 1,s
bra L10fb
L111d leas -4,s
bsr L1134
L1121 ldb ,x+
subb #$30
bcs L114d
lsrb
bne L114d
rol 3,s
rol 2,s
bcs L1160
inc 1,s
bra L1121
L1134 clra
clrb
std 2,s
std 4,s
rts
L113b ldb ,x+
cmpb #$30
bcs L1145
cmpb #$39
bls L1148
L1145 orcc #1
rts
L1148 subb #$30
andcc #254
rts
L114d leax -1,x
tst 1,s
beq L1159
ldd 2,s
andcc #254
bra L115d
L1159 orcc #4
L115b orcc #1
L115d leas 4,s
rts
L1160 andcc #251
bra L115b
L1164 lda ,x+
cmpa #$20
beq L1164
leax -1,x
rts
L116d pshs d,x
lda 3,s
mul
pshs d
lda 2,s
ldb 5,s
mul
addb ,s
stb ,s
lda 3,s
ldb 4,s
mul
addb ,s
stb ,s
ldd ,s
ldx #0
leas 6,s
rts
L118e pshs d,x,y
ldd ,s
bne L1198
orcc #1
bra L11b8
L1198 ldd #$0010
stb 4,s
clrb
L119e asl 3,s
rol 2,s
rolb
rola
subd ,s
bmi L11ac
inc 3,s
bra L11ae
L11ac addd ,s
L11ae dec 4,s
bne L119e
tfr d,x
ldd 2,s
andcc #254
L11b8 leas 6,s
rts
L11bb sta ,x+
L11bd lda ,y+
bne L11bb
rts
L11c2 pshs y,u
leau ,s
bsr L1164
bsr L11d0
andcc #254
puls y,u,pc
L11ce leax 1,x
L11d0 bsr L1211
pshs d
L11d4 lda ,x
cmpa #$2d
bne L11e2
bsr L120f
nega
negb
sbca #0
bra L11e8
L11e2 cmpa #$2b
bne L11ee
bsr L120f
L11e8 addd ,s
std ,s
bra L11d4
L11ee tsta
beq L120d
cmpa #$0d
beq L120d
cmpa #$20
beq L120d
cmpa #$2c
beq L120d
cmpa #$29
beq L120d
cmpa #$5d
beq L120d
L1205 ldb #6
L1207 leas ,u
orcc #1
puls y,u,pc
L120d puls d,pc
L120f leax 1,x
L1211 bsr L123f
pshs d
L1215 lda ,x
cmpa #$2f
bne L122a
bsr L123d
pshs x
ldx 2,s
lbsr L118e
bcc L1237
ldb #4
bra L1207
L122a cmpa #$2a
bne L120d
bsr L123d
pshs x
ldx 2,s
lbsr L116d
L1237 puls x
std ,s
bra L1215
L123d leax 1,x
L123f bsr L126d
pshs d
L1243 lda ,x
cmpa #$26
bne L1251
bsr L126b
andb 1,s
anda ,s
bra L1267
L1251 cmpa #$21
bne L125d
bsr L126b
orb 1,s
ora ,s
bra L1267
L125d cmpa #$3f
bne L120d
bsr L126b
eorb 1,s
eora ,s
L1267 std ,s
bra L1243
L126b leax 1,x
L126d lda ,x
cmpa #$5e
bne L1279
bsr L1284
comb
coma
bra L1283
L1279 cmpa #$2d
bne L1286
bsr L1284
nega
negb
sbca #0
L1283 rts
L1284 leax 1,x
L1286 lda ,x
cmpa #$28
bne L12a2
lbsr L11ce
pshs d
lda ,x
cmpa #$29
puls d
beq L12b6
ldb D0007
bra L129d
L129d leas 2,s
L129f lbra L1207
L12a2 cmpa #$2a
bne L12aa
ldd D0040
bra L12b6
L12aa tst D005a
bne L12b9
cmpa #$2e
bne L12b9
ldd D0042
inc D002c
L12b6 leax 1,x
rts
L12b9 cmpa #$27
bne L12c5
ldd ,x++
cmpb #$0d
beq L12d6
clra
rts
L12c5 cmpa #$22
bne L12d9
leax 1,x
ldd ,x++
cmpa #$0d
beq L12d6
cmpb #$0d
beq L12d6
rts
L12d6 lbra L1205
L12d9 lbsr L10b4
bcc L12ee
beq L12e4
ldb #3
bra L129f
L12e4 lbsr L0368
bcs L12d6
lbsr L0fa2
bcs L129f
L12ee andcc #254
rts
L12f1 lbsr L11c2
bcs L1304
L12f6 rts
L12f7 lbsr L11c2
bcs L1304
tsta
beq L12f6
inca
beq L12f6
ldb #$0e
L1304 lbsr L02fa
ldd #-1
orcc #1
rts
L130d bsr L134d
pshs d,x
ldx D001b
sta ,x+
stx D001b
cmpx D0010
bcs L1321
bsr L1323
ldx D000e
stx D001b
L1321 puls d,x,pc
L1323 pshs d,x,y
lda D0058
beq L1340
lda D003e
beq L1340
ldd D001b
subd D000e
beq L1340
tfr d,y
ldx D000e
lda D0019
beq L1340
os9 I$Write
bcs L1342
L1340 puls d,x,y,pc
L1342 os9 F$PErr
ldb #$12
lbsr L02fa
lbra L15a2
L134d pshs d,x,y,u
leax ,s
ldy #1
tfr dp,a
ldb #$51
tfr d,u
os9 F$CRC
puls d,x,y,u,pc
L1360 ldd #-1
std D0051
stb D0053
rts
L1368 lda D0057
beq L139a
lda D0056
bmi L139a
L1370 lda D0035
bne L137b
pshs x
lbsr L1408
puls x
L137b bsr L138a
lda D003e
beq L1387
lda D0056
bmi L1387
dec D0035
L1387 ldx D0004
rts
L138a lda D0057
beq L1392
lda D0056
bpl L139a
L1392 lda D005c
beq L1387
lda D0021
beq L1387
L139a lda D003e
beq L1387
pshs a,y
bsr L13b8
clra
ldb D0037
ldx D0004
leax d,x
bsr L13b8
ldx D0004
ldy #$0085
lda D001a
os9 I$WritLn
puls a,y,pc
L13b8 lda #$0d
sta ,x+
rts
L13bd leas -6,s
pshs x
leax 2,s
os9 F$Time
puls x
bcs L13f0
lda 1,s
bsr L13f7
ldb #$2f
stb ,x+
lda 2,s
bsr L13f7
stb ,x+
lda ,s
bsr L13f7
bsr L13f2
lda 3,s
bsr L13f7
ldb #$3a
stb ,x+
lda 4,s
bsr L13f7
stb ,x+
lda 5,s
bsr L13f7
L13f0 leas 6,s
L13f2 lda #$20
sta ,x+
rts
L13f7 pshs b
ldb #$2f
L13fb incb
suba #$0a
bcc L13fb
stb ,x+
adda #$3a
sta ,x+
puls b,pc
L1408 lda D0056
bmi L1476
lda D0059
beq L1414
bsr L147d
bra L141a
L1414 ldb D0035
addb #3
bsr L1471
L141a ldx D0004
pshs x
ldx D0002
stx D0004
ldb D0036
subb #4
stb D0035
lbsr L01e5
leay <L14a5,pcr
lbsr L11bd
bsr L13bd
ldx D0004
clra
ldb D0037
subb #6
leax d,x
ldd D003a
lbsr L1084
inc D003b
bne L1447
inc D003a
L1447 leax -8,x
leay <L149f,pcr
lbsr L11bd
leax 3,x
lbsr L1370
ldy D000a
lbsr L11bd
bsr L13f2
lda #$2d
sta ,x+
bsr L13f2
ldy D0008
lbsr L11bd
lbsr L1370
puls x
stx D0004
ldb #1
L1471 bsr L1479
decb
bne L1471
L1476 ldx D0004
rts
L1479 lda #$0d
bra L147f
L147d lda #$0c
L147f pshs d,x,y
lda D003e
beq L1498
lda D0057
beq L1498
lda D0056
bmi L1498
lda D001a
tfr s,x
ldy #1
os9 I$WritLn
L1498 puls d,x,y,pc
L149a ldx D0004
lbra L1370
L149f negb
fcb $61
asr 5,s
bra L14a5
L14a5 tsta
rol 3,s
fcb $72
clr -9,s
fcb $61
fcb $72
fcb $65
bra L14ff
comb
blt L14ec
bra L14f6
com 29541
tst 2,s
inc 5,s
fcb $72
bra L1511
comb
bra L1518
fcb $65
fcb $72
com $696f
fcb $6e
bra L14fa
leay D000e,y
leax Dfff0,y
bgt L1500
fcb $30
bra L14f3
bra L14f5
neg D0020
L14d6 equ *-1
fcb $65
fcb $72
fcb $72
clr -14,s
bvc L1551
bvs L14e0
L14e0 bra L1559
fcb $61
fcb $72
jmp 9,s
jmp 7,s
bvc L155d
bvs L14ec
L14ec bra L155e
fcb $72
clr 7,s
fcb $72
fcb $61
L14f3 fcb $6d
bra L1558
L14f5 equ *-1
L14f6 rol 29797
com $2067
L14fa equ *-2
fcb $65
jmp 5,s
L14ff fcb $72
L1500 fcb $61
lsr $6564
neg D0020
L1505 equ *-1
lsr 1,s
lsr $6120
fcb $62
rol 29797
com $2061
L1511 equ *-1
inc 12,s
clr 3,s
fcb $61
lsr $6564
L1518 equ *-2
neg D0020
L151b equ *-1
fcb $62
rol 29797
com $2075
com $6564
bra L158e
clr -14,s
bra L159f
rol $6d62
clr 12,s
com >$0041
L1533 equ *-1
comb
tsta
abx
L1537 pshs d,x,y,u
lda D005d
beq L1549
leax <L1533,pcr
ldy #4
lda D001a
os9 I$Write
L1549 ldx D0000
ldy #$0078
lda D0018
L1551 os9 I$ReadLn
bcc L156a
cmpb #$d3
L1558 bne L1560
L1559 equ *-1
bsr L156c
bcc L1549
L155d equ *-1
L155e bra L156a
L1560 os9 F$PErr
ldb #$11
lbsr L02fa
bsr L156c
L156a puls d,x,y,u,pc
L156c ldu D001f
cmpu D0006
bne L1576
orcc #1
rts
L1576 lda D0018
pulu b
stu D001f
stb D0018
os9 I$Close
bcc L1586
os9 F$PErr
L1586 rts
L1587 pshs d
lda #$24
sta ,x+
ldd ,s
L158e equ *-1
lbsr L1057
puls d
L1594 lbsr L1084
tfr u,y
lbsr L11bd
lbra L1368
L159f lbsr L1323
L15a2 lbsr L149a
ldd D0028
leau L14d6,pcr
bsr L1594
ldd D0022
leau L14e0,pcr
bsr L1594
ldd D0024
leau L14ec,pcr
bsr L1587
ldd D0026
leau L1505,pcr
bsr L1587
ldd D001d
subd D0010
leau L151b,pcr
bsr L1587
lda D005e
beq L15d5
bsr L1612
L15d5 lda D005d
bne L15e9
lda D0059
beq L15e2
lbsr L147d
bra L15e9
L15e2 ldb D0035
addb #3
lbsr L1471
L15e9 ldu D001f
L15eb cmpu D0006
beq L15f7
pulu a
os9 I$Close
bra L15eb
L15f7 clrb
os9 F$Exit
L15fb lda #1
os9 I$Open
ldb #$18
lblo L1017
rts
L1607 lda D0018
ldu #0
tfr u,x
os9 I$Seek
rts
L1612 ldb D0037
clra
tfr d,x
ldb #$10
lbsr L118e
stb D003d
stb D003c
lbsr L149a
ldu D0010
ldb #$1a
pshs b
L1629 ldy ,u++
beq L1656
L162e pshs y,u
bra L1644
L1632 leau ,y
tfr d,y
L1636 ldd D000b,y
bne L1632
bsr L165f
ldy D000d,y
sty 11,u
bne L1636
L1644 ldu ,s
ldy 11,u
bne L1636
leay ,u
bsr L165f
puls y,u
ldy D000d,y
bne L162e
L1656 dec ,s
bne L1629
leas 1,s
lbra L1370
L165f pshs y,u
ldd D0009,y
lbsr L1057
lda D0008,y
leau <L1691,pcr
lda a,u
ldb #$20
std ,x++
ldb #8
L1673 lda ,y+
bne L1679
lda #$20
L1679 sta ,x+
decb
bne L1673
dec D003c
beq L1688
lda #$20
sta ,x+
bra L168f
L1688 lbsr L1370
ldb D003d
stb D003c
L168f puls y,u,pc
L1691 fcb $55
inca
comb
fcb $45
lsra
L1696 pshs x,y
lbsr L15fb
sta D0018
L169d lbsr L1164
cmpa #$0d
beq L16cf
lbsr L0e33
lda D0058
beq L16cf
lda -1,x
anda #$5f
cmpa #$0d
beq L16c7
ldb ,x
cmpd #$4f3d
bne L16c7
ldb #$16
lda D0019
bne L16d1
leax 1,x
bsr L16d4
bra L169d
L16c7 lda D0019
bne L16cf
ldx ,s
bsr L16d4
L16cf puls x,y,pc
L16d1 lbra L1017
L16d4 lda #6
ldb #$2f
os9 I$Create
ldb #$18
bcs L16d1
sta D0019
rts
emod
L16e5 equ *
end