Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/utils/sleuth3/cssoutcd3.asm @ 3199:dd553bb32ebb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
3rdparty: Changed the names of many disks for easier reading
author Bill Pierce <merlinious999@gmail.com>
date Tue, 06 Jun 2017 23:59:39 +0200
parents afd0f7d9b514
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3149
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
1 ***************************************
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
2 **
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
3 outpt lda instx,u output instr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
4 cmpa #$4b chk ign
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
5 bne outor
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
6 sta dorgs,u set org flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
7 rts
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
8 outor lda instx,u chk type
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
9 bmi outfc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
10 cmpa #$48 h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
11 bne outnh
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
12 outfc leax fcbxx,u gen fcb stmt
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
13 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
14 leax inst1,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
15 ldb fllth,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
16 outhw beq outhx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
17 lbsr xot2h xx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
18 lda #$2c ,
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
19 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
20 lda #$24 $
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
21 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
22 decb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
23 bra outhw
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
24 outhx lbsr xot2h xx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
25 tst instx,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
26 bpl outhy
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
27 lbra outi7
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
28 outhy lbra xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
29 outnh cmpa #$41
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
30 bne outnb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
31 leax fdbxx,u gen fdb stmt
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
32 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
33 lda zlabel,u prefix z
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
34 tst pmode,u chk for 6809
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
35 bpl outzx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
36 tst os9flx,u chk for OS/9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
37 beq outzx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
38 lda xlabel,u prefix x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
39 outzx lbsr xoute z/x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
40 leax raddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
41 lbsr xot4h xxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
42 bra outhy
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
43 outnb cmpa #$43 c
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
44 bne outna
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
45 leax fccxx,u gen fcc stmt
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
46 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
47 lda fccxx+3,u fcs->fcc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
48 anda #$ef
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
49 sta fccxx+3,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
50 bra outhy
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
51 outna cmpa #$52 r
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
52 bne outnr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
53 leax rmbes,pcr gen rmb stmt
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
54 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
55 leax rmblth,u xxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
56 lbsr xot4h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
57 bra outhy
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
58 outnr lda #$03 gen instruction
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
59 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
60 tst posfl,u chk pos-ind switch
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
61 beq outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
62 tst flabl,u chk labelled
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
63 beq outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
64 lda pmode,u chk cpu mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
65 cmpa #$05
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
66 beq outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
67 cmpa #$02
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
68 beq outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
69 ldd raddr,u chk addr for within range
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
70 cmpd eaddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
71 outab bhi outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
72 cmpd faddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
73 outac bls outag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
74 outad lbra outgi not pos-ind
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
75 outag lda flmod,u addr mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
76 cmpa #$02
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
77 blt outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
78 cmpa #$04
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
79 bgt outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
80 beq outaj
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
81 outai inc flpos,u set pos-ind flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
82 bra outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
83 outaj ldb inam4,u chk suffix
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
84 cmpb #$73 for s,u,x,y
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
85 blt outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
86 lda inam1,u chk name
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
87 cmpa #$63 for 'c'
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
88 beq outam
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
89 cmpa #$6c for 'l'
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
90 bne outad
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
91 ldx #$6561 ld? #addr -> lea? addr,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
92 stx inam2,u (cc affected)
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
93 bra outai
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
94 outam cmpb #$73 chk for suffix 's'
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
95 beq outas
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
96 leax lposr,pcr suffix u,x,y
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
97 bra outat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
98 outas leax lposs,pcr suffix s
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
99 outat lda ,x gen pos-ind code for imm
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
100 beq outaz null=quit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
101 stx baddr,u save place
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
102 cmpa #$2a *=reg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
103 beq outau
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
104 cmpa #$21 !=zxxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
105 beq outav
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
106 cmpa #$25 %=crlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
107 beq outaw
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
108 cmpa #$5b [=$03
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
109 bne outan
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
110 lda #$03
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
111 bra outax
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
112 outan cmpa #$5d ]=$05
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
113 bne outax
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
114 lda #$05
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
115 outax lbsr xoute output
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
116 outay ldx baddr,u remember place
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
117 leax $01,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
118 bra outat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
119 outau tfr b,a reg name
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
120 bra outax
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
121 outav lda zulabe,u z/u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
122 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
123 leax raddr,u xxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
124 lbsr xot4h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
125 bra outay
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
126 outaw lbsr xcrlf crlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
127 bra outay
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
128 outaz lbra outi6 exit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
129 outgi leax insxx,u instr name
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
130 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
131 lda #$05 tab
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
132 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
133 tst svcflg,u check for OS/9 call
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
134 bpl ousw3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
135 leax svcend,pcr check for table overflow
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
136 cmpx flinx,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
137 bhi ousb3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
138 ousa3 lda #$24 $ invalid
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
139 leax inst3,u second byte
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
140 lbsr xot2h xx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
141 bra ousd3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
142 ousb3 ldx flinx,u point to name table
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
143 lda ,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
144 cmpa #$20 check validity
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
145 beq ousa3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
146 ldb #(4+(2*2))
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
147 ousc3 lda ,x+
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
148 cmpa #$20
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
149 bls ousd3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
150 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
151 decb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
152 bne ousc3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
153 ousd3 lda svcflg,u reset flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
154 anda #$0f
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
155 sta svcflg,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
156 lbra outi6 exit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
157 ousw3 lda flmod,u addr mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
158 ldb flinx,u instr variant byte
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
159 cmpa #$01 chk inh
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
160 lbne outb1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
161 outa1 tst flspc,u chk special
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
162 beq outj1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
163 lda flopc,u instr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
164 cmpa #$20 chk exg/tfr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
165 bpl outf1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
166 pshs b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
167 andb #$f0 source reg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
168 lsrb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
169 lsrb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
170 lsrb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
171 clra
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
172 pshs u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
173 leau tfrexc,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
174 pshs u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
175 addd ,s++
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
176 puls u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
177 tfr d,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
178 ldx ,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
179 stx inam1,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
180 puls b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
181 andb #$0f dest reg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
182 aslb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
183 clra
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
184 pshs u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
185 leau tfrexc,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
186 pshs u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
187 addd ,s++
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
188 puls u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
189 tfr d,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
190 ldx ,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
191 stx inam4,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
192 lda #$2c ,
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
193 sta inam3,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
194 leax inam1,u output source,dest
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
195 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
196 bra outh1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
197 outj1 lda pmode,u chk cpu mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
198 cmpa #$02
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
199 bne outh1 exit if not 6502
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
200 lda inst1,u chk instr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
201 anda #$9f
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
202 cmpa #$0a
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
203 bne outh1 for $0a,$2a,$4a,$6a
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
204 lda #$61 accum instr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
205 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
206 outh1 lbra outi6 exit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
207 outf1 cmpa #$3c chk cwai
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
208 bne outk1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
209 clr inam4,u fake 8-bit imm
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
210 stb raddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
211 lbra outd4
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
212 outk1 lda inam4,u psh/pul
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
213 eora #$06 exg s and u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
214 leax pshpul,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
215 sta $02,x fix table
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
216 outl1 aslb carry=sign bit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
217 bcc outm1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
218 stx raddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
219 ldx ,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
220 stx inam4,u reg name
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
221 leax inam4,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
222 lbsr xpdat output name
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
223 ldx raddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
224 tstb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
225 beq outx1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
226 lda #$2c ,
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
227 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
228 outm1 leax $02,x chk for more
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
229 tstb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
230 bne outl1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
231 outx1 lbra outi6 exit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
232 outb1 cmpa #$02 chk dir
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
233 bne outb2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
234 outa2 tst flpos,u chk pos-ind flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
235 bne outd2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
236 lda #$3c force dir with <
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
237 outc2 ldb pmode,u chk cpu mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
238 orb crofl,u and x-asmb flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
239 bpl outd2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
240 lbsr xoute force mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
241 outd2 lda zulabe,u z/u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
242 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
243 leax raddr,u xxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
244 lbsr xot4h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
245 tst flpos,u chk pos-ind flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
246 beq outx2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
247 leax lcpcr,pcr ,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
248 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
249 bra outz2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
250 outx2 lda pmode,u chk cpu mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
251 cmpa #$02
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
252 bne outz2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
253 outw2 ldb flmod,u chk mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
254 cmpb #$08
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
255 bne outy2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
256 lda #$29 )
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
257 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
258 outy2 tst inam5,u chk x/y
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
259 beq outz2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
260 lda #$2c ,
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
261 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
262 lda inam5,u x/y
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
263 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
264 cmpb #$07
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
265 bne outz2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
266 lda #$29 )
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
267 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
268 outz2 lbra outi6 exit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
269 outb2 cmpa #$03 chk ext
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
270 bne outb3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
271 tst posfl,u chk pos-ind switch
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
272 bne outd3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
273 lda #$3e force ext with >
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
274 outc3 bra outc2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
275 outd3 bra outd2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
276 outb3 cmpa #$04 chk imm
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
277 bne outb4
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
278 outa4 tst flpos,u chk pos-ind flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
279 bne outd3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
280 outd4 lda #$23 #
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
281 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
282 ldb inam4,u chk suffix
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
283 cmpb #$73 for 's'
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
284 bge outd3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
285 lda #$24 $
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
286 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
287 leax raddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
288 lbsr xot2h xx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
289 cmpb #$64 chk for 'd'
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
290 bne outf4
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
291 lbsr xot2h xx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
292 outf4 lbra outi6 exit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
293 outb4 cmpa #$05 chk inx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
294 lbne outb5
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
295 outa5 tst pmode,u chk cpu mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
296 bpl outc5
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
297 tstb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
298 lbmi outd5 chk inx type
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
299 andb #$1f r+-5bits
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
300 bitb #$10 chk neg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
301 bne outg5
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
302 tst os9flx,u chk for OS/9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
303 beq outc5
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
304 tst pmode,u chk for 6809
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
305 bpl outc5
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
306 lda flreg,u chk for u-reg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
307 cmpa #$04
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
308 bne outc5
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
309 lda #$3c <
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
310 lbra oux3v
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
311 outg5 lda #$2d -
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
312 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
313 orb #$f0
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
314 negb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
315 andb #$0f
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
316 bne outc5 chk $10
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
317 ldb #$10
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
318 outc5 stb raddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
319 clr flind,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
320 lda pmode,u chk cpu mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
321 cmpa #$05
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
322 bne oupt0
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
323 tst crofl,u chk x-asmb flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
324 beq outf5
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
325 lda #$3c <
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
326 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
327 outf5 lda zulabe,u z/u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
328 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
329 lda #$30 0
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
330 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
331 bra oupta
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
332 oupt0 lda #$24 $
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
333 oupta lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
334 leax raddr,u xx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
335 lbsr xot2h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
336 oupt1 lda #$2c ,
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
337 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
338 tst flmin,u chk auto-decr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
339 beq oupt3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
340 oupt2 lda #$2d -
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
341 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
342 dec flmin,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
343 bne oupt2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
344 oupt3 ldb flreg,u reg name
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
345 clra
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
346 pshs u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
347 leau tfrexc,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
348 pshs u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
349 addd ,s++
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
350 puls u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
351 tfr d,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
352 ldx $02,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
353 stx inam4,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
354 oupt4 leax inam4,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
355 lbsr xpdat output reg name
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
356 tst flpls,u chk auto-incr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
357 beq oupt6
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
358 oupt5 lda #$2b +
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
359 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
360 dec flpls,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
361 bne oupt5
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
362 oupt6 tst flind,u chk indir
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
363 beq oupt9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
364 lda #$5d ]
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
365 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
366 oupt9 lbra outi6 exit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
367 outd5 tst flind,u chk indir
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
368 beq oute5
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
369 lda #$5b [
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
370 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
371 oute5 andb #$0f addr mode field
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
372 bne oux0z ,r+
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
373 oux0a inc flpls,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
374 bra oupt1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
375 oux0z cmpb #$01
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
376 bne oux1z ,r++
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
377 oux1a inc flpls,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
378 bra oux0a
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
379 oux1z cmpb #$02
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
380 bne oux2z ,-r
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
381 oux2a inc flmin,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
382 bra oupt1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
383 oux2z cmpb #$03
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
384 bne oux3z ,--r
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
385 oux3a inc flmin,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
386 bra oux2a
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
387 oux3z cmpb #$04
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
388 bne oux4z ,r
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
389 ldx #$0000
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
390 stx raddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
391 lda #$3c <
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
392 oux3u tst os9flx,u chk for OS/9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
393 beq oux3y
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
394 tst pmode,u chk for 6809
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
395 bpl oux3y
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
396 ldb flreg,u chk for u-reg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
397 cmpb #$04
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
398 bne oux3y
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
399 oux3v tst crofl,u chk x-asmb flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
400 beq oux3x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
401 tst os9flx,u chk for OS/9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
402 beq oux3x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
403 tst pmode,u chk for 6809
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
404 bpl oux3x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
405 ldb flreg,u chk for u-reg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
406 cmpb #$04
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
407 beq oux3x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
408 tst flind,u chk for [ and </>
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
409 bne oux3x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
410 lbsr xoute < or >
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
411 oux3x lda zulabe,u z/u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
412 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
413 leax raddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
414 lbsr xot4h xxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
415 oux3y lbra oupt1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
416 oux4z cmpb #$05
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
417 bne oux5z b,r
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
418 oux5a lda #$62
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
419 oux5b lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
420 lbra oupt1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
421 oux5z cmpb #$06
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
422 bne oux6z a,r
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
423 oux6a lda #$61
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
424 bra oux5b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
425 oux6z cmpb #$08
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
426 bne oux8z r+-8bits
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
427 oux8a tst raddr,u chk neg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
428 bpl oux8c
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
429 lda #$2d -
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
430 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
431 neg raddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
432 oux8b lbra oupt0
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
433 oux8c tst os9flx,u chk for OS/9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
434 beq oux8b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
435 tst pmode,u chk for 6809
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
436 bpl oux8b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
437 lda flreg,u chk for u-reg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
438 cmpa #$04
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
439 bne oux8b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
440 lda #$3c <
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
441 bra oux3v
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
442 oux8z cmpb #$09
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
443 bne oux9z r+-16bits
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
444 oux9c tst os9flx,u chk for os/9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
445 beq oux9a
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
446 tst pmode,u chk for 6809
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
447 bpl oux9a
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
448 lda flreg,u chk for u-reg
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
449 cmpa #$04
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
450 bne oux9a
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
451 lda #$3e >
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
452 lbra oux3v
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
453 oux9a lda #$24 $
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
454 oux9b lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
455 leax raddr,u xxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
456 lbsr xot4h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
457 lbra oupt1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
458 oux9z cmpb #$0b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
459 bne ouxbz d,r
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
460 ouxba lda #$64 d
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
461 bra oux5b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
462 ouxbz cmpb #$0c
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
463 bne ouxcz pcr+-8bits
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
464 lda #$3c <
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
465 ouxca tst crofl,u chk x-asmb flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
466 beq ouxcb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
467 tst posfl,u chk pos-ind flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
468 bne ouxcb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
469 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
470 ouxcb lda zulabe,u z/u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
471 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
472 leax raddr,u xxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
473 lbsr xot4h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
474 leax lcpcr,pcr ,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
475 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
476 lbra oupt6
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
477 ouxcz cmpb #$0d
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
478 bne ouxdz pcr+-16bits
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
479 lda #$3e >
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
480 bra ouxca
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
481 ouxdz cmpb #$0f
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
482 bne ouxfz ext ind
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
483 ouxfa lda zulabe,u z/u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
484 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
485 leax raddr,u xxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
486 lbsr xot4h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
487 lbra oupt6
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
488 ouxfz bra outi6 exit
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
489 outb5 cmpa #$06 chk rel
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
490 lbeq outd2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
491 outb6 ldb pmode,u chk cpu mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
492 cmpb #$02
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
493 bne outc6
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
494 lda #$28 (
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
495 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
496 lbra outd2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
497 outc6 cmpa #$07 chk ix0
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
498 lbeq oupt1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
499 outb7 cmpa #$08 chk ix2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
500 bne outb8
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
501 tst crofl,u chk x-asmb flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
502 beq outf7
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
503 lda #$3e >
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
504 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
505 outf7 lda zulabe,u z/u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
506 lbra oux9b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
507 outb8 cmpa #$0b chk btb,bsc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
508 bpl outi6
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
509 tfr a,b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
510 lda flopc,u get bit number
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
511 anda #$0f
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
512 lsra
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
513 adda #$30 add ascii 0
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
514 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
515 lda #$2c ,
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
516 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
517 lda zulabe,u z/u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
518 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
519 lda #$30 00
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
520 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
521 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
522 leax inst2,u xx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
523 lbsr xot2h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
524 lda flmod,u chk mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
525 cmpa #$0a
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
526 beq outi6
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
527 lda #$2c ,
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
528 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
529 lda zulabe,u z/u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
530 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
531 leax zaddr,u xxxx
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
532 lbsr xot4h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
533 outi6 lda instx,u chk print ascii
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
534 cmpa #$4a
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
535 bne outi9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
536 outi7 lda #$06 print characters
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
537 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
538 leax inst1,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
539 ldb fllth,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
540 outi8 lda ,x+ print printables
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
541 anda #$7f
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
542 cmpa #$1f
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
543 bls pral1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
544 cmpa #maxprn
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
545 bls pral2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
546 pral1 lda #$2e .
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
547 pral2 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
548 decb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
549 bpl outi8
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
550 outi9 lbra xcrlf