====== DEBUG ======
Header for : debug
Module size: $817 #2071
Module CRC : $37E856 (Good)
Hdr parity : $37
Exec. off : $033D #829
Data size : $0200 #512
Edition : $06 #6
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O
===== CODE =====
* Disassembly by Os9disasm of debug
mod L0817,L000d,$11,$81,L033d,D0200
* OS-9 system function equates
F$Link equ $00
F$UnLink equ $02
F$Fork equ $03
F$Wait equ $04
F$Exit equ $06
F$Mem equ $07
F$Icpt equ $09
F$SSWI equ $0e
F$PErr equ $0f
I$ReadLn equ $8b
I$WritLn equ $8c
* class D external label equates
Dfff4 equ $fff4
Dfff8 equ $fff8
Dffff equ $ffff
* OS9 data area definitions
D0000 rmb 1
D0001 rmb 1
D0002 rmb 1
D0003 rmb 1
D0004 rmb 2
D0006 rmb 2
D0008 rmb 2
D000a rmb 2
D000c rmb 4
D0010 rmb 16
D0020 rmb 1
D0021 rmb 19
D0034 rmb 4
D0038 rmb 9
D0041 rmb 1
D0042 rmb 1
D0043 rmb 1
D0044 rmb 1
D0045 rmb 6
D004b rmb 5
D0050 rmb 1
D0051 rmb 2
D0053 rmb 2
D0055 rmb 3
D0058 rmb 1
D0059 rmb 6
D005f rmb 5
D0064 rmb 29
D0081 rmb 3
D0084 rmb 2
D0086 rmb 2
D0088 rmb 22
D009e rmb 9
D00a7 rmb 18
D00b9 rmb 47
D00e8 rmb 20
D00fc rmb 260
D0200 equ .
L000d lsr 5,s
fcb $62
fcb $75
stb 6,x
L0013 bsr L0021
bra L0019
L0017 bsr L0027
L0019 pshs a
lda #$20
sta ,x+
puls a,pc
L0021 exg a,b
bsr L0027
tfr a,b
L0027 pshs b
andb #$f0
lsrb
lsrb
lsrb
lsrb
bsr L0035
puls b
andb #$0f
L0035 cmpb #9
bls L003b
addb #7
L003b addb #$30
stb ,x+
rts
L0040 pshs b,y,u
leau L0322,pcr
L02e6 lda ,y
ldb D0001,y
bne L02f8
cmpa ,x
beq L0307
adda #$20
cmpa ,x
beq L0307
bra L0318
L02f8 cmpd ,x
beq L0305
addd #$2020
cmpd ,x
bne L0318
L0305 leax 1,x
L0307 leax 1,x
lda D0002,y
tfr a,b
andb #$0f
ldy D0002
leay b,y
L0314 andcc #254
puls b,pc
L0318 leay D0003,y
dec ,s
bne L02e6
orcc #1
puls b,pc
L0322 coma
coma
neg D0044
negb
com D0050
coma
ora #$41
neg D0001
fcb $42
neg D0002
lsra
neg D0081
lslb
neg D0084
rolb
neg D0086
fcb $55
neg D0088
L033d leas 512,u
leas -12,s
sts D0002
sts D0004
leay L0765,pcr
sty 10,s
lda #$80
sta ,s
tfr s,x
leax -325,x
stx D0006
leax -80,x
stx D0008
leax -36,x
stx D000c
clr D0000
clr D0001
L036a clr ,x+
cmpx D0006
bcs L036a
leax L0652,pcr
lda #1
os9 F$SSWI
os9 F$Icpt
lbsr L07e1
ldx D0006
leay L0766,pcr
bsr L03c2
lbsr L07e3
L038a leay L077b,pcr
lbsr L07ef
lbsr L0807
leay L07ad,pcr
lda ,x
cmpa #$61
bcs L03a2
suba #$20
sta ,x
L03a2 leay D0003,y
lda ,y
beq L03b8
cmpa ,x
bne L03a2
leax 1,x
ldd D0001,y
leau L0000,pcr
jsr d,u
bra L038a
L03b8 ldb #9
bsr L03be
bra L038a
L03be os9 F$PErr
rts
L03c2 lbra L0190
lda ,x
cmpa #$2e
bne L03cf
ldd D000a
bra L03dc
L03cf cmpa #$0d
bne L03d7
L03d3 ldd D0000
bra L03dc
L03d7 lbsr L0195
bcs L03be
L03dc ldx D0000
stx D000a
std D0000
pshs d
bsr L0415
ldd ,s
lbsr L0013
puls y
ldb ,y
lbsr L0027
lbra L07e3
ldd D0000
subd #1
bra L03dc
bsr L043f
bcs L03be
ldx D0000
stb ,x
cmpb ,x
beq L040e
ldb #$0a
bsr L03be
bra L03d3
L040e ldd D0000
addd #1
bra L03dc
L0415 ldx D0006
pshs d
leay L0780,pcr
bsr L03c2
puls d,pc
lbsr L0195
bcs L03be
bsr L0415
pshs d
lda #$24
sta ,x+
lda ,s
lbsr L0013
lda #$23
sta ,x+
puls d
lbsr L0040
lbra L07e3
L043f lbsr L0195
bcs L044b
tsta
beq L044b
ldb #8
orcc #1
L044b rts
lbsr L0512
beq L04af
lbsr L02c3
lblo L03be
pshs a,y
lbsr L0512
bne L0475
bsr L0415
puls a,y
tsta
bpl L046d
ldd ,y
lbsr L0021
bra L0472
L046d ldb ,y
lbsr L0027
L0472 lbra L07e3
L0475 lda ,s+
bpl L0485
lbsr L0195
puls y
lblo L054e
std ,y
rts
L0485 bsr L043f
puls y
lblo L054e
stb ,y
rts
L0490 negb
coma
mul
neg D0041
mul
neg D0042
mul
neg D0043
coma
mul
neg D0044
negb
mul
neg D0053
negb
mul
neg D0058
mul
neg D0059
mul
neg D0055
mul
neg D0034
L04af equ *-1
nega
ldx D0006
leay
===== RTS =====
Return to [[:OS-9:]] or [[:Top:]]