???

diff --git a/mach/6809/as/mach0.c b/mach/6809/as/mach0.c
index 679af47..2a1a025 100644 (file)
--- a/mach/6809/as/mach0.c
+++ b/mach/6809/as/mach0.c
@@ -1,4 +1,3 @@
-#define DUK
 #define RCSID0 "$Header$"
 
 /*
@@ -9,4 +8,3 @@
 #define THREE_PASS
 #define        LISTING
 #define        RELOCATION
-#define NOLD

diff --git a/mach/6809/as/mach4.c b/mach/6809/as/mach4.c
index 5d64544..deb9a01 100644 (file)
--- a/mach/6809/as/mach4.c
+++ b/mach/6809/as/mach4.c
@@ -129,9 +129,9 @@ operation
                        {       emit1or2($1);
                                emit1(0x9F);
 #ifdef RELOCATION
-                               newrelo($3.typ, RELO1);
+                               newrelo($3.typ, RELO2|RELBR);
 #endif
-                               emit1($3.val);
+                               emit2($3.val);
                        }
        |
                XOP xmode

diff --git a/mach/6809/as/mach5.c b/mach/6809/as/mach5.c
index b820c57..9f6eab7 100644 (file)
--- a/mach/6809/as/mach5.c
+++ b/mach/6809/as/mach5.c
@@ -71,11 +71,12 @@ expr_t              exp;
                sm = fitb(dist);
                if ((exp.typ & S_TYP) != DOTTYP)
                        sm = 0;
-               if (small(sm,0)) {
+               if (small(sm,1)) {
                        emit1(0x8C + ind);
                        emit1(dist);
                } else {
                        emit1(0x8D + ind);
+                       emit1((dist-1)>>8);
                        emit1(dist - 1);
                }
        } else if ((reg = regno(reg)) < 0)