====== CMP ======
Header for : cmp
Module size: $1019 #4121
Module CRC : $4B6613 (Good)
Hdr parity : $21
Exec. off : $0A4B #2635
Data size : $0899 #2201
Edition : $32 #50
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O
===== CODE =====
* Disassembly by Os9disasm of cmp
mod L1019,L000d,$11,$81,L0a4b,D0899
* OS-9 system function equates
F$Exit equ $06
I$Create equ $83
I$Open equ $84
I$Read equ $89
I$ReadLn equ $8b
I$WritLn equ $8c
I$Close equ $8f
* class D external label equates
Dfff2 equ $fff2
Dfff8 equ $fff8
Dfffa equ $fffa
Dfffe equ $fffe
Dffff equ $ffff
* OS9 data area definitions
D0000 rmb 1
D0001 rmb 1
D0002 rmb 2
D0004 rmb 1
D0005 rmb 4
D0009 rmb 1
D000a rmb 2
D000c rmb 3
D000f rmb 17
D0020 rmb 5
D0025 rmb 29
D0042 rmb 32
D0062 rmb 1
D0063 rmb 35
D0086 rmb 102
D00ec rmb 1965
D0899 equ .
L000d com 13,s
subb 13033
L0010 equ *-2
stu 31263
nega
addd #$008a
std ,--s
tfr s,d
addd #2
std ,--s
ldd 140,s
std ,--s
lbsr L0084
leas 6,s
tfr s,d
std ,--s
lbsr L0a0e
leas 2,s
leas 134,s
rts
L003b leas -134,s
tfr s,d
addd #$008c
std ,--s
tfr s,d
addd #2
std ,--s
ldd 142,s
std ,--s
lbsr L0084
leas 6,s
ldd 136,s
std ,--s
tfr s,d
addd #2
std ,--s
lbsr L0a12
leas 4,s
leas 134,s
rts
tfr s,d
addd #6
std ,--s
ldd 4,s
std ,--s
ldd 8,s
std ,--s
lbsr L0084
leas 6,s
rts
L0084 leas -4,s
leas -2,s
L0088 ldd 8,s
std ,--s
addd #1
std 10,s
ldd ,s++
tfr d,x
ldb ,x
sex
stb 5,s
lbeq L03ad
ldb 5,s
sex
std ,--s
ldd #$0025
cmpd ,s++
lbne L0398
ldd 8,s
std ,--s
addd #1
std 10,s
ldd ,s++
tfr d,x
ldb ,x
sex
stb 5,s
ldb 5,s
sex
std ,--s
ldd #$0020
ora ,s+
orb ,s+
std ,--s
ldd #$002d
cmpd ,s++
lbne L00dd
ldd #1
lbra L00e2
L00dd clra
clrb
lbra L00e2
L00e2 std 1172,u
lbeq L00fc
ldd 8,s
std ,--s
addd #1
std 10,s
ldd ,s++
tfr d,x
ldb ,x
sex
stb 5,s
L00fc clra
clrb
std 1062,u
std 1068,u
ldd #$0020
stb 1176,u
ldb 5,s
sex
std ,--s
ldd #$0030
cmpd ,s++
lbne L0135
ldd #$0030
stb 1176,u
ldd 8,s
std ,--s
addd #1
std 10,s
ldd ,s++
tfr d,x
ldb ,x
sex
stb 5,s
L0135 ldb 5,s
sex
std ,--s
ldd #$0030
cmpd ,s++
lbgt L018c
ldb 5,s
sex
std ,--s
ldd #$0039
cmpd ,s++
lblt L018c
ldd 1068,u
std ,--s
ldd #$000a
lbsr L06a8
std ,--s
ldb 7,s
sex
std ,--s
ldd #$0030
puls x
pshs d
tfr x,d
subd ,s++
addd ,s++
std 1068,u
ldd 8,s
std ,--s
addd #1
std 10,s
ldd ,s++
tfr d,x
ldb ,x
sex
stb 5,s
lbra L0135
L018c ldb 5,s
sex
std ,--s
ldd #$002e
cmpd ,s++
lbne L0204
ldd 8,s
std ,--s
addd #1
std 10,s
ldd ,s++
tfr d,x
ldb ,x
sex
stb 5,s
L01ad ldb 5,s
sex
std ,--s
ldd #$0030
cmpd ,s++
lbgt L0204
ldb 5,s
sex
std ,--s
ldd #$0039
cmpd ,s++
lblt L0204
ldd 1062,u
std ,--s
ldd #$000a
lbsr L06a8
std ,--s
ldb 7,s
sex
std ,--s
ldd #$0030
puls x
pshs d
tfr x,d
subd ,s++
addd ,s++
std 1062,u
ldd 8,s
std ,--s
addd #1
std 10,s
ldd ,s++
tfr d,x
ldb ,x
sex
stb 5,s
lbra L01ad
L0204 clra
clrb
std ,s
ldb 5,s
sex
std ,--s
ldd #$0020
ora ,s+
orb ,s+
std ,--s
ldd #$006c
cmpd ,s++
lbne L0226
ldd #1
lbra L022b
L0226 clra
clrb
lbra L022b
L022b std 1170,u
lbeq L025a
ldd 8,s
std ,--s
addd #1
std 10,s
ldd ,s++
tfr d,x
ldb ,x
sex
stb 5,s
ldd 12,s
std ,--s
std ,--s
ldd #2
addd ,s++
std 14,s
ldd ,s++
tfr d,x
ldd ,x
std ,s
L025a leax L037d,pcr
stx ,--s
ldb 7,s
sex
std ,--s
ldd #$0020
ora ,s+
orb ,s+
lbsr L0687
lbra L0395
tfr s,d
addd #$000a
std ,--s
ldd #$000a
std ,--s
ldd 16,s
std ,--s
std ,--s
ldd #2
addd ,s++
std 18,s
ldd ,s++
tfr d,x
ldd ,x
std ,--s
ldd 6,s
std ,--s
lbsr L03bb
leas 8,s
lbra L0395
tfr s,d
addd #$000a
std ,--s
ldd #8
std ,--s
ldd 16,s
std ,--s
std ,--s
ldd #2
addd ,s++
std 18,s
ldd ,s++
tfr d,x
ldd ,x
std ,--s
ldd 6,s
std ,--s
lbsr L03bb
leas 8,s
lbra L0395
tfr s,d
addd #$000a
std ,--s
ldd #$0010
std ,--s
ldd 16,s
std ,--s
std ,--s
ldd #2
addd ,s++
std 18,s
ldd ,s++
tfr d,x
ldd ,x
std ,--s
ldd 6,s
std ,--s
lbsr L03bb
leas 8,s
lbra L0395
ldd 10,s
std ,--s
addd #1
std 12,s
ldd ,s++
std ,--s
ldd 14,s
std ,--s
std ,--s
ldd #2
addd ,s++
std 16,s
ldd ,s++
tfr d,x
ldd ,x
stb [,s++]
lbra L0395
ldd 12,s
std ,--s
std ,--s
ldd #2
addd ,s++
std 14,s
ldd ,s++
tfr d,x
ldd ,x
std 2,s
L033a ldd 2,s
std ,--s
addd #1
std 4,s
ldd ,s++
tfr d,x
ldb ,x
sex
stb 5,s
lbeq L0365
ldd 10,s
std ,--s
addd #1
std 12,s
ldd ,s++
std ,--s
ldb 7,s
sex
stb [,s++]
lbra L033a
L0365 lbra L0395
ldd 10,s
std ,--s
addd #1
std 12,s
ldd ,s++
std ,--s
ldb 7,s
sex
stb [,s++]
lbra L0395
L037d neg D0005
stu $eb00
fcb $64
ldu -2816
fcb $6f
stu $2400
asl -173
neg D0063
stu $8200
com >-88
L0395 lbra L03aa
L0398 ldd 10,s
std ,--s
addd #1
std 12,s
ldd ,s++
std ,--s
ldb 7,s
sex
stb [,s++]
L03aa lbra L0088
L03ad ldd 10,s
std ,--s
clra
clrb
stb [,s++]
ldd #1
leas 6,s
rts
L03bb leas -12,s
leas -6,s
ldd 26,s
tfr d,x
ldd ,x
std 16,s
tfr s,d
addd #6
std 14,s
ldx 20,s
ldd 22,s
std ,--s
stx ,--s
clra
clrb
ldx #0
cmpx ,s++
bne L03e6
cmpd ,s
L03e6 leas 2,s
lble L0401
ldd 24,s
std ,--s
ldd #$000a
cmpd ,s++
lbne L0401
ldd #1
lbra L0406
L0401 clra
clrb
lbra L0406
L0406 std 2,s
lbeq L0427
ldx 20,s
ldd 22,s
coma
comb
exg d,x
coma
comb
leax 1,x
beq L041f
addd #1
L041f exg d,x
stx 20,s
std 22,s
L0427 ldx 20,s
ldd 22,s
std ,--s
stx ,--s
clra
clrb
ldx #0
cmpx ,s++
bne L043d
cmpd ,s
L043d leas 2,s
lbne L0459
ldd 14,s
std ,--s
addd #1
std 16,s
ldd ,s++
std ,--s
ldd #$0030
stb [,s++]
lbra L04e0
L0459 ldx 20,s
ldd 22,s
lbeq L04e0
ldx 20,s
ldd 22,s
std ,--s
stx ,--s
ldd 28,s
ldx #0
lbsr L07d2
ldx ,s++
ldd ,s++
std ,s
ldd ,s
std ,--s
ldd #$000a
cmpd ,s++
lble L0498
ldd ,s
std ,--s
ldd #$0030
addd ,s++
std ,s
lbra L04b0
L0498 ldd ,s
std ,--s
ldd #$0041
std ,--s
ldd #$000a
puls x
pshs d
tfr x,d
subd ,s++
addd ,s++
std ,s
L04b0 ldd 14,s
std ,--s
addd #1
std 16,s
ldd ,s++
std ,--s
ldd 2,s
stb [,s++]
ldx 20,s
ldd 22,s
std ,--s
stx ,--s
ldd 28,s
ldx #0
lbsr L07d2
leas 4,s
stx 20,s
std 22,s
lbra L0459
L04e0 ldd 14,s
std ,--s
tfr s,d
addd #8
puls x
pshs d
tfr x,d
subd ,s++
std 4,s
ldd 1068,u
std ,--s
ldd 6,s
puls x
pshs d
tfr x,d
subd ,s++
std 1068,u
std ,--s
clra
clrb
cmpd ,s++
lbge L0592
ldd 2,s
lbeq L0550
ldd 1068,u
std ,--s
subd #1
std 1068,u
ldd ,s++
ldb 1176,u
sex
std ,--s
ldd #$0030
cmpd ,s++
lbne L0550
ldd 16,s
std ,--s
addd #1
std 18,s
ldd ,s++
std ,--s
ldd #$002d
stb [,s++]
clra
clrb
std 2,s
L0550 ldd 1172,u
std ,--s
clra
clrb
cmpd ,s++
lbne L0592
L055f ldd 1068,u
std ,--s
subd #1
std 1068,u
ldd ,s++
std ,--s
clra
clrb
cmpd ,s++
lbge L0592
ldd 16,s
std ,--s
addd #1
std 18,s
ldd ,s++
std ,--s
ldb 1176,u
sex
stb [,s++]
lbra L055f
L0592 ldd 2,s
lbeq L05ac
ldd 16,s
std ,--s
addd #1
std 18,s
ldd ,s++
std ,--s
ldd #$002d
stb [,s++]
L05ac ldd 4,s
std ,--s
subd #1
std 6,s
ldd ,s++
std ,--s
clra
clrb
cmpd ,s++
lbge L05e4
ldd 16,s
std ,--s
addd #1
std 18,s
ldd ,s++
std ,--s
ldd 16,s
subd #1
std 16,s
tfr d,x
ldb ,x
sex
stb [,s++]
lbra L05ac
L05e4 ldd 1068,u
std ,--s
subd #1
std 1068,u
ldd ,s++
std ,--s
clra
clrb
cmpd ,s++
lbge L0617
ldd 16,s
std ,--s
addd #1
std 18,s
ldd ,s++
std ,--s
ldb 1176,u
sex
stb [,s++]
lbra L05e4
L0617 ldd 26,s
std ,--s
ldd 18,s
std [,s++]
leas 18,s
rts
clra
clrb
std ,--s
lbsr L0984
leas 2,s
rts
ldd #1
std ,--s
ldb 5,s
sex
std ,--s
lbsr L09a9
leas 4,s
rts
L063f ldd 1174,u
tfr d,x
ldb ,x
sex
rts
lbsr L063f
std -2,s
lbeq L0663
ldd 1174,u
std ,--s
ldd #1
addd ,s++
tfr d,x
ldb ,x
sex
rts
L0663 clra
clrb
rts
lbsr L063f
std -2,s
lbeq L0684
ldd 1174,u
std ,--s
addd #1
std 1174,u
ldd ,s++
tfr d,x
ldb ,x
sex
rts
L0684 clra
clrb
rts
L0687 ldx 2,s
ldy ,x
beq L0699
L068e leax 4,x
cmpd ,x
beq L069b
leay Dffff,y
bne L068e
L0699 ldx 2,s
L069b ldd 2,x
lbeq L0918
addd 2,s
std ,s
lbra L0918
L06a8 clr ,-s
tsta
bpl L06b4
com ,s
comb
coma
addd #1
L06b4 tfr d,y
ldd 3,s
bpl L06c1
com ,s
comb
coma
addd #1
L06c1 ldx #0
pshs d
pshs x
tfr y,d
bsr L0747
L06cc tst ,s+
lbeq L0918
comb
coma
addd #1
lbra L0918
ldx 2,s
pshs x
ldx #0
pshs x
bsr L0747
lbra L0918
clr ,-s
exg x,d
tsta
blt L06f3
exg d,x
bra L0702
L06f3 com ,s
coma
comb
exg d,x
coma
comb
addd #1
bcc L0702
leax 1,x
L0702 tfr d,y
tst 3,s
bpl L0721
com ,s
com 6,s
com 5,s
com 4,s
com 3,s
ldd 5,s
addd #1
std 5,s
ldd 3,s
adcb #0
adca #0
std 3,s
L0721 ldd 5,s
pshs d
ldd 5,s
pshs d
tfr y,d
bsr L0747
tst ,s+
lbeq L091f
coma
comb
exg x,d
coma
comb
exg d,x
addd #1
lbhs L091f
leax 1,x
lbra L091f
L0747 ldy #0
pshs y
pshs y
L074f stx -2,s
bne L0757
std -2,s
beq L077d
L0757 exg x,d
lsra
rorb
exg d,x
rora
rorb
bcc L0773
pshs d
ldd 4,s
addd 10,s
std 4,s
ldd 2,s
adcb 9,s
adca 8,s
std 2,s
puls d
L0773 asl 9,s
rol 8,s
rol 7,s
rol 6,s
bra L074f
L077d puls x
puls d
lbra L091f
clr ,-s
tsta
bpl L0790
com ,s
comb
coma
addd #1
L0790 tfr d,y
ldd 3,s
bpl L079d
com ,s
comb
coma
addd #1
L079d ldx #0
pshs d
pshs x
tfr y,d
lbsr L0851
ldx 2,s
leas 4,s
tst 3,s
lbpl L06cc
exg x,d
comb
coma
addd #1
exg x,d
lbra L06cc
ldx 2,s
pshs x
ldx #0
pshs x
lbsr L0851
ldx 2,s
leas 4,s
lbra L0918
L07d2 clr ,-s
tsta
bpl L07e8
com ,s
comb
coma
exg x,d
comb
coma
exg d,x
addd #1
bcc L07e8
leax 1,x
L07e8 tfr d,y
tst 3,s
bpl L0807
com ,s
com 6,s
com 5,s
com 4,s
com 3,s
ldd 5,s
addd #1
std 5,s
ldd 3,s
adcb #0
adca #0
std 3,s
L0807 ldd 5,s
pshs d
ldd 5,s
pshs d
tfr y,d
bsr L0851
tst 4,s
bpl L0826
comb
coma
exg x,d
comb
coma
exg d,x
addd #1
bcc L0826
leax 1,x
L0826 tfr d,y
tst 7,s
bpl L0844
com 3,s
com 2,s
com 1,s
com ,s
ldd 2,s
addd #1
std 2,s
bcc L0844
ldd ,s
addd #1
std ,s
L0844 ldd ,s++
std 5,s
ldd ,s++
std 5,s
leas 1,s
tfr y,d
rts
L0851 ldy #0
pshs y
pshs y
cmpx 6,s
bhi L0864
bcs L0869
cmpd 8,s
bls L0869
L0864 ldx ,s++
ldd ,s++
rts
L0869 leay D0001,y
cmpx 6,s
bhi L0882
bcs L0878
cmpd 8,s
bhi L0882
beq L088c
L0878 lslb
rola
exg x,d
rolb
rola
exg d,x
bra L0869
L0882 exg x,d
lsra
rorb
exg d,x
rora
rorb
leay Dffff,y
L088c pshs x
ldx 10,s
std 10,s
ldd ,s
stx ,s
ldx 8,s
std 8,s
puls d
L089c asl 3,s
rol 2,s
rol 1,s
rol ,s
cmpx 6,s
bhi L08af
bcs L08bb
cmpd 8,s
bcs L08bb
L08af subd 8,s
exg d,x
sbcb 7,s
sbca 6,s
exg d,x
inc 3,s
L08bb lsr 6,s
ror 7,s
ror 8,s
ror 9,s
leay Dffff,y
bne L089c
stx 6,s
std 8,s
ldx ,s++
ldd ,s++
rts
tfr d,x
ldd 2,s
leax ,x
L08d6 beq L0918
lsra
rorb
leax -1,x
bra L08d6
tfr d,y
ldx 2,s
ldd 4,s
leay ,y
L08e6 beq L091f
exg x,d
lsra
rorb
exg x,d
rora
rorb
leay Dffff,y
bra L08e6
L08f4 tfr d,x
ldd 2,s
leax ,x
L08fa beq L0918
lslb
rola
leax -1,x
bra L08fa
tfr d,y
ldx 2,s
ldd 4,s
leay ,y
L090a beq L091f
lslb
rola
exg x,d
rolb
rola
exg d,x
leay Dffff,y
bra L090a
L0918 ldy ,s++
sty ,s
rts
L091f ldy ,s++
sty 2,s
leas 2,s
rts
leax >L092f,pcr
tfr x,d
rts
L092f ble L0995
leax D000f,y
rol 14,s
com 12,s
fcb $75
lsr 5,s
ble L093c
L093c tfr u,d
rts
ldd #$0499
rts
tfr s,d
pshs u
subd ,s++
subd #$0499
rts
L094d ldb [4,s]
lda #1
cmpb #$72
beq L0960
lda #2
cmpb #$77
beq L0960
L095c ldd #0
rts
L0960 ldx 2,s
pshs a
os9 I$Open
bcc L0976
lda ,s
bita #2
beq L0976
ldb #$0b
ldx 3,s
os9 I$Create
L0976 puls b
bcs L095c
tfr a,b
clra
rts
lda 3,s
os9 I$Close
rts
L0984 lda 3,s
leas -2,s
tfr s,x
ldy #1
os9 I$Read
bcc L0997
ldb #255
L0995 bra L099b
L0997 ldb ,s
andb #$7f
L099b sex
leas 2,s
cmpb #$0a
beq L0984
cmpb #$0d
bne L09a8
ldb #$0a
L09a8 rts
L09a9 lda 5,s
ldb 3,s
cmpb #9
bne L09c0
L09b1 ldb #$20
bsr L09e4
bcs L09e0
ldb >0,u
cmpb #1
bne L09b1
rts
L09c0 cmpb #$0a
beq L09c8
cmpb #$0d
bne L09d2
L09c8 ldb #1
stb >0,u
ldb #$0d
bra L09dc
L09d2 asl >0,u
bne L09dc
inc >0,u
L09dc bsr L09e4
bcc L09e2
L09e0 ldb #255
L09e2 sex
rts
L09e4 pshs d
leax 1,s
ldy #1
os9 I$WritLn
puls d,pc
clra
bra L09f6
lda 7,s
L09f6 ldx 2,s
ldy 4,s
os9 I$ReadLn
bcs L0a09
leay Dffff,y
tfr y,d
clr d,x
ldd 2,s
rts
L0a09 ldd #-1
rts
L0a0d tst D0086
L0a0e equ *-1
fcb $01
bra L0a14
L0a12 lda 5,s
L0a14 ldx 2,s
L0a16 leay ,x
L0a18 ldb ,x+
beq L0a37
cmpb #$0a
beq L0a24
cmpb #$0d
bne L0a18
L0a24 pshs x
bsr L0a37
leax >L0a0d,pcr
ldy #1
os9 I$WritLn
puls x
bra L0a16
L0a37 pshs a,y
leax -1,x
tfr x,d
subd 1,s
tfr d,y
puls a,x
leay ,y
beq L0a4a
os9 I$WritLn
L0a4a rts
L0a4b clrb
ldb #1
stb >0,u
L0a52 lda ,x+
cmpa #$20
beq L0a52
cmpa #$0d
beq L0a71
incb
leay -1,x
pshs y
L0a61 lda ,x+
cmpa #$20
bne L0a6b
clr -1,x
bra L0a52
L0a6b cmpa #$0d
bne L0a61
clr -1,x
L0a71 leax L000d,pcr
pshs x
clra
leax ,s
pshs d,x
subb #2
bls L0a9d
leax 2,x
lslb
leay b,x
L0a85 lda ,x
ldb ,y
sta ,y
stb ,x+
lda ,x
ldb D0001,y
sta D0001,y
stb ,x+
leay Dfffe,y
pshs y
cmpx ,s++
bcs L0a85
L0a9d lbsr L0aa4
L0aa0 clrb
os9 F$Exit
L0aa4 leas -4,s
leas -4,s
leax >6,u
tfr x,d
std ,--s
ldd #2
addd ,s++
std ,--s
leax >6,u
tfr x,d
std ,--s
clra
clrb
addd ,s++
std ,--s
leax >6,u
tfr x,d
std ,--s
ldd #4
addd ,s++
std ,--s
leax >38,u
tfr x,d
std [,s++]
std [,s++]
std [,s++]
leax >20,u
tfr x,d
std ,--s
ldd #2
addd ,s++
std ,--s
leax >20,u
tfr x,d
std ,--s
clra
clrb
addd ,s++
std ,--s
leax >20,u
tfr x,d
std ,--s
ldd #4
addd ,s++
std ,--s
leax 550,u
tfr x,d
std [,s++]
std [,s++]
std [,s++]
leax >6,u
tfr x,d
std ,--s
ldd #$000a
addd ,s++
std ,--s
leax >20,u
tfr x,d
std ,--s
ldd #$000a
addd ,s++
std ,--s
ldd #$0200
std [,s++]
std [,s++]
leax >6,u
tfr x,d
std ,--s
ldd #6
addd ,s++
std ,--s
leax >20,u
tfr x,d
std ,--s
ldd #6
addd ,s++
std ,--s
clra
clrb
std [,s++]
std [,s++]
ldd #1
std 6,s
L0b66 ldd 6,s
std ,--s
ldd 12,s
cmpd ,s++
lble L0d22
ldd 12,s
std ,--s
ldd 8,s
std ,--s
addd #1
std 10,s
ldd ,s++
std ,--s
ldd #1
lbsr L08f4
addd ,s++
tfr d,x
ldd ,x
std ,s
ldd ,s
std ,--s
ldd ,s++
tfr d,x
ldb ,x
sex
std ,--s
ldd #$002d
cmpd ,s++
lbne L0c1c
ldd ,s
std ,--s
ldd #1
addd ,s++
tfr d,x
ldb ,x
sex
lbeq L0c1c
ldd #1
std 4,s
ldd ,s
std ,--s
ldd 6,s
std ,--s
addd #1
std 8,s
ldd ,s++
addd ,s++
tfr d,x
ldb ,x
sex
stb 3,s
lbeq L0c19
leax >L0c12,pcr
stx ,--s
ldb 5,s
sex
std ,--s
ldd #$0020
ora ,s+
orb ,s+
lbsr L0687
lbra L0c16
ldb 3,s
sex
std ,--s
leax L0ef0,pcr
tfr x,d
std ,--s
lbsr L0010
leas 4,s
clra
clrb
std ,--s
lbsr L0aa0
leas 2,s
lbra L0c16
L0c12 neg D0000
stu $e216
L0c16 equ *-1
stu $a716
L0c19 equ *-1
fcb $01
com D00ec
L0c1c equ *-1
andb Lf00d,pcr
cmpb -1,x
fcb $01
ldb ,x
sex
std ,--s
ldd #$002d
cmpd ,s++
lbne L0c42
leax L0f09,pcr
tfr x,d
std ,s
clra
clrb
std 4,s
lbra L0c7a
L0c42 leax L0f18,pcr
tfr x,d
std ,--s
ldd 2,s
std ,--s
lbsr L094d
leas 4,s
std 4,s
std ,--s
clra
clrb
cmpd ,s++
lbne L0c7a
ldd ,s
std ,--s
leax L0f1a,pcr
tfr x,d
std ,--s
lbsr L0010
leas 4,s
clra
clrb
std ,--s
lbsr L0aa0
leas 2,s
L0c7a leax >6,u
tfr x,d
std ,--s
ldd #6
addd ,s++
tfr d,x
ldd ,x
std ,--s
clra
clrb
cmpd ,s++
lbne L0cbf
leax >6,u
tfr x,d
std ,--s
ldd #6
addd ,s++
std ,--s
ldd 2,s
std [,s++]
leax >6,u
tfr x,d
std ,--s
ldd #8
addd ,s++
std ,--s
ldd 6,s
std [,s++]
lbra L0d1f
L0cbf leax >20,u
tfr x,d
std ,--s
ldd #6
addd ,s++
tfr d,x
ldd ,x
std ,--s
clra
clrb
cmpd ,s++
lbne L0d04
leax >20,u
tfr x,d
std ,--s
ldd #6
addd ,s++
std ,--s
ldd 2,s
std [,s++]
leax >20,u
tfr x,d
std ,--s
ldd #8
addd ,s++
std ,--s
ldd 6,s
std [,s++]
lbra L0d1f
L0d04 leax L0f2b,pcr
tfr x,d
std ,--s
ldd #2
std ,--s
lbsr L003b
leas 4,s
clra
clrb
std ,--s
lbsr L0aa0
leas 2,s
L0d1f lbra L0b66
L0d22 clra
clrb
ldx #0
stx 1064,u
std 1066,u
stx >34,u
std >36,u
leax L0f48,pcr
tfr x,d
std ,--s
lbsr L0010
leas 2,s
L0d44 leax >6,u
tfr x,d
std ,--s
lbsr L0fea
leas 2,s
std >2,u
std ,--s
ldd #-1
cmpd ,s++
lbeq L0e18
leax >20,u
tfr x,d
std ,--s
lbsr L0fea
leas 2,s
std >4,u
std ,--s
ldd #-1
cmpd ,s++
lbeq L0e18
ldd >2,u
std ,--s
ldd >4,u
cmpd ,s++
lbeq L0dfa
ldx 1064,u
ldd 1066,u
std ,--s
stx ,--s
addd #1
exg d,x
adcb #0
adca #0
exg d,x
stx 1064,u
std 1066,u
ldx ,s++
ldd ,s++
std ,--s
stx ,--s
clra
clrb
ldx #0
cmpx ,s++
bne L0dc2
cmpd ,s
L0dc2 leas 2,s
lbne L0dd5
leax L0f57,pcr
tfr x,d
std ,--s
lbsr L0010
leas 2,s
L0dd5 ldd >4,u
std ,--s
ldd >2,u
std ,--s
ldx >34,u
ldd >36,u
std ,--s
stx ,--s
leax L0f79,pcr
tfr x,d
std ,--s
lbsr L0010
leas 10,s
L0dfa ldx >34,u
ldd >36,u
addd #1
exg d,x
adcb #0
adca #0
exg d,x
stx >34,u
std >36,u
lbra L0d44
L0e18 ldx 1064,u
ldd 1066,u
std ,--s
stx ,--s
clra
clrb
ldx #0
cmpx ,s++
bne L0e30
cmpd ,s
L0e30 leas 2,s
lbne L0e43
leax L0f8b,pcr
tfr x,d
std ,--s
lbsr L0010
leas 2,s
L0e43 ldx >34,u
ldd >36,u
std ,--s
stx ,--s
leax L0f99,pcr
tfr x,d
std ,--s
lbsr L0010
leas 6,s
ldx 1064,u
ldd 1066,u
std ,--s
stx ,--s
leax L0fb3,pcr
tfr x,d
std ,--s
lbsr L0010
leas 6,s
ldd >2,u
std ,--s
ldd #-1
cmpd ,s++
lbne L0ecd
leax >20,u
tfr x,d
std ,--s
lbsr L0fea
leas 2,s
std ,--s
ldd #-1
cmpd ,s++
lbne L0eaa
clra
clrb
std ,--s
lbsr L0aa0
leas 2,s
lbra L0eca
L0eaa leax >20,u
tfr x,d
std ,--s
ldd #6
addd ,s++
tfr d,x
ldd ,x
std ,--s
leax L0fcc,pcr
tfr x,d
std ,--s
lbsr L0010
leas 4,s
L0eca lbra L0eed
L0ecd leax >6,u
tfr x,d
std ,--s
ldd #6
addd ,s++
tfr d,x
ldd ,x
std ,--s
leax L0fdb,pcr
tfr x,d
std ,--s
lbsr L0010
leas 4,s
L0eed leas 8,s
rts
L0ef0 coma
tst -16,s
abx
bra L0f6b
jmp 11,s
jmp 15,s
asr $6e20
clr -16,s
lsr $696f
fcb $6e
bra L0f32
bcs L0f6a
dec D0000
L0f09 com 29793
jmp 4,s
fcb $61
fcb $72
fcb $64
bra L0f7c
jmp -16,s
fcb $75
lsr >$0072
L0f18 equ *-1
neg D0063
L0f1a equ *-1
fcb $61
jmp 14,s
clr -12,s
bra L0f91
neg $656e
abx
bra L0f4d
com $0a00
L0f2b fcb $75
com $653a
bra L0f94
tst -16,s
L0f32 equ *-1
bra L0fb0
blt L0fa6
neg 29821
bra L0fac
fcb $61
lsr $6831
bra L0fb2
fcb $61
lsr $6832
dec D0000
L0f48 dec D0020
lsra
rol 6,s
L0f4d ror 5,s
fcb $72
fcb $65
jmp 3,s
fcb $65
com $0a00
L0f57 dec D0062
rol 29797
bra L0f7e
bra L0f80
bra L0f82
bls L0f95
bra L0f89
leas 10,x
mul
mul
L0f6a mul
L0f6b mul
mul
mul
mul
mul
bra L0f92
mul
mul
bra L0fb3
mul
dec D0000
L0f79 bcs L0fab
fcb $38
L0f7c inc -8,s
L0f7e bra L0fa0
L0f80 bcs L0fb2
L0f82 leas -8,s
bra L0fab
leax Dfff2,y
asl $0a00
L0f89 equ *-2
L0f8b dec D0020
bra L0faf
fcb $4e
clr 14,s
L0f91 equ *-1
L0f92 fcb $65
bra L0fc3
L0f94 equ *-1
L0f95 bgt L0fc5
dec D0000
L0f99 dec D0042
rol 29797
com $2063
L0fa0 equ *-1
clr 13,s
neg $6172
L0fa6 fcb $65
lsr Dfffa,y
bra L0fcb
L0fab bra L0fd2
L0fac equ *-1
leax Dfff8,y
L0faf inc -8,s
L0fb0 equ *-1
dec D0000
L0fb2 equ *-1
L0fb3 fcb $42
rol 29797
com $2064
rol 6,s
ror 5,s
fcb $72
fcb $65
jmp -12,s
abx
L0fc3 bra L0fe5
L0fc5 bcs L0ff7
fcb $38
inc -8,s
dec D0000
L0fcb equ *-1
L0fcc dec D0025
com $2069
com $206c
L0fd2 equ *-2
clr 14,s
asr 5,s
fcb $72
dec D0000
L0fdb dec D0025
com $2069
com $206c
clr 14,s
L0fe5 asr 5,s
fcb $72
dec D0000
L0fea ldy 2,s
ldx ,y
cmpx D0004,y
bcs L100c
lda D0009,y
ldx D0002,y
L0ff7 ldy D000a,y
os9 I$Read
bcs L1012
tfr y,d
ldy 2,s
std D000c,y
addd D0002,y
std D0004,y
ldx D0002,y
L100c ldb ,x+
clra
stx ,y
rts
L1012 ldd #-1
rts
emod
L1019 equ *
end
===== RTS =====
Return to [[:OS-9:]] or [[:Top:]]