Adapted to new assembler syntax

diff --git a/mach/6500/cg/mach.c b/mach/6500/cg/mach.c
index 3fe8e7e..bc49938 100644 (file)
--- a/mach/6500/cg/mach.c
+++ b/mach/6500/cg/mach.c
@@ -17,13 +17,11 @@ con_part(sz,w) register sz; word w; {
 }
 
 con_mult(sz) word sz; {
-       long l;
+       long atol();
 
        if (sz != 4)
                fatal("bad icon/ucon size");
-       l = atol(str);
-       fprintf(codefile,".short\t%d\n",(int) l);
-       fprintf(codefile,".short\t%d\n",(int) (l >> 16));
+       fprintf(codefile,".data4 %ld\n", atol(str));
 }
 
 
@@ -76,8 +74,8 @@ mes(type) word type; {
 }
 
 char    *segname[] = {
-       ".text",        /* SEGTXT */
-       ".data",        /* SEGCON */
-       ".data",        /* SEGROM */
-       ".bss"          /* SEGBSS */
+       ".sect .text",        /* SEGTXT */
+       ".sect .data",        /* SEGCON */
+       ".sect .rom",        /* SEGROM */
+       ".sect .bss"          /* SEGBSS */
 };

diff --git a/mach/6500/cg/mach.h b/mach/6500/cg/mach.h
index ddc7911..1adf667 100644 (file)
--- a/mach/6500/cg/mach.h
+++ b/mach/6500/cg/mach.h
@@ -16,11 +16,12 @@
 
 #define hol_off         "%d+hol%d"
 
-#define con_cst(x)      fprintf(codefile,".word\t%d\n",x)
-#define con_ilb(x)      fprintf(codefile,".word\t%s\n",x)
-#define con_dlb(x)      fprintf(codefile,".word\t%s\n",x)
+#define con_cst(x)      fprintf(codefile,".data2\t%d\n",x)
+#define con_ilb(x)      fprintf(codefile,".data2\t%s\n",x)
+#define con_dlb(x)      fprintf(codefile,".data2\t%s\n",x)
 
-#define modhead         ""
+#define modhead         ".sect .zero; .sect .text; .sect .rom; .sect .data; .sect .bss\n"
+
+#define fmt_id(ft, fs) sprintf(fs,"_%s",ft)
 
-#define id_first        '_'
 #define BSS_INIT        0