214 lines
7.8 KiB
C
Executable File
214 lines
7.8 KiB
C
Executable File
/*
|
|
* Ported by the State University of New York at Buffalo by the Distributed
|
|
* Computer Systems Lab, Department of Computer Science, 1991.
|
|
*/
|
|
|
|
#ifndef tahoe_opcodeT
|
|
#define tahoe_opcodeT int
|
|
#endif /* no tahoe_opcodeT */
|
|
|
|
struct vot_wot /* tahoe opcode table: wot to do with this */
|
|
/* particular opcode */
|
|
{
|
|
char * args; /* how to compile said opcode */
|
|
tahoe_opcodeT code; /* op-code (may be > 8 bits!) */
|
|
};
|
|
|
|
struct vot /* tahoe opcode text */
|
|
{
|
|
char * name; /* opcode name: lowercase string [key] */
|
|
struct vot_wot detail; /* rest of opcode table [datum] */
|
|
};
|
|
|
|
#define vot_how args
|
|
#define vot_code code
|
|
#define vot_detail detail
|
|
#define vot_name name
|
|
|
|
static struct vot
|
|
votstrs[] =
|
|
{
|
|
{ "halt", {"", 0x00 } },
|
|
{ "sinf", {"", 0x05 } },
|
|
{ "ldf", {"rl", 0x06 } },
|
|
{ "ldd", {"rq", 0x07 } },
|
|
{ "addb2", {"rbmb", 0x08 } },
|
|
{ "movb", {"rbwb", 0x09 } },
|
|
{ "addw2", {"rwmw", 0x0a } },
|
|
{ "movw", {"rwww", 0x0b } },
|
|
{ "addl2", {"rlml", 0x0c } },
|
|
{ "movl", {"rlwl", 0x0d } },
|
|
{ "bbs", {"rlvlbw", 0x0e } },
|
|
{ "nop", {"", 0x10 } },
|
|
{ "brb", {"bb", 0x11 } },
|
|
{ "brw", {"bw", 0x13 } },
|
|
{ "cosf", {"", 0x15 } },
|
|
{ "lnf", {"rl", 0x16 } },
|
|
{ "lnd", {"rq", 0x17 } },
|
|
{ "addb3", {"rbrbwb", 0x18 } },
|
|
{ "cmpb", {"rbwb", 0x19 } },
|
|
{ "addw3", {"rwrwww", 0x1a } },
|
|
{ "cmpw", {"rwww", 0x1b } },
|
|
{ "addl3", {"rlrlwl", 0x1c } },
|
|
{ "cmpl", {"rlwl", 0x1d } },
|
|
{ "bbc", {"rlvlbw", 0x1e } },
|
|
{ "rei", {"", 0x20 } },
|
|
{ "bneq", {"bb", 0x21 } },
|
|
{ "bnequ", {"bb", 0x21 } },
|
|
{ "cvtwl", {"rwwl", 0x23 } },
|
|
{ "stf", {"wl", 0x26 } },
|
|
{ "std", {"wq", 0x27 } },
|
|
{ "subb2", {"rbmb", 0x28 } },
|
|
{ "mcomb", {"rbwb", 0x29 } },
|
|
{ "subw2", {"rwmw", 0x2a } },
|
|
{ "mcomw", {"rwww", 0x2b } },
|
|
{ "subl2", {"rlml", 0x2c } },
|
|
{ "mcoml", {"rlwl", 0x2d } },
|
|
{ "emul", {"rlrlrlwq", 0x2e } },
|
|
{ "aoblss", {"rlmlbw", 0x2f } },
|
|
{ "bpt", {"", 0x30 } },
|
|
{ "beql", {"bb", 0x31 } },
|
|
{ "beqlu", {"bb", 0x31 } },
|
|
{ "cvtwb", {"rwwb", 0x33 } },
|
|
{ "logf", {"", 0x35 } },
|
|
{ "cmpf", {"rl", 0x36 } },
|
|
{ "cmpd", {"rq", 0x37 } },
|
|
{ "subb3", {"rbrbwb", 0x38 } },
|
|
{ "bitb", {"rbrb", 0x39 } },
|
|
{ "subw3", {"rwrwww", 0x3a } },
|
|
{ "bitw", {"rwrw", 0x3b } },
|
|
{ "subl3", {"rlrlwl", 0x3c } },
|
|
{ "bitl", {"rlrl", 0x3d } },
|
|
{ "ediv", {"rlrqwlwl", 0x3e } },
|
|
{ "aobleq", {"rlmlbw", 0x3f } },
|
|
{ "ret", {"", 0x40 } },
|
|
{ "bgtr", {"bb", 0x41 } },
|
|
{ "sqrtf", {"", 0x45 } },
|
|
{ "cmpf2", {"rl", 0x46 } },
|
|
{ "cmpd2", {"rqrq", 0x47 } },
|
|
{ "shll", {"rbrlwl", 0x48 } },
|
|
{ "clrb", {"wb", 0x49 } },
|
|
{ "shlq", {"rbrqwq", 0x4a } },
|
|
{ "clrw", {"ww", 0x4b } },
|
|
{ "mull2", {"rlml", 0x4c } },
|
|
{ "clrl", {"wl", 0x4d } },
|
|
{ "shal", {"rbrlwl", 0x4e } },
|
|
{ "bleq", {"bb", 0x51 } },
|
|
{ "expf", {"", 0x55 } },
|
|
{ "tstf", {"", 0x56 } },
|
|
{ "tstd", {"", 0x57 } },
|
|
{ "shrl", {"rbrlwl", 0x58 } },
|
|
{ "tstb", {"rb", 0x59 } },
|
|
{ "shrq", {"rbrqwq", 0x5a } },
|
|
{ "tstw", {"rw", 0x5b } },
|
|
{ "mull3", {"rlrlwl", 0x5c } },
|
|
{ "tstl", {"rl", 0x5d } },
|
|
{ "shar", {"rbrlwl", 0x5e } },
|
|
{ "bbssi", {"rlmlbw", 0x5f } },
|
|
{ "ldpctx", {"", 0x60 } },
|
|
{ "pushd", {"", 0x67 } },
|
|
{ "incb", {"mb", 0x69 } },
|
|
{ "incw", {"mw", 0x6b } },
|
|
{ "divl2", {"rlml", 0x6c } },
|
|
{ "incl", {"ml", 0x6d } },
|
|
{ "cvtlb", {"rlwb", 0x6f } },
|
|
{ "svpctx", {"", 0x70 } },
|
|
{ "jmp", {"ab", 0x71 } },
|
|
{ "cvlf", {"rl", 0x76 } },
|
|
{ "cvld", {"rl", 0x77 } },
|
|
{ "decb", {"mb", 0x79 } },
|
|
{ "decw", {"mw", 0x7b } },
|
|
{ "divl3", {"rlrlwl", 0x7c } },
|
|
{ "decl", {"ml", 0x7d } },
|
|
{ "cvtlw", {"rlww", 0x7f } },
|
|
{ "bgeq", {"bb", 0x81 } },
|
|
{ "movs2", {"abab", 0x82 } },
|
|
{ "cvfl", {"wl", 0x86 } },
|
|
{ "cvdl", {"wl", 0x87 } },
|
|
{ "orb2", {"rbmb", 0x88 } },
|
|
{ "cvtbl", {"rbwl", 0x89 } },
|
|
{ "orw2", {"rwmw", 0x8a } },
|
|
{ "bispsw", {"rw", 0x8b } },
|
|
{ "orl2", {"rlml", 0x8c } },
|
|
{ "adwc", {"rlml", 0x8d } },
|
|
{ "adda", {"rlml", 0x8e } },
|
|
{ "blss", {"bb", 0x91 } },
|
|
{ "cmps2", {"abab", 0x92 } },
|
|
{ "ldfd", {"rl", 0x97 } },
|
|
{ "orb3", {"rbrbwb", 0x98 } },
|
|
{ "cvtbw", {"rbww", 0x99 } },
|
|
{ "orw3", {"rwrwww", 0x9a } },
|
|
{ "bicpsw", {"rw", 0x9b } },
|
|
{ "orl3", {"rlrlwl", 0x9c } },
|
|
{ "sbwc", {"rlml", 0x9d } },
|
|
{ "suba", {"rlml", 0x9e } },
|
|
{ "bgtru", {"bb", 0xa1 } },
|
|
{ "cvdf", {"", 0xa6 } },
|
|
{ "andb2", {"rbmb", 0xa8 } },
|
|
{ "movzbl", {"rbwl", 0xa9 } },
|
|
{ "andw2", {"rwmw", 0xaa } },
|
|
{ "loadr", {"rwal", 0xab } },
|
|
{ "andl2", {"rlml", 0xac } },
|
|
{ "mtpr", {"rlrl", 0xad } },
|
|
{ "ffs", {"rlwl", 0xae } },
|
|
{ "blequ", {"bb", 0xb1 } },
|
|
{ "negf", {"", 0xb6 } },
|
|
{ "negd", {"", 0xb7 } },
|
|
{ "andb3", {"rbrbwb", 0xb8 } },
|
|
{ "movzbw", {"rbww", 0xb9 } },
|
|
{ "andw3", {"rwrwww", 0xba } },
|
|
{ "storer", {"rwal", 0xbb } },
|
|
{ "andl3", {"rlrlwl", 0xbc } },
|
|
{ "mfpr", {"rlwl", 0xbd } },
|
|
{ "ffc", {"rlwl", 0xbe } },
|
|
{ "calls", {"rbab", 0xbf } },
|
|
{ "prober", {"rbabrl", 0xc0 } },
|
|
{ "bvc", {"bb", 0xc1 } },
|
|
{ "movs3", {"ababrw", 0xc2 } },
|
|
{ "movzwl", {"rwwl", 0xc3 } },
|
|
{ "addf", {"rl", 0xc6 } },
|
|
{ "addd", {"rq", 0xc7 } },
|
|
{ "xorb2", {"rbmb", 0xc8 } },
|
|
{ "movob", {"rbwb", 0xc9 } },
|
|
{ "xorw2", {"rwmw", 0xca } },
|
|
{ "movow", {"rwww", 0xcb } },
|
|
{ "xorl2", {"rlml", 0xcc } },
|
|
{ "movpsl", {"wl", 0xcd } },
|
|
{ "kcall", {"rw", 0xcf } },
|
|
{ "probew", {"rbabrl", 0xd0 } },
|
|
{ "bvs", {"bb", 0xd1 } },
|
|
{ "cmps3", {"ababrw", 0xd2 } },
|
|
{ "subf", {"rq", 0xd6 } },
|
|
{ "subd", {"rq", 0xd7 } },
|
|
{ "xorb3", {"rbrbwb", 0xd8 } },
|
|
{ "pushb", {"rb", 0xd9 } },
|
|
{ "xorw3", {"rwrwww", 0xda } },
|
|
{ "pushw", {"rw", 0xdb } },
|
|
{ "xorl3", {"rlrlwl", 0xdc } },
|
|
{ "pushl", {"rl", 0xdd } },
|
|
{ "insque", {"abab", 0xe0 } },
|
|
{ "bcs", {"bb", 0xe1 } },
|
|
{ "bgequ", {"bb", 0xe1 } },
|
|
{ "mulf", {"rq", 0xe6 } },
|
|
{ "muld", {"rq", 0xe7 } },
|
|
{ "mnegb", {"rbwb", 0xe8 } },
|
|
{ "movab", {"abwl", 0xe9 } },
|
|
{ "mnegw", {"rwww", 0xea } },
|
|
{ "movaw", {"awwl", 0xeb } },
|
|
{ "mnegl", {"rlwl", 0xec } },
|
|
{ "moval", {"alwl", 0xed } },
|
|
{ "remque", {"ab", 0xf0 } },
|
|
{ "bcc", {"bb", 0xf1 } },
|
|
{ "blssu", {"bb", 0xf1 } },
|
|
{ "divf", {"rq", 0xf6 } },
|
|
{ "divd", {"rq", 0xf7 } },
|
|
{ "movblk", {"alalrw", 0xf8 } },
|
|
{ "pushab", {"ab", 0xf9 } },
|
|
{ "pushaw", {"aw", 0xfb } },
|
|
{ "casel", {"rlrlrl", 0xfc } },
|
|
{ "pushal", {"al", 0xfd } },
|
|
{ "callf", {"rbab", 0xfe } },
|
|
{ "" , "" } /* empty is end sentinel */
|
|
|
|
};
|