quakeforge/libs/gamecode/pr_v6p_opcode.c

/*
	pr_v6p_opcodes.c

	Opcode table and checking for v6+ progs.

	Copyright (C) 1996-1997  Id Software, Inc.
	Copyright (C) 2001 Bill Currie <bill@taniwha.org>

	This program is free software; you can redistribute it and/or
	modify it under the terms of the GNU General Public License
	as published by the Free Software Foundation; either version 2
	of the License, or (at your option) any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

	See the GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with this program; if not, write to:

		Free Software Foundation, Inc.
		59 Temple Place - Suite 330
		Boston, MA  02111-1307, USA

*/
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

#ifdef HAVE_STRING_H
# include "string.h"
#endif
#ifdef HAVE_STRINGS_H
# include "strings.h"
#endif

#include "QF/cvar.h"
#include "QF/progs.h"
#include "QF/sys.h"

#include "QF/progs/pr_comp.h"

#include "compat.h"

VISIBLE const pr_ushort_t pr_type_size[ev_type_count] = {
	1,			// ev_void
	1,			// ev_string
	1,			// ev_float
	3,			// ev_vector
	1,			// ev_entity
	1,			// ev_field
	1,			// ev_func
	1,			// ev_pointer
	4,			// ev_quat
	1,			// ev_integer
	1,			// ev_uinteger
	0,			// ev_short        value in opcode
	2,			// ev_double
	2,			// ev_long
	2,			// ev_ulong
	0,			// ev_invalid      not a valid/simple type
};

VISIBLE const char * const pr_type_name[ev_type_count] = {
	"void",
	"string",
	"float",
	"vector",
	"entity",
	"field",
	"function",
	"pointer",
	"quaternion",
	"integer",
	"uinteger",
	"short",
	"double",
	"long",
	"ulong",
	"invalid",
};

// default format is "%Ga, %Gb, %gc"
// V  global_string, contents, void
// G  global_string, contents
// g  global_string, no contents
// s  as short
// O  address + short
// P  function parameter
// F  function (must come before any P)
// R  return value
// E  entity + field (%Eab)
//
// a  operand a
// b  operand b
// c  operand c
// x  place holder for P (padding)
// 0-7 parameter index (for P)
VISIBLE const v6p_opcode_t pr_v6p_opcodes[] = {
	// OP_DONE_v6p is actually the same as OP_RETURN_v6p, the types are bogus
	[OP_DONE_v6p] = {"<DONE>", "done",
	 ev_entity, ev_field, ev_void,
	 PROG_ID_VERSION,
	 "%Va",
	},

	[OP_MUL_D_v6p] = {"*", "mul.d",
	 ev_double, ev_double, ev_double,
	 PROG_V6P_VERSION,
	},
	[OP_MUL_F_v6p] = {"*", "mul.f",
	 ev_float, ev_float, ev_float,
	 PROG_ID_VERSION,
	},
	[OP_MUL_V_v6p] = {"*", "mul.v",
	 ev_vector, ev_vector, ev_float,
	 PROG_ID_VERSION,
	},
	[OP_MUL_FV_v6p] = {"*", "mul.fv",
	 ev_float, ev_vector, ev_vector,
	 PROG_ID_VERSION,
	},
	[OP_MUL_VF_v6p] = {"*", "mul.vf",
	 ev_vector, ev_float, ev_vector,
	 PROG_ID_VERSION,
	},
	[OP_MUL_DV_v6p] = {"*", "mul.dv",
	 ev_double, ev_vector, ev_vector,
	 PROG_ID_VERSION,
	},
	[OP_MUL_VD_v6p] = {"*", "mul.vd",
	 ev_vector, ev_double, ev_vector,
	 PROG_ID_VERSION,
	},
	[OP_MUL_Q_v6p] = {"*", "mul.q",
	 ev_quat, ev_quat, ev_quat,
	 PROG_V6P_VERSION,
	},
	[OP_MUL_FQ_v6p] = {"*", "mul.fq",
	 ev_float, ev_quat, ev_quat,
	 PROG_V6P_VERSION,
	},
	[OP_MUL_QF_v6p] = {"*", "mul.qf",
	 ev_quat, ev_float, ev_quat,
	 PROG_V6P_VERSION,
	},
	[OP_MUL_DQ_v6p] = {"*", "mul.dq",
	 ev_double, ev_quat, ev_quat,
	 PROG_V6P_VERSION,
	},
	[OP_MUL_QD_v6p] = {"*", "mul.qd",
	 ev_quat, ev_double, ev_quat,
	 PROG_V6P_VERSION,
	},
	[OP_MUL_QV_v6p] = {"*", "mul.qv",
	 ev_quat, ev_vector, ev_vector,
	 PROG_V6P_VERSION,
	},

	[OP_CONJ_Q_v6p] = {"~", "conj.q",
	 ev_quat, ev_invalid, ev_quat,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},

	[OP_DIV_F_v6p] = {"/", "div.f",
	 ev_float, ev_float, ev_float,
	 PROG_ID_VERSION,
	},
	[OP_DIV_D_v6p] = {"/", "div.d",
	 ev_double, ev_double, ev_double,
	 PROG_V6P_VERSION,
	},
	[OP_REM_D_v6p] = {"%", "rem.d",
	 ev_double, ev_double, ev_double,
	 PROG_V6P_VERSION,
	},
	[OP_MOD_D_v6p] = {"%%", "mod.d",
	 ev_double, ev_double, ev_double,
	 PROG_V6P_VERSION,
	},

	[OP_ADD_D_v6p] = {"+", "add.d",
	 ev_double, ev_double, ev_double,
	 PROG_V6P_VERSION,
	},
	[OP_ADD_F_v6p] = {"+", "add.f",
	 ev_float, ev_float, ev_float,
	 PROG_ID_VERSION,
	},
	[OP_ADD_V_v6p] = {"+", "add.v",
	 ev_vector, ev_vector, ev_vector,
	 PROG_ID_VERSION,
	},
	[OP_ADD_Q_v6p] = {"+", "add.q",
	 ev_quat, ev_quat, ev_quat,
	 PROG_V6P_VERSION,
	},
	[OP_ADD_S_v6p] = {"+", "add.s",
	 ev_string, ev_string, ev_string,
	 PROG_V6P_VERSION,
	},

	[OP_SUB_D_v6p] = {"-", "sub.d",
	 ev_double, ev_double, ev_double,
	 PROG_V6P_VERSION,
	},
	[OP_SUB_F_v6p] = {"-", "sub.f",
	 ev_float, ev_float, ev_float,
	 PROG_ID_VERSION,
	},
	[OP_SUB_V_v6p] = {"-", "sub.v",
	 ev_vector, ev_vector, ev_vector,
	 PROG_ID_VERSION,
	},
	[OP_SUB_Q_v6p] = {"-", "sub.q",
	 ev_quat, ev_quat, ev_quat,
	 PROG_V6P_VERSION,
	},

	[OP_EQ_D_v6p] = {"==", "eq.d",
	 ev_double, ev_double, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_EQ_F_v6p] = {"==", "eq.f",
	 ev_float, ev_float, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_EQ_V_v6p] = {"==", "eq.v",
	 ev_vector, ev_vector, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_EQ_Q_v6p] = {"==", "eq.q",
	 ev_quat, ev_quat, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_EQ_S_v6p] = {"==", "eq.s",
	 ev_string, ev_string, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_EQ_E_v6p] = {"==", "eq.e",
	 ev_entity, ev_entity, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_EQ_FN_v6p] = {"==", "eq.fn",
	 ev_func, ev_func, ev_integer,
	 PROG_ID_VERSION,
	},

	[OP_NE_D_v6p] = {"!=", "ne.d",
	 ev_double, ev_double, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_NE_F_v6p] = {"!=", "ne.f",
	 ev_float, ev_float, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_NE_V_v6p] = {"!=", "ne.v",
	 ev_vector, ev_vector, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_NE_Q_v6p] = {"!=", "ne.q",
	 ev_quat, ev_quat, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_NE_S_v6p] = {"!=", "ne.s",
	 ev_string, ev_string, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_NE_E_v6p] = {"!=", "ne.e",
	 ev_entity, ev_entity, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_NE_FN_v6p] = {"!=", "ne.fn",
	 ev_func, ev_func, ev_integer,
	 PROG_ID_VERSION,
	},

	[OP_LE_D_v6p] = {"<=", "le.d",
	 ev_double, ev_double, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_LE_F_v6p] = {"<=", "le.f",
	 ev_float, ev_float, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_GE_D_v6p] = {">=", "ge.d",
	 ev_double, ev_double, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_GE_F_v6p] = {">=", "ge.f",
	 ev_float, ev_float, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_LE_S_v6p] = {"<=", "le.s",
	 ev_string, ev_string, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_GE_S_v6p] = {">=", "ge.s",
	 ev_string, ev_string, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_LT_D_v6p] = {"<", "lt.d",
	 ev_double, ev_double, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_LT_F_v6p] = {"<", "lt.f",
	 ev_float, ev_float, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_GT_D_v6p] = {">", "gt.d",
	 ev_double, ev_double, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_GT_F_v6p] = {">", "gt.f",
	 ev_float, ev_float, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_LT_S_v6p] = {"<", "lt.s",
	 ev_string, ev_string, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_GT_S_v6p] = {">", "gt.s",
	 ev_string, ev_string, ev_integer,
	 PROG_V6P_VERSION,
	},

	[OP_LOAD_F_v6p] = {".", "load.f",
	 ev_entity, ev_field, ev_float,
	 PROG_ID_VERSION,
	 "%Ga.%Gb(%Ec), %gc",//FIXME %E more flexible?
	},
	[OP_LOAD_D_v6p] = {".", "load.d",
	 ev_entity, ev_field, ev_double,
	 PROG_V6P_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},
	[OP_LOAD_V_v6p] = {".", "load.v",
	 ev_entity, ev_field, ev_vector,
	 PROG_ID_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},
	[OP_LOAD_Q_v6p] = {".", "load.q",
	 ev_entity, ev_field, ev_quat,
	 PROG_V6P_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},
	[OP_LOAD_S_v6p] = {".", "load.s",
	 ev_entity, ev_field, ev_string,
	 PROG_ID_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},
	[OP_LOAD_ENT_v6p] = {".", "load.ent",
	 ev_entity, ev_field, ev_entity,
	 PROG_ID_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},
	[OP_LOAD_FLD_v6p] = {".", "load.fld",
	 ev_entity, ev_field, ev_field,
	 PROG_ID_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},
	[OP_LOAD_FN_v6p] = {".", "load.fn",
	 ev_entity, ev_field, ev_func,
	 PROG_ID_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},
	[OP_LOAD_I_v6p] = {".", "load.i",
	 ev_entity, ev_field, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},
	[OP_LOAD_P_v6p] = {".", "load.p",
	 ev_entity, ev_field, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},

	[OP_LOADB_D_v6p] = {".", "loadb.d",
	 ev_pointer, ev_integer, ev_double,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},
	[OP_LOADB_F_v6p] = {".", "loadb.f",
	 ev_pointer, ev_integer, ev_float,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},
	[OP_LOADB_V_v6p] = {".", "loadb.v",
	 ev_pointer, ev_integer, ev_vector,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},
	[OP_LOADB_Q_v6p] = {".", "loadb.q",
	 ev_pointer, ev_integer, ev_quat,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},
	[OP_LOADB_S_v6p] = {".", "loadb.s",
	 ev_pointer, ev_integer, ev_string,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},
	[OP_LOADB_ENT_v6p] = {".", "loadb.ent",
	 ev_pointer, ev_integer, ev_entity,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},
	[OP_LOADB_FLD_v6p] = {".", "loadb.fld",
	 ev_pointer, ev_integer, ev_field,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},
	[OP_LOADB_FN_v6p] = {".", "loadb.fn",
	 ev_pointer, ev_integer, ev_func,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},
	[OP_LOADB_I_v6p] = {".", "loadb.i",
	 ev_pointer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},
	[OP_LOADB_P_v6p] = {".", "loadb.p",
	 ev_pointer, ev_integer, ev_pointer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb), %gc",
	},

	[OP_LOADBI_D_v6p] = {".", "loadbi.d",
	 ev_pointer, ev_short, ev_double,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},
	[OP_LOADBI_F_v6p] = {".", "loadbi.f",
	 ev_pointer, ev_short, ev_float,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},
	[OP_LOADBI_V_v6p] = {".", "loadbi.v",
	 ev_pointer, ev_short, ev_vector,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},
	[OP_LOADBI_Q_v6p] = {".", "loadbi.q",
	 ev_pointer, ev_short, ev_quat,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},
	[OP_LOADBI_S_v6p] = {".", "loadbi.s",
	 ev_pointer, ev_short, ev_string,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},
	[OP_LOADBI_ENT_v6p] = {".", "loadbi.ent",
	 ev_pointer, ev_short, ev_entity,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},
	[OP_LOADBI_FLD_v6p] = {".", "loadbi.fld",
	 ev_pointer, ev_short, ev_field,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},
	[OP_LOADBI_FN_v6p] = {".", "loadbi.fn",
	 ev_pointer, ev_short, ev_func,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},
	[OP_LOADBI_I_v6p] = {".", "loadbi.i",
	 ev_pointer, ev_short, ev_integer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},
	[OP_LOADBI_P_v6p] = {".", "loadbi.p",
	 ev_pointer, ev_short, ev_pointer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb), %gc",
	},

	[OP_ADDRESS_v6p] = {"&", "address",
	 ev_entity, ev_field, ev_pointer,
	 PROG_ID_VERSION,
	 "%Ga.%Gb(%Ec), %gc",
	},

	[OP_ADDRESS_VOID_v6p] = {"&", "address",
	 ev_void, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_D_v6p] = {"&", "address.d",
	 ev_double, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_F_v6p] = {"&", "address.f",
	 ev_float, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_V_v6p] = {"&", "address.v",
	 ev_vector, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_Q_v6p] = {"&", "address.q",
	 ev_quat, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_S_v6p] = {"&", "address.s",
	 ev_string, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_ENT_v6p] = {"&", "address.ent",
	 ev_entity, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_FLD_v6p] = {"&", "address.fld",
	 ev_field, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_FN_v6p] = {"&", "address.fn",
	 ev_func, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_I_v6p] = {"&", "address.i",
	 ev_integer, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_ADDRESS_P_v6p] = {"&", "address.p",
	 ev_pointer, ev_invalid, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},

	[OP_LEA_v6p] = {"&", "lea",
	 ev_pointer, ev_integer, ev_pointer,
	 PROG_V6P_VERSION,
	 "(%Ga + %Gb), %gc",
	},
	[OP_LEAI_v6p] = {"&", "leai",
	 ev_pointer, ev_short, ev_pointer,
	 PROG_V6P_VERSION,
	 "(%Ga + %sb), %gc",
	},

	[OP_CONV_IF_v6p] = {"<CONV>", "conv.if",
	 ev_integer, ev_invalid, ev_float,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_CONV_FI_v6p] = {"<CONV>", "conv.fi",
	 ev_float, ev_invalid, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_CONV_ID_v6p] = {"<CONV>", "conv.id",
	 ev_integer, ev_invalid, ev_double,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_CONV_DI_v6p] = {"<CONV>", "conv.di",
	 ev_double, ev_invalid, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_CONV_FD_v6p] = {"<CONV>", "conv.fd",
	 ev_float, ev_invalid, ev_double,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_CONV_DF_v6p] = {"<CONV>", "conv.df",
	 ev_double, ev_invalid, ev_float,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},

	[OP_STORE_D_v6p] = {"=", "store.d",
	 ev_double, ev_double, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga, %gb",
	},
	[OP_STORE_F_v6p] = {"=", "store.f",
	 ev_float, ev_float, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, %gb",
	},
	[OP_STORE_V_v6p] = {"=", "store.v",
	 ev_vector, ev_vector, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, %gb",
	},
	[OP_STORE_Q_v6p] = {"=", "store.q",
	 ev_quat, ev_quat, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga, %gb",
	},
	[OP_STORE_S_v6p] = {"=", "store.s",
	 ev_string, ev_string, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, %gb",
	},
	[OP_STORE_ENT_v6p] = {"=", "store.ent",
	 ev_entity, ev_entity, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, %gb",
	},
	[OP_STORE_FLD_v6p] = {"=", "store.fld",
	 ev_field, ev_field, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, %gb",
	},
	[OP_STORE_FN_v6p] = {"=", "store.fn",
	 ev_func, ev_func, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, %gb",
	},
	[OP_STORE_I_v6p] = {"=", "store.i",
	 ev_integer, ev_integer, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga, %gb",
	},
	[OP_STORE_P_v6p] = {"=", "store.p",
	 ev_pointer, ev_pointer, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga, %gb",
	},

	[OP_STOREP_D_v6p] = {".=", "storep.d",
	 ev_double, ev_pointer, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, *%Gb",
	},
	[OP_STOREP_F_v6p] = {".=", "storep.f",
	 ev_float, ev_pointer, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, *%Gb",
	},
	[OP_STOREP_V_v6p] = {".=", "storep.v",
	 ev_vector, ev_pointer, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, *%Gb",
	},
	[OP_STOREP_Q_v6p] = {".=", "storep.q",
	 ev_quat, ev_pointer, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga, *%Gb",
	},
	[OP_STOREP_S_v6p] = {".=", "storep.s",
	 ev_string, ev_pointer, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, *%Gb",
	},
	[OP_STOREP_ENT_v6p] = {".=", "storep.ent",
	 ev_entity, ev_pointer, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, *%Gb",
	},
	[OP_STOREP_FLD_v6p] = {".=", "storep.fld",
	 ev_field, ev_pointer, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, *%Gb",
	},
	[OP_STOREP_FN_v6p] = {".=", "storep.fn",
	 ev_func, ev_pointer, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, *%Gb",
	},
	[OP_STOREP_I_v6p] = {".=", "storep.i",
	 ev_integer, ev_pointer, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga, *%Gb",
	},
	[OP_STOREP_P_v6p] = {".=", "storep.p",
	 ev_pointer, ev_pointer, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga, *%Gb",
	},

	[OP_STOREB_D_v6p] = {".=", "storeb.d",
	 ev_double, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},
	[OP_STOREB_F_v6p] = {".=", "storeb.f",
	 ev_float, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},
	[OP_STOREB_V_v6p] = {".=", "storeb.v",
	 ev_vector, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},
	[OP_STOREB_Q_v6p] = {".=", "storeb.q",
	 ev_quat, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},
	[OP_STOREB_S_v6p] = {".=", "storeb.s",
	 ev_string, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},
	[OP_STOREB_ENT_v6p] = {".=", "storeb.ent",
	 ev_entity, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},
	[OP_STOREB_FLD_v6p] = {".=", "storeb.fld",
	 ev_field, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},
	[OP_STOREB_FN_v6p] = {".=", "storeb.fn",
	 ev_func, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},
	[OP_STOREB_I_v6p] = {".=", "storeb.i",
	 ev_integer, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},
	[OP_STOREB_P_v6p] = {".=", "storeb.p",
	 ev_pointer, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %Gc)",
	},

	[OP_STOREBI_D_v6p] = {".=", "storebi.d",
	 ev_double, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},
	[OP_STOREBI_F_v6p] = {".=", "storebi.f",
	 ev_float, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},
	[OP_STOREBI_V_v6p] = {".=", "storebi.v",
	 ev_vector, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},
	[OP_STOREBI_Q_v6p] = {".=", "storebi.q",
	 ev_quat, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},
	[OP_STOREBI_S_v6p] = {".=", "storebi.s",
	 ev_string, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},
	[OP_STOREBI_ENT_v6p] = {".=", "storebi.ent",
	 ev_entity, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},
	[OP_STOREBI_FLD_v6p] = {".=", "storebi.fld",
	 ev_field, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},
	[OP_STOREBI_FN_v6p] = {".=", "storebi.fn",
	 ev_func, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},
	[OP_STOREBI_I_v6p] = {".=", "storebi.i",
	 ev_integer, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},
	[OP_STOREBI_P_v6p] = {".=", "storebi.p",
	 ev_pointer, ev_pointer, ev_short,
	 PROG_V6P_VERSION,
	 "%Ga, *(%Gb + %sc)",
	},

	[OP_RETURN_v6p] = {"<RETURN>", "return",
	 ev_void, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ra",
	},

	[OP_RETURN_V_v6p] = {"<RETURN_V>", "return",
	 ev_invalid, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "",
	},

	[OP_NOT_D_v6p] = {"!", "not.d",
	 ev_double, ev_invalid, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_NOT_F_v6p] = {"!", "not.f",
	 ev_float, ev_invalid, ev_integer,
	 PROG_ID_VERSION,
	 "%Ga, %gc",
	},
	[OP_NOT_V_v6p] = {"!", "not.v",
	 ev_vector, ev_invalid, ev_integer,
	 PROG_ID_VERSION,
	 "%Ga, %gc",
	},
	[OP_NOT_Q_v6p] = {"!", "not.q",
	 ev_quat, ev_invalid, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_NOT_S_v6p] = {"!", "not.s",
	 ev_string, ev_invalid, ev_integer,
	 PROG_ID_VERSION,
	 "%Ga, %gc",
	},
	[OP_NOT_ENT_v6p] = {"!", "not.ent",
	 ev_entity, ev_invalid, ev_integer,
	 PROG_ID_VERSION,
	 "%Ga, %gc",
	},
	[OP_NOT_FN_v6p] = {"!", "not.fn",
	 ev_func, ev_invalid, ev_integer,
	 PROG_ID_VERSION,
	 "%Ga, %gc",
	},
	[OP_NOT_P_v6p] = {"!", "not.p",
	 ev_pointer, ev_invalid, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},

	[OP_IF_v6p] = {"<IF>", "if",
	 ev_integer, ev_short, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga branch %sb (%Ob)",
	},
	[OP_IFNOT_v6p] = {"<IFNOT>", "ifnot",
	 ev_integer, ev_short, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga branch %sb (%Ob)",
	},
	[OP_IFBE_v6p] = {"<IFBE>", "ifbe",
	 ev_integer, ev_short, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga branch %sb (%Ob)",
	},
	[OP_IFB_v6p] = {"<IFB>", "ifb",
	 ev_integer, ev_short, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga branch %sb (%Ob)",
	},
	[OP_IFAE_v6p] = {"<IFAE>", "ifae",
	 ev_integer, ev_short, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga branch %sb (%Ob)",
	},
	[OP_IFA_v6p] = {"<IFA>", "ifa",
	 ev_integer, ev_short, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga branch %sb (%Ob)",
	},

// calls returns REG_RETURN
	[OP_CALL0_v6p] = {"<CALL0>", "call0",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Fa ()",
	},
	[OP_CALL1_v6p] = {"<CALL1>", "call1",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Fa (%P0x)",
	},
	[OP_CALL2_v6p] = {"<CALL2>", "call2",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Fa (%P0x, %P1x)",
	},
	[OP_CALL3_v6p] = {"<CALL3>", "call3",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Fa (%P0x, %P1x, %P2x)",
	},
	[OP_CALL4_v6p] = {"<CALL4>", "call4",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Fa (%P0x, %P1x, %P2x, %P3x)",
	},
	[OP_CALL5_v6p] = {"<CALL5>", "call5",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Fa (%P0x, %P1x, %P2x, %P3x, %P4x)",
	},
	[OP_CALL6_v6p] = {"<CALL6>", "call6",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Fa (%P0x, %P1x, %P2x, %P3x, %P4x, %P5x)",
	},
	[OP_CALL7_v6p] = {"<CALL7>", "call7",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Fa (%P0x, %P1x, %P2x, %P3x, %P4x, %P5x, %P6x)",
	},
	[OP_CALL8_v6p] = {"<CALL8>", "call8",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "%Fa (%P0x, %P1x, %P2x, %P3x, %P4x, %P5x, %P6x, %P7x)",
	},
	[OP_RCALL0_v6p] = {"<RCALL0>", 0,
	 ev_invalid, ev_invalid, ev_invalid,
	 ~0,	// not a valid instruction
	 0,
	},
	[OP_RCALL1_v6p] = {"<RCALL1>", "rcall1",
	 ev_func, ev_void, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Fa (%P0b)",
	},
	[OP_RCALL2_v6p] = {"<RCALL2>", "rcall2",
	 ev_func, ev_void, ev_void,
	 PROG_V6P_VERSION,
	 "%Fa (%P0b, %P1c)",
	},
	[OP_RCALL3_v6p] = {"<RCALL3>", "rcall3",
	 ev_func, ev_void, ev_void,
	 PROG_V6P_VERSION,
	 "%Fa (%P0b, %P1c, %P2x)",
	},
	[OP_RCALL4_v6p] = {"<RCALL4>", "rcall4",
	 ev_func, ev_void, ev_void,
	 PROG_V6P_VERSION,
	 "%Fa (%P0b, %P1c, %P2x, %P3x)",
	},
	[OP_RCALL5_v6p] = {"<RCALL5>", "rcall5",
	 ev_func, ev_void, ev_void,
	 PROG_V6P_VERSION,
	 "%Fa (%P0b, %P1c, %P2x, %P3x, %P4x)",
	},
	[OP_RCALL6_v6p] = {"<RCALL6>", "rcall6",
	 ev_func, ev_void, ev_void,
	 PROG_V6P_VERSION,
	 "%Fa (%P0b, %P1c, %P2x, %P3x, %P4x, %P5x)",
	},
	[OP_RCALL7_v6p] = {"<RCALL7>", "rcall7",
	 ev_func, ev_void, ev_void,
	 PROG_V6P_VERSION,
	 "%Fa (%P0b, %P1c, %P2x, %P3x, %P4x, %P5x, %P6x)",
	},
	[OP_RCALL8_v6p] = {"<RCALL8>", "rcall8",
	 ev_func, ev_void, ev_void,
	 PROG_V6P_VERSION,
	 "%Fa (%P0b, %P1c, %P2x, %P3x, %P4x, %P5x, %P6x, %P7x)",
	},

	[OP_STATE_v6p] = {"<STATE>", "state",
	 ev_float, ev_func, ev_invalid,
	 PROG_ID_VERSION,
	 "%Ga, %Gb",
	},

	[OP_STATE_F_v6p] = {"<STATE>", "state.f",
	 ev_float, ev_func, ev_float,
	 PROG_V6P_VERSION,
	 "%Ga, %Gb, %Gc",
	},

	[OP_GOTO_v6p] = {"<GOTO>", "goto",
	 ev_short, ev_invalid, ev_invalid,
	 PROG_ID_VERSION,
	 "branch %sa (%Oa)",
	},
	[OP_JUMP_v6p] = {"<JUMP>", "jump",
	 ev_integer, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_JUMPB_v6p] = {"<JUMPB>", "jumpb",
	 ev_void, ev_integer, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga[%Gb]",
	},

	[OP_AND_v6p] = {"&&", "and.f",
	 ev_float, ev_float, ev_integer,
	 PROG_ID_VERSION,
	},
	[OP_OR_v6p] = {"||", "or.f",
	 ev_float, ev_float, ev_integer,
	 PROG_ID_VERSION,
	},

	[OP_SHL_F_v6p] = {"<<", "shl.f",
	 ev_float, ev_float, ev_float,
	 PROG_V6P_VERSION,
	},
	[OP_SHR_F_v6p] = {">>", "shr.f",
	 ev_float, ev_float, ev_float,
	 PROG_V6P_VERSION,
	},
	[OP_SHL_I_v6p] = {"<<", "shl.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_SHR_I_v6p] = {">>", "shr.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_SHR_U_v6p] = {">>", "shr.u",
	 ev_uinteger, ev_integer, ev_uinteger,
	 PROG_V6P_VERSION,
	},

	[OP_BITAND_v6p] = {"&", "bitand",
	 ev_float, ev_float, ev_float,
	 PROG_ID_VERSION,
	},
	[OP_BITOR_v6p] = {"|", "bitor",
	 ev_float, ev_float, ev_float,
	 PROG_ID_VERSION,
	},

	[OP_ADD_I_v6p] = {"+", "add.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_SUB_I_v6p] = {"-", "sub.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_MUL_I_v6p] = {"*", "mul.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_DIV_I_v6p] = {"/", "div.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_REM_I_v6p] = {"%", "rem.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_MOD_I_v6p] = {"%%", "mod.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_BITAND_I_v6p] = {"&", "bitand.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_BITOR_I_v6p] = {"|", "bitor.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},

	[OP_REM_F_v6p] = {"%", "rem.f",
	 ev_float, ev_float, ev_float,
	 PROG_V6P_VERSION,
	},

	[OP_MOD_F_v6p] = {"%%", "mod.f",
	 ev_float, ev_float, ev_float,
	 PROG_V6P_VERSION,
	},

	[OP_GE_I_v6p] = {">=", "ge.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_LE_I_v6p] = {"<=", "le.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_GT_I_v6p] = {">", "gt.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_LT_I_v6p] = {"<", "lt.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},

	[OP_AND_I_v6p] = {"&&", "and.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_OR_I_v6p] = {"||", "or.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_NOT_I_v6p] = {"!", "not.i",
	 ev_integer, ev_invalid, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_EQ_I_v6p] = {"==", "eq.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_NE_I_v6p] = {"!=", "ne.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},

	[OP_GE_U_v6p] = {">=", "ge.u",
	 ev_uinteger, ev_uinteger, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_LE_U_v6p] = {"<=", "le.u",
	 ev_uinteger, ev_uinteger, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_GT_U_v6p] = {">", "gt.u",
	 ev_uinteger, ev_uinteger, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_LT_U_v6p] = {"<", "lt.u",
	 ev_uinteger, ev_uinteger, ev_integer,
	 PROG_V6P_VERSION,
	},

	[OP_BITXOR_F_v6p] = {"^", "bitxor.f",
	 ev_float, ev_float, ev_float,
	 PROG_V6P_VERSION,
	},
	[OP_BITNOT_F_v6p] = {"~", "bitnot.f",
	 ev_float, ev_invalid, ev_float,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},
	[OP_BITXOR_I_v6p] = {"^", "bitxor.i",
	 ev_integer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_BITNOT_I_v6p] = {"~", "bitnot.i",
	 ev_integer, ev_invalid, ev_integer,
	 PROG_V6P_VERSION,
	 "%Ga, %gc",
	},

	[OP_GE_P_v6p] = {">=", "ge.p",
	 ev_pointer, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_LE_P_v6p] = {"<=", "le.p",
	 ev_pointer, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_GT_P_v6p] = {">", "gt.p",
	 ev_pointer, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_LT_P_v6p] = {"<", "lt.p",
	 ev_pointer, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_EQ_P_v6p] = {"==", "eq.p",
	 ev_pointer, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	},
	[OP_NE_P_v6p] = {"!=", "ne.p",
	 ev_pointer, ev_pointer, ev_integer,
	 PROG_V6P_VERSION,
	},

	[OP_MOVEI_v6p] = {"<MOVE>", "movei",
	 ev_void, ev_short, ev_void,
	 PROG_V6P_VERSION,
	 "%Ga, %sb, %gc",
	},
	[OP_MOVEP_v6p] = {"<MOVEP>", "movep",
	 ev_pointer, ev_integer, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %Gb, %Gc",
	},
	[OP_MOVEPI_v6p] = {"<MOVEP>", "movepi",
	 ev_pointer, ev_short, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %sb, %Gc",
	},
	[OP_MEMSETI_v6p] = {"<MEMSET>", "memseti",
	 ev_integer, ev_short, ev_void,
	 PROG_V6P_VERSION,
	 "%Ga, %sb, %gc",
	},
	[OP_MEMSETP_v6p] = {"<MEMSETP>", "memsetp",
	 ev_integer, ev_integer, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %Gb, %Gc",
	},
	[OP_MEMSETPI_v6p] = {"<MEMSETP>", "memsetpi",
	 ev_integer, ev_short, ev_pointer,
	 PROG_V6P_VERSION,
	 "%Ga, %sb, %Gc",
	},

	[OP_PUSH_S_v6p] = {"<PUSH>", "push.s",
	 ev_string, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_PUSH_F_v6p] = {"<PUSH>", "push.f",
	 ev_float, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_PUSH_V_v6p] = {"<PUSH>", "push.v",
	 ev_vector, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_PUSH_ENT_v6p] = {"<PUSH>", "push.ent",
	 ev_entity, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_PUSH_FLD_v6p] = {"<PUSH>", "push.fld",
	 ev_field, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_PUSH_FN_v6p] = {"<PUSH>", "push.fn",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_PUSH_P_v6p] = {"<PUSH>", "push.p",
	 ev_pointer, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_PUSH_Q_v6p] = {"<PUSH>", "push.q",
	 ev_quat, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_PUSH_I_v6p] = {"<PUSH>", "push.i",
	 ev_integer, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},
	[OP_PUSH_D_v6p] = {"<PUSH>", "push.d",
	 ev_double, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%Ga",
	},

	[OP_PUSHB_S_v6p] = {"<PUSH>", "pushb.s",
	 ev_pointer, ev_integer, ev_string,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_PUSHB_F_v6p] = {"<PUSH>", "pushb.f",
	 ev_pointer, ev_integer, ev_float,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_PUSHB_V_v6p] = {"<PUSH>", "pushb.v",
	 ev_pointer, ev_integer, ev_vector,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_PUSHB_ENT_v6p] = {"<PUSH>", "pushb.ent",
	 ev_pointer, ev_integer, ev_entity,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_PUSHB_FLD_v6p] = {"<PUSH>", "pushb.fld",
	 ev_pointer, ev_integer, ev_field,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_PUSHB_FN_v6p] = {"<PUSH>", "pushb.fn",
	 ev_pointer, ev_integer, ev_func,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_PUSHB_P_v6p] = {"<PUSH>", "pushb.p",
	 ev_pointer, ev_integer, ev_pointer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_PUSHB_Q_v6p] = {"<PUSH>", "pushb.q",
	 ev_pointer, ev_integer, ev_quat,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_PUSHB_I_v6p] = {"<PUSH>", "pushb.i",
	 ev_pointer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_PUSHB_D_v6p] = {"<PUSH>", "pushb.d",
	 ev_pointer, ev_integer, ev_double,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},

	[OP_PUSHBI_S_v6p] = {"<PUSH>", "pushbi.s",
	 ev_pointer, ev_short, ev_string,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_PUSHBI_F_v6p] = {"<PUSH>", "pushbi.f",
	 ev_pointer, ev_short, ev_float,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_PUSHBI_V_v6p] = {"<PUSH>", "pushbi.v",
	 ev_pointer, ev_short, ev_vector,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_PUSHBI_ENT_v6p] = {"<PUSH>", "pushbi.ent",
	 ev_pointer, ev_short, ev_entity,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_PUSHBI_FLD_v6p] = {"<PUSH>", "pushbi.fld",
	 ev_pointer, ev_short, ev_field,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_PUSHBI_FN_v6p] = {"<PUSH>", "pushbi.fn",
	 ev_pointer, ev_short, ev_func,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_PUSHBI_P_v6p] = {"<PUSH>", "pushbi.p",
	 ev_pointer, ev_short, ev_pointer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_PUSHBI_Q_v6p] = {"<PUSH>", "pushbi.q",
	 ev_pointer, ev_short, ev_quat,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_PUSHBI_I_v6p] = {"<PUSH>", "pushbi.i",
	 ev_pointer, ev_short, ev_integer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_PUSHBI_D_v6p] = {"<PUSH>", "pushbi.d",
	 ev_pointer, ev_short, ev_double,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},

	[OP_POP_S_v6p] = {"<POP>", "pop.s",
	 ev_string, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},
	[OP_POP_F_v6p] = {"<POP>", "pop.f",
	 ev_float, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},
	[OP_POP_V_v6p] = {"<POP>", "pop.v",
	 ev_vector, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},
	[OP_POP_ENT_v6p] = {"<POP>", "pop.ent",
	 ev_entity, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},
	[OP_POP_FLD_v6p] = {"<POP>", "pop.fld",
	 ev_field, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},
	[OP_POP_FN_v6p] = {"<POP>", "pop.fn",
	 ev_func, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},
	[OP_POP_P_v6p] = {"<POP>", "pop.p",
	 ev_pointer, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},
	[OP_POP_Q_v6p] = {"<POP>", "pop.q",
	 ev_quat, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},
	[OP_POP_I_v6p] = {"<POP>", "pop.i",
	 ev_integer, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},
	[OP_POP_D_v6p] = {"<POP>", "pop.d",
	 ev_double, ev_invalid, ev_invalid,
	 PROG_V6P_VERSION,
	 "%ga",
	},

	[OP_POPB_S_v6p] = {"<POP>", "popb.s",
	 ev_pointer, ev_integer, ev_string,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_POPB_F_v6p] = {"<POP>", "popb.f",
	 ev_pointer, ev_integer, ev_float,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_POPB_V_v6p] = {"<POP>", "popb.v",
	 ev_pointer, ev_integer, ev_vector,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_POPB_ENT_v6p] = {"<POP>", "popb.ent",
	 ev_pointer, ev_integer, ev_entity,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_POPB_FLD_v6p] = {"<POP>", "popb.fld",
	 ev_pointer, ev_integer, ev_field,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_POPB_FN_v6p] = {"<POP>", "popb.fn",
	 ev_pointer, ev_integer, ev_func,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_POPB_P_v6p] = {"<POP>", "popb.p",
	 ev_pointer, ev_integer, ev_pointer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_POPB_Q_v6p] = {"<POP>", "popb.q",
	 ev_pointer, ev_integer, ev_quat,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_POPB_I_v6p] = {"<POP>", "popb.i",
	 ev_pointer, ev_integer, ev_integer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},
	[OP_POPB_D_v6p] = {"<POP>", "popb.d",
	 ev_pointer, ev_integer, ev_double,
	 PROG_V6P_VERSION,
	 "*(%Ga + %Gb)",
	},

	[OP_POPBI_S_v6p] = {"<POP>", "popbi.s",
	 ev_pointer, ev_short, ev_string,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_POPBI_F_v6p] = {"<POP>", "popbi.f",
	 ev_pointer, ev_short, ev_float,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_POPBI_V_v6p] = {"<POP>", "popbi.v",
	 ev_pointer, ev_short, ev_vector,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_POPBI_ENT_v6p] = {"<POP>", "popbi.ent",
	 ev_pointer, ev_short, ev_entity,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_POPBI_FLD_v6p] = {"<POP>", "popbi.fld",
	 ev_pointer, ev_short, ev_field,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_POPBI_FN_v6p] = {"<POP>", "popbi.fn",
	 ev_pointer, ev_short, ev_func,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_POPBI_P_v6p] = {"<POP>", "popbi.p",
	 ev_pointer, ev_short, ev_pointer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_POPBI_Q_v6p] = {"<POP>", "popbi.q",
	 ev_pointer, ev_short, ev_quat,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_POPBI_I_v6p] = {"<POP>", "popbi.i",
	 ev_pointer, ev_short, ev_integer,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},
	[OP_POPBI_D_v6p] = {"<POP>", "popbi.d",
	 ev_pointer, ev_short, ev_double,
	 PROG_V6P_VERSION,
	 "*(%Ga + %sb)",
	},

	// end of table
	[OP_MEMSETPI_v6p+1] = {0}, //XXX FIXME relies on OP_MEMSETPI_v6p being last
};

const v6p_opcode_t *
PR_v6p_Opcode (pr_ushort_t opcode)
{
	size_t opcode_count = sizeof (pr_v6p_opcodes) / sizeof (pr_v6p_opcodes[0]);
	if (opcode >= opcode_count - 1) {
		return 0;
	}
	return &pr_v6p_opcodes[opcode];
}

static inline void
check_branch (progs_t *pr, dstatement_t *st, const v6p_opcode_t *op, short offset)
{
	pr_int_t    address = st - pr->pr_statements;

	address += offset;
	if (address < 0 || (pr_uint_t) address >= pr->progs->numstatements)
		PR_Error (pr, "PR_Check_Opcodes: invalid branch (statement %ld: %s)",
				  (long)(st - pr->pr_statements), op->opname);
}

static int
is_vector_parameter_store (progs_t *pr, dstatement_t *st,
						   unsigned short operand)
{
	int         i;

	if ((pr_opcode_v6p_e) st->op != OP_STORE_V_v6p)
		return 0;
	if (operand != st->a)
		return 0;
	for (i = 0; i < MAX_PARMS; i++)
		if (st->b == pr->pr_params[i] - pr->pr_globals)
			return 1;
	return 0;
}

#define ISDENORM(x) ((x) && !((x) & 0x7f800000))

static inline void
check_global (progs_t *pr, dstatement_t *st, const v6p_opcode_t *op, etype_t type,
			  unsigned short operand, int check_denorm)
{
	const char *msg;
	pr_def_t   *def;

	switch (type) {
		case ev_short:
			break;
		case ev_invalid:
			if (operand) {
				msg = "non-zero global index in invalid operand";
				goto error;
			}
			break;
		default:
			if (operand + (unsigned) pr_type_size[type]
				> pr->progs->numglobals) {
				if (operand >= pr->progs->numglobals
					|| !is_vector_parameter_store (pr, st, operand)) {
					msg = "out of bounds global index";
					goto error;
				}
			}
			if (type != ev_float || !check_denorm)
				break;
			if (!ISDENORM (G_INT (pr, operand))
				|| G_UINT(pr, operand) == 0x80000000)
				break;
			if ((def = PR_GlobalAtOfs (pr, operand))
				&& (def->type & ~DEF_SAVEGLOBAL) != ev_float) {
				// FTEqcc uses store.f parameters of most types :/
				break;
			}
			if (!pr->denorm_found) {
				pr->denorm_found = 1;
				if (pr_boundscheck->int_val) {
					Sys_Printf ("DENORMAL floats detected, these progs might "
								"not work. Good luck.\n");
					return;
				}
				msg = "DENORMAL float detected. These progs are probably "
					"using qccx arrays and integers. If just simple arrays "
					"are being used, then they should work, but if "
					"internal.qc is used, they most definitely will NOT. To "
					"allow these progs to be used, set pr_boundscheck to 1.";
				goto error;
			}
			break;
	}
	return;
error:
	PR_PrintStatement (pr, st, 0);
	PR_Error (pr, "PR_Check_Opcodes: %s (statement %ld: %s)", msg,
			  (long)(st - pr->pr_statements), op->opname);
}

static void
check_global_size (progs_t *pr, dstatement_t *st, const v6p_opcode_t *op,
				   unsigned short size, unsigned short operand)
{
	const char *msg;
	if (operand + size > pr->progs->numglobals) {
		msg = "out of bounds global index";
		goto error;
	}
	return;
error:
	PR_PrintStatement (pr, st, 0);
	PR_Error (pr, "PR_Check_Opcodes: %s (statement %ld: %s)", msg,
			  (long)(st - pr->pr_statements), op->opname);
}

int
PR_Check_Opcodes (progs_t *pr)
{
	const v6p_opcode_t *op;
	dstatement_t *st;
	int         state_ok = 0;
	int         pushpop_ok = 0;
	pr_uint_t   i;

	if (pr->globals.time && pr->globals.self && pr->fields.nextthink != -1
		&& pr->fields.think != -1 && pr->fields.frame != -1) {
		state_ok = 1;
	}
	if (pr->globals.stack) {
		pushpop_ok = 1;
	}

	//FIXME need to decide if I really want to always do static bounds checking
	// the only problem is that it slows progs load a little, but it's the only
	// way to check for qccx' evil
	if (0 && !pr_boundscheck->int_val) {
		for (i = 0, st = pr->pr_statements; i < pr->progs->numstatements;
			 st++, i++) {
			pr_opcode_v6p_e st_op = st->op;
			op = PR_v6p_Opcode (st_op);
			if (!op) {
				PR_Error (pr, "PR_Check_Opcodes: unknown opcode %d at "
						  "statement %ld", st_op,
						  (long)(st - pr->pr_statements));
			}
			if ((st_op == OP_STATE_v6p || st_op == OP_STATE_F_v6p)
				&& !state_ok) {
				PR_Error (pr, "PR_Check_Opcodes: %s used with missing fields "
						  "or globals", op->opname);
			}
			if ((strequal(op->name, "<PUSH>") || strequal(op->name, "<POP>"))
				&& !pushpop_ok) {
				PR_Error (pr, "PR_Check_Opcodes: %s used with missing .stack "
						  "globals", op->opname);
			}
		}
	} else {
		for (i = 0, st = pr->pr_statements; i < pr->progs->numstatements;
			 st++, i++) {
			pr_opcode_v6p_e st_op = st->op;
			op = PR_v6p_Opcode (st_op);
			if (!op) {
				PR_Error (pr, "PR_Check_Opcodes: unknown opcode %d at "
						  "statement %ld", st_op,
						  (long)(st - pr->pr_statements));
			}
			switch (st_op) {
				case OP_IF_v6p:
				case OP_IFNOT_v6p:
					check_global (pr, st, op, op->type_a, st->a, 1);
					check_branch (pr, st, op, st->b);
					break;
				case OP_GOTO_v6p:
					check_branch (pr, st, op, st->a);
					break;
				case OP_DONE_v6p:
				case OP_RETURN_v6p:
					check_global (pr, st, op, ev_integer, st->a, 1);
					check_global (pr, st, op, ev_void, st->b, 0);
					check_global (pr, st, op, ev_void, st->c, 0);
					break;
				case OP_RCALL1_v6p:
					check_global (pr, st, op, ev_void, st->c, 1);
				case OP_RCALL2_v6p:
				case OP_RCALL3_v6p:
				case OP_RCALL4_v6p:
				case OP_RCALL5_v6p:
				case OP_RCALL6_v6p:
				case OP_RCALL7_v6p:
				case OP_RCALL8_v6p:
					if (st_op > OP_RCALL1_v6p)
						check_global (pr, st, op, ev_integer, st->c, 1);
					check_global (pr, st, op, ev_integer, st->b, 1);
					check_global (pr, st, op, ev_func, st->a, 1);
					break;
				case OP_STATE_v6p:
				case OP_STATE_F_v6p:
					if (!state_ok) {
						PR_Error (pr, "PR_Check_Opcodes: %s used with missing "
								  "fields or globals", op->opname);
					}
					check_global (pr, st, op, op->type_a, st->a, 1);
					check_global (pr, st, op, op->type_b, st->b, 1);
					check_global (pr, st, op, op->type_c, st->c, 1);
					break;
				case OP_MOVEI_v6p:
					check_global_size (pr, st, op, st->b, st->a);
					check_global_size (pr, st, op, st->b, st->c);
					break;
				case OP_MEMSETI_v6p:
					check_global_size (pr, st, op, st->b, st->c);
					break;
				case OP_PUSHB_F_v6p:
				case OP_PUSHB_S_v6p:
				case OP_PUSHB_ENT_v6p:
				case OP_PUSHB_FLD_v6p:
				case OP_PUSHB_FN_v6p:
				case OP_PUSHB_I_v6p:
				case OP_PUSHB_P_v6p:
				case OP_PUSHB_V_v6p:
				case OP_PUSHB_Q_v6p:
				case OP_PUSHBI_F_v6p:
				case OP_PUSHBI_S_v6p:
				case OP_PUSHBI_ENT_v6p:
				case OP_PUSHBI_FLD_v6p:
				case OP_PUSHBI_FN_v6p:
				case OP_PUSHBI_I_v6p:
				case OP_PUSHBI_P_v6p:
				case OP_PUSHBI_V_v6p:
				case OP_PUSHBI_Q_v6p:
					// op->type_c is used for selecting the operator during
					// compilation, but is invalid when running
					check_global (pr, st, op, op->type_a, st->a, 1);
					check_global (pr, st, op, op->type_b, st->b, 1);
					check_global (pr, st, op, ev_invalid, st->c, 1);
					break;
				case OP_POP_F_v6p:
				case OP_POP_FLD_v6p:
				case OP_POP_ENT_v6p:
				case OP_POP_S_v6p:
				case OP_POP_FN_v6p:
				case OP_POP_I_v6p:
				case OP_POP_P_v6p:
				case OP_POP_V_v6p:
				case OP_POP_Q_v6p:
					// don't want to check for denormal floats, otherwise
					// OP_POP__v6p* could use the defualt rule
					check_global (pr, st, op, op->type_a, st->a, 0);
					check_global (pr, st, op, ev_invalid, st->b, 1);
					check_global (pr, st, op, ev_invalid, st->c, 1);
					break;
				case OP_POPB_F_v6p:
				case OP_POPB_S_v6p:
				case OP_POPB_ENT_v6p:
				case OP_POPB_FLD_v6p:
				case OP_POPB_FN_v6p:
				case OP_POPB_I_v6p:
				case OP_POPB_P_v6p:
				case OP_POPB_V_v6p:
				case OP_POPB_Q_v6p:
				case OP_POPBI_F_v6p:
				case OP_POPBI_S_v6p:
				case OP_POPBI_ENT_v6p:
				case OP_POPBI_FLD_v6p:
				case OP_POPBI_FN_v6p:
				case OP_POPBI_I_v6p:
				case OP_POPBI_P_v6p:
				case OP_POPBI_V_v6p:
				case OP_POPBI_Q_v6p:
					// op->type_c is used for selecting the operator during
					// compilation, but is invalid when running
					check_global (pr, st, op, op->type_a, st->a, 1);
					check_global (pr, st, op, op->type_b, st->b, 1);
					check_global (pr, st, op, ev_invalid, st->c, 1);
					break;
				default:
					check_global (pr, st, op, op->type_a, st->a, 1);
					check_global (pr, st, op, op->type_b, st->b,
								  (op - pr_v6p_opcodes) != OP_STORE_F_v6p);
					check_global (pr, st, op, op->type_c, st->c, 0);
					break;
			}
		}
	}
	return 1;
}