Moved from /etc.

diff --git a/h/con_float b/h/con_float
new file mode 100644 (file)
index 0000000..903c2ce
--- /dev/null
+++ b/h/con_float
@@ -0,0 +1,279 @@
+/*
+  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
+  See the copyright notice in the ACK home directory, in the file "Copyright".
+*/
+
+/* $Id$ */
+
+/* 
+   #define CODE_GENERATOR for code generator
+   #define CODE_EXPANDER for code expander
+
+   #define IEEEFLOAT for machines using IEEE floating point format
+   #define PDPFLOAT for machines using the PDP-11 floating point format
+   If none of these are defined, the format of the machine on which the
+   code generator runs is used.
+   Returns 1 if sz has an illegal value, 2 in case of overflow,
+   and 0 if all went well.
+   If neither IEEEFLOAT nor PDPFLOAT are defined, the return value is not
+   trustworthy.
+
+   Unfortunately, the IEEE standard does not define the byte-order.
+   depends on the #defines
+       FL_MSL_AT_LOW_ADDRESS   1 if most significant long is at low address
+       FL_MSW_AT_LOW_ADDRESS   1 if most significant word is at low address
+       FL_MSB_AT_LOW_ADDRESS   1 if most significant byte is at low address
+*/
+#ifdef IEEEFLOAT
+#define USE_FLT
+#endif
+#ifdef PDPFLOAT
+#define USE_FLT
+#undef FL_MSL_AT_LOW_ADDRESS
+#define FL_MSL_AT_LOW_ADDRESS 1
+#undef FL_MSW_AT_LOW_ADDRESS
+#define FL_MSW_AT_LOW_ADDRESS 1
+#undef FL_MSB_AT_LOW_ADDRESS
+#define FL_MSB_AT_LOW_ADDRESS 0
+#endif
+
+#define I0 ((FL_MSL_AT_LOW_ADDRESS ? 0 : 4) + (FL_MSW_AT_LOW_ADDRESS ? 0 : 2) \
+               + (FL_MSB_AT_LOW_ADDRESS ? 0 : 1))
+#define I1 ((FL_MSL_AT_LOW_ADDRESS ? 0 : 4) + (FL_MSW_AT_LOW_ADDRESS ? 0 : 2) \
+               + (FL_MSB_AT_LOW_ADDRESS ? 1 : 0))
+#define I2 ((FL_MSL_AT_LOW_ADDRESS ? 0 : 4) + (FL_MSW_AT_LOW_ADDRESS ? 2 : 0) \
+               + (FL_MSB_AT_LOW_ADDRESS ? 0 : 1))
+#define I3 ((FL_MSL_AT_LOW_ADDRESS ? 0 : 4) + (FL_MSW_AT_LOW_ADDRESS ? 2 : 0) \
+               + (FL_MSB_AT_LOW_ADDRESS ? 1 : 0))
+#define I4 ((FL_MSL_AT_LOW_ADDRESS ? 4 : 0) + (FL_MSW_AT_LOW_ADDRESS ? 0 : 2) \
+               + (FL_MSB_AT_LOW_ADDRESS ? 0 : 1))
+#define I5 ((FL_MSL_AT_LOW_ADDRESS ? 4 : 0) + (FL_MSW_AT_LOW_ADDRESS ? 0 : 2) \
+               + (FL_MSB_AT_LOW_ADDRESS ? 1 : 0))
+#define I6 ((FL_MSL_AT_LOW_ADDRESS ? 4 : 0) + (FL_MSW_AT_LOW_ADDRESS ? 2 : 0) \
+               + (FL_MSB_AT_LOW_ADDRESS ? 0 : 1))
+#define I7 ((FL_MSL_AT_LOW_ADDRESS ? 4 : 0) + (FL_MSW_AT_LOW_ADDRESS ? 2 : 0) \
+               + (FL_MSB_AT_LOW_ADDRESS ? 1 : 0))
+
+#ifndef USE_FLT
+static int
+float_cst(str, sz, buf)
+       char *str, *buf;
+       int sz;
+{
+       int i;
+       char *p;
+       float fl;
+       double f;
+       double atof();
+
+       if (sz!= 4 && sz!= 8)   {
+               return 1;
+       }
+       f = atof(str);
+       if (sz == 4) {
+               fl = f;
+               p = (char *) &fl;
+       }
+       else {
+               p = (char *) &f;
+       }
+       for (i = sz; i; i--) {
+               *buf++ = *p++;
+       }
+       return 0;
+}
+#else /* USE_FLT */
+
+#include <ctype.h>
+#include <flt_arith.h>
+
+int
+float_cst(str, sz, buf)
+       char *str, *buf;
+       int sz;
+{
+       int overflow = 0;
+       flt_arith e;
+
+       if (sz!= 4 && sz!= 8)   {
+               return 1;
+       }
+       flt_str2flt(str, &e);
+#ifdef IEEEFLOAT
+       if (sz == 4) {
+#endif
+#ifdef PDPFLOAT
+               e.flt_exp += 129;
+#else
+               e.flt_exp += 127;
+#endif
+               if (e.flt_mantissa.flt_h_32 == 0) e.flt_exp = 0;
+#ifdef IEEEFLOAT
+               if (e.flt_mantissa.flt_h_32 & 0x80) {
+                       /* rounding */
+                       if ((e.flt_mantissa.flt_h_32 & 0xffffff00) == 0xffffff00) {
+                               e.flt_exp++;
+                               e.flt_mantissa.flt_h_32 = 0x80000000;
+                       }
+                       else {
+                               e.flt_mantissa.flt_h_32 += 0x80;
+                       }
+               }
+               if (e.flt_exp >= 255) {
+                       overflow = 1;
+                       e.flt_exp = 255;
+                       e.flt_mantissa.flt_h_32 = e.flt_mantissa.flt_l_32 = 0;
+               }
+               if (e.flt_exp <= 0) {
+                       flt_b64_sft(&(e.flt_mantissa), 1);
+                       if (e.flt_exp < 0) {
+                               flt_b64_sft(&(e.flt_mantissa), -e.flt_exp);
+                               e.flt_exp = 0;
+                       }
+               }
+#endif
+#ifndef IEEEFLOAT
+               if (sz == 4 && (e.flt_mantissa.flt_h_32 & 0x80)) {
+                       /* rounding */
+                       if ((e.flt_mantissa.flt_h_32 & 0xffffff00) == 0xffffff00) {
+                               e.flt_exp++;
+                               e.flt_mantissa.flt_h_32 = 0x80000000;
+                       }
+                       else {
+                               e.flt_mantissa.flt_h_32 += 0x80;
+                       }
+               }
+               if (sz == 8 && (e.flt_mantissa.flt_l_32 & 0x80)) {
+                       /* rounding */
+                       if ((e.flt_mantissa.flt_l_32 & 0xffffff00) == 0xffffff00) {
+                               e.flt_mantissa.flt_l_32 = 0;
+                               if (e.flt_mantissa.flt_h_32 == 0xffffffff) {
+                                       e.flt_exp++;
+                                       e.flt_mantissa.flt_h_32 = 0x80000000;
+                               }
+                               else e.flt_mantissa.flt_h_32++;
+                       }
+                       else {
+                               e.flt_mantissa.flt_l_32 += 0x80;
+                       }
+               }
+               if (e.flt_exp > 255) {
+                       overflow = 1;
+                       e.flt_exp = 255;
+                       e.flt_mantissa.flt_h_32 = e.flt_mantissa.flt_l_32 = 0xffffffff;
+               }
+#endif
+               buf[I0] = (e.flt_sign << 7) | (e.flt_exp >> 1);
+               buf[I1] = ((e.flt_exp&1) << 7) |
+                               ((e.flt_mantissa.flt_h_32 & 0x7fffffff) >> 24);
+               buf[I2] = e.flt_mantissa.flt_h_32 >> 16;
+               buf[I3] = e.flt_mantissa.flt_h_32 >> 8;
+#ifndef IEEEFLOAT
+               if (sz == 8) {
+                       buf[I4] = e.flt_mantissa.flt_h_32;
+                       buf[I5] = e.flt_mantissa.flt_l_32 >> 24;
+                       buf[I6] = e.flt_mantissa.flt_l_32 >> 16;
+                       buf[I7] = e.flt_mantissa.flt_l_32 >> 8;
+                       flt_b64_sft(&(e.flt_mantissa), -56);
+               }
+               else
+#endif
+                       flt_b64_sft(&(e.flt_mantissa), -24);
+#ifdef IEEEFLOAT
+       }
+       else {
+               e.flt_exp += 1023;
+               if (e.flt_mantissa.flt_h_32 == 0) e.flt_exp = 0;
+               if (e.flt_mantissa.flt_l_32 & 0x400) {
+                       /* rounding */
+                       if ((e.flt_mantissa.flt_l_32 & 0xfffff800) == 0xfffff800) {
+                               e.flt_mantissa.flt_l_32 = 0;
+                               if (e.flt_mantissa.flt_h_32 == 0xffffffff) {
+                                       e.flt_exp++;
+                                       e.flt_mantissa.flt_h_32 = 0x80000000;
+                               }
+                               else e.flt_mantissa.flt_h_32++;
+                       }
+                       else {
+                               e.flt_mantissa.flt_l_32 += 0x400;
+                       }
+               }
+               if (e.flt_exp >= 2047) {
+                       overflow = 1;
+                       e.flt_exp = 2047;
+                       e.flt_mantissa.flt_h_32 = e.flt_mantissa.flt_l_32 = 0;
+               }
+               if (e.flt_exp <= 0) {
+                       flt_b64_sft(&(e.flt_mantissa), 1);
+                       if (e.flt_exp < 0) {
+                               flt_b64_sft(&(e.flt_mantissa), -e.flt_exp);
+                               e.flt_exp = 0;
+                       }
+               }
+               buf[I0] = (e.flt_sign << 7) | (e.flt_exp >> 4);
+               buf[I1] = ((e.flt_exp & 017)<< 4) | ((e.flt_mantissa.flt_h_32 >> 27) & 017);
+               buf[I2] = e.flt_mantissa.flt_h_32 >> 19;
+               buf[I3] = e.flt_mantissa.flt_h_32 >> 11;
+               buf[I4] = e.flt_mantissa.flt_h_32 >> 3;
+               buf[I5] = (e.flt_mantissa.flt_h_32 << 5) | ((e.flt_mantissa.flt_l_32 >> 27) & 037);
+               buf[I6] = e.flt_mantissa.flt_l_32 >> 19;
+               buf[I7] = e.flt_mantissa.flt_l_32 >> 11;
+               flt_b64_sft(&(e.flt_mantissa), -53);
+       }
+#endif
+#if ! FL_MSL_AT_LOW_ADDRESS
+       if (sz == 4) {
+               buf[I4] = buf[I0];
+               buf[I5] = buf[I1];
+               buf[I6] = buf[I2];
+               buf[I7] = buf[I3];
+       }
+#endif
+       if (overflow) {
+               return 2;
+       }
+       return 0;
+}
+#endif /* USE_FLT */
+
+#ifdef CODE_GENERATOR
+con_float()
+{
+       char buf[8];
+       int rval = float_cst(str, (int)argval, buf);
+       int i;
+
+       if (rval == 1) {
+               fprintf(stderr,"float constant size = %d\n",(int)argval);
+               fatal("bad fcon size");
+       }
+       fprintf(codefile,"!float %s sz %d\n", str, (int)argval);
+       if (rval == 2) {
+               fprintf(stderr, "Warning: overflow in floating point constant %s\n", str);
+       }
+       fprintf(codefile, ".data1 0%o", buf[0] & 0377);
+       for (i = 1; i < (int)argval; i++) {
+               fprintf(codefile, ",0%o", buf[i] & 0377);
+       }
+       putc('\n', codefile);
+}
+#endif /* CODE_GENERATOR */
+
+#ifdef CODE_EXPANDER
+con_float(str, argval)
+       char *str;
+       arith argval;
+{
+       char buf[8];
+       int rval = float_cst(str, (int)argval, buf);
+       int i;
+
+       if (rval == 1) {
+               argval = 8;
+               rval = float_cst(str, 8, buf);
+       }
+       for (i = 0; i < (int)argval; i++) {
+               gen1(buf[i]);
+       }
+}
+#endif /* CODE_EXPANDER */

diff --git a/h/em_table b/h/em_table
new file mode 100644 (file)
index 0000000..38ca26d
--- /dev/null
+++ b/h/em_table
@@ -0,0 +1,175 @@
+magic  173
+fmnem  1
+nmnem  149
+fpseu  150
+npseu  30
+filb0  180
+nilb0  60
+fcst0  0
+zcst0  120
+ncst0  240
+fspec  240
+nspec  16
+ilb1   240
+ilb2   241
+dlb1   242
+dlb2   243
+dnam   244
+cst2   245
+cst4   246
+cst8   247
+doff   248
+pnam   249
+scon   250
+icon   251
+ucon   252
+fcon   253
+cend   255
+
+bss    0       nvt
+con    1       a+
+end    2       n?
+exa    3       e
+exc    4       nn
+exp    5       p
+hol    6       nvt
+ina    7       e
+inp    8       p
+mes    9       na*
+pro    10      pn?
+rom    11      a+
+
+aar    w-      -p-a-p+p
+adf    w-      -a-a+a
+adi    w-      -a-a+a
+adp    f-      -p+p
+ads    w-      -a-p+p
+adu    w-      -a-a+a
+and    w-      -a-a+a
+asp    f-      -a
+ass    w-      -a-x
+beq    bc      -w-w
+bge    bc      -w-w
+bgt    bc      -w-w
+ble    bc      -w-w
+blm    z-      -p-p
+bls    w-      -a-p-p
+blt    bc      -w-w
+bne    bc      -w-w
+bra    bt      0
+cai    -p      -p
+cal    pp      0
+cff    --      -w-w-y+x
+cfi    --      -w-w-y+x
+cfu    --      -w-w-y+x
+cif    --      -w-w-y+x
+cii    --      -w-w-y+x
+ciu    --      -w-w-y+x
+cmf    w-      -a-a+w
+cmi    w-      -a-a+w
+cmp    --      -p-p+w
+cms    w-      -a-a+w
+cmu    w-      -a-a+w
+com    w-      -a-a+a
+csa    wt      -p-a
+csb    wt      -p-a
+cuf    --      -w-w-y+x
+cui    --      -w-w-y+x
+cuu    --      -w-w-y+x
+dch    --      -p+p
+dec    --      -w+w
+dee    g-      0
+del    l-      0
+dup    s-      -a+a+a
+dus    w-      -a-x+x+x
+dvf    w-      -a-a+a
+dvi    w-      -a-a+a
+dvu    w-      -a-a+a
+exg    w-      -a-a+a+a
+fef    w-      -a+a+w
+fif    w-      -a-a+a+a
+fil    g-      0
+gto    gt      -p-?
+inc    --      -w+w
+ine    g-      0
+inl    l-      0
+inn    w-      -w-a+w
+ior    w-      -a-a+a
+lae    g-      +p
+lal    l-      +p
+lar    w-      -p-a-p+?
+ldc    d-      +d
+lde    g-      +d
+ldf    f-      -p+d
+ldl    l-      +d
+lfr    s-      +a
+lil    l-      +w
+lim    --      +w
+lin    n-      0
+lni    --      0
+loc    c-      +w
+loe    g-      +w
+lof    f-      -p+w
+loi    o-      -p+a
+lol    l-      +w
+lor    r-      +p
+los    w-      -a-p+x
+lpb    --      -p+p
+lpi    p-      +p
+lxa    n-      +p
+lxl    n-      +p
+mlf    w-      -a-a+a
+mli    w-      -a-a+a
+mlu    w-      -a-a+a
+mon    --      -?+?
+ngf    w-      -a+a
+ngi    w-      -a+a
+nop    --      0
+rck    w-      -p-a+a
+ret    zt      -a-?
+rmi    w-      -a-a+a
+rmu    w-      -a-a+a
+rol    w-      -w-a+a
+ror    w-      -w-a+a
+rtt    -t      -?
+sar    w-      -p-a-p-?
+sbf    w-      -a-a+a
+sbi    w-      -a-a+a
+sbs    w-      -p-p+a
+sbu    w-      -a-a+a
+sde    g-      -d
+sdf    f-      -p-d
+sdl    l-      -d
+set    w-      -w+a
+sig    --      -p-p+p+p
+sil    l-      -w
+sim    --      -w
+sli    w-      -w-a+a
+slu    w-      -w-a+a
+sri    w-      -w-a+a
+sru    w-      -w-a+a
+ste    g-      -w
+stf    f-      -p-w
+sti    o-      -p-a
+stl    l-      -w
+str    r-      -p
+sts    w-      -a-p-x
+teq    --      -w+w
+tge    --      -w+w
+tgt    --      -w+w
+tle    --      -w+w
+tlt    --      -w+w
+tne    --      -w+w
+trp    -p      -w+?
+xor    w-      -a-a+a
+zeq    bc      -w
+zer    w-      +a
+zge    bc      -w
+zgt    bc      -w
+zle    bc      -w
+zlt    bc      -w
+zne    bc      -w
+zre    g-      0
+zrf    w-      +a
+zrl    l-      0
+