* Disassembly by Os9disasm of dcheck
mod L28a0,L2896,$11,$81,L1b70,D0b80
* OS-9 system function equates
F$Exit equ $06
F$Mem equ $07
F$ID equ $0c
I$Create equ $83
I$Open equ $84
I$ChgDir equ $86
I$Delete equ $87
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$Close equ $8f
* class D external label equates
Dff03 equ $ff03
Dfff2 equ $fff2
Dfff4 equ $fff4
* OS9 data area definitions
D0000 rmb 1
D0001 rmb 1
D0002 rmb 2
D0004 rmb 2
D0006 rmb 2
D0008 rmb 1
D0009 rmb 1
D000a rmb 2
D000c rmb 2
D000e rmb 2
D0010 rmb 2
D0012 rmb 2
D0014 rmb 2
D0016 rmb 1
D0017 rmb 1
D0018 rmb 2
D001a rmb 4
D001e rmb 2
D0020 rmb 1
D0021 rmb 1
D0022 rmb 1
D0023 rmb 1
D0024 rmb 1
D0025 rmb 1
D0026 rmb 2
D0028 rmb 2
D002a rmb 2
D002c rmb 1
D002d rmb 1
D002e rmb 1
D002f rmb 1
D0030 rmb 2
D0032 rmb 2
D0034 rmb 2
D0036 rmb 10
D0040 rmb 3
D0043 rmb 7
D004a rmb 3
D004d rmb 23
D0064 rmb 10
D006e rmb 5
D0073 rmb 55
D00aa rmb 60
D00e6 rmb 32
D0106 rmb 80
D0156 rmb 32
D0176 rmb 256
D0276 rmb 2
D0278 rmb 2
D027a rmb 2
D027c rmb 2
D027e rmb 2306
D0b80 equ .
L000d pshs d
leas -34,s
clr 31,s
clrb
stb 30,s
stb 29,s
clrb
clra
std D002c,y
std D002a,y
std D0028,y
std D0026,y
ldd #1
std D0012,y
leax L14c4,pcr
pshs x
leax D006e,y
tfr x,d
lbsr L1b22
leas 2,s
leax L14c8,pcr
pshs x
leax D00aa,y
tfr x,d
lbsr L1b22
leas 2,s
L0051 ldd 34,s
subd #1
std 34,s
cmpd #0
lble L015f
ldd 38,s
addd #2
std 38,s
tfr d,x
ldb [,x]
cmpb #$2d
lbne L015f
ldd [38,s]
addd #1
std ,s
L007d ldb [,s]
beq L0051
ldb [,s]
clra
lbsr L1b25
stb 2,s
cmpb #$77
beq L00b4
cmpb #$6d
lbeq L00ff
cmpb #$62
lbeq L0108
cmpb #$73
lbeq L0110
cmpb #$70
lbeq L0119
cmpb #$6f
lbeq L0122
cmpb #$64
lbeq L012a
lbra L0131
L00b4 ldx ,s
ldb 1,x
cmpb #$3d
lbne L00ea
ldx ,s
ldb 2,x
beq L00ea
ldd ,s
addd #2
pshs d
leax D006e,y
tfr x,d
lbsr L1b22
leas 2,s
ldd ,s
addd #2
pshs d
leax D00aa,y
tfr x,d
lbsr L1b22
leas 2,s
lbra L014a
L00ea leax L14cc,pcr
pshs x
ldd D000e
lbsr L1b28
leas 2,s
clrb
clra
lbsr L1b2b
lbra L014a
L00ff ldd #1
std D0014,y
lbra L014a
L0108 clrb
clra
std D0012,y
lbra L014a
L0110 ldd #1
std D0016,y
lbra L014a
L0119 ldd #1
std D0010,y
lbra L014a
L0122 lbsr L0735
clrb
clra
lbsr L1b2b
L012a ldd #1
std D000e,y
bra L014a
L0131 ldb [,s]
clra
pshs d
leax L14f4,pcr
pshs x
ldd D000e
lbsr L1b28
leas 4,s
clrb
clra
std 34,s
bra L014a
L014a ldb 2,s
cmpb #$77
lbeq L0051
ldd ,s
addd #1
std ,s
subd #1
lbra L007d
L015f ldd 34,s
cmpd #1
beq L0170
lbsr L0735
clrb
clra
lbsr L1b2b
L0170 ldd D0016,y
beq L017f
clrb
clra
std D000e,y
std D0014,y
std D0010,y
L017f ldd #$000b
std D0034,y
ldd D0016,y
bne L0196
ldd D0034,y
subd #1
std D0034,y
addd #1
L0196 ldd D0010,y
beq L01a7
ldd D0034,y
subd #1
std D0034,y
addd #1
L01a7 ldd [38,s]
lbsr L1b2e
cmpd #0
bne L01c5
leax L1511,pcr
pshs x
ldd D000e
lbsr L1b28
leas 2,s
clrb
clra
lbsr L1b2b
L01c5 clrb
clra
std 25,s
std 23,s
ldd 23,s
ldx [38,s]
ldb d,x
cmpb #$2f
beq L01f1
ldd 25,s
addd #1
std 25,s
subd #1
leax 3,s
pshs x
addd ,s++
pshs d
ldb #$2f
stb [,s++]
L01f1 ldd 23,s
addd #1
std 23,s
subd #1
ldx [38,s]
ldb d,x
stb 2,s
tstb
beq L0221
ldd 25,s
addd #1
std 25,s
subd #1
leax 3,s
pshs x
addd ,s++
pshs d
ldb 4,s
stb [,s++]
bra L01f1
L0221 ldd 25,s
subd #1
leax 3,s
ldb d,x
cmpb #$40
beq L024d
ldd 25,s
std 32,s
ldd 25,s
addd #1
std 25,s
subd #1
leax 3,s
pshs x
addd ,s++
pshs d
ldb #$40
stb [,s++]
L024d ldd 25,s
addd #1
std 25,s
subd #1
leax 3,s
pshs x
addd ,s++
tfr d,x
clr ,x
ldd #1
pshs d
leax 5,s
tfr x,d
lbsr L1b31
leas 2,s
std ,y
cmpd #-1
bne L028f
leax 3,s
pshs x
leax L152e,pcr
pshs x
ldd D000e
lbsr L1b28
leas 4,s
ldd D0002
lbsr L1b2b
L028f clrb
clra
pshs d
clrb
clra
pshs d
clrb
clra
pshs d
ldd ,y
lbsr L1b34
leas 6,s
leax D0176,y
tfr x,d
lbsr L077b
leax D0176,y
ldb 5,x
clra
pshs d
leax D0176,y
ldb 4,x
clra
tfr b,a
clrb
addd ,s++
std D000a,y
ldd D000a,y
tfr a,b
clra
std D0030,y
ldd D000a,y
anda #0
andb #255
std D0032,y
leax D0176,y
ldb 7,x
clra
pshs d
leax D0176,y
ldb 6,x
clra
tfr b,a
clrb
addd ,s++
std D0006,y
ldd D0006,y
subd #1
std D0008,y
leax D0176,y
ldb 2,x
clra
pshs d
leax D0176,y
ldb 1,x
clra
tfr b,a
clrb
addd ,s++
std D000c,y
ldd D000c,y
pshs d
ldd D0006,y
lbsr L1b67
std D000c,y
leax D0176,y
tfr x,d
addd #$001f
pshs d
leax D004d,y
tfr x,d
lbsr L0bd0
leas 2,s
clrb
clra
std 23,s
L032d ldd 23,s
cmpd #2
bgt L0359
leax D004a,y
tfr x,d
addd 23,s
pshs d
ldd 25,s
leax D0176,y
ldb d,x
stb [,s++]
ldd 23,s
addd #1
std 23,s
subd #1
bra L032d
L0359 leax 3,s
tfr x,d
addd 32,s
tfr d,x
clr ,x
ldd D0016,y
lbne L03f2
leax 3,s
pshs x
leax D004d,y
pshs x
leax L1546,pcr
tfr x,d
lbsr L1b37
leas 4,s
ldd D000a,y
pshs d
leax L1562,pcr
tfr x,d
lbsr L1b37
leas 2,s
ldd D0006,y
cmpd #1
bne L03a1
leax L1581,pcr
tfr x,d
lbsr L1b37
bra L03b0
L03a1 ldd D0006,y
pshs d
leax L1597,pcr
tfr x,d
lbsr L1b37
leas 2,s
L03b0 leax D0036,y
pshs x
leax D004a,y
tfr x,d
lbsr L0750
leas 2,s
leax D0036,y
pshs x
leax L15af,pcr
tfr x,d
lbsr L1b37
leas 2,s
leax D0036,y
pshs x
leax D0176,y
tfr x,d
addd #8
lbsr L0750
leas 2,s
leax D0036,y
pshs x
leax L15ca,pcr
tfr x,d
lbsr L1b37
leas 2,s
L03f2 leax 3,s
tfr x,d
lbsr L1b3a
cmpd #-1
bne L0411
leax L15f3,pcr
pshs x
ldd D000e
lbsr L1b28
leas 2,s
ldd D0002
lbsr L1b2b
L0411 ldd D0016,y
lbne L0487
ldd #4096
lbsr L1b3d
std D0276,y
cmpd #0
beq L043d
ldd D0010,y
beq L0454
ldd #4096
lbsr L1b3d
std D0278,y
cmpd #0
bne L0454
L043d ldd #4
pshs d
leax L1618,pcr
pshs x
ldd D000e
lbsr L1b28
leas 4,s
clrb
clra
lbsr L1b2b
L0454 clrb
clra
pshs d
leax D0002,y
pshs x
leax D006e,y
pshs x
ldd D0276,y
lbsr L1199
leas 6,s
ldd D0010,y
beq L0487
ldd #1
pshs d
leax D0004,y
pshs x
leax D00aa,y
pshs x
ldd D0278,y
lbsr L1199
leas 6,s
L0487 leax D0176,y
tfr x,d
addd #4
pshs d
ldb #2
addb [,s++]
clra
std 27,s
leax D0176,y
ldb 5,x
beq L04ab
ldd 27,s
addd #1
std 27,s
L04ab clrb
clra
pshs d
ldd #$0013
pshs d
leax D0176,y
tfr x,d
addd #8
pshs d
ldd ,y
lbsr L1b40
leas 6,s
ldd #2
pshs d
leax 25,s
pshs x
ldd ,y
lbsr L1b43
leas 4,s
cmpd #-1
bne L04e2
ldd D0002
lbsr L1b2b
L04e2 ldd 27,s
addd 23,s
std 27,s
ldd D0016,y
bne L0500
ldd 27,s
pshs d
leax L164a,pcr
tfr x,d
lbsr L1b37
leas 2,s
L0500 clrb
clra
std D002e,y
leax 3,s
stx D0106,y
ldd D0016,y
bne L0534
ldd 27,s
pshs d
leax 31,s
pshs x
clrb
clra
pshs d
ldd D0002,y
pshs d
ldd D0276,y
lbsr L0bff
leas 8,s
leax L1688,pcr
tfr x,d
lbsr L1b37
L0534 leax 3,s
tfr x,d
lbsr L07ab
ldd D0016,y
lbne L0612
leax L16ae,pcr
tfr x,d
lbsr L1b37
lbsr L1043
ldd D0010,y
beq L0573
ldd D002a,y
bne L055d
ldd D0026,y
beq L0573
L055d ldd #1
std D002e,y
leax L16cf,pcr
tfr x,d
lbsr L1b37
leax 3,s
tfr x,d
lbsr L07ab
L0573 leax L16f6,pcr
tfr x,d
lbsr L1b37
ldd D002a,y
lbeq L05ae
ldd D002a,y
pshs d
leax L16f8,pcr
tfr x,d
lbsr L1b37
leas 2,s
ldd D002a,y
cmpd #1
beq L05a5
leax L171f,pcr
tfr x,d
lbsr L1b37
L05a5 leax L1721,pcr
tfr x,d
lbsr L1b37
L05ae ldd D0026,y
lbeq L05e0
ldd D0026,y
pshs d
leax L1723,pcr
tfr x,d
lbsr L1b37
leas 2,s
ldd D0026,y
cmpd #1
beq L05d7
leax L172e,pcr
tfr x,d
lbsr L1b37
L05d7 leax L1730,pcr
tfr x,d
lbsr L1b37
L05e0 ldd D0028,y
lbeq L0612
ldd D0028,y
pshs d
leax L175e,pcr
tfr x,d
lbsr L1b37
leas 2,s
ldd D0028,y
cmpd #1
beq L0609
leax L1769,pcr
tfr x,d
lbsr L1b37
L0609 leax L176b,pcr
tfr x,d
lbsr L1b37
L0612 ldd D002c,y
lbeq L0644
ldd D002c,y
pshs d
leax L1799,pcr
tfr x,d
lbsr L1b37
leas 2,s
ldd D002c,y
cmpd #1
beq L063b
leax L17b7,pcr
tfr x,d
lbsr L1b37
L063b leax L17b9,pcr
tfr x,d
lbsr L1b37
L0644 ldd D0016,y
lbne L067c
leax D004d,y
pshs x
leax L17bb,pcr
tfr x,d
lbsr L1b37
leas 2,s
ldd D002c,y
bne L066a
ldd D002a,y
bne L066a
ldd D0026,y
beq L0673
L066a leax L17d4,pcr
tfr x,d
lbsr L1b37
L0673 leax L17d9,pcr
tfr x,d
lbsr L1b37
L067c ldd D0024,y
cmpd #1
bne L0690
leax L17e1,pcr
tfr x,d
lbsr L1b37
bra L06a0
L0690 ldd D0024,y
pshs d
leax L17ee,pcr
tfr x,d
lbsr L1b37
leas 2,s
L06a0 ldd D0022,y
cmpd #1
bne L06b4
leax L17fe,pcr
tfr x,d
lbsr L1b37
bra L06c4
L06b4 ldd D0022,y
pshs d
leax L1806,pcr
tfr x,d
lbsr L1b37
leas 2,s
L06c4 ldd D0016,y
lbne L072c
clrb
clra
pshs d
ldd #-1
pshs d
clrb
clra
pshs d
ldd D0002,y
pshs d
ldd D0276,y
lbsr L12f2
leas 8,s
ldd D0002,y
lbsr L1b46
ldd D0014,y
bne L06f7
leax D006e,y
tfr x,d
lbsr L1b49
L06f7 ldd D0010,y
lbeq L072c
clrb
clra
pshs d
ldd #-1
pshs d
ldd #1
pshs d
ldd D0004,y
pshs d
ldd D0278,y
lbsr L12f2
leas 8,s
ldd D0004,y
lbsr L1b46
ldd D0014,y
bne L072c
leax D00aa,y
tfr x,d
lbsr L1b49
L072c clrb
clra
lbsr L1b2b
leas 36,s
rts
L0735 leax L1810,pcr
pshs x
ldd D000e
lbsr L1b28
leas 2,s
leax L18e2,pcr
pshs x
ldd D000e
lbsr L1b28
leas 2,s
rts
L0750 pshs d
ldx ,s
ldb 2,x
clra
pshs d
ldx 2,s
ldb 1,x
clra
tfr b,a
clrb
addd ,s++
pshs d
ldb [2,s]
clra
pshs d
leax L1916,pcr
pshs x
ldd 10,s
lbsr L1b4c
leas 6,s
leas 2,s
rts
L077b pshs d
ldd #$0100
pshs d
ldd 2,s
pshs d
ldd ,y
lbsr L1b43
leas 4,s
cmpd #$0100
beq L07a5
leax L1920,pcr
pshs x
ldd D000e
lbsr L1b28
leas 2,s
ldd D0002
lbsr L1b2b
L07a5 ldd #$0100
leas 2,s
rts
L07ab pshs d
leas -42,s
ldd D0018,y
cmpd #$0027
blt L07d0
ldd #$0027
pshs d
leax L193a,pcr
pshs x
ldd D000e
lbsr L1b28
leas 4,s
clrb
clra
lbsr L1b2b
L07d0 ldd D0018,y
addd #1
std D0018,y
subd #1
ldd D000e,y
lbeq L081b
ldd #1
std ,s
L07e7 ldd D0018,y
subd #1
pshs d
ldd 2,s
cmpd ,s++
bge L080b
leax L1964,pcr
tfr x,d
lbsr L1b37
ldd ,s
addd #1
std ,s
subd #1
bra L07e7
L080b ldd 42,s
pshs d
leax L1967,pcr
tfr x,d
lbsr L1b37
leas 2,s
L081b ldd D002e,y
bne L082c
ldd D0024,y
addd #1
std D0024,y
subd #1
L082c ldd 42,s
lbsr L1b3a
cmpd #-1
bne L084f
ldd 42,s
pshs d
leax L196a,pcr
pshs x
ldd D000e
lbsr L1b28
leas 4,s
ldd D0002
lbsr L1b2b
L084f lbsr L1493
std 4,s
ldd D0034,y
subd #1
std D0034,y
addd #1
ldd #1
pshs d
ldd #$0040
pshs d
clrb
clra
pshs d
ldd 10,s
lbsr L1b34
leas 6,s
L0875 ldd #$0020
pshs d
leax D00e6,y
pshs x
ldd 8,s
lbsr L1b43
leas 4,s
std ,s
cmpd #-1
lbeq L09ba
ldb D00e6,y
beq L0875
ldd D0022,y
addd #1
std D0022,y
subd #1
leax D00e6,y
pshs x
leax D0156,y
tfr x,d
lbsr L0bd0
leas 2,s
ldd D0016,y
lbne L090e
ldd D002e,y
cmpd #1
bne L08e7
ldd D0006,y
pshs d
leax D00e6,y
tfr x,d
addd #$001d
pshs d
ldd #1
pshs d
ldd D0004,y
pshs d
ldd D0278,y
lbsr L0bff
leas 8,s
bra L090e
L08e7 ldd D0006,y
pshs d
leax D00e6,y
tfr x,d
addd #$001d
pshs d
clrb
clra
pshs d
ldd D0002,y
pshs d
ldd D0276,y
lbsr L0bff
leas 8,s
addd #0
lbne L0875
L090e clrb
clra
pshs d
clrb
clra
pshs d
leax D00e6,y
tfr x,d
addd #$001d
pshs d
ldd ,y
lbsr L1b40
leas 6,s
leax D0176,y
tfr x,d
lbsr L077b
leax D0176,y
tfr x,d
lbsr L09fa
addd #0
lbeq L0875
leax D00e6,y
pshs x
leax 8,s
tfr x,d
lbsr L0bd0
leas 2,s
ldd D0018,y
lslb
rola
leax D0106,y
pshs x
addd ,s++
pshs d
leax 8,s
stx [,s++]
ldd D0034,y
lbne L09b0
leax 40,s
pshs x
leax 40,s
pshs x
ldd 8,s
lbsr L1b4f
leas 4,s
ldd 4,s
lbsr L1b46
ldd D0034,y
addd #1
std D0034,y
subd #1
leax 6,s
tfr x,d
lbsr L07ab
lbsr L1493
std 4,s
clrb
clra
pshs d
ldd 42,s
pshs d
ldd 42,s
pshs d
ldd 10,s
lbsr L1b34
leas 6,s
lbra L0875
L09b0 leax 6,s
tfr x,d
lbsr L07ab
lbra L0875
L09ba ldd 4,s
lbsr L1b46
cmpd #-1
bne L09ca
ldd D0002
lbsr L1b2b
L09ca ldd D0034,y
addd #1
std D0034,y
subd #1
leax L1988,pcr
tfr x,d
lbsr L1b3a
cmpd #-1
bne L09ea
ldd D0002
lbsr L1b2b
L09ea ldd D0018,y
subd #1
std D0018,y
addd #1
leas 44,s
rts
L09fa pshs d
leas -7,s
clrb
clra
std 2,s
ldd #$0010
std ,s
L0a07 ldd ,s
addd #2
ldx 7,s
ldb d,x
tstb
lbne L0a2d
ldd ,s
addd #1
ldx 7,s
ldb d,x
tstb
lbne L0a2d
ldd ,s
ldx 7,s
ldb d,x
lbeq L0ad9
L0a2d ldd ,s
cmpd #$0100
lbge L0ad9
ldd ,s
addd #4
ldx 7,s
ldb d,x
clra
pshs d
ldd 2,s
addd #3
ldx 9,s
ldb d,x
clra
tfr b,a
clrb
addd ,s++
pshs d
leax 6,s
pshs x
ldd 11,s
addd 4,s
lbsr L1b52
leas 4,s
leax D004a,y
pshs x
ldd 9,s
addd 2,s
lbsr L1b55
leas 2,s
cmpd #0
lbgt L0a8d
leax D004a,y
pshs x
leax 6,s
tfr x,d
lbsr L1b55
leas 2,s
cmpd #0
lble L0acf
L0a8d ldd D002e,y
lbne L0ac8
leax D0036,y
pshs x
ldd 9,s
addd 2,s
lbsr L0750
leas 2,s
leax D0040,y
pshs x
leax 6,s
tfr x,d
lbsr L0750
leas 2,s
leax D0040,y
pshs x
leax D0036,y
pshs x
leax L198b,pcr
tfr x,d
lbsr L1b37
leas 4,s
lbsr L141d
L0ac8 ldd #-1
std 2,s
bra L0ad9
L0acf ldd ,s
addd #5
std ,s
lbra L0a07
L0ad9 ldd 2,s
beq L0af3
ldd D002e,y
bne L0aee
ldd D002c,y
addd #1
std D002c,y
subd #1
L0aee clrb
clra
leas 9,s
rts
L0af3 ldd D0016,y
lbne L0bb8
ldd #$0010
std ,s
L0aff ldd ,s
addd #2
ldx 7,s
ldb d,x
tstb
lbne L0b25
ldd ,s
addd #1
ldx 7,s
ldb d,x
tstb
lbne L0b25
ldd ,s
ldx 7,s
ldb d,x
lbeq L0bb8
L0b25 ldd ,s
cmpd #$0100
lbge L0bb8
ldd D002e,y
lbne L0b79
ldd ,s
addd #4
ldx 7,s
ldb d,x
clra
pshs d
ldd 2,s
addd #3
ldx 9,s
ldb d,x
clra
tfr b,a
clrb
addd ,s++
pshs d
ldd 9,s
addd 2,s
pshs d
clrb
clra
pshs d
ldd D0002,y
pshs d
ldd D0276,y
lbsr L0bff
leas 8,s
addd #0
lbeq L0bae
ldd #-1
std 2,s
lbra L0bae
L0b79 ldd ,s
addd #4
ldx 7,s
ldb d,x
clra
pshs d
ldd 2,s
addd #3
ldx 9,s
ldb d,x
clra
tfr b,a
clrb
addd ,s++
pshs d
ldd 9,s
addd 2,s
pshs d
ldd #1
pshs d
ldd D0004,y
pshs d
ldd D0278,y
lbsr L0bff
leas 8,s
L0bae ldd ,s
addd #5
std ,s
lbra L0aff
L0bb8 ldd 2,s
beq L0bc1
clrb
clra
leas 9,s
rts
L0bc1 ldb [7,s]
andb #$80
subb #0
beq L0bcc
ldb #1
L0bcc clra
leas 9,s
rts
L0bd0 pshs d
L0bd2 ldd ,s
addd #1
std ,s
subd #1
pshs d
ldx 6,s
ldb ,x+
stx 6,s
stb [,s++]
cmpb #$80
bcs L0bd2
clr [,s]
ldd ,s
subd #1
std ,s
addd #1
ldb [,s]
andb #$7f
stb [,s]
leas 2,s
rts
L0bff pshs d
leas -28,s
ldd 38,s
anda D0008,y
andb D0009,y
addd #0
beq L0c2a
ldd D0008,y
pshs d
leax 12,s
pshs x
ldd 40,s
lbsr L1b52
leas 4,s
ldd 38,s
subd D0008,y
std 38,s
bra L0c3a
L0c2a clrb
clra
pshs d
leax 12,s
pshs x
ldd 40,s
lbsr L1b52
leas 4,s
L0c3a leax ,s
pshs x
leax 12,s
tfr x,d
lbsr L0750
leas 2,s
leax 17,s
pshs x
leax 17,s
pshs x
leax 17,s
pshs x
ldd D0006,y
pshs d
leax 46,s
pshs x
leax 20,s
tfr x,d
lbsr L1b58
leas 10,s
ldd D000e,y
lbeq L0caa
leax ,s
pshs x
leax 12,s
tfr x,d
lbsr L0750
leas 2,s
ldd 38,s
pshs d
leax 2,s
pshs x
leax L19b1,pcr
tfr x,d
lbsr L1b37
leas 4,s
ldd 17,s
pshs d
ldd 17,s
pshs d
ldd 17,s
pshs d
leax L19d3,pcr
tfr x,d
lbsr L1b37
leas 6,s
L0caa ldd 15,s
pshs d
ldd 15,s
pshs d
ldd 38,s
pshs d
ldd 38,s
pshs d
ldd 36,s
lbsr L12f2
leas 8,s
addd #0
beq L0cd0
ldd #-1
leas 30,s
rts
L0cd0 ldd #$0080
ldx 17,s
beq L0cde
L0cd8 asra
rorb
leax -1,x
bne L0cd8
L0cde stb 27,s
ldb 27,s
cmpb #$80
lbeq L0d9f
L0cea ldb 27,s
lbeq L0d7d
ldd 38,s
lbeq L0d7d
ldd 34,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,x
ldb [,x]
andb 27,s
tstb
beq L0d36
ldd #$0031
pshs d
ldd 36,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,x
ldb [,x]
andb 29,s
clra
pshs d
ldd 19,s
pshs d
ldd 19,s
lbsr L0f27
leas 6,s
L0d36 ldd D002e,y
bne L0d60
ldd 34,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
pshs d
ldd 36,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,x
ldb [,x]
orb 29,s
ldx [,s++]
stb ,x
L0d60 ldb 27,s
lda #1
beq L0d6b
L0d67 lsrb
deca
bne L0d67
L0d6b stb 27,s
ldd 38,s
subd #1
std 38,s
addd #1
lbra L0cea
L0d7d ldd 15,s
addd #1
std 15,s
subd #1
ldd 34,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,u
ldd ,u
addd #1
std ,u
subd #1
L0d9f ldd 38,s
cmpd #8
lblo L0e61
ldd 15,s
cmpd #$00ff
lble L0de3
clrb
clra
std 15,s
ldd 15,s
pshs d
ldd 15,s
addd #1
std 15,s
pshs d
ldd 38,s
pshs d
ldd 38,s
pshs d
ldd 36,s
lbsr L12f2
leas 8,s
addd #0
beq L0de3
ldd #-1
leas 30,s
rts
L0de3 ldd 34,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,x
ldb [,x]
beq L0e1a
ldd #$0031
pshs d
ldd 36,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,x
ldb [,x]
clra
pshs d
ldd 19,s
pshs d
ldd 19,s
lbsr L0f27
leas 6,s
L0e1a ldd D002e,y
bne L0e33
ldd 34,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
pshs d
ldb #255
ldx [,s++]
stb ,x
L0e33 ldd 34,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,u
ldd ,u
addd #1
std ,u
subd #1
ldd 15,s
addd #1
std 15,s
subd #1
ldd 38,s
subd #8
std 38,s
lbra L0d9f
L0e61 ldd 38,s
lbeq L0f21
ldd #8
subd 38,s
pshs d
ldd #$00ff
ldx ,s++
beq L0e7d
L0e77 lslb
rola
leax -1,x
bne L0e77
L0e7d stb 27,s
ldd 15,s
cmpd #$00ff
lble L0eb9
clrb
clra
std 15,s
ldd 15,s
pshs d
ldd 15,s
addd #1
std 15,s
pshs d
ldd 38,s
pshs d
ldd 38,s
pshs d
ldd 36,s
lbsr L12f2
leas 8,s
addd #0
beq L0eb9
ldd #-1
leas 30,s
rts
L0eb9 ldd 34,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,x
ldb [,x]
andb 27,s
tstb
beq L0ef7
ldd #$0031
pshs d
ldd 36,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,x
ldb [,x]
andb 29,s
clra
pshs d
ldd 19,s
pshs d
ldd 19,s
lbsr L0f27
leas 6,s
L0ef7 ldd D002e,y
bne L0f21
ldd 34,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
pshs d
ldd 36,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
tfr d,x
ldb [,x]
orb 29,s
ldx [,s++]
stb ,x
L0f21 clrb
clra
leas 30,s
rts
L0f27 pshs d
leas -8,s
ldd 14,s
stb 4,s
clrb
clra
std ,s
L0f33 ldb 4,s
lbeq L1040
ldb 4,s
andb #$80
tstb
lbeq L1027
ldd ,s
pshs d
ldd 14,s
pshs d
ldd 12,s
pshs d
ldd D0006,y
pshs d
leax 13,s
tfr x,d
lbsr L1b5b
leas 8,s
leax D0036,y
pshs x
leax 7,s
tfr x,d
lbsr L0750
leas 2,s
ldd D002e,y
lbne L0fee
ldd 16,s
cmpd #$0031
bne L0f98
leax D0036,y
pshs x
leax L19f7,pcr
tfr x,d
lbsr L1b37
leas 2,s
ldd D002a,y
addd #1
std D002a,y
subd #1
lbra L0ffe
L0f98 ldd 16,s
cmpd #$0032
bne L0fc0
leax D0036,y
pshs x
leax L1a1c,pcr
tfr x,d
lbsr L1b37
leas 2,s
ldd D0026,y
addd #1
std D0026,y
subd #1
lbra L0ffe
L0fc0 ldd 16,s
cmpd #$0033
lbne L0ffe
ldd D0012,y
beq L0fe0
leax D0036,y
pshs x
leax L1a54,pcr
tfr x,d
lbsr L1b37
leas 2,s
L0fe0 ldd D0028,y
addd #1
std D0028,y
subd #1
bra L0ffe
L0fee leax D0036,y
pshs x
leax L1a8c,pcr
tfr x,d
lbsr L1b37
leas 2,s
L0ffe ldd D0010,y
beq L1027
ldd D002e,y
bne L1024
ldd D0006,y
pshs d
leax 7,s
pshs x
ldd #1
pshs d
ldd D0004,y
pshs d
ldd D0278,y
lbsr L0bff
leas 8,s
bra L1027
L1024 lbsr L141d
L1027 ldd ,s
addd #1
std ,s
subd #1
ldb 4,s
lda #1
beq L103b
L1037 lslb
deca
bne L1037
L103b stb 4,s
lbra L0f33
L1040 leas 10,s
rts
L1043 leas -10,s
clrb
clra
pshs d
ldd #$0100
pshs d
clrb
clra
pshs d
ldd ,y
lbsr L1b34
leas 6,s
clrb
clra
pshs d
clrb
clra
pshs d
clrb
clra
pshs d
ldd D0002,y
pshs d
ldd D0276,y
lbsr L12f2
leas 8,s
leax D0176,y
tfr x,d
lbsr L077b
clrb
clra
std 4,s
std 6,s
clrb
clra
std ,s
L1085 ldd ,s
cmpd D000a,y
lbhs L1196
leax D0176,y
tfr x,d
addd 6,s
pshs d
ldb [D001e,y]
eorb [,s++]
stb 8,s
tstb
lbeq L1135
ldd ,s
addd #1
cmpd D000a,y
bne L10d2
ldd D000c,y
anda #0
andb #7
pshs d
ldd #8
subd ,s++
pshs d
ldd #$00ff
ldx ,s++
beq L10ca
L10c4 lslb
rola
leax -1,x
bne L10c4
L10ca pshs b
ldb 9,s
andb ,s+
stb 8,s
L10d2 leax D0176,y
tfr x,d
addd 6,s
pshs d
ldb 10,s
andb [,s++]
stb 9,s
tstb
beq L1108
ldd #$0033
pshs d
ldb 11,s
clra
pshs d
ldd 8,s
pshs d
ldd #$0100
lbsr L1b6a
pshs d
ldd 10,s
tfr a,b
sex
addd D001a,y
lbsr L0f27
leas 6,s
L1108 ldb 8,s
andb [D001e,y]
stb 9,s
tstb
beq L1135
ldd #$0032
pshs d
ldb 11,s
clra
pshs d
ldd 8,s
pshs d
ldd #$0100
lbsr L1b6a
pshs d
ldd 10,s
tfr a,b
sex
addd D001a,y
lbsr L0f27
leas 6,s
L1135 ldd D001e,y
addd #1
std D001e,y
subd #1
ldd 4,s
addd #1
std 4,s
cmpd #4096
blt L116f
clrb
clra
std 4,s
ldd 4,s
pshs d
ldd D001a,y
addd #$0010
pshs d
clrb
clra
pshs d
ldd D0002,y
pshs d
ldd D0276,y
lbsr L12f2
leas 8,s
L116f ldd 6,s
addd #1
std 6,s
cmpd #$0100
blt L1189
clrb
clra
std 6,s
leax D0176,y
tfr x,d
lbsr L077b
L1189 ldd ,s
addd #1
std ,s
subd #1
lbra L1085
L1196 leas 10,s
rts
L1199 pshs d
leas -24,s
ldd 32,s
pshs d
lbsr L1b5e
pshs d
leax L1aa1,pcr
pshs x
leax 10,s
tfr x,d
lbsr L1b4c
leas 6,s
leax 4,s
pshs x
ldd 30,s
lbsr L1462
leas 2,s
ldb [28,s]
cmpb #$2f
bne L11e0
ldd #3
pshs d
ldd 30,s
lbsr L1b61
leas 2,s
std [30,s]
cmpd #-1
bne L11f7
L11e0 ldd 28,s
pshs d
leax L1aaf,pcr
pshs x
ldd D000e
lbsr L1b28
leas 4,s
ldd D0002
lbsr L1b2b
L11f7 clrb
clra
std ,s
L11fb ldd ,s
cmpd #4096
bge L1216
ldd ,s
addd #1
std ,s
subd #1
addd 24,s
tfr d,x
clr ,x
bra L11fb
L1216 ldd D000a,y
tfr a,b
clra
lsra
rorb
lsra
rorb
lsra
rorb
lsra
rorb
std 2,s
ldd D000a,y
pshs d
ldd #4096
lbsr L1b6d
addd #0
beq L123e
ldd 2,s
addd #1
std 2,s
subd #1
L123e clrb
clra
pshs d
ldd 4,s
tfr b,a
clrb
lslb
rola
lslb
rola
lslb
rola
lslb
rola
subd #1
pshs d
clrb
clra
pshs d
ldd [36,s]
lbsr L1b34
leas 6,s
ldd #1
pshs d
ldd 26,s
pshs d
ldd [34,s]
lbsr L1b64
leas 4,s
cmpd #-1
bne L127d
ldd D0002
lbsr L1b2b
L127d clrb
clra
pshs d
clrb
clra
pshs d
clrb
clra
pshs d
ldd [36,s]
lbsr L1b34
leas 6,s
ldd #1
std ,s
L1296 ldd ,s
cmpd 2,s
lbgt L12c9
ldd #4096
pshs d
ldd 26,s
pshs d
ldd [34,s]
lbsr L1b64
leas 4,s
cmpd #-1
bne L12bc
ldd D0002
lbsr L1b2b
L12bc ldd ,s
addd #1
std ,s
subd #1
lbra L1296
L12c9 ldd 32,s
lslb
rola
leax D001a,y
pshs x
addd ,s++
pshs d
clrb
clra
std [,s++]
ldd 32,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
pshs d
ldd 26,s
std [,s++]
leas 26,s
rts
L12f2 pshs d
ldd 8,s
cmpd D0030,y
blt L131b
ldd 10,s
cmpd D0032,y
blt L131b
ldd D002e,y
bne L1315
leax L1ad2,pcr
tfr x,d
lbsr L1b37
lbsr L141d
L1315 ldd #-1
leas 2,s
rts
L131b ldd 6,s
lslb
rola
leax D001a,y
pshs x
addd ,s++
pshs d
ldd 10,s
cmpd [,s++]
lblt L1351
ldd 6,s
lslb
rola
leax D001a,y
pshs x
addd ,s++
tfr d,x
ldd ,x
addd #$0010
subd #1
pshs d
ldd 10,s
cmpd ,s++
lble L13f8
L1351 clrb
clra
pshs d
ldd 8,s
lslb
rola
leax D001a,y
pshs x
addd ,s++
tfr d,x
ldd ,x
tfr b,a
clrb
pshs d
clrb
clra
pshs d
ldd 10,s
lbsr L1b34
leas 6,s
ldd #4096
pshs d
ldd 2,s
pshs d
ldd 8,s
lbsr L1b64
leas 4,s
cmpd #-1
bne L138f
ldd D0002
lbsr L1b2b
L138f ldd 6,s
lslb
rola
leax D001a,y
pshs x
addd ,s++
pshs d
ldd 10,s
asra
rorb
asra
rorb
asra
rorb
asra
rorb
lslb
rola
lslb
rola
lslb
rola
lslb
rola
std [,s++]
ldd 8,s
cmpd #-1
lbeq L13f8
clrb
clra
pshs d
ldd 8,s
lslb
rola
leax D001a,y
pshs x
addd ,s++
tfr d,x
ldd ,x
tfr b,a
clrb
pshs d
clrb
clra
pshs d
ldd 10,s
lbsr L1b34
leas 6,s
ldd #4096
pshs d
ldd 2,s
pshs d
ldd 8,s
lbsr L1b43
leas 4,s
cmpd #-1
bne L13f8
ldd D0002
lbsr L1b2b
L13f8 ldd 6,s
lslb
rola
leax D001e,y
pshs x
addd ,s++
pshs d
ldd 10,s
pshs d
ldd #$0010
lbsr L1b6a
tfr b,a
clrb
addd 2,s
addd 12,s
std [,s++]
clrb
clra
leas 2,s
rts
L141d leas -2,s
clrb
clra
std ,s
L1423 ldd ,s
cmpd D0018,y
bge L144e
ldd ,s
lslb
rola
leax D0106,y
ldd d,x
pshs d
leax L1af5,pcr
tfr x,d
lbsr L1b37
leas 2,s
ldd ,s
addd #1
std ,s
subd #1
bra L1423
L144e leax D0156,y
pshs x
leax L1af9,pcr
tfr x,d
lbsr L1b37
leas 2,s
leas 2,s
rts
L1462 pshs d
leas -4,s
L1466 ldx 4,s
ldb ,x+
stx 4,s
tstb
bne L1466
ldd 4,s
subd #1
std 4,s
L1476 ldd 4,s
addd #1
std 4,s
subd #1
pshs d
ldb [10,s]
stb [,s++]
ldx 8,s
ldb ,x+
stx 8,s
tstb
bne L1476
leas 6,s
rts
L1493 leas -2,s
ldd #$0081
pshs d
leax L1afd,pcr
tfr x,d
lbsr L1b31
leas 2,s
std ,s
cmpd #-1
bne L14bf
leax L1aff,pcr
pshs x
ldd D000e
lbsr L1b28
leas 2,s
ldd D0002
lbsr L1b2b
L14bf ldd ,s
leas 2,s
rts
L14c4 ble L150a
fcb $30
neg D002f
L14c8 equ *-1
lsra
fcb $30
neg D0064
L14cc equ *-1
com 8,s
fcb $65
com 11,s
abx
bra L1502
asr 15648
fcb $72
fcb $65
fcb $71
fcb $75
rol -14,s
fcb $65
com $2070
fcb $61
lsr $686c
rol -13,s
lsr $2061
fcb $72
asr -11,s
tst 5,s
jmp -12,s
dec D0000
L14f4 lsr 3,s
asl 5,s
com 11,s
abx
bra L1566
inc 12,s
fcb $65
asr 1,s
L1502 fcb $6c
bra L1574
neg 29801
clr 14,s
L150a bra L1533
bcs L1571
beq L151a
neg D0064
L1511 equ *-1
com 8,s
fcb $65
com 11,s
abx
bra L1588
L151a fcb $6f
bra L1581
fcb $65
ror $6963
fcb $65
bra L1597
neg $6563
rol 6,s
rol 5,s
lsr 10,x
neg D0064
L152e equ *-1
com 8,s
fcb $65
com 11,s
L1533 equ *-1
abx
bra L159a
fcb $61
jmp 14,s
clr -12,s
bra L15ad
neg $656e
bra L1568
com $0a00
L1546 rorb
clr 12,s
fcb $75
tst 5,s
bra L157b
bra L1577
bcs L15c5
beq L1574
clr 14,s
bra L15bc
fcb $65
ror $6963
fcb $65
bra L1584
com $0a00
L1562 bcc L1589
leax Dfff4,y
L1566 asl $2062
L1568 equ *-1
rol 29797
com $2069
fcb $6e
bra L15d3
L1571 equ *-1
inc 12,s
L1574 clr 3,s
fcb $61
L1577 lsr $696f
fcb $6e
L157b bra L15ea
fcb $61
neg $0a00
L1581 fcb $31
bra L15f7
L1584 fcb $65
com -12,s
clr -14,s
L1588 equ *-1
L1589 bra L15fb
fcb $65
fcb $72
bra L15f2
inc -11,s
com 29797
fcb $72
dec D0000
L1597 bcs L15fd
bra L160e
L159a equ *-1
fcb $65
com -12,s
clr -14,s
com $2070
fcb $65
fcb $72
bra L160a
inc -11,s
com 29797
fcb $72
L15ad dec D0000
L15af bcs L1624
bra L1627
clr -12,s
fcb $61
fcb $6c
bra L162c
fcb $65
com -12,s
L15bc clr -14,s
com $206f
fcb $6e
bra L1631
fcb $65
L15c5 lsr 9,s
fcb $61
dec D0000
L15ca comb
fcb $65
com -12,s
clr -14,s
bra L15f7
com $2069
L15d3 equ *-2
com $2073
lsr $6172
lsr $206f
fcb $66
bra L1653
clr 15,s
lsr $2064
rol -14,s
fcb $65
com -12,s
L15ea equ *-1
clr -14,s
rol $2046
lsra
dec D0000
L15f2 equ *-1
L15f3 lsr 3,s
asl 5,s
L15f7 com 11,s
abx
bra L165f
L15fb equ *-1
fcb $61
L15fd jmp 14,s
clr -12,s
bra L1666
asl 4,s
bra L167b
fcb $6f
bra L167c
L160a clr 15,s
lsr $2064
L160e equ *-1
rol -14,s
fcb $65
com -12,s
clr -14,s
rol >$004e
L1618 equ *-1
fcb $6f
bra L1689
fcb $65
tst 15,s
fcb $72
rol $2061
ror $6169
L1624 equ *-2
inc 1,s
L1627 equ *-1
fcb $62
inc 5,s
bra L1693
L162c equ *-1
clr -14,s
bra L1693
L1631 rol -12,s
tst 1,s
neg $2062
fcb $75
ror 6,s
fcb $65
fcb $72
bra L1667
bcs L16a5
fcb $4b
bra L16b6
fcb $65
fcb $71
bgt L1671
dec D0000
L164a bcc L1671
leax Dfff4,y
asl $2073
fcb $65
com -12,s
L1653 equ *-1
clr -14,s
com $2075
com $6564
bra L16c4
clr -14,s
L165f equ *-1
bra L16cb
lsr D000c,y
bra L16c7
L1666 inc 12,s
L1667 equ *-1
clr 3,s
fcb $61
lsr $696f
fcb $6e
bra L16de
L1671 fcb $61
neg $2061
jmp 4,s
bra L16eb
clr 15,s
L167b lsr $2064
L167c equ *-2
rol -14,s
fcb $65
com -12,s
clr -14,s
rol $0a00
L1688 fcb $42
L1689 fcb $75
rol 12,s
lsr 9,s
jmp 7,s
bra L16f3
inc 12,s
L1693 equ *-1
clr 3,s
fcb $61
lsr $696f
fcb $6e
bra L170a
fcb $61
neg $2077
clr -14,s
fcb $6b
bra L170c
L16a5 equ *-1
rol 12,s
fcb $65
bgt L16d9
bgt L16b7
neg D0043
L16ae equ *-1
asl 5,s
com 11,s
rol 14,s
fcb $67
L16b6 bra L1719
L16b7 equ *-1
inc 12,s
clr 3,s
fcb $61
lsr $696f
fcb $6e
bra L1730
fcb $61
L16c4 neg $2066
L16c7 rol 12,s
fcb $65
bgt L16fa
L16cb equ *-1
bgt L16d8
neg D000a
L16cf equ *-1
negb
fcb $61
lsr $686c
rol -13,s
lsr 29472
L16d8 equ *-2
L16d9 equ *-1
ror 15,s
fcb $72
bra L1750
L16de equ *-1
fcb $75
fcb $65
com 29801
clr 14,s
fcb $61
fcb $62
inc 5,s
bra L174f
L16eb equ *-1
inc -11,s
com 29797
fcb $72
com 14858
L16f3 equ *-2
neg D000a
L16f6 equ *-1
neg D0025
L16f8 equ *-1
fcb $64
L16fa bra L176c
fcb $72
fcb $65
ror $696f
fcb $75
com $6c79
bra L1768
inc 12,s
clr 3,s
L170a equ *-1
fcb $61
L170c lsr $6564
bra L1774
inc -11,s
com 29797
fcb $72
com $2066
L1719 equ *-1
clr -11,s
jmp 4,s
neg D0073
L171f equ *-1
neg D000a
L1721 equ *-1
neg D0025
L1723 equ *-1
fcb $64
bra L178a
inc -11,s
com 29797
fcb $72
neg D0073
L172e equ *-1
neg D0020
L1730 equ *-1
rol 14,s
bra L179b
rol 12,s
fcb $65
bra L17ad
lsr 29301
com -12,s
fcb $75
fcb $72
fcb $65
bra L17a6
fcb $75
lsr $206e
clr -12,s
bra L17b5
fcb $6e
bra L17b0
L174f inc 12,s
L1750 equ *-1
clr 3,s
fcb $61
lsr $696f
fcb $6e
bra L17c7
fcb $61
neg $0a00
L175e bcs L17c4
bra L17c5
inc -11,s
com 29797
fcb $72
L1768 neg D0073
L1769 equ *-1
neg D0020
L176b equ *-1
L176c rol 14,s
bra L17d1
inc 12,s
clr 3,s
L1774 fcb $61
lsr $696f
fcb $6e
bra L17e8
fcb $61
neg $2062
fcb $75
lsr $206e
clr -12,s
bra L17f0
fcb $6e
bra L17f0
L178a rol 12,s
fcb $65
bra L1802
lsr 29301
com -12,s
fcb $75
fcb $72
fcb $65
dec D0000
L1799 bcs L17ff
L179b bra L17ff
fcb $61
fcb $64
bra L1807
rol 12,s
fcb $65
bra L180a
L17a6 fcb $65
com $6372
rol -16,s
lsr $6f72
L17ad equ *-2
bra L1824
L17b0 equ *-1
fcb $65
com -12,s
clr -14,s
L17b5 equ *-1
neg D0073
L17b7 equ *-1
neg D000a
L17b9 equ *-1
neg D000a
L17bb equ *-1
beq L17e3
com $2720
ror 9,s
inc 5,s
L17c4 equ *-1
L17c5 bra L183a
L17c7 lsr 29301
com -12,s
fcb $75
fcb $72
fcb $65
bra L183a
L17d1 com $2000
L17d4 jmp 15,s
lsr $2000
L17d9 rol 14,s
lsr $6163
lsr $0a00
L17e1 fcb $31
bra L1848
L17e3 equ *-1
rol -14,s
fcb $65
com -12,s
L17e8 equ *-1
clr -14,s
rol $0a00
L17ee bcs L1854
L17f0 bra L1856
rol -14,s
fcb $65
com -12,s
clr -14,s
rol 5,s
com $0a00
L17fe fcb $31
L17ff bra L1867
rol 12,s
L1802 equ *-1
fcb $65
dec D0000
L1806 bcs L186c
L1807 equ *-1
bra L1870
L180a rol 12,s
fcb $65
com $0a00
L1810 fcb $55
com $6167
fcb $65
abx
bra L187c
com 8,s
fcb $65
com 11,s
bra L187a
blt L1890
neg 29811
L1824 tstb
bra L188b
fcb $65
ror $6963
fcb $65
clrb
jmp 1,s
tst 5,s
bra L183d
bra L1855
blt L18ae
bra L1876
bra L18ab
L183a equ *-1
fcb $61
lsr $686c
L183d equ *-2
rol -13,s
lsr $2074
fcb $6f
bra L18ab
rol -14,s
L1848 equ *-1
fcb $65
com -12,s
clr -14,s
rol $2066
clr -14,s
bra L18cc
L1854 equ *-1
L1855 clr -14,s
L1856 equ *-1
fcb $6b
bra L18c0
rol 12,s
fcb $65
com $0a20
bra L188f
neg $203d
bra L18d7
L1867 fcb $72
rol 14,s
lsr $2070
L186c equ *-1
fcb $61
lsr $686c
L1870 equ *-1
rol -13,s
lsr 29472
L1876 ror 15,s
fcb $72
bra L18ec
L187a equ *-1
fcb $75
L187c fcb $65
com 29801
clr 14,s
fcb $61
fcb $62
inc 5,s
bra L18eb
inc -11,s
com 29797
L188b equ *-2
fcb $72
com $0a20
L188f equ *-2
L1890 equ *-1
bra L18c0
fcb $6d
bra L18d3
bra L190b
fcb $61
ror $6520
fcb $61
inc 12,s
clr 3,s
fcb $61
lsr $696f
fcb $6e
bra L1915
fcb $61
neg $2077
L18ab equ *-1
clr -14,s
L18ae fcb $6b
bra L1917
rol 12,s
fcb $65
com $0a20
bra L18e6
fcb $62
bra L18f9
bra L1931
fcb $75
neg 28786
L18c0 equ *-2
fcb $65
com 29472
inc 9,s
com 29801
jmp 7,s
L18cc equ *-1
bra L193e
fcb $66
bra L1947
jmp -11,s
L18d3 equ *-1
com $6564
L18d7 bra L193c
inc -11,s
com 29797
fcb $72
com $0a00
L18e2 bra L1904
blt L1959
L18e6 bra L1925
bra L194e
rol -13,s
L18eb equ *-1
L18ec neg $6c61
rol $2063
clr -11,s
jmp -12,s
bra L1967
fcb $66
L18f9 bra L1961
rol 12,s
fcb $65
com $2061
jmp 4,s
bra L1969
L1904 equ *-1
rol -14,s
fcb $65
com -12,s
clr -14,s
L190b equ *-1
rol 5,s
com $206f
jmp 12,s
rol $0a00
L1915 equ *-1
L1916 bcc L193d
L1917 equ *-1
leax Dfff2,y
asl $2530
pshs dp,x,y,u
neg D0064
L1920 equ *-1
com 8,s
fcb $65
com 11,s
L1925 equ *-1
abx
bra L198f
fcb $61
lsr $616c
bra L19a1
fcb $65
fcb $61
L1931 fcb $64
bra L1999
fcb $72
fcb $72
clr -14,s
dec D0000
L193a lsr 3,s
L193c asl 5,s
L193d equ *-1
L193e com 11,s
abx
bra L19a7
rol -14,s
fcb $65
com -12,s
L1947 equ *-1
clr -14,s
rol 5,s
com $206e
L194e equ *-1
fcb $65
com 29797
fcb $64
bra L19ca
clr 15,s
bra L19be
L1959 equ *-1
fcb $65
fcb $65
neg $2028
bcs L19c5
L1961 bvs L196d
neg D0020
L1964 equ *-1
bra L1967
L1967 bcs L19dc
L1969 neg D0064
L196a equ *-1
com 8,s
L196d fcb $65
com 11,s
abx
bra L19d6
fcb $61
jmp 14,s
clr -12,s
bra L19dd
asl 7,s
lsr 9,s
fcb $72
bra L19f5
fcb $6f
bra L19ab
bcs L19f9
beq L1988
L1988 bgt L19b8
neg D002a
L198b equ *-1
bpl L19b8
bra L19d2
L198f equ *-1
fcb $61
fcb $64
bra L19da
lsra
bra L1a0a
fcb $65
asr 13,s
L1999 equ *-1
fcb $65
jmp -12,s
bra L19c7
bcs L1a14
L19a1 blt L19c8
com $2920
ror 15,s
L19a7 equ *-1
fcb $72
bra L1a11
L19ab rol 12,s
fcb $65
abx
bra L19b1
L19b1 blt L19e0
fcb $3e
bra L1a29
fcb $65
lsr $6269
L19b8 equ *-2
lsr 29498
bra L1a12
L19be equ *-1
lsr $6172
lsr 15653
L19c5 com $2043
L19c7 equ *-1
L19c8 clr -11,s
L19ca jmp -12,s
mul
bcc L19f4
leax Dfff4,y
asl >$0020
L19d2 equ *-2
L19d3 equ *-1
comb
fcb $65
L19d6 com -12,s
clr -14,s
L19da mul
bcs L1a0d
L19dc equ *-1
L19dd leas -8,s
bra L1a23
L19e0 equ *-1
rol 29797
mul
bcs L1a17
leas -8,s
bra L1a2d
rol -12,s
mul
bcs L1a21
asl $203c
blt L1a22
L19f4 equ *-1
L19f5 dec D0000
L19f7 coma
inc -11,s
L19f9 equ *-1
com 29797
fcb $72
bra L1a25
com $2077
fcb $61
com $2070
fcb $72
fcb $65
ror $696f
L1a0a equ *-2
fcb $75
L1a0d com $6c79
bra L1a73
L1a11 equ *-1
L1a12 inc 12,s
L1a14 clr 3,s
fcb $61
L1a17 lsr $6564
dec D0000
L1a1c coma
inc -11,s
com 29797
L1a21 equ *-1
L1a22 fcb $72
L1a23 bra L1a4a
L1a25 com $2069
fcb $6e
L1a29 bra L1a91
rol 12,s
L1a2d fcb $65
bra L1aa3
lsr 29301
com -12,s
fcb $75
fcb $72
fcb $65
bra L1a9c
fcb $75
lsr $206e
clr -12,s
bra L1aab
fcb $6e
bra L1aa6
inc 12,s
clr 3,s
fcb $61
L1a4a lsr $696f
fcb $6e
bra L1abd
fcb $61
neg $0a00
L1a54 coma
inc -11,s
com 29797
fcb $72
bra L1a82
com $2069
fcb $6e
bra L1ac4
inc 12,s
clr 3,s
fcb $61
lsr $696f
fcb $6e
bra L1adb
fcb $61
neg $2062
fcb $75
L1a73 lsr $206e
clr -12,s
bra L1ae3
fcb $6e
bra L1ae3
rol 12,s
fcb $65
bra L1af5
L1a82 lsr 29301
com -12,s
fcb $75
fcb $72
fcb $65
dec D0000
L1a8c coma
inc -11,s
com 29797
L1a91 equ *-1
fcb $72
bra L1aba
com $2069
fcb $6e
bra L1b0b
fcb $61
L1a9c lsr $683a
bra L1aa1
L1aa1 ble L1b07
L1aa3 com 8,s
fcb $65
L1aa6 com 11,s
bcs L1ada
leas -8,s
L1aab equ *-1
bcs L1b12
neg D0064
L1aaf equ *-1
com 8,s
fcb $65
com 11,s
abx
bra L1b1b
fcb $61
jmp 14,s
L1aba equ *-1
clr -12,s
L1abd bra L1b2e
neg $656e
bra L1b3b
L1ac4 clr -14,s
fcb $6b
ror 9,s
inc 5,s
bra L1af4
bcs L1b42
beq L1adb
neg D002a
L1ad2 equ *-1
bpl L1aff
bra L1b2a
fcb $65
asr 13,s
L1ada fcb $65
L1adb jmp -12,s
bra L1b4e
fcb $75
lsr $206f
L1ae3 fcb $66
bra L1b58
fcb $61
jmp 7,s
fcb $65
bra L1b55
fcb $6e
bra L1b55
rol 12,s
fcb $65
abx
bra L1af5
L1af4 equ *-1
L1af5 bcs L1b6a
ble L1af9
L1af9 bcs L1b6e
dec D0000
L1afd bgt L1aff
L1aff lsr 3,s
asl 5,s
com 11,s
abx
bra L1b6b
L1b07 equ *-1
fcb $61
jmp 14,s
L1b0b clr -12,s
bra L1b7e
neg $656e
L1b12 bra L1b3b
bgt L1b3d
bra L1b7c
rol -14,s
fcb $65
L1b1b com -12,s
clr -14,s
rol $0a00
L1b22 lbra L2561
L1b25 lbra L252e
L1b28 lbra L1c32
L1b2a equ *-1
L1b2b lbra L1c00
L1b2e lbra L257d
L1b31 lbra L2790
L1b34 lbra L2840
L1b37 lbra L1c67
L1b3a lbra L26a4
L1b3b equ *-2
L1b3d lbra L238e
L1b40 lbra L282f
L1b42 equ *-1
L1b43 lbra L27a7
L1b46 lbra L279d
L1b49 lbra L2874
L1b4c lbra L1c1b
L1b4e equ *-1
L1b4f lbra L2775
L1b52 lbra L2740
L1b55 lbra L2755
L1b58 lbra L26b6
L1b5b lbra L2707
L1b5e lbra L2881
L1b61 lbra L2802
L1b64 lbra L27bc
L1b67 lbra L2604
L1b6a lbra L25dc
L1b6b equ *-2
L1b6d lbra L25e8
L1b6e equ *-2
L1b70 clrb
stb ,u++
L1b73 lda ,x+
cmpa #$0d
beq L1b91
bsr L1bf9
beq L1b73
L1b7c equ *-1
leax -1,x
L1b7e equ *-1
stx ,u++
inc D0000
L1b83 lda ,x+
cmpa #$0d
beq L1b91
bsr L1bf9
bne L1b83
clr -1,x
bra L1b73
L1b91 clr ,-x
lda D0000
sta D0001
clra
clrb
pshs d
L1b9b tst D0000
beq L1ba7
dec D0000
ldd ,--u
pshs d
bra L1b9b
L1ba7 pshs x
leax ,s
pshs x
leax -2,s
pshs x
leax ,u
L1bb3 clr ,x+
cmpx ,s
bcs L1bb3
puls x
leau -2,u
leax 16,u
stx D000a
stx D0008
leax 27,u
stx D000c
stx D0018
leax 38,u
stx D000e
stx D0023
lda #5
sta D0016
lda #6
sta D0021
lda #6
sta D002c
clra
sta D0017
inca
sta D0022
inca
sta D002d
ldd ,u
addd #1
sty D0000
leay 253,u
lbsr L000d
lbra L1c00
L1bf9 cmpa #$20
beq L1bff
cmpa #9
L1bff rts
L1c00 pshs d
L1c02 ldd D0008
beq L1c0d
ldd D0008
lbsr L1c15
bra L1c02
L1c0d ldd ,s
lbsr L1c18
leas 2,s
rts
L1c15 lbra L1f66
L1c18 lbra L287e
L1c1b pshs d
leax 6,s
pshs x
ldd 6,s
pshs d
ldd 4,s
lbsr L1c2f
leas 4,s
leas 2,s
rts
L1c2f lbra L1c94
L1c32 pshs d
leas -256,s
leax 262,s
pshs x
ldd 262,s
pshs d
leax 4,s
tfr x,d
lbsr L1c61
leas 4,s
ldd 256,s
pshs d
leax 2,s
tfr x,d
lbsr L1c64
leas 2,s
leas 258,s
rts
L1c61 lbra L1c94
L1c64 lbra L20bf
L1c67 pshs d
leas -256,s
leax 260,s
pshs x
ldd 258,s
pshs d
leax 4,s
tfr x,d
lbsr L1c8e
leas 4,s
leax ,s
tfr x,d
lbsr L1c91
leas 258,s
rts
L1c8e lbra L1c94
L1c91 lbra L205a
L1c94 pshs d
leas -269,s
L1c9a ldx 273,s
ldb ,x+
stx 273,s
stb ,s
tstb
lbeq L1ec7
ldb ,s
cmpb #$25
beq L1cc7
ldd 269,s
addd #1
std 269,s
subd #1
pshs d
ldb 2,s
stb [,s++]
bra L1c9a
L1cc7 leax 13,s
stx 9,s
ldd #6
std 4,s
clr 7,s
ldb #$20
stb 8,s
clr 6,s
ldb [273,s]
cmpb #$2d
bne L1cef
ldd 273,s
addd #1
std 273,s
ldb #1
stb 7,s
L1cef ldb [273,s]
clra
lbsr L1f54
addd #0
beq L1d15
ldb [273,s]
cmpb #$30
bne L1d08
ldb #$30
stb 8,s
L1d08 leax 273,s
tfr x,d
lbsr L1f57
std 2,s
bra L1d19
L1d15 clrb
clra
std 2,s
L1d19 ldb [273,s]
cmpb #$2e
bne L1d3b
ldd 273,s
addd #1
std 273,s
leax 273,s
tfr x,d
lbsr L1f57
std 4,s
ldb #1
stb 6,s
L1d3b ldx 273,s
ldb ,x+
stx 273,s
stb ,s
ldb ,s
clra
lbsr L1f5a
cmpb #$64
beq L1d70
cmpb #$75
beq L1d9d
cmpb #$78
lbeq L1da3
cmpb #$6f
lbeq L1da9
cmpb #$63
lbeq L1dd3
cmpb #$73
lbeq L1df5
lbra L1eb0
L1d70 ldd [275,s]
cmpd #0
bge L1d9d
ldd 9,s
addd #1
std 9,s
subd #1
pshs d
ldb #$2d
stb [,s++]
ldd [275,s]
nega
negb
sbca #0
std [275,s]
ldd 2,s
subd #1
std 2,s
L1d9d ldb #$0a
stb 1,s
bra L1dad
L1da3 ldb #$10
stb 1,s
bra L1dad
L1da9 ldb #8
stb 1,s
L1dad ldb 1,s
clra
pshs d
ldx 277,s
ldd ,x++
stx 277,s
pshs d
leax 13,s
tfr x,d
lbsr L1ed0
leas 4,s
clra
pshs d
ldd 4,s
subd ,s++
std 2,s
lbra L1e37
L1dd3 ldd 9,s
addd #1
std 9,s
subd #1
pshs d
ldx 277,s
ldd ,x++
stx 277,s
stb [,s++]
ldd 2,s
subd #1
std 2,s
lbra L1e37
L1df5 ldb 6,s
bne L1dfe
ldd #$0100
std 4,s
L1dfe ldx 275,s
ldd ,x++
stx 275,s
std 11,s
L1e0a ldb [11,s]
beq L1e37
ldd 4,s
beq L1e37
ldd 9,s
addd #1
std 9,s
subd #1
pshs d
ldx 13,s
ldb ,x+
stx 13,s
stb [,s++]
ldd 4,s
subd #1
std 4,s
ldd 2,s
subd #1
std 2,s
bra L1e0a
L1e37 clr [9,s]
leax 13,s
stx 9,s
ldb 7,s
bne L1e68
L1e42 ldd 2,s
subd #1
std 2,s
addd #1
cmpd #0
ble L1e68
ldd 269,s
addd #1
std 269,s
subd #1
pshs d
ldb 10,s
stb [,s++]
bra L1e42
L1e68 ldx 9,s
ldb ,x+
stx 9,s
stb [269,s]
tstb
beq L1e82
ldd 269,s
addd #1
std 269,s
bra L1e68
L1e82 ldb 7,s
lbeq L1c9a
L1e88 ldd 2,s
subd #1
std 2,s
addd #1
cmpd #0
lble L1c9a
ldd 269,s
addd #1
std 269,s
subd #1
pshs d
ldb 10,s
stb [,s++]
bra L1e88
L1eb0 ldd 269,s
addd #1
std 269,s
subd #1
pshs d
ldb 2,s
stb [,s++]
lbra L1c9a
L1ec7 clr [269,s]
leas 271,s
rts
L1ed0 pshs d
leas -3,s
ldd [3,s]
std ,s
ldd 7,s
pshs d
ldd 11,s
lbsr L1f60
stb 2,s
ldd [3,s]
addd #1
std [3,s]
subd #1
pshs d
ldb 4,s
cmpb #$0a
bcc L1efe
ldb 4,s
addb #$30
bra L1f02
L1efe ldb 4,s
addb #$37
L1f02 stb [,s++]
L1f04 ldd 7,s
pshs d
ldd 11,s
lbsr L1f63
std 7,s
addd #0
beq L1f41
ldd 7,s
pshs d
ldd 11,s
lbsr L1f60
stb 2,s
ldd [3,s]
addd #1
std [3,s]
subd #1
pshs d
ldb 4,s
cmpb #$0a
bcc L1f39
ldb 4,s
addb #$30
bra L1f3d
L1f39 ldb 4,s
addb #$37
L1f3d stb [,s++]
bra L1f04
L1f41 ldx [3,s]
clr ,x
ldd ,s
lbsr L1f5d
ldd [3,s]
subd ,s
clra
leas 5,s
rts
L1f54 lbra L2517
L1f57 lbra L201b
L1f5a lbra L252e
L1f5d lbra L206d
L1f60 lbra L25e8
L1f63 lbra L2604
L1f66 pshs d
leas -5,s
clrb
clra
std 2,s
ldd D0008
std ,s
L1f72 ldd ,s
lbeq L1fd5
ldd ,s
cmpd 5,s
lbne L1fc8
ldd 2,s
beq L1f94
ldd 2,s
addd #8
pshs d
ldx 2,s
ldd 8,x
std [,s++]
bra L1f9a
L1f94 ldx ,s
ldd 8,x
std D0008
L1f9a clr 4,s
ldd 5,s
lbsr L2012
ldx 5,s
ldb 7,x
clra
lbsr L2015
cmpd #-1
bne L1fb3
ldb #1
stb 4,s
L1fb3 ldd 5,s
lbsr L1fdb
ldb 4,s
beq L1fc2
ldd #-1
leas 7,s
rts
L1fc2 ldd #1
leas 7,s
rts
L1fc8 ldd ,s
std 2,s
ldx ,s
ldd 8,x
std ,s
lbra L1f72
L1fd5 ldd #-1
leas 7,s
rts
L1fdb pshs d
ldd ,s
addd #6
tfr d,x
ldb ,x
andb #8
tstb
beq L1ff2
ldx ,s
ldd 4,x
lbsr L2018
L1ff2 ldd ,s
cmpd D000a
beq L2007
ldd ,s
cmpd D000c
beq L2007
ldd ,s
cmpd D000e
bne L200a
L2007 leas 2,s
rts
L200a ldd ,s
lbsr L2018
leas 2,s
rts
L2012 lbra L2374
L2015 lbra L279d
L2018 lbra L2460
L201b pshs d
leas -2,s
clrb
clra
std ,s
L2023 ldx [2,s]
ldb ,x
clra
lbsr L2054
addd #0
beq L204f
ldx [2,s]
ldb ,x+
stx [2,s]
clra
pshs d
ldd 2,s
pshs d
ldd #$000a
lbsr L2057
addd ,s++
subd #$0030
std ,s
bra L2023
L204f ldd ,s
leas 4,s
rts
L2054 lbra L2517
L2057 lbra L2599
L205a pshs d
ldd D000c
pshs d
ldd 2,s
lbsr L206a
leas 2,s
leas 2,s
rts
L206a lbra L20bf
L206d pshs d
leas -5,s
clrb
clra
std ,s
ldd 5,s
lbsr L20bc
subd #1
std 2,s
L207f ldd ,s
cmpd 2,s
lbge L20b9
ldd ,s
ldx 5,s
ldb d,x
stb 4,s
ldd 5,s
addd ,s
pshs d
ldd 4,s
ldx 7,s
ldb d,x
stb [,s++]
ldd 5,s
addd 2,s
pshs d
ldb 6,s
stb [,s++]
ldd ,s
addd #1
std ,s
ldd 2,s
subd #1
std 2,s
lbra L207f
L20b9 leas 7,s
rts
L20bc lbra L257d
L20bf pshs d
leas -263,s
ldd 267,s
lbsr L21ad
ldd 263,s
std 1,s
leax 7,s
stx 3,s
L20d6 ldb [1,s]
lbeq L216d
ldb [1,s]
cmpb #$0a
lbne L2115
ldb #$0d
stb [3,s]
ldd #$0100
pshs d
leax 9,s
pshs x
ldx 271,s
ldb 7,x
clra
lbsr L21b0
leas 4,s
cmpd #-1
bne L210e
ldd #-1
leas 265,s
rts
L210e leax 7,s
stx 3,s
lbra L2163
L2115 ldb [1,s]
cmpb #9
bne L2152
ldd 3,s
leax 7,s
pshs x
subd ,s++
pshs d
ldd #8
lbsr L21b9
pshs d
ldd #8
subd ,s++
std 5,s
L2135 ldd 5,s
beq L2163
ldd 3,s
addd #1
std 3,s
subd #1
pshs d
ldb #$20
stb [,s++]
ldd 5,s
subd #1
std 5,s
bra L2135
L2152 ldd 3,s
addd #1
std 3,s
subd #1
pshs d
ldb [3,s]
stb [,s++]
L2163 ldd 1,s
addd #1
std 1,s
lbra L20d6
L216d clr [3,s]
ldd 3,s
leax 7,s
pshs x
cmpd ,s++
lbeq L21a4
leax 7,s
tfr x,d
lbsr L21b6
pshs d
leax 9,s
pshs x
ldx 271,s
ldb 7,x
clra
lbsr L21b3
leas 4,s
cmpd #-1
bne L21a4
ldd #-1
leas 265,s
rts
L21a4 ldd 263,s
leas 265,s
rts
L21ad lbra L2374
L21b0 lbra L27e6
L21b3 lbra L27bc
L21b6 lbra L257d
L21b9 lbra L25dc
pshs d
ldd D000c
pshs d
ldd 2,s
lbsr L21cc
leas 2,s
leas 2,s
rts
L21cc pshs d
ldd 4,s
addd #2
tfr d,x
ldd ,x
subd #1
std ,x
cmpd #0
blt L21f7
ldd [4,s]
addd #1
std [4,s]
subd #1
pshs d
ldb 3,s
stb [,s++]
clra
bra L2208
L21f7 ldd #1
pshs d
ldd 6,s
pshs d
ldb 5,s
clra
lbsr L221b
leas 4,s
L2208 leas 2,s
rts
pshs d
ldd D000e
pshs d
ldd 2,s
lbsr L21cc
leas 2,s
leas 2,s
rts
L221b pshs d
leas -3,s
ldb 4,s
stb 2,s
ldd 7,s
addd #6
tfr d,x
ldb ,x
andb #2
cmpb #0
beq L2241
ldd 7,s
addd #6
tfr d,x
ldb ,x
andb #$30
cmpb #0
beq L2247
L2241 ldd #-1
leas 5,s
rts
L2247 ldb 10,s
beq L2250
ldd #1
bra L2252
L2250 clrb
clra
L2252 pshs d
ldd 9,s
addd #2
pshs d
ldd #$0100
subd [,s++]
subd ,s++
std ,s
ldd 7,s
addd #6
tfr d,x
ldb ,x
andb #4
cmpb #0
lbne L22a3
ldx 7,s
ldd 4,x
bne L22a3
ldd 7,s
addd #4
pshs d
ldd #$0100
lbsr L2388
std [,s++]
cmpd #0
bne L229f
ldd 7,s
addd #6
tfr d,u
ldb ,u
orb #4
stb ,u
bra L22a3
L229f clrb
clra
std ,s
L22a3 ldd 7,s
addd #6
tfr d,x
ldb ,x
andb #4
tstb
lbeq L22e7
ldb 10,s
lbeq L2318
ldd #1
pshs d
leax 4,s
pshs x
ldx 11,s
ldb 7,x
clra
lbsr L238b
leas 4,s
cmpd #-1
lbne L2318
ldd 7,s
addd #6
tfr d,u
ldb ,u
orb #$20
stb ,u
ldd #-1
leas 5,s
rts
L22e7 ldd ,s
beq L2318
ldd ,s
pshs d
ldx 9,s
ldd 4,x
pshs d
ldx 11,s
ldb 7,x
clra
lbsr L238b
leas 4,s
cmpd #-1
bne L2318
ldd 7,s
addd #6
tfr d,u
ldb ,u
orb #$20
stb ,u
ldd #-1
leas 5,s
rts
L2318 ldd 7,s
addd #2
pshs d
ldd 9,s
addd #6
tfr d,x
ldb ,x
andb #4
tstb
beq L2331
clrb
clra
bra L2334
L2331 ldd #$0100
L2334 std [,s++]
ldx 7,s
ldd 4,x
std [7,s]
ldb 10,s
beq L236e
ldd 7,s
addd #6
tfr d,x
ldb ,x
andb #4
cmpb #0
bne L236e
ldd [7,s]
addd #1
std [7,s]
subd #1
pshs d
ldb 6,s
stb [,s++]
ldd 7,s
addd #2
pshs d
ldd #$00ff
std [,s++]
L236e ldb 4,s
clra
leas 5,s
rts
L2374 pshs d
clrb
clra
pshs d
ldd 2,s
pshs d
clrb
clra
lbsr L221b
leas 4,s
leas 2,s
rts
L2388 lbra L238e
L238b lbra L27bc
L238e pshs d
leas -8,s
ldd 8,s
addd #3
lsra
rorb
lsra
rorb
addd #1
std 6,s
ldd D027e,y
std 2,s
cmpd #0
bne L23c0
leax D027a,y
stx 2,s
stx D027e,y
stx D027a,y
clrb
clra
std D027c,y
L23c0 ldd [2,s]
std ,s
L23c5 ldx ,s
ldd 2,x
cmpd 6,s
lblo L241b
ldx ,s
ldd 2,x
cmpd 6,s
bne L23e0
ldd [,s]
std [2,s]
bra L240d
L23e0 ldd ,s
addd #2
tfr d,u
ldd ,u
subd 6,s
std ,u
ldd ,s
addd #2
tfr d,x
ldd ,x
lslb
rola
lslb
rola
pshs d
ldd 2,s
addd ,s++
std ,s
ldd ,s
addd #2
pshs d
ldd 8,s
std [,s++]
L240d ldd 2,s
std D027e,y
ldd ,s
addd #4
leas 10,s
rts
L241b ldd ,s
cmpd D027e,y
lbne L2455
ldd 6,s
lslb
rola
lslb
rola
lbsr L2514
std 4,s
cmpd #-1
bne L243c
clrb
clra
leas 10,s
rts
L243c ldd 4,s
addd #2
pshs d
ldd 8,s
std [,s++]
ldd 4,s
addd #4
lbsr L2460
ldd D027e,y
std ,s
L2455 ldd ,s
std 2,s
ldd [,s]
std ,s
lbra L23c5
L2460 pshs d
leas -4,s
ldd 4,s
subd #4
std ,s
ldd D027e,y
std 2,s
L2471 ldd ,s
cmpd 2,s
bls L2480
ldd ,s
cmpd [2,s]
bcs L249f
L2480 ldd 2,s
cmpd [2,s]
bcs L2497
ldd ,s
cmpd 2,s
bhi L249f
ldd ,s
cmpd [2,s]
bcs L249f
L2497 ldd [2,s]
std 2,s
lbra L2471
L249f ldd ,s
addd #2
tfr d,x
ldd ,x
lslb
rola
lslb
rola
addd ,s
cmpd [2,s]
bne L24d2
ldd [2,s]
addd #2
pshs d
ldd 2,s
addd #2
tfr d,u
ldd ,u
addd [,s++]
std ,u
ldx [2,s]
ldd ,x
std [,s]
bra L24d7
L24d2 ldd [2,s]
std [,s]
L24d7 ldd 2,s
addd #2
tfr d,x
ldd ,x
lslb
rola
lslb
rola
addd 2,s
cmpd ,s
bne L2506
ldd ,s
addd #2
pshs d
ldd 4,s
addd #2
tfr d,u
ldd ,u
addd [,s++]
std ,u
ldd [,s]
std [2,s]
bra L250b
L2506 ldd ,s
std [2,s]
L250b ldd 2,s
std D027e,y
leas 6,s
rts
L2514 lbra L267b
L2517 pshs d
ldb 1,s
cmpb #$30
bcs L2529
ldb 1,s
cmpb #$39
bhi L2529
ldb #1
bra L252a
L2529 clrb
L252a clra
leas 2,s
rts
L252e pshs d
ldb 1,s
clra
lbsr L2547
addd #0
beq L2541
ldb 1,s
addb #$20
bra L2543
L2541 ldb 1,s
L2543 clra
leas 2,s
rts
L2547 lbra L254a
L254a pshs d
ldb 1,s
cmpb #$41
bcs L255c
ldb 1,s
cmpb #$5a
bhi L255c
ldb #1
bra L255d
L255c clrb
L255d clra
leas 2,s
rts
L2561 pshs d
L2563 ldd ,s
addd #1
std ,s
subd #1
pshs d
ldx 6,s
ldb ,x+
stx 6,s
stb [,s++]
tstb
bne L2563
leas 2,s
rts
L257d pshs d
leas -2,s
ldd 2,s
std ,s
L2585 ldb [,s]
beq L2592
ldd ,s
addd #1
std ,s
bra L2585
L2592 ldd ,s
subd 2,s
leas 4,s
rts
L2599 leas -5,s
clr ,s
bsr L25d2
std 1,s
ldd 7,s
bsr L25d2
std 7,s
lda 2,s
ldb 8,s
mul
std 3,s
lda 1,s
ldb 8,s
mul
tfr b,a
clrb
addd 3,s
std 3,s
lda 2,s
ldb 7,s
mul
tfr b,a
clrb
addd 3,s
tst ,s
bpl L25cc
nega
negb
sbca #0
L25cc ldx 5,s
leas 9,s
jmp ,x
L25d2 tsta
bpl L25db
com 2,s
nega
negb
sbca #0
L25db rts
L25dc ldx 2,s
bsr L265b
pshs cc
stx 3,s
puls cc
bra L25ea
L25e8 andcc #247
L25ea orcc #1
pshs cc
ldx #0
puls cc
bra L2609
ldx 2,s
bsr L265b
pshs cc
stx 3,s
ldx #32767
puls cc
bra L2609
L2604 ldx #-1
andcc #246
L2609 leas -3,s
pshs cc
std 2,s
bne L2617
puls cc
tfr x,d
bra L2655
L2617 lda #1
sta 1,s
L261b tst 2,s
bmi L2627
asl 3,s
rol 2,s
inc 1,s
bra L261b
L2627 ldd 6,s
clr 6,s
clr 7,s
L262d subd 2,s
bcc L2637
addd 2,s
andcc #254
bra L2639
L2637 orcc #1
L2639 rol 7,s
rol 6,s
lsr 2,s
ror 3,s
dec 1,s
bne L262d
puls cc
bcs L264f
pshs cc
ldd 6,s
puls cc
L264f bpl L2655
nega
negb
sbca #0
L2655 ldx 3,s
leas 7,s
jmp ,x
L265b pshs u
tfr d,u
pshs x
eora ,s++
andcc #254
pshs cc
tfr x,d
bsr L2673
tfr d,x
tfr u,d
bsr L2673
puls cc,u,pc
L2673 tsta
bpl L267a
nega
negb
sbca #0
L267a rts
L267b pshs d
leax Dff03,y
tfr x,d
nega
negb
sbca #0
addd D0000
addd ,s
pshs y
os9 F$Mem
puls y
puls x
bcs L269d
ldd D0000
leax d,x
stx D0000
rts
L269d clra
std D0002
ldd #-1
rts
L26a4 tfr d,x
lda #1
os9 I$ChgDir
bcc L26b3
std D0002
ldd #-1
rts
L26b3 clra
clrb
rts
L26b6 leas -4,s
ldu 6,s
tfr d,x
ldd ,x
std ,s
lda 2,x
sta 2,s
ldd 8,s
bra L26de
L26c8 lsr ,s
ror 1,s
ror 2,s
bcc L26da
inc 2,s
bne L26da
inc 1,s
bne L26da
inc ,s
L26da lsr ,u
ror 1,u
L26de lsra
rorb
bcc L26c8
clra
ldb 2,s
andb #7
ldu 14,s
std ,u
ldd 1,s
lsra
rorb
lsra
rorb
lsra
rorb
clra
ldu 12,s
std ,u
ldd ,s
lsra
rorb
lsra
rorb
lsra
rorb
ldu 10,s
std ,u
leas 4,s
rts
L2707 tfr d,x
clra
clrb
std ,x
stb 2,x
ldd 4,s
lslb
rola
lslb
rola
lslb
rola
std ,x
ldd 6,s
lslb
rola
lslb
rola
lslb
rola
addd 1,x
std 1,x
bcc L2729
inc ,x
L2729 addd 8,s
std 1,x
bcc L2731
inc ,x
L2731 ldd 2,s
bra L273b
L2735 asl 2,x
rol 1,x
rol ,x
L273b asra
rorb
bne L2735
rts
L2740 tfr d,x
ldu 2,s
ldb ,x
stb ,u
ldd 1,x
addd 4,s
std 1,u
bcc L2752
inc ,u
L2752 clra
clrb
rts
L2755 tfr d,x
ldu 2,s
ldb ,x
cmpb ,u
bhi L2771
bcs L276d
ldd 1,x
cmpd 1,u
bhi L2771
bcs L276d
clra
clrb
rts
L276d ldd #-1
rts
L2771 ldd #1
rts
L2775 tfr b,a
ldb #5
os9 I$GetStt
bcs L278c
tfr x,d
ldx 4,s
stu ,x
ldx 2,s
std ,x
clra
clrb
bra L278f
L278c ldd #-1
L278f rts
L2790 tfr d,x
lda 3,s
os9 I$Open
bcs L27fb
tfr a,b
clra
rts
L279d tfr b,a
os9 I$Close
bcs L27fb
clra
clrb
rts
L27a7 pshs y
tfr b,a
ldx 4,s
ldy 6,s
os9 I$Read
puls x
exg x,y
bcs L27fb
tfr x,d
rts
L27bc pshs y
tfr b,a
ldx 4,s
ldy 6,s
os9 I$Write
puls x
exg x,y
bcs L27fb
tfr x,d
rts
pshs y
tfr b,a
ldx 4,s
ldy 6,s
os9 I$ReadLn
puls x
exg x,y
bcs L27fb
tfr x,d
rts
L27e6 pshs y
tfr b,a
ldx 4,s
ldy 6,s
os9 I$WritLn
puls x
exg x,y
bcs L27fb
tfr x,d
rts
L27fb clra
std D0002
ldd #-1
rts
L2802 tfr d,x
lda #2
ldb 3,s
bmi L280e
tfr b,a
anda #3
L280e orb #1
pshs d,x
os9 I$Create
puls x,u
exg x,u
bcc L282b
pshs x
os9 I$Delete
puls x
bcs L27fb
tfr u,d
os9 I$Create
bcs L27fb
L282b tfr a,b
clra
rts
L282f pshs d
ldx 4,s
ldd ,x
std 4,s
clrb
lda 2,x
addd 6,s
std 6,s
puls d
L2840 tfr b,a
ldb 7,s
ldx 2,s
ldu 4,s
decb
bne L2854
ldb #5
os9 I$GetStt
bcs L27fb
bra L285e
L2854 decb
bne L286c
ldb #2
os9 I$GetStt
bcs L27fb
L285e exg d,u
addd 4,s
exg d,u
exg d,x
adcb 3,s
adca 2,s
exg d,x
L286c os9 I$Seek
bcs L27fb
clra
clrb
rts
L2874 tfr d,x
os9 I$Delete
bcs L27fb
clra
clrb
rts
L287e os9 F$Exit
L2881 bsr L288c
tfr a,b
clra
rts
bsr L288c
tfr x,d
rts
L288c pshs y
os9 F$ID
tfr y,x
puls y
rts
L2896 lsr 3,s
asl 5,s
com d,s
fcb $02
emod
L28a0 equ *
end