1 /* $OpenBSD: opcodes.c,v 1.1 2002/05/16 07:37:44 miod Exp $ */ 2 3 /* 4 * Copyright (c) 2002, Miodrag Vallat. 5 * Copyright (c) 1996 Ludd, University of Lule}, Sweden. 6 * All rights reserved. 7 * 8 * This code is derived from software contributed to Ludd by 9 * Bertram Barth. 10 * 11 * Redistribution and use in source and binary forms, with or without 12 * modification, are permitted provided that the following conditions 13 * are met: 14 * 1. Redistributions of source code must retain the above copyright 15 * notice, this list of conditions and the following disclaimer. 16 * 2. Redistributions in binary form must reproduce the above copyright 17 * notice, this list of conditions and the following disclaimer in the 18 * documentation and/or other materials provided with the distribution. 19 * 3. All advertising materials mentioning features or use of this software 20 * must display the following acknowledgement: 21 * This product includes software developed at Ludd, University of 22 * Lule}, Sweden and its contributors. 23 * 4. The name of the author may not be used to endorse or promote products 24 * derived from this software without specific prior written permission 25 * 26 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 27 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 28 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 29 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 30 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 31 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 32 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 33 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 34 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 35 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 36 */ 37 38 #include <sys/param.h> 39 #include <sys/types.h> 40 41 #include <vax/vax/db_disasm.h> 42 /* 43 * argdesc describes each arguments by two characters denoting 44 * the access-type and the data-type. 45 * 46 * Arguments (Access-Types): 47 * r: operand is read only 48 * w: operand is written only 49 * m: operand is modified (both R and W) 50 * b: no operand reference. Branch displacement is specified. 51 * a: calculate the address of the specified operand 52 * v: if not "Rn", same as a. If "RN," R[n+1]R[n] 53 * Arguments (Data-Types): 54 * b: Byte 55 * w: Word 56 * l: Longword 57 * q: Quadword 58 * o: Octaword 59 * d: D_floating 60 * f: F_floating 61 * g: G_floating 62 * h: H_floating 63 * r: Register 64 * x: first data type specified by instruction 65 * y: second data type spcified by instructin 66 * -: no-args 67 * ?: unknown (variable?) 68 */ 69 70 /* one-byte instructions */ 71 vax_instr_t vax_inst[256] = { 72 /* 0x00 */ { "halt", NULL }, 73 /* 0x01 */ { "nop", NULL }, 74 /* 0x02 */ { "rei", NULL }, 75 /* 0x03 */ { "bpt", NULL }, 76 /* 0x04 */ { "ret", NULL }, 77 /* 0x05 */ { "rsb", NULL }, 78 /* 0x06 */ { "ldpctx", NULL }, 79 /* 0x07 */ { "svpctx", NULL }, 80 /* 0x08 */ { "cvtps", "rw,ab,rw,ab" }, 81 /* 0x09 */ { "cvtsp", "rw,ab,rw,ab" }, 82 /* 0x0a */ { "index", "rl,rl,rl,rl,rl,wl" }, 83 /* 0x0b */ { "crc", "ab,rl,rw,ab" }, 84 /* 0x0c */ { "prober", "rb,rw,ab" }, 85 /* 0x0d */ { "probew", "rb,rw,ab" }, 86 /* 0x0e */ { "insque", "ab,wl" }, 87 /* 0x0f */ { "remque", "ab,wl" }, 88 89 /* 0x10 */ { "bsbb", "bb" }, 90 /* 0x11 */ { "brb", "bb" }, 91 /* 0x12 */ { "*bneq", "bb" }, 92 /* 0x13 */ { "*beql", "bb" }, 93 /* 0x14 */ { "bgtr", "bb" }, 94 /* 0x15 */ { "bleq", "bb" }, 95 /* 0x16 */ { "jsb", "ab" }, 96 /* 0x17 */ { "jmp", "ab" }, 97 /* 0x18 */ { "bgeq", "bb" }, 98 /* 0x19 */ { "blss", "bb" }, 99 /* 0x1a */ { "bgtru", "bb" }, 100 /* 0x1b */ { "blequ", "bb" }, 101 /* 0x1c */ { "bvc", "bb" }, 102 /* 0x1d */ { "bvs", "bb" }, 103 /* 0x1e */ { "*bcc", "bb" }, 104 /* 0x1f */ { "*bcs", "bb" }, 105 106 /* 0x20 */ { "addp4", "rw,ab,rw,ab" }, 107 /* 0x21 */ { "addp6", "rw,ab,rw,ab,rw,ab" }, 108 /* 0x22 */ { "subp4", "rw,ab,rw,ab" }, 109 /* 0x23 */ { "subp6", "rw,ab,rw,ab,rw,ab" }, 110 /* 0x24 */ { "cvtpt", "rw,ab,ab,rw,ab" }, 111 /* 0x25 */ { "mulp", "rw,ab,rw,ab,rw,ab" }, 112 /* 0x26 */ { "cvttp", "rw,ab,ab,rw,ab" }, 113 /* 0x27 */ { "divp", "rw,ab,rw,ab,rw,ab" }, 114 /* 0x28 */ { "movc3", "rw,ab,ab" }, 115 /* 0x29 */ { "cmpc3", "rw,ab,ab" }, 116 /* 0x2a */ { "scanc", "rw,ab,ab,rb" }, 117 /* 0x2b */ { "spanc", "rw,ab,ab,rb" }, 118 /* 0x2c */ { "movc5", "rw,ab,rb,rw,ab" }, 119 /* 0x2d */ { "cmpc5", "rw,ab,rb,rw,ab" }, 120 /* 0x2e */ { "movtc", "rw,ab,rb,ab,rw,ab" }, 121 /* 0x2f */ { "movtuc", "rw,ab,rb,ab,rw,ab" }, 122 123 /* 0x30 */ { "bsbw", "bw" }, 124 /* 0x31 */ { "brw", "bw" }, 125 /* 0x32 */ { "cvtwl", "rw,wl" }, 126 /* 0x33 */ { "cvtwb", "rw,wb" }, 127 /* 0x34 */ { "movp", "rw,ab,ab" }, 128 /* 0x35 */ { "cmpp3", "rw,ab,ab" }, 129 /* 0x36 */ { "cvtpl", "rw,ab,wl" }, 130 /* 0x37 */ { "cmpp4", "rw,ab,rw,ab" }, 131 /* 0x38 */ { "editpc", "rw,ab,ab,ab" }, 132 /* 0x39 */ { "matchc", "rw,ab,rw,ab" }, 133 /* 0x3a */ { "locc", "rb,rw,ab" }, 134 /* 0x3b */ { "skpc", "rb,rw,ab" }, 135 /* 0x3c */ { "movzwl", "rw,wl" }, 136 /* 0x3d */ { "acbw", "rw,rw,mw,bw" }, 137 /* 0x3e */ { "movaw", "aw,wl" }, 138 /* 0x3f */ { "pushaw", "aw" }, 139 140 /* 0x40 */ { "addf2", "rf,mf" }, 141 /* 0x41 */ { "addf3", "rf,rf,wf" }, 142 /* 0x42 */ { "subf2", "rf,mf" }, 143 /* 0x43 */ { "subf3", "rf,rf,wf" }, 144 /* 0x44 */ { "mulf2", "rf,mf" }, 145 /* 0x45 */ { "mulf3", "rf,rf,wf" }, 146 /* 0x46 */ { "divf2", "rf,mf" }, 147 /* 0x47 */ { "divf3", "rf,rf,wf" }, 148 /* 0x48 */ { "cvtfb", "rf,wb" }, 149 /* 0x49 */ { "cvtfw", "rf,ww" }, 150 /* 0x4a */ { "cvtfl", "rf,wl" }, 151 /* 0x4b */ { "cvtrfl", "rf,wl" }, 152 /* 0x4c */ { "cvtbf", "rb,wf" }, 153 /* 0x4d */ { "cvtwf", "rw,wf" }, 154 /* 0x4e */ { "cvtlf", "rl,wf" }, 155 /* 0x4f */ { "acbf", "rf,rf,rf,bw" }, 156 157 /* 0x50 */ { "movf", "rf,wf" }, 158 /* 0x51 */ { "cmpf", "rf,rf" }, 159 /* 0x52 */ { "mnegf", "rf,wf" }, 160 /* 0x53 */ { "tstf", "rf" }, 161 /* 0x54 */ { "emodf", "rf,rb,rf,wl,wf" }, 162 /* 0x55 */ { "polyf", "rf,rw,ab" }, 163 /* 0x56 */ { "cvtfd", "rf,wd" }, 164 /* 0x57 */ { "-reserved-", NULL }, 165 /* 0x58 */ { "adawi", "rw,mw" }, 166 /* 0x59 */ { "-reserved-", NULL }, 167 /* 0x5a */ { "-reserved-", NULL }, 168 /* 0x5b */ { "-reserved-", NULL }, 169 /* 0x5c */ { "insqhi", "ab,aq" }, 170 /* 0x5d */ { "insqti", "ab,aq" }, 171 /* 0x5e */ { "remqhi", "aq,wl" }, 172 /* 0x5f */ { "remqti", "aq,wl" }, 173 174 /* 0x60 */ { "addd2", "rd,md" }, 175 /* 0x61 */ { "addd3", "rd,rd,wd" }, 176 /* 0x62 */ { "subd2", "rd,md" }, 177 /* 0x63 */ { "subd3", "rd,rd,wd" }, 178 /* 0x64 */ { "muld2", "rd,md" }, 179 /* 0x65 */ { "muld3", "rd,rd,wd" }, 180 /* 0x66 */ { "divd2", "rd,md" }, 181 /* 0x67 */ { "divd3", "rd,rd,wd" }, 182 /* 0x68 */ { "cvtdb", "rd,wb" }, 183 /* 0x69 */ { "cvtdw", "rd,ww" }, 184 /* 0x6a */ { "cvtdl", "rd,wl" }, 185 /* 0x6b */ { "cvtrdl", "rd,wl" }, 186 /* 0x6c */ { "cvtbd", "rb,wd" }, 187 /* 0x6d */ { "cvtwd", "rw,wd" }, 188 /* 0x6e */ { "cvtld", "rl,wd" }, 189 /* 0x6f */ { "acbd", "rd,rd,md,bw" }, 190 191 /* 0x70 */ { "movd", "rd,wd" }, 192 /* 0x71 */ { "cmpd", "rd,rd" }, 193 /* 0x72 */ { "mnegd", "rd,wd" }, 194 /* 0x73 */ { "tstd", "rd" }, 195 /* 0x74 */ { "emodd", "rd,rb,rd,wl,wd" }, 196 /* 0x75 */ { "polyd", "rd,rw,ab" }, 197 /* 0x76 */ { "cvtdf", "rd,wf" }, 198 /* 0x77 */ { "-reserved-", NULL }, 199 /* 0x78 */ { "ashl", "rb,rl,wl" }, 200 /* 0x79 */ { "ashq", "rb,rq,wq" }, 201 /* 0x7a */ { "emul", "rl,rl,rl,wq" }, 202 /* 0x7b */ { "ediv", "rl,rq,wl,wl" }, 203 /* 0x7c */ { "*clrq", "wq" }, 204 /* 0x7d */ { "movq", "rq,wq" }, 205 /* 0x7e */ { "*movaq", "aq,wl" }, 206 /* 0x7f */ { "*pushaq", "aq" }, 207 208 /* 0x80 */ { "addb2", "rb,mb" }, 209 /* 0x81 */ { "addb3", "rb,rb,wb" }, 210 /* 0x82 */ { "subb2", "rb,mb" }, 211 /* 0x83 */ { "subb3", "rb,rb,wb" }, 212 /* 0x84 */ { "mulb2", "rb,mb" }, 213 /* 0x85 */ { "mulb3", "rb,rb,wb" }, 214 /* 0x86 */ { "divb2", "rb,mb" }, 215 /* 0x87 */ { "divb3", "rb,rb,wb" }, 216 /* 0x88 */ { "bisb2", "rb,mb" }, 217 /* 0x89 */ { "bisb3", "rb,rb,wb" }, 218 /* 0x8a */ { "bicb2", "rb,mb" }, 219 /* 0x8b */ { "bicb3", "rb,rb,wb" }, 220 /* 0x8c */ { "xorb2", "rb,mb" }, 221 /* 0x8d */ { "xorb3", "rb,rb,wb" }, 222 /* 0x8e */ { "mnegb", "rb,wb" }, 223 /* 0x8f */ { "caseb", "rb,rb,rb,bw-list" }, 224 225 /* 0x90 */ { "movb", "rb,wb" }, 226 /* 0x91 */ { "cmpb", "rb,rb" }, 227 /* 0x92 */ { "mcomb", "rb,wb" }, 228 /* 0x93 */ { "bitb", "rb,rb" }, 229 /* 0x94 */ { "clrb", "wb" }, 230 /* 0x95 */ { "tstb", "rb" }, 231 /* 0x96 */ { "incb", "mb" }, 232 /* 0x97 */ { "decb", "mb" }, 233 /* 0x98 */ { "cvtbl", "rb,wl" }, 234 /* 0x99 */ { "cvtbw", "rb,ww" }, 235 /* 0x9a */ { "movzbl", "rb,wl" }, 236 /* 0x9b */ { "movzbw", "wb,ww" }, 237 /* 0x9c */ { "rotl", "rb,rl,wl" }, 238 /* 0x9d */ { "acbb", "rb,rb,mb,bw" }, 239 /* 0x9e */ { "movab", "ab,wl" }, 240 /* 0x9f */ { "pushab", "ab" }, 241 242 /* 0xa0 */ { "addw2", "rw,mw" }, 243 /* 0xa1 */ { "addw3", "rw,rw,ww" }, 244 /* 0xa2 */ { "subw2", "rw,mw" }, 245 /* 0xa3 */ { "subw3", "rw,rw,ww" }, 246 /* 0xa4 */ { "mulw2", "rw,mw" }, 247 /* 0xa5 */ { "mulw3", "rw,rw,ww" }, 248 /* 0xa6 */ { "divw2", "rw,mw" }, 249 /* 0xa7 */ { "divw3", "rw,rw,ww" }, 250 /* 0xa8 */ { "bisw2", "rw,mw" }, 251 /* 0xa9 */ { "bisw3", "rw,rw,ww" }, 252 /* 0xaa */ { "bicw2", "rw,mw" }, 253 /* 0xab */ { "bicw3", "rw,rw,ww" }, 254 /* 0xac */ { "xorw2", "rw,mw" }, 255 /* 0xad */ { "xorw3", "rw,rw,ww" }, 256 /* 0xae */ { "mnegw", "rw,ww" }, 257 /* 0xaf */ { "casew", "rw,rw,rw,bw-list" }, 258 259 /* 0xb0 */ { "movw", "rw,ww" }, 260 /* 0xb1 */ { "cmpw", "rw,rw" }, 261 /* 0xb2 */ { "mcomw", "rw,ww" }, 262 /* 0xb3 */ { "bitw", "rw,rw" }, 263 /* 0xb4 */ { "clrw", "mw" }, 264 /* 0xb5 */ { "tstw", "rw" }, 265 /* 0xb6 */ { "incw", "mw" }, 266 /* 0xb7 */ { "decw", "mw" }, 267 /* 0xb8 */ { "bispsw", "rw" }, 268 /* 0xb9 */ { "bicpsw", "rw" }, 269 /* 0xba */ { "popr", "rw" }, 270 /* 0xbb */ { "pushr", "rw" }, 271 /* 0xbc */ { "chmk", "rw" }, 272 /* 0xbd */ { "chme", "rw" }, 273 /* 0xbe */ { "chms", "rw" }, 274 /* 0xbf */ { "chmu", "rw" }, 275 276 /* 0xc0 */ { "addl2", "rl,ml" }, 277 /* 0xc1 */ { "addl3", "rl,rl,wl" }, 278 /* 0xc2 */ { "subl2", "rl,ml" }, 279 /* 0xc3 */ { "subl3", "rl,rl,wl" }, 280 /* 0xc4 */ { "mull2", "rl,ml" }, 281 /* 0xc5 */ { "mull3", "rl,rl,wl" }, 282 /* 0xc6 */ { "divl2", "rl,ml" }, 283 /* 0xc7 */ { "divl3", "rl,rl,wl" }, 284 /* 0xc8 */ { "bisl2", "rl,ml" }, 285 /* 0xc9 */ { "bisl3", "rl,rl,wl" }, 286 /* 0xca */ { "bicl2", "rl,ml" }, 287 /* 0xcb */ { "bicl3", "rl,rl,wl" }, 288 /* 0xcc */ { "xorl2", "rl,ml" }, 289 /* 0xcd */ { "xorl3", "rl,rl,wl" }, 290 /* 0xce */ { "mnegl", "rl,wl" }, 291 /* 0xcf */ { "casel", "rl,rl,rl,bw-list" }, 292 293 /* 0xd0 */ { "movl", "rl,wl" }, 294 /* 0xd1 */ { "cmpl", "rl,rl" }, 295 /* 0xd2 */ { "mcoml", "rl,wl" }, 296 /* 0xd3 */ { "bitl", "rl,rl" }, 297 /* 0xd4 */ { "*clrl", "wl" }, 298 /* 0xd5 */ { "tstl", "rl" }, 299 /* 0xd6 */ { "incl", "ml" }, 300 /* 0xd7 */ { "decl", "ml" }, 301 /* 0xd8 */ { "adwc", "rl,ml" }, 302 /* 0xd9 */ { "sbwc", "rl,ml" }, 303 /* 0xda */ { "mtpr", "rl,rl" }, 304 /* 0xdb */ { "mfpr", "rl,wl" }, 305 /* 0xdc */ { "movpsl", "wl" }, 306 /* 0xdd */ { "pushl", "rl" }, 307 /* 0xde */ { "*moval", "al,wl" }, 308 /* 0xdf */ { "*pushal", "al" }, 309 310 /* 0xe0 */ { "bbs", "rl,vb,bb" }, 311 /* 0xe1 */ { "bbc", "rl,vb,bb" }, 312 /* 0xe2 */ { "bbss", "rl,vb,bb" }, 313 /* 0xe3 */ { "bbcs", "rl,vb,bb" }, 314 /* 0xe4 */ { "bbsc", "rl,vb,bb" }, 315 /* 0xe5 */ { "bbcc", "rl,vb,bb" }, 316 /* 0xe6 */ { "bbssi", "rl,vb,bb" }, 317 /* 0xe7 */ { "bbcci", "rl,vb,bb" }, 318 /* 0xe8 */ { "blbs", "rl,bb" }, 319 /* 0xe9 */ { "blbc", "rl,bb" }, 320 /* 0xea */ { "ffs", "rl,rb,vb" }, 321 /* 0xeb */ { "ffc", "rl,rb,vb" }, 322 /* 0xec */ { "cmpv", "rl,rb,vb,rl" }, 323 /* 0xed */ { "cmpzv", "rl,rb,vb,rl" }, 324 /* 0xee */ { "extv", "rl,rb,vb,wl" }, 325 /* 0xef */ { "extzv", "rl,rb,vb,wl" }, 326 327 /* 0xf0 */ { "insv", "rl,rl,rb,vb" }, 328 /* 0xf1 */ { "acbl", "rl,rl,ml,bw" }, 329 /* 0xf2 */ { "aoblss", "rl,ml,bb" }, 330 /* 0xf3 */ { "aobleq", "rl,ml,bb" }, 331 /* 0xf4 */ { "sobgeq", "ml,bb" }, 332 /* 0xf5 */ { "sobgtr", "ml,bb" }, 333 /* 0xf6 */ { "cvtlb", "rl,wb" }, 334 /* 0xf7 */ { "cvtlw", "rl,ww" }, 335 /* 0xf8 */ { "ashp", "rb,rw,ab,rb,rw,ab" }, 336 /* 0xf9 */ { "cvtlp", "rl,rw,ab" }, 337 /* 0xfa */ { "callg", "ab,ab" }, 338 /* 0xfb */ { "calls", "rl,ab" }, 339 /* 0xfc */ { "xfc", "?" }, 340 /* 0xfd */ { "-reserved-", NULL }, 341 /* 0xfe */ { "-reserved-", NULL }, 342 /* 0xff */ { "-reserved-", NULL }, 343 }; 344 345 /* two-byte instructions */ 346 vax_instr_t vax_inst2[0x56] = { 347 /* reserved */ { NULL, NULL }, 348 /* 0xfd31 */ { NULL, NULL }, 349 /* 0xfd32 */ { "cvtdh", "rd,wh" }, 350 /* 0xfd33 */ { "cvtgf", "rg,wf" }, 351 /* 0xfd34 */ { NULL, NULL }, 352 /* 0xfd35 */ { NULL, NULL }, 353 /* 0xfd36 */ { NULL, NULL }, 354 /* 0xfd37 */ { NULL, NULL }, 355 /* 0xfd38 */ { NULL, NULL }, 356 /* 0xfd39 */ { NULL, NULL }, 357 /* 0xfd3a */ { NULL, NULL }, 358 /* 0xfd3b */ { NULL, NULL }, 359 /* 0xfd3c */ { NULL, NULL }, 360 /* 0xfd3d */ { NULL, NULL }, 361 /* 0xfd3e */ { NULL, NULL }, 362 /* 0xfd3f */ { NULL, NULL }, 363 364 /* 0xfd40 */ { "addg2", "rg,mg" }, 365 /* 0xfd41 */ { "addg3", "rg,rg,wg" }, 366 /* 0xfd42 */ { "subg2", "rg,mg" }, 367 /* 0xfd43 */ { "subg3", "rg,rg,wg" }, 368 /* 0xfd44 */ { "mulg2", "rg,mg" }, 369 /* 0xfd45 */ { "mulg3", "rg,rg,wg" }, 370 /* 0xfd46 */ { "divg2", "rg,mg" }, 371 /* 0xfd47 */ { "divg3", "rg,rg,wg" }, 372 /* 0xfd48 */ { "cvtgb", "rg,wb" }, 373 /* 0xfd49 */ { "cvtgw", "rg,ww" }, 374 /* 0xfd4a */ { "cvtgl", "rg,wl" }, 375 /* 0xfd4b */ { "cvtrgl", "rg,wl" }, 376 /* 0xfd4c */ { "cvtbg", "rb,wg" }, 377 /* 0xfd4d */ { "cvtwg", "rw,wg" }, 378 /* 0xfd4e */ { "cvtlg", "rl,wg" }, 379 /* 0xfd4f */ { "acbg", "rg,rg,mg,bg" }, 380 381 /* 0xfd50 */ { "movg", "rg,wg" }, 382 /* 0xfd51 */ { "cmpg", "rg,rg" }, 383 /* 0xfd52 */ { "mnegg", "rg,wg" }, 384 /* 0xfd53 */ { "tstg", "rg" }, 385 /* 0xfd54 */ { "emodg", "rg,rb,rg,wl,wg" }, 386 /* 0xfd55 */ { "polyg", "rg,rw,ab" }, 387 /* 0xfd56 */ { "cvtgh", "rg,wh" }, 388 /* 0xfd57 */ { NULL, NULL }, 389 /* 0xfd58 */ { NULL, NULL }, 390 /* 0xfd59 */ { NULL, NULL }, 391 /* 0xfd5a */ { NULL, NULL }, 392 /* 0xfd5b */ { NULL, NULL }, 393 /* 0xfd5c */ { NULL, NULL }, 394 /* 0xfd5d */ { NULL, NULL }, 395 /* 0xfd5e */ { NULL, NULL }, 396 /* 0xfd5f */ { NULL, NULL }, 397 398 /* 0xfd60 */ { "addh2", "rh,mh" }, 399 /* 0xfd61 */ { "addh3", "rh,rh,wh" }, 400 /* 0xfd62 */ { "subh2", "rh,mh" }, 401 /* 0xfd63 */ { "subh3", "rh,rh,wh" }, 402 /* 0xfd64 */ { "mulh2", "rh,mh" }, 403 /* 0xfd65 */ { "mulh3", "rh,rh,wh" }, 404 /* 0xfd66 */ { "divh2", "rh,mh" }, 405 /* 0xfd67 */ { "divh3", "rh,rh,wh" }, 406 /* 0xfd68 */ { "cvthb", "wh,rb" }, 407 /* 0xfd69 */ { "cvthw", "rh,ww" }, 408 /* 0xfd6a */ { "cvthl", "rh,wl" }, 409 /* 0xfd6b */ { "cvtrhl", "rh,wl" }, 410 /* 0xfd6c */ { "cvtbh", "rb,wh" }, 411 /* 0xfd6d */ { "cvtwh", "rw,wh" }, 412 /* 0xfd6e */ { "cvtlh", "rl,wh" }, 413 /* 0xfd6f */ { "acbh", "rh,rh,mh,bh" }, 414 415 /* 0xfd70 */ { "movh", "rh,wh" }, 416 /* 0xfd71 */ { "cmph", "rh,rh" }, 417 /* 0xfd72 */ { "mnegh", "rh,wh" }, 418 /* 0xfd73 */ { "tsth", "rh" }, 419 /* 0xfd74 */ { "emodh" "rh,rb,rh,wl,wh" }, 420 /* 0xfd75 */ { "polyh", "rh,rw,ab" }, 421 /* 0xfd76 */ { "cvthg", "rh,wg" }, 422 /* 0xfd77 */ { NULL, NULL }, 423 /* 0xfd78 */ { NULL, NULL }, 424 /* 0xfd79 */ { NULL, NULL }, 425 /* 0xfd7a */ { NULL, NULL }, 426 /* 0xfd7b */ { NULL, NULL }, 427 /* 0xfd7c */ { "clrh", "wh" }, 428 /* 0xfd7d */ { "movo", "ro,wo" }, 429 /* 0xfd7e */ { "*mova", "ao,wl" }, 430 /* 0xfd7f */ { "*pusha", "ao" }, 431 432 /* 0xfd98 */ { "cvtfh", "rf,wh" }, 433 /* 0xfd99 */ { "cvtfg", "rf,wg" }, 434 /* 0xfdf6 */ { "cvthf", "rh,wf" }, 435 /* 0xfdf7 */ { "cvthd", "rh,wd" }, 436 /* 0xfffd */ { "bugl", "bl" }, 437 /* 0xfffe */ { "bugw", "bw" }, 438 }; 439 440 /* 441 * The following is a very stripped-down db_disasm.c, with only the logic 442 * to skip instructions. 443 */ 444 445 static u_int8_t get_byte(long); 446 static long skip_operand(long, int); 447 448 static __inline__ u_int8_t 449 get_byte(long ib) 450 { 451 return *((u_int8_t *)ib); 452 } 453 454 long 455 skip_opcode(long ib) 456 { 457 u_int opc; 458 int size; 459 const char *argp; /* pointer into argument-list */ 460 461 opc = get_byte(ib++); 462 if (opc >= 0xfd) { 463 /* two byte op-code */ 464 opc = opc << 8; 465 opc += get_byte(ib++); 466 argp = vax_inst2[INDEX_OPCODE(opc)].argdesc; 467 } else 468 argp = vax_inst[opc].argdesc; 469 470 if (argp == NULL || *argp == '\0') 471 return ib; 472 473 while (*argp) { 474 switch (*argp) { 475 476 case 'b': /* branch displacement */ 477 switch (*(++argp)) { 478 case 'b': 479 ib++; 480 break; 481 case 'w': 482 ib += 2; 483 break; 484 case 'l': 485 ib += 4; 486 break; 487 } 488 break; 489 490 case 'a': /* absolute addressing mode */ 491 /* FALLTHROUGH */ 492 default: 493 switch (*(++argp)) { 494 case 'b': /* Byte */ 495 size = 1; 496 break; 497 case 'w': /* Word */ 498 size = 2; 499 break; 500 case 'l': /* Long-Word */ 501 case 'f': /* F_Floating */ 502 size = 4; 503 break; 504 case 'q': /* Quad-Word */ 505 case 'd': /* D_Floating */ 506 case 'g': /* G_Floating */ 507 size = 8; 508 break; 509 case 'o': /* Octa-Word */ 510 case 'h': /* H_Floating */ 511 size = 16; 512 break; 513 default: 514 size = 0; 515 } 516 ib = skip_operand(ib, size); 517 } 518 519 if (!*argp || !*++argp) 520 break; 521 if (*argp++ != ',') 522 break; 523 } 524 525 return ib; 526 } 527 528 static long 529 skip_operand(long ib, int size) 530 { 531 int c = get_byte(ib++); 532 533 switch (c >> 4) { /* mode */ 534 case 4: /* indexed */ 535 ib = skip_operand(ib, 0); 536 break; 537 538 case 9: /* autoincrement deferred */ 539 if (c == 0x9f) { /* pc: immediate deferred */ 540 /* 541 * addresses are always longwords! 542 */ 543 ib += 4; 544 } 545 break; 546 case 8: /* autoincrement */ 547 if (c == 0x8f) { /* pc: immediate ==> special syntax */ 548 ib += size; 549 } 550 break; 551 552 case 11: /* byte displacement deferred/ relative deferred */ 553 case 10: /* byte displacement / relative mode */ 554 ib++; 555 break; 556 557 case 13: /* word displacement deferred */ 558 case 12: /* word displacement */ 559 ib += 2; 560 break; 561 562 case 15: /* long displacement referred */ 563 case 14: /* long displacement */ 564 ib += 4; 565 break; 566 } 567 568 return ib; 569 } 570