Fixed some bugs

diff --git a/mach/pdp/as/mach0.c b/mach/pdp/as/mach0.c
index 9cc68e8..601636f 100644 (file)
--- a/mach/pdp/as/mach0.c
+++ b/mach/pdp/as/mach0.c
@@ -21,3 +21,5 @@
 #define ALIGNWORD 2
 #undef ALIGNSECT
 #define ALIGNSECT 2
+#undef BITMAX
+#define BITMAX 4000

diff --git a/mach/pdp/as/mach3.c b/mach/pdp/as/mach3.c
index 5f6b511..01738e8 100644 (file)
--- a/mach/pdp/as/mach3.c
+++ b/mach/pdp/as/mach3.c
@@ -136,11 +136,11 @@
 0,             FOP_FSO_FR,     0172000,        "addf",
 0,             FOP_FSO_FR,     0173000,        "subf",
 0,             FOP_FSO_FR,     0171000,        "mulf",
-0,             FOP_FSO_FR,     0174600,        "divf",
-0,             FOP_FSO_FR,     0173600,        "cmpf",
-0,             FOP_FSO_FR,     0171600,        "modf",
+0,             FOP_FSO_FR,     0174400,        "divf",
+0,             FOP_FSO_FR,     0173400,        "cmpf",
+0,             FOP_FSO_FR,     0171400,        "modf",
 0,             FOP_FSO,        0170400,        "clrf",
-0,             FOP_FSO,        0070700,        "negf",
+0,             FOP_FSO,        0170700,        "negf",
 0,             FOP_FSO,        0170600,        "absf",
 0,             FOP_FSO,        0170500,        "tstf",
 0,             FOP_SO,         0170100,        "ldfps",

diff --git a/mach/pdp/as/mach4.c b/mach/pdp/as/mach4.c
index ec83c0c..195cdd9 100644 (file)
--- a/mach/pdp/as/mach4.c
+++ b/mach/pdp/as/mach4.c
@@ -52,9 +52,9 @@ operation
        | FOP_SO opr1
                { emit2( $1 | $2); op1($2); }
        | MOVF fop2 ',' fregister
-               { emit2(OPSTF | ($4 << 6) | $2); op2($2);}
+               { emit2(OPLDF | ($4 << 6) | $2); op2($2);}
        | MOVF fregister ',' fopr1
-               { emit2(OPLDF | ($2 << 6) | $4); op1($4); }
+               { emit2(OPSTF | ($2 << 6) | $4); op1($4); }
        | FOP_SO_FR opr1 ',' fregister
                { emit2($1 | ($4 << 6) | $2); op1($2); }
        | FOP_FR_SO fregister ',' opr1

diff --git a/mach/pdp/as/mach5.c b/mach/pdp/as/mach5.c
index ea232ea..605b39f 100644 (file)
--- a/mach/pdp/as/mach5.c
+++ b/mach/pdp/as/mach5.c
@@ -70,7 +70,7 @@ ejump(opc, exp) expr_t exp; {
        else    {
 # endif
                if (opc != OPBRA)       {
-                       emit2((opc^0400) | 04);
+                       emit2((opc^0400) | 02);
                }
 
                exp_1 = exp;