z8kgen: temp file to generate z8k-opc.h from

z8k-dis.c: fixed various bugs

1 files changed, 879 insertions, 0 deletions

diff --git a/opcodes/z8kgen.c b/opcodes/z8kgen.c
new file mode 100644
index 0000000..8eb38f4
--- /dev/null
+++ b/opcodes/z8kgen.c
@@ -0,0 +1,879 @@
+#include <stdio.h>
+#define BYTE_INFO_LEN 10
+/*#include "z8opcode.h"*/
+struct op {
+char  *bits;
+char *name;
+} ;
+#define iswhite(x) ((x) == ' ' || (x) == '\t')
+struct op opt[] = 
+{
+"1011 0101 ssss dddd","adc rd,rs",
+"1011 0100 ssss dddd","adcb rbd,rbs",
+"0000 0001 ssN0 dddd","add rd,@rs",
+"0100 0001 0000 dddd address","add rd,address",
+"0100 0001 ssN0 dddd address","add rd,address(rs)",
+"0000 0001 0000 dddd imm16","add rd,imm16",
+"1000 0001 ssss dddd","add rd,rs",
+"0000 0000 ssN0 dddd","addb rbd,@rs",
+"0100 0000 0000 dddd address","addb rbd,address",
+"0100 0000 ssN0 dddd address","addb rbd,address(rs)",
+"0000 0000 0000 dddd imm8 imm8","addb rbd,imm8",
+"1000 0000 ssss dddd","addb rbd,rbs",
+"0001 0110 ssN0 dddd","addl rrd,@rs",
+"0101 0110 0000 dddd address","addl rrd,address",
+"0101 0110 ssN0 dddd address","addl rrd,address(rs)",
+"0001 0110 0000 dddd imm32","addl rrd,imm32",
+"1001 0110 ssss dddd","addl rrd,rrs",
+"0000 0111 ssN0 dddd","and rd,@rs",
+"0100 0111 0000 dddd address","and rd,address",
+"0100 0111 ssN0 dddd address","and rd,address(rs)",
+"0000 0111 0000 dddd imm16","and rd,imm16",
+"1000 0111 ssss dddd","and rd,rs",
+"0000 0110 ssN0 dddd","andb rbd,@rs",
+"0100 0110 0000 dddd address","andb rbd,address",
+"0100 0110 ssN0 dddd address","andb rbd,address(rs)",
+"0000 0110 0000 dddd imm8 imm8","andb rbd,imm8",
+"1000 0110 ssss dddd","andb rbd,rbs",
+"0010 0111 ddN0 imm4","bit @rd,imm4",
+"0110 0111 ddN0 imm4 address","bit address(rd),imm4",
+"0110 0111 0000 imm4 address","bit address,imm4",
+"1010 0111 dddd imm4","bit rd,imm4",
+"0010 0111 0000 ssss 0000 dddd 0000 0000","bit rd,rs",
+"0010 0110 ddN0 imm4","bitb @rd,imm4",
+"0110 0110 ddN0 imm4 address","bitb address(rd),imm4",
+"0110 0110 0000 imm4 address","bitb address,imm4",
+"1010 0110 dddd imm4","bitb rbd,imm4",
+"0010 0110 0000 ssss 0000 dddd 0000 0000","bitb rbd,rs",
+"0001 1111 ddN0 0000","call @rd",
+"0101 1111 0000 0000 address","call address",
+"0101 1111 ddN0 0000 address","call address(rd)",
+"1101 disp12","calr disp12",
+"0000 1101 ddN0 1000","clr @rd",
+"0100 1101 0000 1000","clr address",
+"0100 1101 ddN0 1000","clr address(rd)",
+"1000 1101 dddd 1000","clr rd",
+"0000 1100 ddN0 1000","clrb @rd",
+"0100 1100 0000 1000","clrb address",
+"0100 1100 ddN0 1000","clrb address(rd)",
+"1000 1100 dddd 1000","clrb rbd",
+"1011 1011 ssN0 1010 0000 rrrr ddN0 cccc","cpsd @rd,@rs,rr,cc",
+"1011 1010 ssN0 1010 0000 rrrr ddN0 cccc","cpsdb @rd,@rs,rr,cc",
+"1011 1011 ssN0 1110 0000 rrrr ddN0 cccc","cpsdr @rd,@rs,rr,cc",
+"1011 1010 ssN0 1110 0000 rrrr ddN0 cccc","cpsdrb @rd,@rs,rr,cc",
+"1011 1011 ssN0 0010 0000 rrrr ddN0 cccc","cpsi @rd,@rs,rr,cc",
+"1011 1010 ssN0 0010 0000 rrrr ddN0 cccc","cpsib @rd,@rs,rr,cc",
+"1011 1011 ssN0 0110 0000 rrrr ddN0 cccc","cpsir @rd,@rs,rr,cc",
+"1011 1010 ssN0 0110 0000 rrrr ddN0 cccc","cpsirb @rd,@rs,rr,cc",
+"0000 1101 ddN0 0000","com @rd",
+"0100 1101 0000 0000","com address",
+"0100 1101 ddN0 0000","com address(rd)",
+"1000 1101 dddd 0000","com rd",
+"0000 1100 ddN0 0000","comb @rd",
+"0100 1100 0000 0000","comb address",
+"0100 1100 ddN0 0000","comb address(rd)",
+"1000 1100 dddd 0000","comb rbd",
+"1000 1101 imm4 0101","comflg flags",
+"0000 1101 ddN0 0001 imm16","cp @rd,imm16",
+"0100 1101 ddN0 0001 address imm16","cp address(rd),imm16",
+"0100 1101 0000 0001 address imm16","cp address,imm16",
+"0000 1011 ssN0 dddd","cp rd,@rs",
+"0100 1011 0000 dddd address","cp rd,address",
+"0100 1011 ssN0 dddd address","cp rd,address(rs)",
+"0000 1011 0000 dddd imm16","cp rd,imm16",
+"1000 1011 ssss dddd","cp rd,rs",
+"0000 1100 ddN0 0001 imm8 imm8","cpb @rd,imm8",
+"0100 1100 ddN0 0001 address imm8 imm8","cpb address(rd),imm8",
+"0100 1100 0000 0001 address imm8 imm8","cpb address,imm8",
+"0000 1010 ssN0 dddd","cpb rbd,@rs",
+"0100 1010 0000 dddd address","cpb rbd,address",
+"0100 1010 ssN0 dddd address","cpb rbd,address(rs)",
+"0000 1010 0000 dddd imm8 imm8","cpb rbd,imm8",
+"1000 1010 ssss dddd","cpb rbd,rbs",
+"1011 1011 ssN0 1000 0000 rrrr dddd cccc","cpd rd,@rs,rr,cc",
+"1011 1010 ssN0 1000 0000 rrrr dddd cccc","cpdb rbd,@rs,rr,cc",
+"1011 1011 ssN0 1100 0000 rrrr dddd cccc","cpdr rd,@rs,rr,cc",
+"1011 1010 ssN0 1100 0000 rrrr dddd cccc","cpdrb rbd,@rs,rr,cc",
+"1011 1011 ssN0 0000 0000 rrrr dddd cccc","cpi rbd,@rs,rr,cc",
+"1011 1010 ssN0 0000 0000 rrrr dddd cccc","cpib rd,@rs,rr,cc",
+"1011 1011 ssN0 0100 0000 rrrr dddd cccc","cpir rbd,@rs,rr,cc",
+"1011 1010 ssN0 0100 0000 rrrr dddd cccc","cpirb rd,@rs,rr,cc",
+"0001 0000 ssN0 dddd","cpl rrd,@rs",
+"0101 0000 0000 dddd address","cpl rrd,address",
+"0101 0000 ssN0 dddd address","cpl rrd,address(rs)",
+"0001 0000 0000 dddd imm32","cpl rrd,imm32",
+"1001 0000 ssss dddd","cpl rrd,rrs",
+"1011 0000 dddd 0000","dab rbd",
+"1111 dddd 1disp7","dbjnz rbd,disp7",
+"0010 1011 ddN0 imm4","dec @rd,imm4",
+"0110 1011 ddN0 imm4 address","dec address(rd),imm4",
+"0110 1011 0000 imm4 address","dec address,imm4",
+"1010 1011 dddd imm4","dec rd,imm4",
+"0010 1010 ddN0 imm4","decb @rd,imm4",
+"0110 1010 ddN0 imm4 address","decb address(rd),imm4",
+"0110 1010 0000 imm4 address","decb address,imm4",
+"1010 1010 dddd imm4","decb rbd,imm4",
+"0111 1100 0000 00ii","di i2",
+"0001 1011 ssN0 dddd","div rrd,@rs",
+"0101 1011 0000 dddd address","div rrd,address",
+"0101 1011 ssN0 dddd address","div rrd,address(rs)",
+"0001 1011 0000 dddd imm16","div rrd,imm16",
+"1001 1011 ssss dddd","div rrd,rs",
+"0001 1010 ssN0 dddd","divl rqd,@rs",
+"0101 1010 0000 dddd address","divl rqd,address",
+"0101 1010 ssN0 dddd address","divl rqd,address(rs)",
+"0001 1010 0000 dddd imm32","divl rqd,imm32",
+"1001 1010 ssss dddd","divl rqd,rrs",
+"1111 dddd 0disp7","djnz rd,disp7",
+"0111 1100 0000 01ii","ei i2",
+"1010 1101 ssss dddd","ex rbd,rbs",
+"0010 1101 ssN0 dddd","ex rd,@rs",
+"0110 1101 0000 dddd address","ex rd,address",
+"0110 1101 ssN0 dddd address","ex rd,address(rs)",
+"0010 1100 ssN0 dddd","exb rbd,@rs",
+"0110 1100 0000 dddd address","exb rbd,address",
+"0110 1100 ssN0 dddd address","exb rbd,address(rs)",
+"1010 1100 ssss dddd","exb rbd,rbs",
+"1011 0001 dddd 1010","exts rrd",
+"1011 0001 dddd 0000","extsb rd",
+"1011 0001 dddd 0111","extsl rqd",
+"0111 1010 0000 0000","halt",
+"0011 1101 ssN0 dddd","in rd,@rs",
+"0011 1101 dddd 0100 imm16","in rd,imm16",
+"0011 1100 ssN0 dddd","inb rbd,@rs",
+"0011 1100 dddd 0100 imm16","inb rbd,imm16",
+"0010 1001 ddN0 imm4","inc @rd,imm4",
+"0110 1001 ddN0 imm4 address","inc address(rd),imm4",
+"0110 1001 0000 imm4 address","inc address,imm4",
+"1010 1001 dddd imm4","inc rd,imm4",
+"0010 1000 ddN0 imm4","incb @rd,imm4",
+"0110 1000 ddN0 imm4 address","incb address(rd),imm4",
+"0110 1000 0000 imm4 address","incb address,imm4",
+"1010 1000 dddd imm4","incb rbd,imm4",
+"0011 1011 ssN0 1000 0000 aaaa ddN0 1000","ind @rd,@rs,ra",
+"0011 1010 ssN0 1000 0000 aaaa ddN0 1000","indb @rd,@rs,rba",
+"0011 1100 ssN0 0000 0000 aaaa ddN0 1000","inib @rd,@rs,ra",
+"0011 1100 ssN0 0000 0000 aaaa ddN0 0000","inibr @rd,@rs,ra",
+"0111 1011 0000 0000","iret",
+"0001 1110 ddN0 cccc","jp cc,@rd",
+"0101 1110 0000 cccc address","jp cc,address",
+"0101 1110 ddN0 cccc address","jp cc,address(rd)",
+"1110 cccc disp8","jr cc,disp8",
+"0000 1101 ddN0 0101 imm16","ld @rd,imm16",
+"0010 1111 ddN0 ssss","ld @rd,rs",
+"0100 1101 ddN0 0101 address imm16","ld address(rd),imm16",
+"0110 1111 ddN0 ssss address","ld address(rd),rs",
+"0100 1101 0000 0101 address imm16","ld address,imm16",
+"0110 1111 0000 ssss address","ld address,rs",
+"0011 0011 ddN0 ssss disp16","ld rd(disp16),rs",
+"0111 0011 ddN0 ssss 0000 xxN0 0000 0000","ld rd(rx),rs",
+"0010 0001 ssN0 dddd","ld rd,@rs",
+"0110 0001 0000 dddd address","ld rd,address",
+"0110 0001 ssN0 dddd address","ld rd,address(rs)",
+"0010 0001 0000 dddd imm16","ld rd,imm16",
+"1010 0001 ssss dddd","ld rd,rs",
+"0011 0001 ssN0 dddd disp16","ld rd,rs(disp16)",
+"0111 0001 ssN0 dddd 0000 xxN0 0000 0000","ld rd,rs(rx)",
+"0111 0110 0000 dddd address","lda rd,address",
+"0111 0110 ssN0 dddd address","lda rd,address(rs)",
+"0011 0100 ssN0 dddd disp16","lda rd,rs(disp16)",
+"0111 0100 ssN0 dddd 0000 xxN0 0000 0000","lda rd,rs(rx)",
+"0011 0100 0000 dddd disp16","ldar rd,disp16",
+"0000 1100 ddN0 0101 imm8 imm8","ldb @rd,imm8",
+"0010 1110 ddN0 ssss","ldb @rd,rbs",
+"0100 1100 ddN0 0101 address imm8 imm8","ldb address(rd),imm8",
+"0100 1110 ddN0 ssss address","ldb address(rd),rbs",
+"0100 1100 0000 0101 address imm8 imm8","ldb address,imm8",
+"0110 1110 0000 ssss address","ldb address,rbs",
+"0010 0000 ssN0 dddd","ldb rbd,@rs",
+"0110 0000 0000 dddd address","ldb rbd,address",
+"0110 0000 ssN0 dddd address","ldb rbd,address(rs)",
+"1100 dddd imm8","ldb rbd,imm8",
+"0010 0000 0000 dddd imm8 imm8","ldb rbd,imm8",
+"1010 0000 ssss dddd","ldb rbd,rbs",
+"0011 0000 ssN0 dddd disp16","ldb rbd,rs(disp16)",
+"0111 0000 ssN0 dddd 0000 xxN0 0000 0000","ldb rbd,rs(rx)",
+"0011 0010 ddN0 ssss disp16","ldb rd(disp16),rbs",
+"0111 0010 ddN0 ssss 0000 xxN0 0000 0000","ldb rd(rx),rbs",
+"0111 1101 ssss 1ccc","ldctl ctrl,rs",
+"0111 1101 dddd 0ccc","ldctl rd,ctrl",
+"0001 1101 ddN0 ssss","ldl @rd,rrs",
+"0101 1101 ddN0 ssss address","ldl address(rd),rrs",
+"0101 1101 0000 ssss address","ldl address,rrs",
+"0011 0111 ddN0 ssss disp16","ldl rd(disp16),rrs",
+"0111 0111 ddN0 ssss 0000 xxN0 0000 0000","ldl rd(rx),rrs",
+"0001 0100 ssN0 dddd","ldl rrd,@rs",
+"0101 0100 0000 dddd address","ldl rrd,address",
+"0101 0100 ssN0 dddd address","ldl rrd,address(rs)",
+"0001 0100 0000 dddd imm32","ldl rrd,imm32",
+"1001 0100 ssss dddd","ldl rrd,rrs",
+"0011 0101 ssN0 dddd disp16","ldl rrd,rs(disp16)",
+"0111 0101 ssN0 dddd 0000 xxN0 0000 0000","ldl rrd,rs(rx)",
+"0001 1100 ddN0 1001 0000 ssss 0000 nminus1","ldm @rd,rs,n",
+"0101 1100 ddN0 1001 0000 ssN0 0000 nminus1 address","ldm address(rd),rs,n",
+"0101 1100 0000 1001 0000 ssss 0000 nminus1 address","ldm address,rs,n",
+"0001 1100 ssN0 0001 0000 dddd 0000 nminus1","ldm rd,@rs,n",
+"0101 1100 ssN0 0001 0000 dddd 0000 nminus1 address","ldm rd,address(rs),n",
+"0101 1100 0000 0001 0000 dddd 0000 nminus1 address","ldm rd,address,n",
+"0011 1001 ssN0 0000","ldps @rs",
+"1011 1101 dddd imm4","ldk rd,imm4",
+"1011 1010 ssN0 0001 0000 rrrr ddN0 0000","ldirb @rd,@rs,rr",
+"1011 1011 ssN0 0001 0000 rrrr ddN0 0000","ldir @rd,@rs,rr",
+
+"0111 1001 0000 0000 address","ldps address",
+"0111 1001 ssN0 0000 address","ldps address(rs)",
+"0011 0011 0000 ssss disp16","ldr disp16,rs",
+"0011 0001 0000 dddd disp16","ldr rd,disp16",
+"0011 0010 0000 ssss disp16","ldrb disp16,rbs",
+"0011 0000 0000 dddd disp16","ldrb rbd,disp16",
+"0011 0111 0000 ssss disp16","ldrl disp16,rrs",
+"0011 0101 0000 dddd disp16","ldrl rrd,disp16",
+"0111 1011 0000 1010","mbit",
+"0111 1011 dddd 1101","mreq rd",
+"0111 1011 0000 1001","mres",
+"0111 1011 0000 1000","mset",
+"0001 1001 ssN0 dddd","mult rrd,@rs",
+"0101 1001 0000 dddd address","mult rrd,address",
+"0101 1001 ssN0 dddd address","mult rrd,address(rs)",
+"0001 1001 0000 dddd imm16","mult rrd,imm16",
+"1001 1001 ssss dddd","mult rrd,rs",
+"0001 1000 ssN0 dddd","multl rqd,@rs",
+"0101 1000 0000 dddd address","multl rqd,address",
+"0101 1000 ssN0 dddd address","multl rqd,address(rs)",
+"0001 1000 0000 dddd imm32","multl rqd,imm32",
+"1001 1000 ssss dddd","multl rqd,rrs",
+"0000 1101 ddN0 0010","neg @rd",
+"0100 1101 0000 0010","neg address",
+"0100 1101 ddN0 0010","neg address(rd)",
+"1000 1101 dddd 0010","neg rd",
+"0000 1100 ddN0 0010","negb @rd",
+"0100 1100 0000 0010","negb address",
+"0100 1100 ddN0 0010","negb address(rd)",
+"1000 1100 dddd 0010","negb rd",
+"1000 1101 0000 0111","nop",
+"0000 0101 ssN0 dddd","or rd,@rs",
+"0100 0101 0000 dddd address","or rd,address",
+"0100 0101 ssN0 dddd address","or rd,address(rs)",
+"0000 0101 0000 dddd imm16","or rd,imm16",
+"1000 0101 ssss dddd","or rd,rs",
+"0000 0100 ssN0 dddd","orb rbd,@rs",
+"0100 0100 0000 dddd address","orb rbd,address",
+"0100 0100 ssN0 dddd address","orb rbd,address(rs)",
+"0000 0100 0000 dddd imm8 imm8","orb rbd,imm8",
+"1000 0100 ssss dddd","orb rbd,rbs",
+"0011 1111 ddN0 ssss","out @rd,rs",
+"0011 1011 ssss 0110 imm16","out imm16,rs",
+"0011 1110 ddN0 ssss","outb @rd,rbs",
+"0011 1010 ssss 0110 imm16","outb imm16,rbs",
+"0011 1011 ssN0 1010 0000 aaaa ddN0 1000","outd @rd,@rs,ra",
+"0011 1010 ssN0 1010 0000 aaaa ddN0 1000","outdb @rd,@rs,rba",
+"0011 1100 ssN0 0010 0000 aaaa ddN0 1000","outib @rd,@rs,ra",
+"0011 1100 ssN0 0010 0000 aaaa ddN0 0000","outibr @rd,@rs,ra",
+"0001 0111 ssN0 ddN0","pop @rd,@rs",
+"0101 0111 ssN0 ddN0 address","pop address(rd),@rs",
+"0101 0111 ssN0 0000 address","pop address,@rs",
+"1001 0111 ssN0 dddd","pop rd,@rs",
+"0001 0101 ssN0 ddN0","popl @rd,@rs",
+"0101 0101 ssN0 ddN0 address","popl address(rd),@rs",
+"0101 0101 ssN0 0000 address","popl address,@rs",
+"1001 0101 ssN0 dddd","popl rrd,@rs",
+"0001 0011 ddN0 ssN0","push @rd,@rs",
+"0101 0011 ddN0 0000 address","push @rd,address",
+"0000 1101 ddN0 1001 imm16","push @rd,imm16",
+"1001 0011 ddN0 ssss","push @rd,rs",
+"0101 0011 ddN0 ssN0 address","push @rd,address(rs)",
+"0001 0001 ddN0 ssN0","pushl @rd,@rs",
+"0101 0001 ddN0 0000 address","push @rd,address",
+"1001 0001 ddN0 ssss","pushl @rd,rrs",
+"0101 0001 ddN0 ssN0 address","pushl @rd,address(rs)",
+"0010 0011 ddN0 imm4","res @rd,imm4",
+"0110 0011 ddN0 imm4 address","res address(rd),imm4",
+"0110 0011 0000 imm4 address","res address,imm4",
+"1010 0011 dddd imm4","res rd,imm4",
+"0010 0011 0000 ssss 0000 dddd 0000 0000","res rd,rs",
+"0010 0010 ddN0 imm4","resb @rd,imm4",
+"0110 0010 ddN0 imm4 address","resb address(rd),imm4",
+"0110 0010 0000 imm4 address","resb address,imm4",
+"1010 0010 dddd imm4","resb rbd,imm4",
+"0010 0010 0000 ssss 0000 dddd 0000 0000","resb rbd,rs",
+"1000 1101 imm4 0011","resflg imm4",
+"1001 1110 0000 cccc","ret cc",
+"1011 0011 dddd 0000","rl rd,1",
+"1011 0011 dddd 0010","rl rd,2",
+"1011 0010 dddd 0000","rlb rbd,1",
+"1011 0010 dddd 0010","rlb rbd,2",
+"1011 0011 dddd 1000","rlc rd,1",
+"1011 0011 dddd 1010","rlc rd,2",
+"1011 0010 dddd 1000","rlcb rbd,1",
+"1011 0010 dddd 1010","rlcb rbd,2",
+"1011 1110 aaaa bbbb","rldb rbb,rba",
+"1011 0011 dddd 0100","rr rd,1",
+"1011 0011 dddd 0110","rr rd,2",
+"1011 0010 dddd 0100","rrb rbd,1",
+"1011 0010 dddd 0110","rrb rbd,2",
+"1011 0011 dddd 1100","rrc rd,1",
+"1011 0011 dddd 1110","rrc rd,2",
+"1011 0010 dddd 1100","rrcb rbd,1",
+"1011 0010 dddd 1110","rrcb rbd,2",
+"1011 1100 aaaa bbbb","rrdb rbb,rba",
+"1011 0111 ssss dddd","sbc rd,rs",
+"1011 0110 ssss dddd","sbcb rbd,rbs",
+"1011 0011 dddd 1011 0000 ssss 0000 0000","sda rd,rs",
+"1011 0010 dddd 1011 0000 ssss 0000 0000","sdab rbd,rs",
+"1011 0011 dddd 1111 0000 ssss 0000 0000","sdal rrd,rs",
+"1011 0011 dddd 0011 0000 ssss 0000 0000","sdl rd,rs",
+"1011 0010 dddd 0011 0000 ssss 0000 0000","sdlb rbd,rs",
+"1011 0011 dddd 0111 0000 ssss 0000 0000","sdll rrd,rs",
+"0010 0101 ddN0 imm4","set @rd,imm4",
+"0110 0101 ddN0 imm4 address","set address(rd),imm4",
+"0110 0101 0000 imm4 address","set address,imm4",
+"1010 0101 dddd imm4","set rd,imm4",
+"0010 0101 0000 ssss 0000 dddd 0000 0000","set rd,rs",
+"0010 0100 ddN0 imm4","setb @rd,imm4",
+"0110 0100 ddN0 imm4 address","setb address(rd),imm4",
+"0110 0100 0000 imm4 address","setb address,imm4",
+"1010 0100 dddd imm4","setb rbd,imm4",
+"0010 0100 0000 ssss 0000 dddd 0000 0000","setb rbd,rs",
+"1000 1101 imm4 0001","setflg imm4",
+"0011 1100 dddd 0101 imm16","sinb rbd,imm16",
+"0011 1101 dddd 0101 imm16","sinb rd,imm16",
+"0011 1011 ssN0 1000 0001 aaaa ddN0 1000","sind @rd,@rs,ra",
+"0011 1010 ssN0 1000 0001 aaaa ddN0 1000","sindb @rd,@rs,rba",
+"0011 1100 ssN0 0001 0000 aaaa ddN0 1000","sinib @rd,@rs,ra",
+"0011 1100 ssN0 0001 0000 aaaa ddN0 0000","sinibr @rd,@rs,ra",
+"1011 0011 dddd 1001 imm16","sla rd,imm16",
+"1011 0010 dddd 1001 imm16","slab rbd,imm16",
+"1011 0011 dddd 1101 imm16","slal rrd,imm16",
+"1011 0011 dddd 0001 imm16","sll rd,imm16",
+"1011 0010 dddd 0001 imm16","sllb rbd,imm16",
+"1011 0011 dddd 0101 imm16","slll rrd,imm16",
+"0011 1011 ssss 0111 imm16","sout imm16,rs",
+"0011 1010 ssss 0111 imm16","soutb imm16,rbs",
+"0011 1011 ssN0 1011 0000 aaaa ddN0 1000","soutd @rd,@rs,ra",
+"0011 1010 ssN0 1011 0000 aaaa ddN0 1000","soutdb @rd,@rs,rba",
+"0011 1100 ssN0 0011 0000 aaaa ddN0 1000","soutib @rd,@rs,ra",
+"0011 1100 ssN0 0011 0000 aaaa ddN0 0000","soutibr @rd,@rs,ra",
+"1011 0011 dddd 1001 nim16","sra rd,imm16",
+"1011 0010 dddd 1001 nim16","srab rbd,imm16",
+"1011 0011 dddd 1101 nim16","sral rrd,imm16",
+"1011 0011 dddd 0001 nim16","srl rd,imm16",
+"1011 0010 dddd 0001 nim16","srlb rbd,imm16",
+"1011 0011 dddd 0101 nim16","srll rrd,imm16",
+"0000 0011 ssN0 dddd","sub rd,@rs",
+"0100 0011 0000 dddd address","sub rd,address",
+"0100 0011 ssN0 dddd address","sub rd,address(rs)",
+"0000 0010 0000 dddd imm16","sub rd,imm16",
+"1000 0011 ssss dddd","sub rd,rs",
+"0000 0010 ssN0 dddd","subb rbd,@rs",
+"0100 0010 0000 dddd address","subb rbd,address",
+"0100 0010 ssN0 dddd address","subb rbd,address(rs)",
+"0000 0010 0000 dddd imm8 imm8","subb rbd,imm8",
+"1000 0010 ssss dddd","subb rbd,rbs",
+"0001 0010 ssN0 dddd","subl rrd,@rs",
+"0101 0010 0000 dddd address","subl rrd,address",
+"0101 0010 ssN0 dddd address","subl rrd,address(rs)",
+"0001 0010 0000 dddd imm32","subl rrd,imm32",
+"1001 0010 ssss dddd","subl rrd,rrs",
+"1010 1111 dddd cccc","tcc cc,rd",
+"1010 1110 dddd cccc","tccb cc,rbd",
+"0000 1101 ddN0 0100","test @rd",
+"0100 1101 0000 0100","test address",
+"0100 1101 ddN0 0100","test address(rd)",
+"1000 1101 dddd 0100","test rd",
+"0000 1100 ddN0 0100","testb @rd",
+"0100 1100 0000 0100","testb address",
+"0100 1100 ddN0 0100","testb address(rd)",
+"1000 1100 dddd 0100","testb rbd",
+"0001 1100 ddN0 1000","testl @rd",
+"0101 1100 0000 1000","testl address",
+"1001 1100 dddd 1000","testl rrd",
+"1011 1000 ddN0 1000 0000 aaaa ssN0 0000","trdb @rd,@rs,rba",
+"1011 1000 ddN0 1100 0000 aaaa ssN0 0000","trdrb @rd,@rs,rba",
+"1011 1000 ddN0 0000 0000 rrrr ssN0 0000","trib @rd,@rs,rbr",
+"1011 1000 ddN0 0100 0000 rrrr ssN0 0000","trirb @rd,@rs,rbr",
+"1011 1000 aaN0 1110 0000 rrrr bbN0 1110","trtdrb @ra,@rb,rbr",
+"1011 1000 aaN0 0010 0000 rrrr bbN0 0000","trtib @ra,@rb,rr",
+"1011 1000 aaN0 0110 0000 rrrr bbN0 1110","trtirb @ra,@rb,rbr",
+"1011 1000 aaN0 1010 0000 rrrr bbN0 0000","trtrb @ra,@rb,rbr",
+"0000 1101 ddN0 0110","tset @rd",
+"0100 1101 0000 0110","tset address",
+"0100 1101 ddN0 0110","tset address(rd)",
+"1000 1101 dddd 0110","tset rd",
+"0000 1100 ddN0 0110","tsetb @rd",
+"0100 1100 0000 0110","tsetb address",
+"0100 1100 ddN0 0110","tsetb address(rd)",
+"1000 1100 dddd 0110","tsetb rbd",
+"0000 1001 ssN0 dddd","xor rd,@rs",
+"0100 1001 0000 dddd address","xor rd,address",
+"0100 1001 ssN0 dddd address","xor rd,address(rs)",
+"0000 1001 0000 dddd imm16","xor rd,imm16",
+"1000 1001 ssss dddd","xor rd,rs",
+"0000 1000 ssN0 dddd","xorb rbd,@rs",
+"0100 1000 0000 dddd address","xorb rbd,address",
+"0100 1000 ssN0 dddd address","xorb rbd,address(rs)",
+"0000 1000 0000 dddd imm8 imm8","xorb rbd,imm8",
+"1000 1000 ssss dddd","xorb rbd,rbs",
+
+
+0,0
+}
+;
+
+int count()
+{
+ struct op *p = opt;
+ int r = 0;
+ while (p->name) 
+ {
+ r++;
+ p++;
+ }
+ return r;
+
+}
+func(a,b)
+struct op *a;
+struct op *b;
+{
+return strcmp((a)->name, (b)->name);
+
+
+}
+
+func1(a,b)
+struct op *a;
+struct op *b;
+{
+return strcmp((a)->bits, (b)->bits);
+
+
+}
+
+/* opcode 
+
+ literal  0000 nnnn insert nnn into stream
+ operand  0001 nnnn  insert operand reg nnn into stream
+*/
+
+typedef struct tok_struct 
+{
+
+char *match;
+char *token;
+int length;
+};
+
+
+
+struct tok_struct args[] =
+{
+
+{ "address(rs)", "CLASS_X+(ARG_RS)",},
+{ "address(rd)", "CLASS_X+(ARG_RD)",},
+
+{ "rs(disp16)","CLASS_BA+(ARG_RS)",},
+{ "rd(disp16)","CLASS_BA+(ARG_RD)",},
+
+{ "address", "CLASS_DA",},
+{ "rd(rx)", "CLASS_BX+(ARG_RD)",},
+{ "rs(rx)","CLASS_BX+(ARG_RS)",},
+{ "disp16", "CLASS_DISP",},
+{ "disp12", "CLASS_DISP",},
+{ "disp7", "CLASS_DISP",},
+{ "disp8", "CLASS_DISP",},
+{ "flags","CLASS_FLAGS",},
+{ "imm16", "CLASS_IMM+(ARG_IMM16)",},
+{ "imm32", "CLASS_IMM+(ARG_IMM32)",},
+{ "imm4", "CLASS_IMM +(ARG_IMM4)",},
+{ "n", "CLASS_IMM + (ARG_IMMN)",},
+{ "ctrl", "CLASS_CTRL",},
+{ "rba", "CLASS_REG_BYTE+(ARG_RA)",},
+{ "rbb", "CLASS_REG_BYTE+(ARG_RB)",},
+{ "rbd", "CLASS_REG_BYTE+(ARG_RD)",},
+{ "rbs", "CLASS_REG_BYTE+(ARG_RS)",},
+{ "rbr", "CLASS_REG_BYTE+(ARG_RR)",},
+
+{ "rrd","CLASS_REG_LONG+(ARG_RD)",},
+{ "rrs","CLASS_REG_LONG+(ARG_RS)",},
+
+{ "rqd", "CLASS_REG_QUAD+(ARG_RD)",},
+
+{ "rd", "CLASS_REG_WORD+(ARG_RD)",},
+{ "rs", "CLASS_REG_WORD+(ARG_RS)",},
+
+{ "@rd", "CLASS_IR+(ARG_RD)",},
+{ "@ra", "CLASS_IR+(ARG_RA)",},
+{ "@rb", "CLASS_IR+(ARG_RB)",},
+{ "@rs", "CLASS_IR+(ARG_RS)",},
+
+{ "imm8", "CLASS_IMM+(ARG_IMM8)",},
+{ "i2", "CLASS_IMM+(ARG_IMM2)",},
+{ "cc", "CLASS_CC",},
+
+{ "rr", "CLASS_REG_WORD+(ARG_RR)",},
+{ "ra", "CLASS_REG_WORD+(ARG_RA)",},
+{ "rs", "CLASS_REG_WORD+(ARG_RS)",},
+
+{ "1", "CLASS_IMM+(ARG_IMM_1)",},
+{ "2", "CLASS_IMM+(ARG_IMM_2)",},
+
+ 0,0
+ };
+
+struct tok_struct toks[] = 
+{ 
+ "0000", "CLASS_BIT+0",1,
+ "0001", "CLASS_BIT+1",1,
+ "0010", "CLASS_BIT+2",1,
+ "0011", "CLASS_BIT+3",1,
+ "0100", "CLASS_BIT+4",1,
+ "0101", "CLASS_BIT+5",1,
+ "0110", "CLASS_BIT+6",1,
+ "0111", "CLASS_BIT+7",1,
+ "1000", "CLASS_BIT+8",1,
+ "1001", "CLASS_BIT+9",1,
+ "1010", "CLASS_BIT+10",1,
+ "1011", "CLASS_BIT+11",1,
+ "1100", "CLASS_BIT+12",1,
+ "1101", "CLASS_BIT+13",1,
+ "1110", "CLASS_BIT+14",1,
+ "1111", "CLASS_BIT+15",1,
+
+ "ssss", "CLASS_REG+(ARG_RS)",1,
+ "dddd", "CLASS_REG+(ARG_RD)",1,
+ "aaaa", "CLASS_REG+(ARG_RA)",1,
+ "bbbb", "CLASS_REG+(ARG_RB)",1,
+ "rrrr", "CLASS_REG+(ARG_RR)",1,
+
+ "ssN0", "CLASS_REGN0+(ARG_RS)",1,
+ "ddN0", "CLASS_REGN0+(ARG_RD)",1,
+ "aaN0", "CLASS_REGN0+(ARG_RA)",1,
+ "bbN0", "CLASS_REGN0+(ARG_RB)",1,
+ "rrN0", "CLASS_REGN0+(ARG_RR)",1,
+
+ "cccc", "CLASS_CC",1,
+ "nnnn", "CLASS_IMM+(ARG_IMMN)",1,
+ "xxxx", "CLASS_REG+(ARG_RX)",1,
+ "xxN0", "CLASS_REGN0+(ARG_RX)",1,
+ "nminus1", "CLASS_IMM+(ARG_IMMNMINUS1)",1,
+
+ "disp16", "CLASS_DISP+(ARG_DISP16)",4,
+ "disp12", "CLASS_DISP+(ARG_DISP12)",3,
+ "flags", "CLASS_FLAGS",1,
+ "address", "CLASS_ADDRESS",4,
+ "imm4", "CLASS_IMM+(ARG_IMM4)",1,
+ "imm8", "CLASS_IMM+(ARG_IMM8)",2,
+ "imm16", "CLASS_IMM+(ARG_IMM16)",4,
+ "imm32", "CLASS_IMM+(ARG_IMM32)",8,
+ "nim16", "CLASS_IMM+(ARG_NIM16)",4,
+ "0ccc", "CLASS_0CCC",1,
+ "1ccc", "CLASS_1CCC",1,
+ "disp8", "CLASS_DISP8",2,
+ "0disp7", "CLASS_0DISP7",2,
+ "1disp7", "CLASS_1DISP7",2,
+ "01ii", "CLASS_01II",1,
+ "00ii", "CLASS_00II",1,
+ 0,0
+
+ };
+
+
+char *translate(table, x, length)
+struct tok_struct *table;
+char *x;
+int *length;
+{
+
+ int found;
+ found = 0;
+ while (table->match) 
+ {
+ int l = strlen(table->match);
+ if (strncmp(table->match, x, l) == 0) 
+ {
+ /* Got a hit */
+ printf("%s", table->token);
+ *length += table->length;
+ return x + l;
+ }
+
+ table++;
+ }
+ fprintf(stderr,"Can't find %s\n", x);
+ while (*x) 
+ x++;
+ return x;
+}
+
+
+void
+ chewbits(bits, length)
+char *bits;
+int *length;
+{
+ int i;
+ int found;
+ 
+ int n = 0;
+ *length = 0;
+ printf("{");
+ while (*bits) 
+ {
+ while (*bits == ' ') 
+ {
+ bits++;
+ }
+ bits = translate(toks, bits, length);
+ n++;
+ printf(",");
+
+ }
+ while (n < BYTE_INFO_LEN-1) {
+ printf("0,");
+ n++;
+ }
+ printf("}");
+}
+
+doreg(x)
+char *x;
+{
+printf("REGH %c ", x[0]);
+
+}
+int chewname(name)
+char *name;
+{
+ char *n;
+ int nargs = 0;
+ int nbytes= 0;
+ n = name;
+ printf("\"");
+ while (*n && !iswhite(*n)) {
+   printf("%c", *n );
+   n++;
+ }
+ printf("\",{");
+ /* Scan the operands and make entires for them -remember indirect things */
+ while (*n) {
+ int d;
+ while (*n == ',' || iswhite(*n))
+     n++;
+ nargs++;
+ n= translate(args, n, &d);
+ printf(",");
+ }
+ if (nargs == 0) {
+ printf("0");
+ }
+ printf("},");
+ return nargs;
+}
+sub(x,c)
+char *x;
+char c;
+{
+ while (*x) 
+ {
+ if (x[0] == c 
+ && x[1] == c 
+ && x[2] == c 
+ && x[3] == c) {
+ x[2] = 'N';
+ x[3] = '0';
+ }
+ x++;
+ }
+}
+internal()
+{
+ int c = count();
+ struct op *new = malloc(sizeof(struct op) * c);
+ struct op *p = opt;
+ memcpy(new, p, c * sizeof(struct op));
+
+ /* sort all names in table alphabetically */
+ qsort(new, c, sizeof(struct op), func);
+ p = new;
+ while (p->name) {
+ /* If there are any @rs, sub the ssss into a ssn0,
+ (rs), (ssn0)
+ */
+ int loop = 1;
+ while (loop) {
+ char *s = p->name;
+ loop = 0;
+ while (*s) {
+ if(s[0] == '@') {
+  char c ;
+  /* skip the r and sub the string */
+  s++;
+  c = s[1];
+  sub(p->bits,c);
+ }
+ if (s[0] == '(' && s[3] == ')')
+ {
+  sub(p->bits, s[2]);
+ }
+ if (s[0] == '(')
+ {
+  sub(p->bits, s[-1]);
+ }
+
+ s++;
+ }
+  
+ }
+ printf("\"%s\",\"%s\",\n", p->bits, p->name);
+ p++;
+ }
+}
+gas()
+{
+
+ int c = count();
+ int i;
+ struct op *p = opt;
+ int idx = 0;
+ char *oldname = "";
+ struct op *new = malloc(sizeof(struct op) * c);
+
+ memcpy(new, p, c * sizeof(struct op));
+
+ /* sort all names in table alphabetically */
+ qsort(new, c, sizeof(struct op), func);
+
+ printf("   /* THIS FILE IS AUTOMAGICALLY GENERATED, DON'T EDIT IT */\n");
+
+ printf("#define ARG_MASK 0x0f\n"); 
+ printf("#define ARG_RS 0x01\n");
+ printf("#define ARG_RD 0x02\n");
+ printf("#define ARG_RA 0x03\n");
+ printf("#define ARG_RB 0x04\n");
+ printf("#define ARG_RR 0x05\n");
+ printf("#define ARG_RX 0x06\n");
+ printf("#define ARG_IMM4 0x01\n");
+ printf("#define ARG_IMM8 0x02\n");
+ printf("#define ARG_IMM16 0x03\n");
+ printf("#define ARG_IMM32 0x04\n");
+ printf("#define ARG_IMMN 0x05\n");
+ printf("#define ARG_IMMNMINUS1 0x05\n");
+ printf("#define ARG_IMM_1 0x06\n");
+ printf("#define ARG_IMM_2 0x07\n");
+ printf("#define ARG_DISP16 0x08\n");
+ printf("#define ARG_NIM16 0x09\n");
+ printf("#define ARG_IMM2 0x0a\n");
+ printf("#define ARG_DISP12 0x0b\n");
+ printf("#define ARG_DISP8 0x0c\n");
+
+ printf("#define CLASS_MASK 0xfff0\n");
+ printf("#define CLASS_X 0x10\n");
+ printf("#define CLASS_BA 0x20\n");
+ printf("#define CLASS_DA 0x30\n");
+ printf("#define CLASS_BX 0x40\n");
+ printf("#define CLASS_DISP 0x50\n");
+ printf("#define CLASS_IMM 0x60\n");
+ printf("#define CLASS_CC 0x70\n");
+ printf("#define CLASS_CTRL 0x80\n");
+ printf("#define CLASS_ADDRESS 0xd0\n");
+ printf("#define CLASS_0CCC 0xe0\n");
+ printf("#define CLASS_1CCC 0xf0\n");
+ printf("#define CLASS_0DISP7 0x100\n");
+ printf("#define CLASS_1DISP7 0x200\n");
+ printf("#define CLASS_01II 0x300\n");
+ printf("#define CLASS_00II 0x400\n");
+ printf("#define CLASS_BIT 0x500\n");
+ printf("#define CLASS_FLAGS 0x600\n");
+ printf("#define CLASS_IR 0x700\n");
+ printf("#define CLASS_DISP8 0x800\n");
+
+
+ printf("#define CLASS_REG 0x7000\n");
+ printf("#define CLASS_REG_BYTE 0x2000\n");
+ printf("#define CLASS_REG_WORD 0x3000\n");
+ printf("#define CLASS_REG_QUAD 0x4000\n");
+ printf("#define CLASS_REG_LONG 0x5000\n");
+ printf("#define CLASS_REGN0 0x8000\n");
+
+
+
+#if 0
+ for (i = 0; toks[i].token; i++)
+ printf("#define %s\t0x%x\n",toks[i].token,i*16);
+#endif
+ printf("typedef struct {\n");
+ printf("char *name;\n");
+ printf("unsigned short arg_info[4];\n");
+ printf("unsigned short byte_info[%d];\n", BYTE_INFO_LEN);
+ printf("int noperands;\n");
+ printf("int length;\n");
+ printf("int idx;\n");
+ printf("} opcode_entry_type;\n");
+ printf("#ifdef DEFINE_TABLE\n");
+ printf("opcode_entry_type z8k_table[] = {\n");
+
+ while (new->name) {
+ int nargs;
+ int length;
+ printf("{");
+ nargs = chewname(new->name);
+
+printf("\n\t");
+ chewbits(new->bits, &length);
+ length /=2;
+ if (length &1) fail();
+
+ printf(",%d,%d,%d", nargs, length, idx);
+ if(strcmp(oldname, new->name)) 
+ {
+ idx++;
+ oldname = new->name;
+ }
+ printf("},\n");
+ new++;
+ }
+ printf("0,0};\n");
+ printf("#endif\n");
+}
+main(ac,av)
+int ac;
+char **av;
+{
+ struct op *p = opt;
+
+ if (ac == 2 && strcmp(av[1],"-t")==0) 
+ {
+ internal();
+ }
+else if (ac == 2 && strcmp(av[1],"-h")==0) 
+ {
+ while (p->name) {
+ printf("%-25s\t%s\n", p->name, p->bits);
+ p++;
+ }
+ }
+
+ else if (ac== 2 && strcmp(av[1], "-a") == 0)
+ {
+ gas();
+ }
+ else if (ac== 2 && strcmp(av[1], "-d") == 0)
+ {
+ /*dis();*/
+ }
+ else {
+ printf("Usage: %s -t\n", av[0]);
+ printf("-t : generate new z8.c internal table\n");
+ printf("-a : generate new table for gas\n");
+ printf("-d : generate new table for disassemble\n");
+ printf("-h : generate new table for humans\n");
+ }
+
+
+}
+
+fail()
+{
+}
+
+