====== IDENT ======
Header for : Ident
Module size: $6CE #1742
Module CRC : $6114F4 (Good)
Hdr parity : $E0
Exec. off : $0235 #565
Data size : $099C #2460
Edition : $06 #6
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O
===== CODE =====
* Disassembly by Os9disasm of ident
mod L06ce,L000d,$11,$81,L0235,D099c
* OS-9 system function equates
F$Link equ $00
F$UnLink equ $02
F$Exit equ $06
F$CRC equ $17
I$Open equ $84
I$Seek equ $88
I$Read equ $89
I$WritLn equ $8c
* class D external label equates
D2842 equ $2842
Dfff2 equ $fff2
Dfff9 equ $fff9
Dfffa equ $fffa
Dffff equ $ffff
* OS9 data area definitions
D0000 rmb 1
D0001 rmb 1
D0002 rmb 2
D0004 rmb 2
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 2
D0010 rmb 2
D0012 rmb 1
D0013 rmb 1
D0014 rmb 1
D0015 rmb 1
D0016 rmb 1
D0017 rmb 1
D0018 rmb 1
D0019 rmb 1
D001a rmb 1
D001b rmb 1
D001c rmb 2
D001e rmb 2
D0020 rmb 68
D0064 rmb 61
D00a1 rmb 71
D00e8 rmb 2228
D099c equ .
L000d rola
lsr 5,s
jmp [,s]
ror D000a
L0013 equ *-1
fcb $55
com $653a
bra L0063
lsr 5,s
jmp -12,s
bra L007b
blt L0091
neg 29811
tstb
bra L0064
tst 15,s
lsr -11,s
inc 5,s
fcb $3e
bra L008c
blt L00a2
neg 29811
tstb
dec D0020
bra L00af
fcb $6f
bra L00a2
rol -13,s
neg $6c61
rol $206d
clr 4,s
fcb $75
inc 5,s
bra L00b5
fcb $65
fcb $61
lsr 5,s
fcb $72
bgt L005e
bra L0076
blt L00c5
bra L00ce
fcb $6f
bra L00c1
rol -13,s
L005e equ *-1
neg $6c61
rol $206d
L0063 equ *-2
L0064 equ *-1
clr 4,s
fcb $75
inc 5,s
bra L00d5
fcb $6e
bra L00dc
fcb $65
tst 15,s
fcb $72
rol $2e0a
L0076 bra L0098
blt L00ed
bra L00e2
L007b equ *-1
clr -14,s
bra L00f3
asl 15,s
fcb $72
lsr $2066
clr -14,s
tst D000e,y
dec D0020
L008c bra L00bb
ror $2066
L0091 clr -14,s
bra L0103
fcb $6f
bra L00db
L0098 fcb $52
coma
bra L0112
fcb $65
fcb $72
rol 6,s
rol 3,s
L00a2 fcb $61
lsr $696f
jmp 10,x
bra L00ca
blt L0124
bra L0114
clr -14,s
L00af equ *-1
bra L0118
rol 12,s
fcb $65
L00b5 bra L0120
fcb $6e
bra L011f
asl $6563
L00bb equ *-2
fcb $75
lsr $696f
L00c1 fcb $6e
bra L0128
L00c4 rol -14,s
L00c5 equ *-1
fcb $65
com -12,s
clr -14,s
L00ca equ *-1
rol $0d4d
L00cd equ *-1
L00ce clr 4,s
L00d0 fcb $75
inc 5,s
bra L013d
L00d5 fcb $65
fcb $61
lsr 5,s
fcb $72
bra L0145
L00db equ *-1
L00dc com $2069
jmp 3,s
clr -14,s
L00e2 equ *-1
fcb $72
fcb $65
com -12,s
cmpa 8,u
L00e8 equ *-1
fcb $65
fcb $61
lsr 5,s
L00ed fcb $72
bra L0156
clr -14,s
abx
L00f3 suba 13,u
L00f4 equ *-1
clr 4,s
fcb $75
inc 5,s
bra L016f
rol -6,s
fcb $65
ora $4d6f
L0100 equ *-2
lsr -11,s
L0103 equ *-1
inc 5,s
bra L014b
fcb $52
coma
abx
suba 8,u
L010c equ *-1
lsr -14,s
bra L0181
fcb $61
L0112 fcb $72
rol -12,s
L0114 equ *-1
rol 15008
L0118 fcb $45
asl $6563
bgt L013e
clr 6,s
L011f equ *-1
L0120 ror Dfffa,y
bra L00c4
L0124 lsra
fcb $61
lsr $6120
L0128 equ *-1
comb
rol -6,s
fcb $65
abx
bra L00d0
L0130 lsrb
rol $2f4c
fcb $61
bra L0178
lsr $2f52
ror -17851
L013c equ *-1
L013d lsr 9,s
L013e equ *-1
lsr $696f
jmp Dfffa,y
bra L0166
L0145 equ *-1
bra L00e8
L0148 tst 15,s
lsr
===== RTS =====
Return to [[:OS-9:]] or [[:Top:]]