1 /* $NetBSD: db_disasm.c,v 1.28 2013/07/04 23:00:23 joerg Exp $ */ 2 /* $OpenBSD: db_disasm.c,v 1.2 1996/12/28 06:21:48 rahnds Exp $ */ 3 4 #include <sys/cdefs.h> 5 __FBSDID("$FreeBSD$"); 6 7 #include <sys/param.h> 8 #include <sys/proc.h> 9 #include <sys/systm.h> 10 11 #include <machine/db_machdep.h> 12 13 #include <ddb/ddb.h> 14 #include <ddb/db_access.h> 15 #include <ddb/db_sym.h> 16 #include <ddb/db_variables.h> 17 #include <ddb/db_output.h> 18 19 enum function_mask { 20 Op_A = 0x00000001, 21 Op_B = 0x00000002, 22 Op_BI = 0x00000004, 23 Op_BO = 0x00000008, 24 Op_BC = Op_BI | Op_BO, 25 Op_CRM = 0x00000010, 26 Op_D = 0x00000020, 27 Op_ST = 0x00000020, /* Op_S for store-operations, same as D */ 28 Op_S = 0x00000040, /* S-field is swapped with A-field */ 29 Op_FM = Op_D | Op_S, /* kludge (reduce Op_s) */ 30 Op_dA = 0x00000080, 31 Op_LK = 0x00000100, 32 Op_Rc = 0x00000200, 33 Op_AA = Op_LK | Op_Rc, /* kludge (reduce Op_s) */ 34 Op_LKM = Op_AA, 35 Op_RcM = Op_AA, 36 Op_OE = 0x00000400, 37 Op_SR = 0x00000800, 38 Op_TO = 0x00001000, 39 Op_sign = 0x00002000, 40 Op_const = 0x00004000, 41 Op_SIMM = Op_const | Op_sign, 42 Op_UIMM = Op_const, 43 Op_crbA = 0x00008000, 44 Op_crbB = 0x00010000, 45 Op_WS = Op_crbB, /* kludge, same field as crbB */ 46 Op_rSH = Op_crbB, /* kludge, same field as crbB */ 47 Op_crbD = 0x00020000, 48 Op_crfD = 0x00040000, 49 Op_crfS = 0x00080000, 50 Op_ds = 0x00100000, 51 Op_me = 0x00200000, 52 Op_spr = 0x00400000, 53 Op_dcr = Op_spr, /* out of bits - cheat with Op_spr */ 54 Op_tbr = 0x00800000, 55 56 Op_BP = 0x01000000, 57 Op_BD = 0x02000000, 58 Op_LI = 0x04000000, 59 Op_C = 0x08000000, 60 61 Op_NB = 0x10000000, 62 63 Op_sh_mb_sh = 0x20000000, 64 Op_sh = 0x40000000, 65 Op_SH = Op_sh | Op_sh_mb_sh, 66 Op_mb = 0x80000000, 67 Op_MB = Op_mb | Op_sh_mb_sh, 68 Op_ME = Op_MB, 69 70 }; 71 72 struct opcode { 73 const char *name; 74 u_int32_t mask; 75 u_int32_t code; 76 enum function_mask func; 77 }; 78 79 typedef u_int32_t instr_t; 80 typedef void (op_class_func) (instr_t, vm_offset_t); 81 82 u_int32_t extract_field(u_int32_t value, u_int32_t base, u_int32_t width); 83 void disasm_fields(const struct opcode *popcode, instr_t instr, vm_offset_t loc, 84 char *disasm_str, size_t slen); 85 void dis_ppc(const struct opcode *opcodeset, instr_t instr, vm_offset_t loc); 86 87 op_class_func op_ill, op_base; 88 op_class_func op_cl_x13, op_cl_x1e, op_cl_x1f; 89 op_class_func op_cl_x3a, op_cl_x3b; 90 op_class_func op_cl_x3e, op_cl_x3f; 91 92 op_class_func *opcodes_base[] = { 93 /*x00*/ op_ill, op_ill, op_base, op_ill, 94 /*x04*/ op_ill, op_ill, op_ill, op_base, 95 /*x08*/ op_base, op_base, op_base, op_base, 96 /*x0C*/ op_base, op_base, op_base/*XXX*/, op_base/*XXX*/, 97 /*x10*/ op_base, op_base, op_base, op_cl_x13, 98 /*x14*/ op_base, op_base, op_ill, op_base, 99 /*x18*/ op_base, op_base, op_base, op_base, 100 /*x1C*/ op_base, op_base, op_cl_x1e, op_cl_x1f, 101 /*x20*/ op_base, op_base, op_base, op_base, 102 /*x24*/ op_base, op_base, op_base, op_base, 103 /*x28*/ op_base, op_base, op_base, op_base, 104 /*x2C*/ op_base, op_base, op_base, op_base, 105 /*x30*/ op_base, op_base, op_base, op_base, 106 /*x34*/ op_base, op_base, op_base, op_base, 107 /*x38*/ op_ill, op_ill, op_cl_x3a, op_cl_x3b, 108 /*x3C*/ op_ill, op_ill, op_cl_x3e, op_cl_x3f 109 }; 110 111 112 /* This table could be modified to make significant the "reserved" fields 113 * of the opcodes, But I didn't feel like it when typing in the table, 114 * I would recommend that this table be looked over for errors, 115 * This was derived from the table in Appendix A.2 of (Mot part # MPCFPE/AD) 116 * PowerPC Microprocessor Family: The Programming Environments 117 */ 118 119 const struct opcode opcodes[] = { 120 { "tdi", 0xfc000000, 0x08000000, Op_TO | Op_A | Op_SIMM }, 121 { "twi", 0xfc000000, 0x0c000000, Op_TO | Op_A | Op_SIMM }, 122 { "mulli", 0xfc000000, 0x1c000000, Op_D | Op_A | Op_SIMM }, 123 { "subfic", 0xfc000000, 0x20000000, Op_D | Op_A | Op_SIMM }, 124 { "cmplwi", 0xfc200000, 0x28000000, Op_crfD | Op_A | Op_SIMM }, 125 { "cmpldi", 0xfc200000, 0x28200000, Op_crfD | Op_A | Op_SIMM }, 126 { "cmpwi", 0xfc200000, 0x2c000000, Op_crfD | Op_A | Op_SIMM }, 127 { "cmpdi", 0xfc200000, 0x2c200000, Op_crfD | Op_A | Op_SIMM }, 128 { "addic", 0xfc000000, 0x30000000, Op_D | Op_A | Op_SIMM }, 129 { "addic.", 0xfc000000, 0x34000000, Op_D | Op_A | Op_SIMM }, 130 { "addi", 0xfc000000, 0x38000000, Op_D | Op_A | Op_SIMM }, 131 { "addis", 0xfc000000, 0x3c000000, Op_D | Op_A | Op_SIMM }, 132 { "b", 0xfc000000, 0x40000000, Op_BC | Op_BD | Op_AA | Op_LK }, /* bc */ 133 { "sc", 0xffffffff, 0x44000002, 0 }, 134 { "b", 0xfc000000, 0x48000000, Op_LI | Op_AA | Op_LK }, 135 136 { "rlwimi", 0xfc000000, 0x50000000, Op_S | Op_A | Op_SH | Op_MB | Op_ME | Op_Rc }, 137 { "rlwinm", 0xfc000000, 0x54000000, Op_S | Op_A | Op_SH | Op_MB | Op_ME | Op_Rc }, 138 { "rlwnm", 0xfc000000, 0x5c000000, Op_S | Op_A | Op_SH | Op_MB | Op_ME | Op_Rc }, 139 140 { "ori", 0xfc000000, 0x60000000, Op_S | Op_A | Op_UIMM }, 141 { "oris", 0xfc000000, 0x64000000, Op_S | Op_A | Op_UIMM }, 142 { "xori", 0xfc000000, 0x68000000, Op_S | Op_A | Op_UIMM }, 143 { "xoris", 0xfc000000, 0x6c000000, Op_S | Op_A | Op_UIMM }, 144 145 { "andi.", 0xfc000000, 0x70000000, Op_S | Op_A | Op_UIMM }, 146 { "andis.", 0xfc000000, 0x74000000, Op_S | Op_A | Op_UIMM }, 147 148 { "lwz", 0xfc000000, 0x80000000, Op_D | Op_dA }, 149 { "lwzu", 0xfc000000, 0x84000000, Op_D | Op_dA }, 150 { "lbz", 0xfc000000, 0x88000000, Op_D | Op_dA }, 151 { "lbzu", 0xfc000000, 0x8c000000, Op_D | Op_dA }, 152 { "stw", 0xfc000000, 0x90000000, Op_ST | Op_dA }, 153 { "stwu", 0xfc000000, 0x94000000, Op_ST | Op_dA }, 154 { "stb", 0xfc000000, 0x98000000, Op_ST | Op_dA }, 155 { "stbu", 0xfc000000, 0x9c000000, Op_ST | Op_dA }, 156 157 { "lhz", 0xfc000000, 0xa0000000, Op_D | Op_dA }, 158 { "lhzu", 0xfc000000, 0xa4000000, Op_D | Op_dA }, 159 { "lha", 0xfc000000, 0xa8000000, Op_D | Op_dA }, 160 { "lhau", 0xfc000000, 0xac000000, Op_D | Op_dA }, 161 { "sth", 0xfc000000, 0xb0000000, Op_ST | Op_dA }, 162 { "sthu", 0xfc000000, 0xb4000000, Op_ST | Op_dA }, 163 { "lmw", 0xfc000000, 0xb8000000, Op_D | Op_dA }, 164 { "stmw", 0xfc000000, 0xbc000000, Op_ST | Op_dA }, 165 166 { "lfs", 0xfc000000, 0xc0000000, Op_D | Op_dA }, 167 { "lfsu", 0xfc000000, 0xc4000000, Op_D | Op_dA }, 168 { "lfd", 0xfc000000, 0xc8000000, Op_D | Op_dA }, 169 { "lfdu", 0xfc000000, 0xcc000000, Op_D | Op_dA }, 170 171 { "stfs", 0xfc000000, 0xd0000000, Op_ST | Op_dA }, 172 { "stfsu", 0xfc000000, 0xd4000000, Op_ST | Op_dA }, 173 { "stfd", 0xfc000000, 0xd8000000, Op_ST | Op_dA }, 174 { "stfdu", 0xfc000000, 0xdc000000, Op_ST | Op_dA }, 175 { "", 0x0, 0x0, 0 } 176 177 }; 178 /* 13 * 4 = 4c */ 179 const struct opcode opcodes_13[] = { 180 /* 0x13 << 2 */ 181 { "mcrf", 0xfc0007fe, 0x4c000000, Op_crfD | Op_crfS }, 182 { "b", 0xfc0007fe, 0x4c000020, Op_BC | Op_LK }, /* bclr */ 183 { "crnor", 0xfc0007fe, 0x4c000042, Op_crbD | Op_crbA | Op_crbB }, 184 { "rfi", 0xfc0007fe, 0x4c000064, 0 }, 185 { "crandc", 0xfc0007fe, 0x4c000102, Op_crbD | Op_crbA | Op_crbB }, 186 { "isync", 0xfc0007fe, 0x4c00012c, 0 }, 187 { "crxor", 0xfc0007fe, 0x4c000182, Op_crbD | Op_crbA | Op_crbB }, 188 { "crnand", 0xfc0007fe, 0x4c0001c2, Op_crbD | Op_crbA | Op_crbB }, 189 { "crand", 0xfc0007fe, 0x4c000202, Op_crbD | Op_crbA | Op_crbB }, 190 { "creqv", 0xfc0007fe, 0x4c000242, Op_crbD | Op_crbA | Op_crbB }, 191 { "crorc", 0xfc0007fe, 0x4c000342, Op_crbD | Op_crbA | Op_crbB }, 192 { "cror", 0xfc0007fe, 0x4c000382, Op_crbD | Op_crbA | Op_crbB }, 193 { "b", 0xfc0007fe, 0x4c000420, Op_BC | Op_LK }, /* bcctr */ 194 { "", 0x0, 0x0, 0 } 195 }; 196 197 /* 1e * 4 = 78 */ 198 const struct opcode opcodes_1e[] = { 199 { "rldicl", 0xfc00001c, 0x78000000, Op_S | Op_A | Op_sh | Op_mb | Op_Rc }, 200 { "rldicr", 0xfc00001c, 0x78000004, Op_S | Op_A | Op_sh | Op_me | Op_Rc }, 201 { "rldic", 0xfc00001c, 0x78000008, Op_S | Op_A | Op_sh | Op_mb | Op_Rc }, 202 { "rldimi", 0xfc00001c, 0x7800000c, Op_S | Op_A | Op_sh | Op_mb | Op_Rc }, 203 { "rldcl", 0xfc00003e, 0x78000010, Op_S | Op_A | Op_B | Op_mb | Op_Rc }, 204 { "rldcr", 0xfc00003e, 0x78000012, Op_S | Op_A | Op_B | Op_me | Op_Rc }, 205 { "", 0x0, 0x0, 0 } 206 }; 207 208 /* 1f * 4 = 7c */ 209 const struct opcode opcodes_1f[] = { 210 /* 1f << 2 */ 211 { "cmpw", 0xfc2007fe, 0x7c000000, Op_crfD | Op_A | Op_B }, 212 { "cmpd", 0xfc2007fe, 0x7c200000, Op_crfD | Op_A | Op_B }, 213 { "tw", 0xfc0007fe, 0x7c000008, Op_TO | Op_A | Op_B }, 214 { "subfc", 0xfc0003fe, 0x7c000010, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 215 { "mulhdu", 0xfc0007fe, 0x7c000012, Op_D | Op_A | Op_B | Op_Rc }, 216 { "addc", 0xfc0003fe, 0x7c000014, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 217 { "mulhwu", 0xfc0007fe, 0x7c000016, Op_D | Op_A | Op_B | Op_Rc }, 218 { "isellt", 0xfc0007ff, 0x7c00001e, Op_D | Op_A | Op_B }, 219 { "iselgt", 0xfc0007ff, 0x7c00005e, Op_D | Op_A | Op_B }, 220 { "iseleq", 0xfc0007ff, 0x7c00009e, Op_D | Op_A | Op_B }, 221 222 { "mfcr", 0xfc0007fe, 0x7c000026, Op_D }, 223 { "lwarx", 0xfc0007fe, 0x7c000028, Op_D | Op_A | Op_B }, 224 { "ldx", 0xfc0007fe, 0x7c00002a, Op_D | Op_A | Op_B }, 225 { "lwzx", 0xfc0007fe, 0x7c00002e, Op_D | Op_A | Op_B }, 226 { "slw", 0xfc0007fe, 0x7c000030, Op_D | Op_A | Op_B | Op_Rc }, 227 { "cntlzw", 0xfc0007fe, 0x7c000034, Op_D | Op_A | Op_Rc }, 228 { "sld", 0xfc0007fe, 0x7c000036, Op_D | Op_A | Op_B | Op_Rc }, 229 { "and", 0xfc0007fe, 0x7c000038, Op_D | Op_A | Op_B | Op_Rc }, 230 { "cmplw", 0xfc2007fe, 0x7c000040, Op_crfD | Op_A | Op_B }, 231 { "cmpld", 0xfc2007fe, 0x7c200040, Op_crfD | Op_A | Op_B }, 232 { "subf", 0xfc0003fe, 0x7c000050, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 233 { "ldux", 0xfc0007fe, 0x7c00006a, Op_D | Op_A | Op_B }, 234 { "dcbst", 0xfc0007fe, 0x7c00006c, Op_A | Op_B }, 235 { "lwzux", 0xfc0007fe, 0x7c00006e, Op_D | Op_A | Op_B }, 236 { "cntlzd", 0xfc0007fe, 0x7c000074, Op_S | Op_A | Op_Rc }, 237 { "andc", 0xfc0007fe, 0x7c000078, Op_S | Op_A | Op_B | Op_Rc }, 238 { "td", 0xfc0007fe, 0x7c000088, Op_TO | Op_A | Op_B }, 239 { "mulhd", 0xfc0007fe, 0x7c000092, Op_D | Op_A | Op_B | Op_Rc }, 240 { "mulhw", 0xfc0007fe, 0x7c000096, Op_D | Op_A | Op_B | Op_Rc }, 241 { "mfmsr", 0xfc0007fe, 0x7c0000a6, Op_D }, 242 { "ldarx", 0xfc0007fe, 0x7c0000a8, Op_D | Op_A | Op_B }, 243 { "dcbf", 0xfc0007fe, 0x7c0000ac, Op_A | Op_B }, 244 { "lbzx", 0xfc0007fe, 0x7c0000ae, Op_D | Op_A | Op_B }, 245 { "neg", 0xfc0003fe, 0x7c0000d0, Op_D | Op_A | Op_OE | Op_Rc }, 246 { "lbzux", 0xfc0007fe, 0x7c0000ee, Op_D | Op_A | Op_B }, 247 { "nor", 0xfc0007fe, 0x7c0000f8, Op_S | Op_A | Op_B | Op_Rc }, 248 { "wrtee", 0xfc0003ff, 0x7c000106, Op_S }, 249 { "subfe", 0xfc0003fe, 0x7c000110, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 250 { "adde", 0xfc0003fe, 0x7c000114, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 251 { "mtcrf", 0xfc0007fe, 0x7c000120, Op_S | Op_CRM }, 252 { "mtmsr", 0xfc0007fe, 0x7c000124, Op_S }, 253 { "stdx", 0xfc0007fe, 0x7c00012a, Op_ST | Op_A | Op_B }, 254 { "stwcx.", 0xfc0007ff, 0x7c00012d, Op_ST | Op_A | Op_B }, 255 { "stwx", 0xfc0007fe, 0x7c00012e, Op_ST | Op_A | Op_B }, 256 { "wrteei", 0xfc0003fe, 0x7c000146, 0 }, /* XXX: out of flags! */ 257 { "stdux", 0xfc0007fe, 0x7c00016a, Op_ST | Op_A | Op_B }, 258 { "stwux", 0xfc0007fe, 0x7c00016e, Op_ST | Op_A | Op_B }, 259 { "subfze", 0xfc0003fe, 0x7c000190, Op_D | Op_A | Op_OE | Op_Rc }, 260 { "addze", 0xfc0003fe, 0x7c000194, Op_D | Op_A | Op_OE | Op_Rc }, 261 { "mtsr", 0xfc0007fe, 0x7c0001a4, Op_S | Op_SR }, 262 { "stdcx.", 0xfc0007ff, 0x7c0001ad, Op_ST | Op_A | Op_B }, 263 { "stbx", 0xfc0007fe, 0x7c0001ae, Op_ST | Op_A | Op_B }, 264 { "subfme", 0xfc0003fe, 0x7c0001d0, Op_D | Op_A | Op_OE | Op_Rc }, 265 { "mulld", 0xfc0003fe, 0x7c0001d2, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 266 { "addme", 0xfc0003fe, 0x7c0001d4, Op_D | Op_A | Op_OE | Op_Rc }, 267 { "mullw", 0xfc0003fe, 0x7c0001d6, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 268 { "mtsrin", 0xfc0007fe, 0x7c0001e4, Op_S | Op_B }, 269 { "dcbtst", 0xfc0007fe, 0x7c0001ec, Op_A | Op_B }, 270 { "stbux", 0xfc0007fe, 0x7c0001ee, Op_ST | Op_A | Op_B }, 271 { "add", 0xfc0003fe, 0x7c000214, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 272 { "dcbt", 0xfc0007fe, 0x7c00022c, Op_A | Op_B }, 273 { "lhzx", 0xfc0007ff, 0x7c00022e, Op_D | Op_A | Op_B }, 274 { "eqv", 0xfc0007fe, 0x7c000238, Op_S | Op_A | Op_B | Op_Rc }, 275 { "tlbie", 0xfc0007fe, 0x7c000264, Op_B }, 276 { "eciwx", 0xfc0007fe, 0x7c00026c, Op_D | Op_A | Op_B }, 277 { "lhzux", 0xfc0007fe, 0x7c00026e, Op_D | Op_A | Op_B }, 278 { "xor", 0xfc0007fe, 0x7c000278, Op_S | Op_A | Op_B | Op_Rc }, 279 { "mfdcr", 0xfc0007fe, 0x7c000286, Op_D | Op_dcr }, 280 { "mfspr", 0xfc0007fe, 0x7c0002a6, Op_D | Op_spr }, 281 { "lwax", 0xfc0007fe, 0x7c0002aa, Op_D | Op_A | Op_B }, 282 { "lhax", 0xfc0007fe, 0x7c0002ae, Op_D | Op_A | Op_B }, 283 { "tlbia", 0xfc0007fe, 0x7c0002e4, 0 }, 284 { "mftb", 0xfc0007fe, 0x7c0002e6, Op_D | Op_tbr }, 285 { "lwaux", 0xfc0007fe, 0x7c0002ea, Op_D | Op_A | Op_B }, 286 { "lhaux", 0xfc0007fe, 0x7c0002ee, Op_D | Op_A | Op_B }, 287 { "sthx", 0xfc0007fe, 0x7c00032e, Op_ST | Op_A | Op_B }, 288 { "orc", 0xfc0007fe, 0x7c000338, Op_S | Op_A | Op_B | Op_Rc }, 289 { "ecowx", 0xfc0007fe, 0x7c00036c, Op_ST | Op_A | Op_B | Op_Rc }, 290 { "slbie", 0xfc0007fc, 0x7c000364, Op_B }, 291 { "sthux", 0xfc0007fe, 0x7c00036e, Op_ST | Op_A | Op_B }, 292 { "or", 0xfc0007fe, 0x7c000378, Op_S | Op_A | Op_B | Op_Rc }, 293 { "mtdcr", 0xfc0007fe, 0x7c000386, Op_S | Op_dcr }, 294 { "divdu", 0xfc0003fe, 0x7c000392, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 295 { "divwu", 0xfc0003fe, 0x7c000396, Op_D | Op_A | Op_B | Op_OE | Op_Rc }, 296 { "mtspr", 0xfc0007fe, 0x7c0003a6, Op_S | Op_spr }, 297 { "dcbi", 0xfc0007fe, 0x7c0003ac, Op_A | Op_B }, 298 { "nand", 0xfc0007fe, 0x7c0003b8, Op_S | Op_A | Op_B | Op_Rc }, 299 { "dcread", 0xfc0007fe, 0x7c0003cc, Op_D | Op_A | Op_B }, 300 { "divd", 0xfc0003fe, 0x7c0003d2, Op_S | Op_A | Op_B | Op_OE | Op_Rc }, 301 { "divw", 0xfc0003fe, 0x7c0003d6, Op_S | Op_A | Op_B | Op_OE | Op_Rc }, 302 { "slbia", 0xfc0003fe, 0x7c0003e4, Op_S | Op_A | Op_B | Op_OE | Op_Rc }, 303 { "mcrxr", 0xfc0007fe, 0x7c000400, Op_crfD }, 304 { "lswx", 0xfc0007fe, 0x7c00042a, Op_D | Op_A | Op_B }, 305 { "lwbrx", 0xfc0007fe, 0x7c00042c, Op_D | Op_A | Op_B }, 306 { "lfsx", 0xfc0007fe, 0x7c00042e, Op_D | Op_A | Op_B }, 307 { "srw", 0xfc0007fe, 0x7c000430, Op_S | Op_A | Op_B | Op_Rc }, 308 { "srd", 0xfc0007fe, 0x7c000436, Op_S | Op_A | Op_B | Op_Rc }, 309 { "tlbsync", 0xfc0007fe, 0x7c00046c, 0 }, 310 { "lfsux", 0xfc0007fe, 0x7c00046e, Op_D | Op_A | Op_B }, 311 { "mfsr", 0xfc0007fe, 0x7c0004a6, Op_D | Op_SR }, 312 { "lswi", 0xfc0007fe, 0x7c0004aa, Op_D | Op_A | Op_NB }, 313 { "sync", 0xfc6007fe, 0x7c0004ac, 0 }, 314 { "lwsync", 0xfc6007fe, 0x7c2004ac, 0 }, 315 { "ptesync", 0xfc6007fe, 0x7c4004ac, 0 }, 316 { "lfdx", 0xfc0007fe, 0x7c0004ae, Op_D | Op_A | Op_B }, 317 { "lfdux", 0xfc0007fe, 0x7c0004ee, Op_D | Op_A | Op_B }, 318 { "mfsrin", 0xfc0007fe, 0x7c000526, Op_D | Op_B }, 319 { "stswx", 0xfc0007fe, 0x7c00052a, Op_ST | Op_A | Op_B }, 320 { "stwbrx", 0xfc0007fe, 0x7c00052c, Op_ST | Op_A | Op_B }, 321 { "stfsx", 0xfc0007fe, 0x7c00052e, Op_ST | Op_A | Op_B }, 322 { "stfsux", 0xfc0007fe, 0x7c00056e, Op_ST | Op_A | Op_B }, 323 { "stswi", 0xfc0007fe, 0x7c0005aa, Op_ST | Op_A | Op_NB }, 324 { "stfdx", 0xfc0007fe, 0x7c0005ae, Op_ST | Op_A | Op_B }, 325 { "stfdux", 0xfc0007fe, 0x7c0005ee, Op_ST | Op_A | Op_B }, 326 { "lhbrx", 0xfc0007fe, 0x7c00062c, Op_D | Op_A | Op_B }, 327 { "sraw", 0xfc0007fe, 0x7c000630, Op_S | Op_A | Op_B }, 328 { "srad", 0xfc0007fe, 0x7c000634, Op_S | Op_A | Op_B | Op_Rc }, 329 { "srawi", 0xfc0007fe, 0x7c000670, Op_S | Op_A | Op_rSH | Op_Rc }, 330 { "sradi", 0xfc0007fc, 0x7c000674, Op_S | Op_A | Op_sh }, 331 { "eieio", 0xfc0007fe, 0x7c0006ac, 0 }, 332 { "tlbsx", 0xfc0007fe, 0x7c000724, Op_S | Op_A | Op_B | Op_Rc }, 333 { "sthbrx", 0xfc0007fe, 0x7c00072c, Op_ST | Op_A | Op_B }, 334 { "extsh", 0xfc0007fe, 0x7c000734, Op_S | Op_A | Op_Rc }, 335 { "tlbre", 0xfc0007fe, 0x7c000764, Op_D | Op_A | Op_WS }, 336 { "extsb", 0xfc0007fe, 0x7c000774, Op_S | Op_A | Op_Rc }, 337 { "icbi", 0xfc0007fe, 0x7c0007ac, Op_A | Op_B }, 338 { "tlbwe", 0xfc0007fe, 0x7c0007a4, Op_S | Op_A | Op_WS }, 339 { "stfiwx", 0xfc0007fe, 0x7c0007ae, Op_ST | Op_A | Op_B }, 340 { "extsw", 0xfc0007fe, 0x7c0007b4, Op_S | Op_A | Op_Rc }, 341 { "dcbz", 0xfc0007fe, 0x7c0007ec, Op_A | Op_B }, 342 { "", 0x0, 0x0, 0 } 343 }; 344 345 /* 3a * 4 = e8 */ 346 const struct opcode opcodes_3a[] = { 347 { "ld", 0xfc000003, 0xe8000000, Op_D | Op_A | Op_ds }, 348 { "ldu", 0xfc000003, 0xe8000001, Op_D | Op_A | Op_ds }, 349 { "lwa", 0xfc000003, 0xe8000002, Op_D | Op_A | Op_ds }, 350 { "", 0x0, 0x0, 0 } 351 }; 352 /* 3b * 4 = ec */ 353 const struct opcode opcodes_3b[] = { 354 { "fdivs", 0xfc00003e, 0xec000024, Op_D | Op_A | Op_B | Op_Rc }, 355 { "fsubs", 0xfc00003e, 0xec000028, Op_D | Op_A | Op_B | Op_Rc }, 356 357 { "fadds", 0xfc00003e, 0xec00002a, Op_D | Op_A | Op_B | Op_Rc }, 358 { "fsqrts", 0xfc00003e, 0xec00002c, Op_D | Op_B | Op_Rc }, 359 { "fres", 0xfc00003e, 0xec000030, Op_D | Op_B | Op_Rc }, 360 { "fmuls", 0xfc00003e, 0xec000032, Op_D | Op_A | Op_C | Op_Rc }, 361 { "fmsubs", 0xfc00003e, 0xec000038, Op_D | Op_A | Op_B | Op_C | Op_Rc }, 362 { "fmadds", 0xfc00003e, 0xec00003a, Op_D | Op_A | Op_B | Op_C | Op_Rc }, 363 { "fnmsubs", 0xfc00003e, 0xec00003c, Op_D | Op_A | Op_B | Op_C | Op_Rc }, 364 { "fnmadds", 0xfc00003e, 0xec00003e, Op_D | Op_A | Op_B | Op_C | Op_Rc }, 365 { "", 0x0, 0x0, 0 } 366 }; 367 /* 3e * 4 = f8 */ 368 const struct opcode opcodes_3e[] = { 369 { "std", 0xfc000003, 0xf8000000, Op_ST | Op_A | Op_ds }, 370 { "stdu", 0xfc000003, 0xf8000001, Op_ST | Op_A | Op_ds }, 371 { "", 0x0, 0x0, 0 } 372 }; 373 374 /* 3f * 4 = fc */ 375 const struct opcode opcodes_3f[] = { 376 { "fcmpu", 0xfc0007fe, 0xfc000000, Op_crfD | Op_A | Op_B }, 377 { "frsp", 0xfc0007fe, 0xfc000018, Op_D | Op_B | Op_Rc }, 378 { "fctiw", 0xfc0007fe, 0xfc00001c, Op_D | Op_B | Op_Rc }, 379 { "fctiwz", 0xfc0007fe, 0xfc00001e, Op_D | Op_B | Op_Rc }, 380 381 { "fdiv", 0xfc00003e, 0xfc000024, Op_D | Op_A | Op_B | Op_Rc }, 382 { "fsub", 0xfc00003e, 0xfc000028, Op_D | Op_A | Op_B | Op_Rc }, 383 { "fadd", 0xfc00003e, 0xfc00002a, Op_D | Op_A | Op_B | Op_Rc }, 384 { "fsqrt", 0xfc00003e, 0xfc00002c, Op_D | Op_B | Op_Rc }, 385 { "fsel", 0xfc00003e, 0xfc00002e, Op_D | Op_A | Op_B | Op_C | Op_Rc }, 386 { "fmul", 0xfc00003e, 0xfc000032, Op_D | Op_A | Op_C | Op_Rc }, 387 { "frsqrte", 0xfc00003e, 0xfc000034, Op_D | Op_B | Op_Rc }, 388 { "fmsub", 0xfc00003e, 0xfc000038, Op_D | Op_A | Op_B | Op_C | Op_Rc }, 389 { "fmadd", 0xfc00003e, 0xfc00003a, Op_D | Op_A | Op_B | Op_C | Op_Rc }, 390 { "fnmsub", 0xfc00003e, 0xfc00003c, Op_D | Op_A | Op_B | Op_C | Op_Rc }, 391 { "fnmadd", 0xfc00003e, 0xfc00003e, Op_D | Op_A | Op_B | Op_C | Op_Rc }, 392 393 { "fcmpo", 0xfc0007fe, 0xfc000040, Op_crfD | Op_A | Op_B }, 394 { "mtfsb1", 0xfc0007fe, 0xfc00004c, Op_crfD | Op_Rc }, 395 { "fneg", 0xfc0007fe, 0xfc000050, Op_D | Op_B | Op_Rc }, 396 { "mcrfs", 0xfc0007fe, 0xfc000080, Op_D | Op_B | Op_Rc }, 397 { "mtfsb0", 0xfc0007fe, 0xfc00008c, Op_crfD | Op_Rc }, 398 { "fmr", 0xfc0007fe, 0xfc000090, Op_D | Op_B | Op_Rc }, 399 { "mtfsfi", 0xfc0007fe, 0xfc00010c, 0 }, /* XXX: out of flags! */ 400 401 { "fnabs", 0xfc0007fe, 0xfc000110, Op_D | Op_B | Op_Rc }, 402 { "fabs", 0xfc0007fe, 0xfc000210, Op_D | Op_B | Op_Rc }, 403 { "mffs", 0xfc0007fe, 0xfc00048e, Op_D | Op_B | Op_Rc }, 404 { "mtfsf", 0xfc0007fe, 0xfc00058e, Op_FM | Op_B | Op_Rc }, 405 { "fctid", 0xfc0007fe, 0xfc00065c, Op_D | Op_B | Op_Rc }, 406 { "fctidz", 0xfc0007fe, 0xfc00065e, Op_D | Op_B | Op_Rc }, 407 { "fcfid", 0xfc0007fe, 0xfc00069c, Op_D | Op_B | Op_Rc }, 408 { "", 0x0, 0x0, 0 } 409 }; 410 411 412 struct specialreg { 413 int reg; 414 const char *name; 415 }; 416 417 const struct specialreg sprregs[] = { 418 { 0x000, "mq" }, 419 { 0x001, "xer" }, 420 { 0x008, "lr" }, 421 { 0x009, "ctr" }, 422 { 0x012, "dsisr" }, 423 { 0x013, "dar" }, 424 { 0x016, "dec" }, 425 { 0x019, "sdr1" }, 426 { 0x01a, "srr0" }, 427 { 0x01b, "srr1" }, 428 #ifdef BOOKE_PPC4XX 429 { 0x100, "usprg0" }, 430 #else 431 { 0x100, "vrsave" }, 432 #endif 433 { 0x110, "sprg0" }, 434 { 0x111, "sprg1" }, 435 { 0x112, "sprg2" }, 436 { 0x113, "sprg3" }, 437 { 0x114, "sprg4" }, 438 { 0x115, "sprg5" }, 439 { 0x116, "sprg6" }, 440 { 0x117, "sprg7" }, 441 { 0x118, "asr" }, 442 { 0x11a, "aer" }, 443 { 0x11c, "tbl" }, 444 { 0x11d, "tbu" }, 445 { 0x11f, "pvr" }, 446 { 0x210, "ibat0u" }, 447 { 0x211, "ibat0l" }, 448 { 0x212, "ibat1u" }, 449 { 0x213, "ibat1l" }, 450 { 0x214, "ibat2u" }, 451 { 0x215, "ibat2l" }, 452 { 0x216, "ibat3u" }, 453 { 0x217, "ibat3l" }, 454 { 0x218, "dbat0u" }, 455 { 0x219, "dbat0l" }, 456 { 0x21a, "dbat1u" }, 457 { 0x21b, "dbat1l" }, 458 { 0x21c, "dbat2u" }, 459 { 0x21d, "dbat2l" }, 460 { 0x21e, "dbat3u" }, 461 { 0x21f, "dbat3l" }, 462 { 0x230, "ibat4u" }, 463 { 0x231, "ibat4l" }, 464 { 0x232, "ibat5u" }, 465 { 0x233, "ibat5l" }, 466 { 0x234, "ibat6u" }, 467 { 0x235, "ibat6l" }, 468 { 0x236, "ibat7u" }, 469 { 0x237, "ibat7l" }, 470 { 0x238, "dbat4u" }, 471 { 0x239, "dbat4l" }, 472 { 0x23a, "dbat5u" }, 473 { 0x23b, "dbat5l" }, 474 { 0x23c, "dbat6u" }, 475 { 0x23d, "dbat6l" }, 476 { 0x23e, "dbat7u" }, 477 { 0x23f, "dbat7l" }, 478 { 0x3b0, "zpr" }, 479 { 0x3b1, "pid" }, 480 { 0x3b3, "ccr0" }, 481 { 0x3b4, "iac3" }, 482 { 0x3b5, "iac4" }, 483 { 0x3b6, "dvc1" }, 484 { 0x3b7, "dvc2" }, 485 { 0x3b9, "sgr" }, 486 { 0x3ba, "dcwr" }, 487 { 0x3bb, "sler" }, 488 { 0x3bc, "su0r" }, 489 { 0x3bd, "dbcr1" }, 490 { 0x3d3, "icdbdr" }, 491 { 0x3d4, "esr" }, 492 { 0x3d5, "dear" }, 493 { 0x3d6, "evpr" }, 494 { 0x3d8, "tsr" }, 495 { 0x3da, "tcr" }, 496 { 0x3db, "pit" }, 497 { 0x3de, "srr2" }, 498 { 0x3df, "srr3" }, 499 #ifdef BOOKE_PPC4XX 500 { 0x3f0, "dbsr" }, 501 { 0x3f2, "dbcr0" }, 502 { 0x3f4, "iac1" }, 503 { 0x3f5, "iac2" }, 504 { 0x3f6, "dac1" }, 505 { 0x3f7, "dac2" }, 506 #else 507 { 0x3f0, "hid0" }, 508 { 0x3f1, "hid1" }, 509 { 0x3f2, "iabr" }, 510 { 0x3f3, "hid2" }, 511 { 0x3f5, "dabr" }, 512 { 0x3f6, "msscr0" }, 513 { 0x3f7, "msscr1" }, 514 #endif 515 { 0x3f9, "l2cr" }, 516 { 0x3fa, "dccr" }, 517 { 0x3fb, "iccr" }, 518 { 0x3ff, "pir" }, 519 { 0, NULL } 520 }; 521 522 const struct specialreg dcrregs[] = { 523 { 0x010, "sdram0_cfgaddr" }, 524 { 0x011, "sdram0_cfgdata" }, 525 { 0x012, "ebc0_cfgaddr" }, 526 { 0x013, "ebc0_cfgdata" }, 527 { 0x014, "dcp0_cfgaddr" }, 528 { 0x015, "dcp0_cfgdata" }, 529 { 0x018, "ocm0_isarc" }, 530 { 0x019, "ocm0_iscntl" }, 531 { 0x01a, "ocm0_dsarc" }, 532 { 0x01b, "ocm0_dscntl" }, 533 { 0x084, "plb0_besr" }, 534 { 0x086, "plb0_bear" }, 535 { 0x087, "plb0_acr" }, 536 { 0x0a0, "pob0_besr0" }, 537 { 0x0a2, "pob0_bear" }, 538 { 0x0a4, "pob0_besr1" }, 539 { 0x0b0, "cpc0_pllmr" }, 540 { 0x0b1, "cpc0_cr0" }, 541 { 0x0b2, "cpc0_cr1" }, 542 { 0x0b4, "cpc0_psr" }, 543 { 0x0b5, "cpc0_jtagid" }, 544 { 0x0b8, "cpc0_sr" }, 545 { 0x0b9, "cpc0_er" }, 546 { 0x0ba, "cpc0_fr" }, 547 { 0x0c0, "uic0_sr" }, 548 { 0x0c2, "uic0_er" }, 549 { 0x0c3, "uic0_cr" }, 550 { 0x0c4, "uic0_pr" }, 551 { 0x0c5, "uic0_tr" }, 552 { 0x0c6, "uic0_msr" }, 553 { 0x0c7, "uic0_vr" }, 554 { 0x0c8, "uic0_vcr" }, 555 { 0x100, "dma0_cr0" }, 556 { 0x101, "dma0_ct0" }, 557 { 0x102, "dma0_da0" }, 558 { 0x103, "dma0_sa0" }, 559 { 0x104, "dma0_sg0" }, 560 { 0x108, "dma0_cr1" }, 561 { 0x109, "dma0_ct1" }, 562 { 0x10a, "dma0_da1" }, 563 { 0x10b, "dma0_sa1" }, 564 { 0x10c, "dma0_sg1" }, 565 { 0x110, "dma0_cr2" }, 566 { 0x111, "dma0_ct2" }, 567 { 0x112, "dma0_da2" }, 568 { 0x113, "dma0_sa2" }, 569 { 0x114, "dma0_sg2" }, 570 { 0x118, "dma0_cr3" }, 571 { 0x119, "dma0_ct3" }, 572 { 0x11a, "dma0_da3" }, 573 { 0x11b, "dma0_sa3" }, 574 { 0x11c, "dma0_sg3" }, 575 { 0x120, "dma0_sr" }, 576 { 0x123, "dma0_sgc" }, 577 { 0x125, "dma0_slp" }, 578 { 0x126, "dma0_pol" }, 579 { 0x180, "mal0_cfg" }, 580 { 0x181, "mal0_esr" }, 581 { 0x182, "mal0_ier" }, 582 { 0x184, "mal0_txcasr" }, 583 { 0x185, "mal0_txcarr" }, 584 { 0x186, "mal0_txeobisr" }, 585 { 0x187, "mal0_txdeir" }, 586 { 0x190, "mal0_rxcasr" }, 587 { 0x191, "mal0_rxcarr" }, 588 { 0x192, "mal0_rxeobisr" }, 589 { 0x193, "mal0_rxdeir" }, 590 { 0x1a0, "mal0_txctp0r" }, 591 { 0x1a1, "mal0_txctp1r" }, 592 { 0x1a2, "mal0_txctp2r" }, 593 { 0x1a3, "mal0_txctp3r" }, 594 { 0x1c0, "mal0_rxctp0r" }, 595 { 0x1e0, "mal0_rcbs0" }, 596 { 0, NULL } 597 }; 598 599 static const char *condstr[8] = { 600 "ge", "le", "ne", "ns", "lt", "gt", "eq", "so" 601 }; 602 603 604 void 605 op_ill(instr_t instr, vm_offset_t loc) 606 { 607 db_printf("illegal instruction %x\n", instr); 608 } 609 610 u_int32_t 611 extract_field(u_int32_t value, u_int32_t base, u_int32_t width) 612 { 613 u_int32_t mask = (1 << width) - 1; 614 return ((value >> base) & mask); 615 } 616 617 const struct opcode * search_op(const struct opcode *); 618 619 void 620 disasm_fields(const struct opcode *popcode, instr_t instr, vm_offset_t loc, 621 char *disasm_str, size_t slen) 622 { 623 char * pstr; 624 enum function_mask func; 625 int len; 626 627 #define ADD_LEN(s) do { \ 628 len = (s); \ 629 slen -= len; \ 630 pstr += len; \ 631 } while(0) 632 #define APP_PSTR(fmt, arg) ADD_LEN(snprintf(pstr, slen, (fmt), (arg))) 633 #define APP_PSTRS(fmt) ADD_LEN(snprintf(pstr, slen, "%s", (fmt))) 634 635 pstr = disasm_str; 636 637 func = popcode->func; 638 if (func & Op_BC) { 639 u_int BO, BI; 640 BO = extract_field(instr, 31 - 10, 5); 641 BI = extract_field(instr, 31 - 15, 5); 642 func &= ~Op_BC; 643 if (BO & 4) { 644 /* standard, no decrement */ 645 if (BO & 16) { 646 if (popcode->code == 0x40000000) { 647 APP_PSTRS("c"); 648 func |= Op_BO | Op_BI; 649 } 650 } 651 else { 652 APP_PSTRS(condstr[((BO & 8) >> 1) + (BI & 3)]); 653 if (BI >= 4) 654 func |= Op_crfS; 655 } 656 } 657 else { 658 /* decrement and branch */ 659 if (BO & 2) 660 APP_PSTRS("dz"); 661 else 662 APP_PSTRS("dnz"); 663 if ((BO & 24) == 0) 664 APP_PSTRS("f"); 665 else if ((BO & 24) == 8) 666 APP_PSTRS("t"); 667 else 668 func |= Op_BI; 669 } 670 if (popcode->code == 0x4c000020) 671 APP_PSTRS("lr"); 672 else if (popcode->code == 0x4c000420) 673 APP_PSTRS("ctr"); 674 if ((BO & 20) != 20 && (func & Op_BO) == 0) 675 func |= Op_BP; /* branch prediction hint */ 676 } 677 if (func & Op_OE) { 678 u_int OE; 679 OE = extract_field(instr, 31 - 21, 1); 680 if (OE) { 681 APP_PSTRS("o"); 682 } 683 func &= ~Op_OE; 684 } 685 switch (func & Op_LKM) { 686 case Op_Rc: 687 if (instr & 0x1) 688 APP_PSTRS("."); 689 break; 690 case Op_AA: 691 if (instr & 0x1) 692 APP_PSTRS("l"); 693 if (instr & 0x2) { 694 APP_PSTRS("a"); 695 loc = 0; /* Absolute address */ 696 } 697 break; 698 case Op_LK: 699 if (instr & 0x1) 700 APP_PSTRS("l"); 701 break; 702 default: 703 func &= ~Op_LKM; 704 } 705 if (func & Op_BP) { 706 int y; 707 y = (instr & 0x200000) != 0; 708 if (popcode->code == 0x40000000) { 709 int BD; 710 BD = extract_field(instr, 31 - 29, 14); 711 BD = BD << 18; 712 BD = BD >> 16; 713 BD += loc; 714 if ((vm_offset_t)BD < loc) 715 y ^= 1; 716 } 717 APP_PSTR("%c", y ? '+' : '-'); 718 func &= ~Op_BP; 719 } 720 APP_PSTRS("\t"); 721 722 /* XXX: special cases here, out of flags in a 32bit word. */ 723 if (strcmp(popcode->name, "wrteei") == 0) { 724 int E; 725 E = extract_field(instr, 31 - 16, 5); 726 APP_PSTR("%d", E); 727 return; 728 } 729 else if (strcmp(popcode->name, "mtfsfi") == 0) { 730 u_int UI; 731 UI = extract_field(instr, 31 - 8, 3); 732 APP_PSTR("crf%u, ", UI); 733 UI = extract_field(instr, 31 - 19, 4); 734 APP_PSTR("0x%x", UI); 735 } 736 /* XXX: end of special cases here. */ 737 738 if ((func & Op_FM) == Op_FM) { 739 u_int FM; 740 FM = extract_field(instr, 31 - 14, 8); 741 APP_PSTR("0x%x, ", FM); 742 func &= ~Op_FM; 743 } 744 if (func & Op_D) { /* Op_ST is the same */ 745 u_int D; 746 D = extract_field(instr, 31 - 10, 5); 747 APP_PSTR("r%d, ", D); 748 func &= ~Op_D; 749 } 750 if (func & Op_crbD) { 751 u_int crbD; 752 crbD = extract_field(instr, 31 - 10, 5); 753 APP_PSTR("crb%d, ", crbD); 754 func &= ~Op_crbD; 755 } 756 if (func & Op_crfD) { 757 u_int crfD; 758 crfD = extract_field(instr, 31 - 8, 3); 759 APP_PSTR("crf%d, ", crfD); 760 func &= ~Op_crfD; 761 } 762 if (func & Op_TO) { 763 u_int TO; 764 TO = extract_field(instr, 31 - 10, 1); 765 APP_PSTR("%d, ", TO); 766 func &= ~Op_TO; 767 } 768 if (func & Op_crfS) { 769 u_int crfS; 770 crfS = extract_field(instr, 31 - 13, 3); 771 APP_PSTR("crf%d, ", crfS); 772 func &= ~Op_crfS; 773 } 774 if (func & Op_CRM) { 775 u_int CRM; 776 CRM = extract_field(instr, 31 - 19, 8); 777 APP_PSTR("0x%x, ", CRM); 778 func &= ~Op_CRM; 779 } 780 if (func & Op_BO) { 781 u_int BO; 782 BO = extract_field(instr, 31 - 10, 5); 783 APP_PSTR("%d, ", BO); 784 func &= ~Op_BO; 785 } 786 if (func & Op_BI) { 787 u_int BI; 788 BI = extract_field(instr, 31 - 15, 5); 789 APP_PSTR("%d, ", BI); 790 func &= ~Op_BI; 791 } 792 if (func & Op_dA) { /* register A indirect with displacement */ 793 u_int A; 794 A = extract_field(instr, 31 - 31, 16); 795 if (A & 0x8000) { 796 APP_PSTRS("-"); 797 A = 0x10000-A; 798 } 799 APP_PSTR("0x%x", A); 800 A = extract_field(instr, 31 - 15, 5); 801 APP_PSTR("(r%d)", A); 802 func &= ~Op_dA; 803 } 804 if (func & Op_spr) { 805 u_int spr; 806 u_int sprl; 807 u_int sprh; 808 const struct specialreg *regs; 809 int i; 810 sprl = extract_field(instr, 31 - 15, 5); 811 sprh = extract_field(instr, 31 - 20, 5); 812 spr = sprh << 5 | sprl; 813 814 /* ugly hack - out of bitfields in the function mask */ 815 if (popcode->name[2] == 'd') /* m.Dcr */ 816 regs = dcrregs; 817 else 818 regs = sprregs; 819 for (i = 0; regs[i].name != NULL; i++) 820 if (spr == regs[i].reg) 821 break; 822 if (regs[i].name == NULL) 823 APP_PSTR("[unknown special reg (%d)]", spr); 824 else 825 APP_PSTR("%s", regs[i].name); 826 827 if (popcode->name[1] == 't') /* spr is destination */ 828 APP_PSTRS(", "); 829 func &= ~Op_spr; 830 } 831 if (func & Op_SR) { 832 u_int SR; 833 SR = extract_field(instr, 31 - 15, 3); 834 APP_PSTR("sr%d", SR); 835 if (popcode->name[1] == 't') /* SR is destination */ 836 APP_PSTRS(", "); 837 func &= ~Op_SR; 838 } 839 if (func & Op_A) { 840 u_int A; 841 A = extract_field(instr, 31 - 15, 5); 842 APP_PSTR("r%d, ", A); 843 func &= ~Op_A; 844 } 845 if (func & Op_S) { 846 u_int D; 847 D = extract_field(instr, 31 - 10, 5); 848 APP_PSTR("r%d, ", D); 849 func &= ~Op_S; 850 } 851 if (func & Op_C) { 852 u_int C; 853 C = extract_field(instr, 31 - 25, 5); 854 APP_PSTR("r%d, ", C); 855 func &= ~Op_C; 856 } 857 if (func & Op_B) { 858 u_int B; 859 B = extract_field(instr, 31 - 20, 5); 860 APP_PSTR("r%d", B); 861 func &= ~Op_B; 862 } 863 if (func & Op_crbA) { 864 u_int crbA; 865 crbA = extract_field(instr, 31 - 15, 5); 866 APP_PSTR("%d, ", crbA); 867 func &= ~Op_crbA; 868 } 869 if (func & Op_crbB) { 870 u_int crbB; 871 crbB = extract_field(instr, 31 - 20, 5); 872 APP_PSTR("%d, ", crbB); 873 func &= ~Op_crbB; 874 } 875 if (func & Op_LI) { 876 int LI; 877 LI = extract_field(instr, 31 - 29, 24); 878 LI = LI << 8; 879 LI = LI >> 6; 880 LI += loc; 881 APP_PSTR("0x%x", LI); 882 func &= ~Op_LI; 883 } 884 switch (func & Op_SIMM) { 885 u_int IMM; 886 case Op_SIMM: /* same as Op_d */ 887 IMM = extract_field(instr, 31 - 31, 16); 888 if (IMM & 0x8000) { 889 APP_PSTRS("-"); 890 IMM = 0x10000-IMM; 891 } 892 func &= ~Op_SIMM; 893 goto common; 894 case Op_UIMM: 895 IMM = extract_field(instr, 31 - 31, 16); 896 func &= ~Op_UIMM; 897 goto common; 898 common: 899 APP_PSTR("0x%x", IMM); 900 break; 901 default: 902 ; 903 } 904 if (func & Op_BD) { 905 int BD; 906 BD = extract_field(instr, 31 - 29, 14); 907 BD = BD << 18; 908 BD = BD >> 16; 909 BD += loc; 910 /* Need to sign extend and shift up 2, then add addr */ 911 APP_PSTR("0x%x", BD); 912 func &= ~Op_BD; 913 } 914 if (func & Op_ds) { 915 u_int ds; 916 ds = extract_field(instr, 31 - 29, 14) << 2; 917 APP_PSTR("0x%x", ds); 918 func &= ~Op_ds; 919 } 920 if (func & Op_me) { 921 u_int me, mel, meh; 922 mel = extract_field(instr, 31 - 25, 4); 923 meh = extract_field(instr, 31 - 26, 1); 924 me = meh << 4 | mel; 925 APP_PSTR(", 0x%x", me); 926 func &= ~Op_me; 927 } 928 if ((func & Op_SH) && (func & Op_sh_mb_sh)) { 929 u_int SH; 930 SH = extract_field(instr, 31 - 20, 5); 931 APP_PSTR("%d", SH); 932 } 933 if ((func & Op_MB) && (func & Op_sh_mb_sh)) { 934 u_int MB; 935 u_int ME; 936 MB = extract_field(instr, 31 - 25, 5); 937 APP_PSTR(", %d", MB); 938 ME = extract_field(instr, 31 - 30, 5); 939 APP_PSTR(", %d", ME); 940 } 941 if ((func & Op_sh) && ! (func & Op_sh_mb_sh)) { 942 u_int sh, shl, shh; 943 shl = extract_field(instr, 31 - 19, 4); 944 shh = extract_field(instr, 31 - 20, 1); 945 sh = shh << 4 | shl; 946 APP_PSTR(", %d", sh); 947 } 948 if ((func & Op_mb) && ! (func & Op_sh_mb_sh)) { 949 u_int mb, mbl, mbh; 950 mbl = extract_field(instr, 31 - 25, 4); 951 mbh = extract_field(instr, 31 - 26, 1); 952 mb = mbh << 4 | mbl; 953 APP_PSTR(", %d", mb); 954 } 955 if ((func & Op_me) && ! (func & Op_sh_mb_sh)) { 956 u_int me, mel, meh; 957 mel = extract_field(instr, 31 - 25, 4); 958 meh = extract_field(instr, 31 - 26, 1); 959 me = meh << 4 | mel; 960 APP_PSTR(", %d", me); 961 } 962 if (func & Op_tbr) { 963 u_int tbr; 964 u_int tbrl; 965 u_int tbrh; 966 const char *reg; 967 tbrl = extract_field(instr, 31 - 15, 5); 968 tbrh = extract_field(instr, 31 - 20, 5); 969 tbr = tbrh << 5 | tbrl; 970 971 switch (tbr) { 972 case 268: 973 reg = "tbl"; 974 break; 975 case 269: 976 reg = "tbu"; 977 break; 978 default: 979 reg = NULL; 980 } 981 if (reg == NULL) 982 APP_PSTR(", [unknown tbr %d ]", tbr); 983 else 984 APP_PSTR(", %s", reg); 985 func &= ~Op_tbr; 986 } 987 if (func & Op_NB) { 988 u_int NB; 989 NB = extract_field(instr, 31 - 20, 5); 990 if (NB == 0) 991 NB = 32; 992 APP_PSTR(", %d", NB); 993 func &= ~Op_SR; 994 } 995 #undef ADD_LEN 996 #undef APP_PSTR 997 #undef APP_PSTRS 998 } 999 1000 void 1001 op_base(instr_t instr, vm_offset_t loc) 1002 { 1003 dis_ppc(opcodes, instr, loc); 1004 } 1005 1006 void 1007 op_cl_x13(instr_t instr, vm_offset_t loc) 1008 { 1009 dis_ppc(opcodes_13, instr, loc); 1010 } 1011 1012 void 1013 op_cl_x1e(instr_t instr, vm_offset_t loc) 1014 { 1015 dis_ppc(opcodes_1e, instr, loc); 1016 } 1017 1018 void 1019 op_cl_x1f(instr_t instr, vm_offset_t loc) 1020 { 1021 dis_ppc(opcodes_1f, instr, loc); 1022 } 1023 1024 void 1025 op_cl_x3a(instr_t instr, vm_offset_t loc) 1026 { 1027 dis_ppc(opcodes_3a, instr, loc); 1028 } 1029 1030 void 1031 op_cl_x3b(instr_t instr, vm_offset_t loc) 1032 { 1033 dis_ppc(opcodes_3b, instr, loc); 1034 } 1035 1036 void 1037 op_cl_x3e(instr_t instr, vm_offset_t loc) 1038 { 1039 dis_ppc(opcodes_3e, instr, loc); 1040 } 1041 1042 void 1043 op_cl_x3f(instr_t instr, vm_offset_t loc) 1044 { 1045 dis_ppc(opcodes_3f, instr, loc); 1046 } 1047 1048 void 1049 dis_ppc(const struct opcode *opcodeset, instr_t instr, vm_offset_t loc) 1050 { 1051 const struct opcode *op; 1052 int found = 0; 1053 int i; 1054 char disasm_str[80]; 1055 1056 for (i = 0, op = &opcodeset[0]; 1057 found == 0 && op->mask != 0; 1058 i++, op = &opcodeset[i]) { 1059 if ((instr & op->mask) == op->code) { 1060 found = 1; 1061 disasm_fields(op, instr, loc, disasm_str, 1062 sizeof disasm_str); 1063 db_printf("%s%s\n", op->name, disasm_str); 1064 return; 1065 } 1066 } 1067 op_ill(instr, loc); 1068 } 1069 1070 db_addr_t 1071 db_disasm(db_addr_t loc, bool extended) 1072 { 1073 int class; 1074 instr_t opcode; 1075 opcode = *(instr_t *)(loc); 1076 class = opcode >> 26; 1077 (opcodes_base[class])(opcode, loc); 1078 1079 return (loc + 4); 1080 } 1081 1082 vm_offset_t opc_disasm(vm_offset_t loc, int); 1083 1084 vm_offset_t 1085 opc_disasm(vm_offset_t loc, int xin) 1086 { 1087 int class; 1088 instr_t opcode; 1089 opcode = xin; 1090 class = opcode >> 26; 1091 (opcodes_base[class])(opcode, loc); 1092 1093 return (loc + 4); 1094 } 1095