From: keie <none@none>
Date: Mon, 10 Jun 1985 15:32:18 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release-5-5~5441
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=1b972eff60d52b87a16968588bc5559440b67366;p=ack.git

*** empty log message ***
---

diff --git a/mach/6809/as/mach0.c b/mach/6809/as/mach0.c
new file mode 100644
index 000000000..679af47e2
--- /dev/null
+++ b/mach/6809/as/mach0.c
@@ -0,0 +1,12 @@
+#define DUK
+#define RCSID0 "$Header$"
+
+/*
+ * Motorola 6809 options
+ */
+#define	BYTES_REVERSED
+#define	WORDS_REVERSED
+#define THREE_PASS
+#define	LISTING
+#define	RELOCATION
+#define NOLD
diff --git a/mach/6809/as/mach1.c b/mach/6809/as/mach1.c
new file mode 100644
index 000000000..3909c5d34
--- /dev/null
+++ b/mach/6809/as/mach1.c
@@ -0,0 +1,40 @@
+#define RCSID1 "$Header$"
+
+/*
+ * Motorola 6809 C declarations
+ */
+
+extern int dpvalue INIT(-1);	/* for setdp pseudo-op */
+
+#ifndef extern
+extern int regbit[];
+#else
+int regbit[] = {	/* push-pull coding */
+	6,	/* D */
+	0x10,	/* X */
+	0x20,	/* Y */
+	0x40,	/* U */
+	0x40,	/* S */
+	0x80,	/* PC */
+	-1, -1,
+	2,	/* A */
+	4,	/* B */
+	1,	/* CC */
+	8,	/* DP */
+};
+#endif
+
+/*
+ * Motorola 6809 register names
+ */
+
+#define D	0
+#define X	1
+#define Y	2
+#define U	3
+#define S	4
+#define PC	5
+#define A	8
+#define B	9
+#define CC	10
+#define DP	11
diff --git a/mach/6809/as/mach2.c b/mach/6809/as/mach2.c
new file mode 100644
index 000000000..3d88c040f
--- /dev/null
+++ b/mach/6809/as/mach2.c
@@ -0,0 +1,19 @@
+#define RCSID2 "$Header$"
+
+/*
+ * Motorola 6809 tokens
+ */
+
+%token <y_word> REG
+%token <y_word> ALL
+%token <y_word> SETDP
+%token <y_word> NOARG
+%token <y_word> BRANCH
+%token <y_word> LBRNCH
+%token <y_word> SBRNCH
+%token <y_word> STACK
+%token <y_word> IMMED
+%token <y_word> TWOREG
+%token <y_word> XOP
+
+%type <y_word> reglist xyus xmode
diff --git a/mach/6809/as/mach3.c b/mach/6809/as/mach3.c
new file mode 100644
index 000000000..a2795e59f
--- /dev/null
+++ b/mach/6809/as/mach3.c
@@ -0,0 +1,166 @@
+#define RCSID3 "$Header$"
+
+/*
+ * Motorola 6809 keywords
+ */
+
+0,	REG,		A,		"a",
+0,	REG,		B,		"b",
+0,	REG,		CC,		"cc",
+0,	REG,		DP,		"dp",
+0,	REG,		D,		"d",
+0,	REG,		X,		"x",
+0,	REG,		Y,		"y",
+0,	REG,		U,		"u",
+0,	REG,		S,		"s",
+0,	REG,		PC,		"pc",
+0,	ALL,		0xFF,		"all",
+0,	SETDP,		0,		"setdp",
+0,	NOARG,		0x3A,		"abx",
+0,	NOARG,		0x19,		"daa",
+0,	NOARG,		0x3D,		"mul",
+0,	NOARG,		0x12,		"nop",
+0,	NOARG,		0x10,		"page2",
+0,	NOARG,		0x11,		"page3",
+0,	NOARG,		0x3B,		"rti",
+0,	NOARG,		0x4F,		"clra",
+0,	NOARG,		0x5F,		"clrb",
+0,	NOARG,		0x4A,		"deca",
+0,	NOARG,		0x5A,		"decb",
+0,	NOARG,		0x43,		"coma",
+0,	NOARG,		0x53,		"comb",
+0,	NOARG,		0x44,		"lsra",
+0,	NOARG,		0x54,		"lsrb",
+0,	NOARG,		0x40,		"nega",
+0,	NOARG,		0x50,		"negb",
+0,	NOARG,		0x46,		"rora",
+0,	NOARG,		0x56,		"rorb",
+0,	NOARG,		0x47,		"asra",
+0,	NOARG,		0x57,		"asrb",
+0,	NOARG,		0x49,		"rola",
+0,	NOARG,		0x59,		"rolb",
+0,	NOARG,		0x48,		"asla",
+0,	NOARG,		0x58,		"aslb",
+0,	NOARG,		0x48,		"lsla",
+0,	NOARG,		0x58,		"lslb",
+0,	NOARG,		0x4C,		"inca",
+0,	NOARG,		0x5C,		"incb",
+0,	NOARG,		0x4D,		"tsta",
+0,	NOARG,		0x5D,		"tstb",
+0,	NOARG,		0x39,		"rts",
+0,	NOARG,		0x1D,		"sex",
+0,	NOARG,		0x3F,		"swi",
+0,	NOARG,		0x103F,		"swi2",
+0,	NOARG,		0x113F,		"swi3",
+0,	NOARG,		0x13,		"sync",
+0,	BRANCH,		0x20,		"bra",
+0,	BRANCH,		0x21,		"brn",
+0,	BRANCH,		0x22,		"bhi",
+0,	BRANCH,		0x23,		"bls",
+0,	BRANCH,		0x24,		"bhs",
+0,	BRANCH,		0x24,		"bcc",
+0,	BRANCH,		0x25,		"blo",
+0,	BRANCH,		0x25,		"bcs",
+0,	BRANCH,		0x26,		"bne",
+0,	BRANCH,		0x27,		"beq",
+0,	BRANCH,		0x28,		"bvc",
+0,	BRANCH,		0x29,		"bvs",
+0,	BRANCH,		0x2A,		"bpl",
+0,	BRANCH,		0x2B,		"bmi",
+0,	BRANCH,		0x2C,		"bge",
+0,	BRANCH,		0x2D,		"blt",
+0,	BRANCH,		0x2E,		"bgt",
+0,	BRANCH,		0x2F,		"ble",
+0,	BRANCH,		0x8D,		"bsr",
+0,	STACK,		0x34,		"pshs",
+0,	STACK,		0x35,		"puls",
+0,	STACK,		0x36,		"pshu",
+0,	STACK,		0x37,		"pulu",
+0,	IMMED,		0x1A,		"orcc",
+0,	IMMED,		0x1C,		"andcc",
+0,	IMMED,		0x3C,		"cwai",
+0,	TWOREG,		0x1E,		"exg",
+0,	TWOREG,		0x1F,		"tfr",
+0,	XOP,		0xA0,		"suba",
+0,	XOP,		0xA1,		"cmpa",
+0,	XOP,		0xA2,		"sbca",
+0,	XOP,		0xA4,		"anda",
+0,	XOP,		0xA5,		"bita",
+0,	XOP,		0xA6,		"lda",
+0,	XOP,		0xA8,		"eora",
+0,	XOP,		0xA9,		"adca",
+0,	XOP,		0xAA,		"ora",
+0,	XOP,		0xAB,		"adda",
+0,	XOP,		0xE0,		"subb",
+0,	XOP,		0xE1,		"cmpb",
+0,	XOP,		0xE2,		"sbcb",
+0,	XOP,		0xE4,		"andb",
+0,	XOP,		0xE5,		"bitb",
+0,	XOP,		0xE6,		"ldb",
+0,	XOP,		0xE8,		"eorb",
+0,	XOP,		0xE9,		"adcb",
+0,	XOP,		0xEA,		"orb",
+0,	XOP,		0xEB,		"addb",
+0,	XOP,		0x30,		"leax",
+0,	XOP,		0x31,		"leay",
+0,	XOP,		0x32,		"leas",
+0,	XOP,		0x33,		"leau",
+0,	XOP,		0x60,		"neg",
+0,	XOP,		0x63,		"com",
+0,	XOP,		0x64,		"lsr",
+0,	XOP,		0x66,		"ror",
+0,	XOP,		0x67,		"asr",
+0,	XOP,		0x68,		"asl",
+0,	XOP,		0x68,		"lsl",
+0,	XOP,		0x69,		"rol",
+0,	XOP,		0x6A,		"dec",
+0,	XOP,		0x6C,		"inc",
+0,	XOP,		0x6D,		"tst",
+0,	XOP,		0x6F,		"clr",
+0,	XOP,		0x6E,		"jmp",
+0,	XOP,		0xA3,		"subd",
+0,	XOP,		0x10A3,		"cmpd",
+0,	XOP,		0x11A3,		"cmpu",
+0,	XOP,		0xAC,		"cmpx",
+0,	XOP,		0x10AC,		"cmpy",
+0,	XOP,		0x11AC,		"cmps",
+0,	XOP,		0xAE,		"ldx",
+0,	XOP,		0x10AE,		"ldy",
+0,	XOP,		0xE3,		"addd",
+0,	XOP,		0xEC,		"ldd",
+0,	XOP,		0xEE,		"ldu",
+0,	XOP,		0x10EE,		"lds",
+0,	XOP,		0xA7,		"sta",
+0,	XOP,		0xAD,		"jsr",
+0,	XOP,		0xAF,		"stx",
+0,	XOP,		0x10AF,		"sty",
+0,	XOP,		0xE7,		"stb",
+0,	XOP,		0xED,		"std",
+0,	XOP,		0xEF,		"stu",
+0,	XOP,		0x10EF,		"sts",
+0,	LBRNCH,		0x21,		"lbrn",
+0,	LBRNCH,		0x22,		"lbhi",
+0,	LBRNCH,		0x23,		"lbls",
+0,	LBRNCH,		0x24,		"lbhs",
+0,	LBRNCH,		0x24,		"lbcc",
+0,	LBRNCH,		0x25,		"lblo",
+0,	LBRNCH,		0x25,		"lbcs",
+0,	LBRNCH,		0x26,		"lbne",
+0,	LBRNCH,		0x27,		"lbeq",
+0,	LBRNCH,		0x28,		"lbvc",
+0,	LBRNCH,		0x29,		"lbvs",
+0,	LBRNCH,		0x2A,		"lbpl",
+0,	LBRNCH,		0x2B,		"lbmi",
+0,	LBRNCH,		0x2C,		"lbge",
+0,	LBRNCH,		0x2D,		"lblt",
+0,	LBRNCH,		0x2E,		"lbgt",
+0,	LBRNCH,		0x2F,		"lble",
+0,	SBRNCH,		0x16,		"lbra",
+0,	SBRNCH,		0x17,		"lbsr",
+0,	NOARG,		0x1CFE,		"clc",
+0,	NOARG,		0x1A01,		"sec",
+0,	NOARG,		0x1CEF,		"cli",
+0,	NOARG,		0x1A10,		"sei",
+0,	NOARG,		0x1CFD,		"clv",
+0,	NOARG,		0x1A02,		"sev",
+0,	NOARG,		0x3CFF,		"wai",
diff --git a/mach/6809/as/mach4.c b/mach/6809/as/mach4.c
new file mode 100644
index 000000000..5d64544c9
--- /dev/null
+++ b/mach/6809/as/mach4.c
@@ -0,0 +1,204 @@
+#define RCSID4 "$Header$"
+
+/*
+ * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ *
+ *          This product is part of the Amsterdam Compiler Kit.
+ *
+ * Permission to use, sell, duplicate or disclose this software must be
+ * obtained in writing. Requests for such permissions may be sent to
+ *
+ *      Dr. Andrew S. Tanenbaum
+ *      Wiskundig Seminarium
+ *      Vrije Universiteit
+ *      Postbox 7161
+ *      1007 MC Amsterdam
+ *      The Netherlands
+ *
+ */
+
+/*
+ * Motorola 6809 parsing rules
+ */
+
+operation
+	:	SETDP expr
+			{	dpvalue = $2.val;}
+	|
+		NOARG
+			{	emit1or2($1);}
+	|
+		BRANCH expr
+			{	branch($1,$2);}
+	|
+		LBRNCH expr
+			{	emit1(0x10); emit1($1);
+				$2.val -= (DOTVAL+2);
+#ifdef RELOCATION
+				newrelo($2.typ, RELPC|RELO2|RELBR);
+#endif
+				emit2($2.val);
+			}
+	|
+		SBRNCH expr
+			{	emit1($1);
+				$2.val -= (DOTVAL+2);
+#ifdef RELOCATION
+				newrelo($2.typ, RELPC|RELO2|RELBR);
+#endif
+				emit2($2.val);
+			}
+	|
+		IMMED '#' expr
+			{	emit1($1);
+#ifdef RELOCATION
+				newrelo($3.typ, RELO1);
+#endif
+				emit1($3.val);
+			}
+	|
+		XOP '#' expr
+			{	emit1or2($1 - 0x20);
+				switch ($1 & 0x0F) {
+				case 0x03:
+				case 0x0C:
+				case 0x0E:
+#ifdef RELOCATION
+					newrelo($3.typ, RELO2|RELBR);
+#endif
+					emit2($3.val);
+						break;
+				default:
+#ifdef RELOCATION
+					newrelo($3.typ, RELO1);
+#endif
+					emit1($3.val);
+					break;
+				}
+			}
+	|
+		XOP '<' expr
+			{	if (0 <= $1 && $1 < 0x80)
+					emit1(($1-0x10) & 0x3F);
+				else
+					emit1or2($1 - 0x10);
+#ifdef RELOCATION
+				newrelo($3.typ, RELO1);
+#endif
+				emit1($3.val);
+			}
+	|
+		XOP '>' expr
+			{	emit1or2($1 + 0x10);
+#ifdef RELOCATION
+				newrelo($3.typ, RELO2|RELBR);
+#endif
+				emit2($3.val);
+			}
+	|
+		STACK reglist
+			{	emit1($1); emit1($2);}
+	|
+		TWOREG REG ',' REG
+			{
+				emit1($1);
+				emit1($2 << 4 | $4);
+			}
+	|
+		XOP REG
+			{	switch ($2) {
+				case A:	emit1($1 - 0x20);
+					break;
+				case B:	emit1($1 - 0x10);
+					break;
+				default:serror("register error");
+				}
+			}
+	|
+		XOP expr ',' REG
+			{	emit1or2($1);
+				offset($4,$2,0);
+			}
+	|
+		XOP '(' expr ',' REG ')'
+			{	emit1or2($1);
+				offset($5,$3,0x10);
+			}
+	|
+		XOP '(' expr ')'
+			{	emit1or2($1);
+				emit1(0x9F);
+#ifdef RELOCATION
+				newrelo($3.typ, RELO1);
+#endif
+				emit1($3.val);
+			}
+	|
+		XOP xmode
+			{	emit1or2($1);
+				emit1($2);
+			}
+	|
+		XOP '(' xmode ')'
+			{	if (($3 & 0x8D) == 0x80)
+					serror("invalid index mode");
+				emit1or2($1);
+				emit1($3 + 0x10);
+			}
+	|
+		XOP expr
+			{	if (($2.typ & S_TYP) == S_ABS &&
+				    ((unsigned)$2.val >> 8) == dpvalue
+				) {
+					if (0 <= $1 && $1 < 0x80)
+						emit1(($1-0x20) & 0x3F);
+					else
+						emit1or2($1 - 0x10);
+					emit1($2.val);
+				} else {
+					emit1or2($1 + 0x10);
+#ifdef RELOCATION
+					newrelo($2.typ, RELO2|RELBR);
+#endif
+					emit2($2.val);
+				}
+			}
+	;
+reglist	:	ALL
+	|	REG
+			{ if (($$ = regbit[$1]) < 0) serror("register error");}
+	|
+		reglist ',' REG
+			{	register i;
+				if ((i = regbit[$3]) < 0 || ($1 & i) != 0)
+					serror("register error");
+				$$ = $1 | i;
+			}
+	;
+xyus	:	REG
+			{ if (($$ = regno($1)) < 0) serror("register error");}
+	;
+xmode	:	',' xyus '+' '+'
+			{	$$ = 0x81 + $2;}
+	|
+		',' xyus '+'
+			{	$$ = 0x80 + $2;}
+	|
+		',' xyus
+			{	$$ = 0x84 + $2;}
+	|
+		',' '-' '-' xyus
+			{	$$ = 0x83 + $4;}
+	|
+		',' '-' xyus
+			{	$$ = 0x82 + $3;}
+	|
+		REG ',' xyus
+			{	switch($1) {
+				case A:	$$ = 0x86 + $3; break;
+				case B: $$ = 0x85 + $3; break;
+				case D:	$$ = 0x8B + $3; break;
+				default: serror("register error");
+				}
+			}
+	;
diff --git a/mach/6809/as/mach5.c b/mach/6809/as/mach5.c
new file mode 100644
index 000000000..b820c5715
--- /dev/null
+++ b/mach/6809/as/mach5.c
@@ -0,0 +1,99 @@
+#define RCSID5 "$Header$"
+
+/*
+ * Motorola 6809 special routines
+ */
+
+branch(opc, exp)
+register int	opc;
+expr_t		exp;
+{
+	register int	sm, dist;
+	int		saving;
+
+	dist = exp.val - (DOTVAL + 2);
+	if (pass == PASS_2 && dist > 0 && !(exp.typ & S_DOT))
+		dist -= DOTGAIN;
+	sm = fitb(dist);
+	if ((exp.typ & ~S_DOT) != DOTTYP)
+		sm = 0;
+	if (opc == 0x8D || opc == 0x20)
+		saving = 1;
+	else
+		saving = 2;
+	if ((sm = small(sm,saving)) == 0) {
+		dist--;
+		if (opc == 0x8D)	/* bsr */
+			opc = 0x17;
+		else if (opc == 0x20)	/* bra */
+			opc = 0x16;
+		else {
+			emit1(0x10);
+			dist--;
+		}
+	}
+	emit1(opc);
+	if (sm == 0) {
+#ifdef RELOCATION
+		newrelo(exp.typ, RELPC|RELO2|RELBR);
+#endif
+		emit2(dist);
+	} else
+		emit1(lowb(dist));
+}
+
+regno(r) register r; {
+	switch (r) {
+	case X:	return 0;
+	case Y:	return 0x20;
+	case U:	return 0x40;
+	case S:	return 0x60;
+	}
+	return -1;
+}
+
+emit1or2(n) {
+	if (n & ~0xFF)
+		emit1(n >> 8);
+	emit1(n);
+}
+
+offset(reg, exp, ind)
+register int	reg, ind;
+expr_t		exp;
+{
+	if (reg == PC) {
+		int	sm, dist;
+
+		dist = exp.val - (DOTVAL + 2);
+		if (pass == PASS_2 && dist > 0 && !(exp.typ & S_DOT))
+			dist -= DOTGAIN;
+		sm = fitb(dist);
+		if ((exp.typ & S_TYP) != DOTTYP)
+			sm = 0;
+		if (small(sm,0)) {
+			emit1(0x8C + ind);
+			emit1(dist);
+		} else {
+			emit1(0x8D + ind);
+			emit1(dist - 1);
+		}
+	} else if ((reg = regno(reg)) < 0)
+		serror("register error");
+	else if ((exp.typ & S_TYP) == S_ABS && exp.val == 0)
+		emit1(0x84 + reg + ind);	/* XOP 0, REG == XOP , REG */
+	else if (ind == 0 && (exp.typ & S_TYP) == S_ABS &&
+		 -16 <= exp.val && exp.val <= 15
+		)
+		emit1(reg + ind + (exp.val & 037));
+	else if ((exp.typ&S_TYP)==S_ABS && -256<=exp.val && exp.val<=255) {
+		emit1(0x88 + reg + ind);
+		emit1(exp.val);
+	} else {
+		emit1(0x89 + reg + ind);
+#ifdef RELOCATION
+		newrelo(exp.typ, RELO2|RELBR);
+#endif
+		emit2(exp.val);
+	}
+}