V10/cmd/c2/c22.c

Compare this file to the similar file:
Show the results in this format:
static	char sccsid[] = "@(#)c22.c 4.1 10/16/80";
#include "c2.h"
/* char c22[] = "@(#)c22.c 1.10 80/03/14 10:27:37"; */
#define readonly

readonly char revbr[] = {
	JNE, JEQ, JGT, JLT, JGE, JLE,
	JNE, JEQ, JHI, JLO, JHIS, JLOS,
	JBS, JBC, JLBS, JLBC, JBSC, JBCC, JBSS, JBCS };

/* cursed be the preprocessor, whose impotence and stupidity
/* prevented this table being macro-generated from ../as/instrs
*/
readonly struct optab optab[] = {
{"jbr",JBR},
{"jeql",T(CBR,JEQ)},
{"jneq",T(CBR,JNE)},
{"jleq",T(CBR,JLE)},
{"jgeq",T(CBR,JGE)},
{"jlss",T(CBR,JLT)},
{"jgtr",T(CBR,JGT)},
{"jbc",T(CBR,JBC)},
{"jbs",T(CBR,JBS)},
{"jlequ",T(CBR,JLOS)},
{"jgequ",T(CBR,JHIS)},
{"jlssu",T(CBR,JLO)},
{"jgtru",T(CBR,JHI)},
{"jlbc",T(CBR,JLBC)},
{"jlbs",T(CBR,JLBS)},
{"jbcc",T(CBR,JBCC)},
{"jbsc",T(CBR,JBSC)},
{"jbcs",T(CBR,JBCS)},
{"jbss",T(CBR,JBSS)},
{"acbb",T(ACB,BYTE)},
{"acbd",T(ACB,DOUBLE)},
{"acbf",T(ACB,FLOAT)},
{"acbl",T(ACB,LONG)},
{"acbw",T(ACB,WORD)},
{"addb2",T(ADD,U(BYTE,OP2))},
{"addb3",T(ADD,U(BYTE,OP3))},
{"addd2",T(ADD,U(DOUBLE,OP2))},
{"addd3",T(ADD,U(DOUBLE,OP3))},
{"addf2",T(ADD,U(FLOAT,OP2))},
{"addf3",T(ADD,U(FLOAT,OP3))},
{"addl2",T(ADD,U(LONG,OP2))},
{"addl3",T(ADD,U(LONG,OP3))},
{"addw2",T(ADD,U(WORD,OP2))},
{"addw3",T(ADD,U(WORD,OP3))},
{"aobleq",AOBLEQ},
{"aoblss",AOBLSS},
{"ashl",T(ASH,LONG)},
{"ashq",T(ASH,QUAD)},
{"bbc",T(CBR,JBC)},
{"bbcc",T(CBR,JBCC)},
{"bbcci",T(CBR,JBCC)},
{"bbcs",T(CBR,JBCS)},
{"bbs",T(CBR,JBS)},
{"bbsc",T(CBR,JBSC)},
{"bbss",T(CBR,JBSS)},
{"bbssi",T(CBR,JBSS)},
{"bcc",T(CBR,JHIS)},
{"bcs",T(CBR,JLO)},
{"beql",T(CBR,JEQ)},
{"beqlu",T(CBR,JEQ)},
{"bgeq",T(CBR,JGE)},
{"bgequ",T(CBR,JHIS)},
{"bgtr",T(CBR,JGT)},
{"bgtru",T(CBR,JHI)},
{"bicb2",T(BIC,U(BYTE,OP2))},
{"bicb3",T(BIC,U(BYTE,OP3))},
{"bicl2",T(BIC,U(LONG,OP2))},
{"bicl3",T(BIC,U(LONG,OP3))},
{"bicw2",T(BIC,U(WORD,OP2))},
{"bicw3",T(BIC,U(WORD,OP3))},
{"bisb2",T(BIS,U(BYTE,OP2))},
{"bisb3",T(BIS,U(BYTE,OP3))},
{"bisl2",T(BIS,U(LONG,OP2))},
{"bisl3",T(BIS,U(LONG,OP3))},
{"bisw2",T(BIS,U(WORD,OP2))},
{"bisw3",T(BIS,U(WORD,OP3))},
{"bitb",T(BIT,BYTE)},
{"bitl",T(BIT,LONG)},
{"bitw",T(BIT,WORD)},
{"blbs",T(CBR,JLBS)},
{"blbc",T(CBR,JLBC)},
{"bleq",T(CBR,JLE)},
{"blequ",T(CBR,JLOS)},
{"blss",T(CBR,JLT)},
{"blssu",T(CBR,JLO)},
{"bneq",T(CBR,JNE)},
{"bnequ",T(CBR,JNE)},
{"brb",JBR},
{"brw",JBR},
{"bvc",T(CBR,0)},
{"bvs",T(CBR,0)},
{"callg",CALLS},
{"calls",CALLS},
{"caseb",T(CASE,BYTE)},
{"casel",T(CASE,LONG)},
{"casew",T(CASE,WORD)},
{"clrb",T(CLR,BYTE)},
{"clrd",T(CLR,DOUBLE)},
{"clrf",T(CLR,FLOAT)},
{"clrl",T(CLR,LONG)},
{"clrq",T(CLR,QUAD)},
{"clrw",T(CLR,WORD)},
{"cmpb",T(CMP,BYTE)},
{"cmpd",T(CMP,DOUBLE)},
{"cmpf",T(CMP,FLOAT)},
{"cmpl",T(CMP,LONG)},
{"cmpw",T(CMP,WORD)},
{"cvtbd",T(CVT,U(BYTE,DOUBLE))},
{"cvtbf",T(CVT,U(BYTE,FLOAT))},
{"cvtbl",T(CVT,U(BYTE,LONG))},
{"cvtbw",T(CVT,U(BYTE,WORD))},
{"cvtdb",T(CVT,U(DOUBLE,BYTE))},
{"cvtdf",T(CVT,U(DOUBLE,FLOAT))},
{"cvtdl",T(CVT,U(DOUBLE,LONG))},
{"cvtdw",T(CVT,U(DOUBLE,WORD))},
{"cvtfb",T(CVT,U(FLOAT,BYTE))},
{"cvtfd",T(CVT,U(FLOAT,DOUBLE))},
{"cvtfl",T(CVT,U(FLOAT,LONG))},
{"cvtfw",T(CVT,U(FLOAT,WORD))},
{"cvtlb",T(CVT,U(LONG,BYTE))},
{"cvtld",T(CVT,U(LONG,DOUBLE))},
{"cvtlf",T(CVT,U(LONG,FLOAT))},
{"cvtlw",T(CVT,U(LONG,WORD))},
{"cvtrdl",T(CVT,U(DOUBLE,LONG))},
{"cvtrfl",T(CVT,U(FLOAT,LONG))},
{"cvtwb",T(CVT,U(WORD,BYTE))},
{"cvtwd",T(CVT,U(WORD,DOUBLE))},
{"cvtwf",T(CVT,U(WORD,FLOAT))},
{"cvtwl",T(CVT,U(WORD,LONG))},
{"decb",T(DEC,BYTE)},
{"decl",T(DEC,LONG)},
{"decw",T(DEC,WORD)},
{"divb2",T(DIV,U(BYTE,OP2))},
{"divb3",T(DIV,U(BYTE,OP3))},
{"divd2",T(DIV,U(DOUBLE,OP2))},
{"divd3",T(DIV,U(DOUBLE,OP3))},
{"divf2",T(DIV,U(FLOAT,OP2))},
{"divf3",T(DIV,U(FLOAT,OP3))},
{"divl2",T(DIV,U(LONG,OP2))},
{"divl3",T(DIV,U(LONG,OP3))},
{"divw2",T(DIV,U(WORD,OP2))},
{"divw3",T(DIV,U(WORD,OP3))},
{"extv",T(EXTV,LONG)},
{"extzv",T(EXTZV,LONG)},
{"incb",T(INC,BYTE)},
{"incl",T(INC,LONG)},
{"incw",T(INC,WORD)},
{"insv",T(INSV,-1)},
{"jmp",JMP},
{"mcomb",T(COM,BYTE)},
{"mcoml",T(COM,LONG)},
{"mcomw",T(COM,WORD)},
{"mnegb",T(NEG,BYTE)},
{"mnegd",T(NEG,DOUBLE)},
{"mnegf",T(NEG,FLOAT)},
{"mnegl",T(NEG,LONG)},
{"mnegw",T(NEG,WORD)},
{"movab",T(MOVA,BYTE)},
{"movad",T(MOVA,DOUBLE)},
{"movaf",T(MOVA,FLOAT)},
{"moval",T(MOVA,LONG)},
{"movaq",T(MOVA,QUAD)},
{"movaw",T(MOVA,WORD)},
{"movb",T(MOV,BYTE)},
{"movd",T(MOV,DOUBLE)},
{"movf",T(MOV,FLOAT)},
{"movl",T(MOV,LONG)},
{"movq",T(MOV,QUAD)},
{"movw",T(MOV,WORD)},
{"movzbl",T(MOVZ,U(BYTE,LONG))},
{"movzbw",T(MOVZ,U(BYTE,WORD))},
{"movzwl",T(MOVZ,U(WORD,LONG))},
{"mulb2",T(MUL,U(BYTE,OP2))},
{"mulb3",T(MUL,U(BYTE,OP3))},
{"muld2",T(MUL,U(DOUBLE,OP2))},
{"muld3",T(MUL,U(DOUBLE,OP3))},
{"mulf2",T(MUL,U(FLOAT,OP2))},
{"mulf3",T(MUL,U(FLOAT,OP3))},
{"mull2",T(MUL,U(LONG,OP2))},
{"mull3",T(MUL,U(LONG,OP3))},
{"mulw2",T(MUL,U(WORD,OP2))},
{"mulw3",T(MUL,U(WORD,OP3))},
{"pushab",T(PUSHA,BYTE)},
{"pushad",T(PUSHA,DOUBLE)},
{"pushaf",T(PUSHA,FLOAT)},
{"pushal",T(PUSHA,LONG)},
{"pushaq",T(PUSHA,QUAD)},
{"pushaw",T(PUSHA,WORD)},
{"pushl",T(PUSH,LONG)},
{"ret",T(JBR,RET)},
{"sobgeq",SOBGEQ},
{"sobgtr",SOBGTR},
{"subb2",T(SUB,U(BYTE,OP2))},
{"subb3",T(SUB,U(BYTE,OP3))},
{"subd2",T(SUB,U(DOUBLE,OP2))},
{"subd3",T(SUB,U(DOUBLE,OP3))},
{"subf2",T(SUB,U(FLOAT,OP2))},
{"subf3",T(SUB,U(FLOAT,OP3))},
{"subl2",T(SUB,U(LONG,OP2))},
{"subl3",T(SUB,U(LONG,OP3))},
{"subw2",T(SUB,U(WORD,OP2))},
{"subw3",T(SUB,U(WORD,OP3))},
{"tstb",T(TST,BYTE)},
{"tstd",T(TST,DOUBLE)},
{"tstf",T(TST,FLOAT)},
{"tstl",T(TST,LONG)},
{"tstw",T(TST,WORD)},
{"xorb2",T(XOR,U(BYTE,OP2))},
{"xorb3",T(XOR,U(BYTE,OP3))},
{"xorl2",T(XOR,U(LONG,OP2))},
{"xorl3",T(XOR,U(LONG,OP3))},
{"xorw2",T(XOR,U(WORD,OP2))},
{"xorw3",T(XOR,U(WORD,OP3))},
{"movc3",T(CHRINS,U(3,5))},	/* number of operands, highest register smashed */
{".globl",EROU},
{".text",TEXT},
{".data",DATA},
{".bss",BSS},
{".align",ALIGN},
{".word",WGEN},
{".long",LGEN},
{".set",SET},
{".lcomm",LCOMM},
{".comm",COMM},
{".end",END},
{"rsb",T(JBR,RSB)},
{"jsb",JSB},
{"mfpr",T(MFPR,LONG)},
{"mtpr",T(MTPR,LONG)},
{"prober",T(PROBER,BYTE)},
{"probew",T(PROBEW,BYTE)},
{"adawi",0},
{"addp4",0},
{"addp6",0},
{"adwc",0},
{"ashp",0},
{"bicpsw",0},
{"bispsw",0},
{"bpt",0},
{"bsbb",0},
{"bsbw",0},
{"chme",0},
{"chmk",0},
{"chms",0},
{"chmu",0},
{"cmpc3",T(CHRINS, U(3,3))},
{"cmpc5",T(CHRINS, U(5,3))},
{"cmpp3",0},
{"cmpp4",0},
{"cmpv",0},
{"cmpzv",0},
{"crc",T(CHRINS, U(4,3))},	/* hack */
{"cvtlp",0},
{"cvtpl",0},
{"cvttp",0},
{"cvtpt",0},
{"cvtps",0},
{"cvtsp",0},
{"divp",0},
{"editpc",0},
{"ediv",0},
{"emodd",0},
{"emodf",0},
{"emul",0},
{"ffc",0},
{"ffs",0},
{"halt",0},
{"index",0},
{"insque",0},
{"ldpctx",0},
{"locc",T(CHRINS, U(3,1))},
{"matchc",T(CHRINS, U(4,3))},
{"movc5",T(CHRINS, U(5,5))},
{"movp",0},
{"movpsl",0},
{"movtc",T(CHRINS, U(6,5))},
{"movtuc",T(CHRINS, U(6,5))},
{"mulp",0},
{"nop",0},
{"polyd",0},
{"polyf",0},
{"popr",0},
{"pushr",0},
{"rei",0},
{"remque",0},
{"rotl",0},
{"sbwc",0},
{"scanc",T(CHRINS, U(4,3))},
{"skpc",T(CHRINS, U(3,1))},
{"spanc",T(CHRINS, U(4,3))},
{"subp4",0},
{"subp6",0},
{"svpctx",0},
{"xfc",0},
{"escd",0},
{"esce",0},
{"escf",0},
{	0,	0}
};