From: ceriel <none@none>
Date: Fri, 30 Jan 1987 19:20:31 +0000 (+0000)
Subject: Adapted to new assembler syntax
X-Git-Tag: release-5-5~4853
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=c03c2ef9f2f4fe956e75bf572f8d9d2eaf5996cb;p=ack.git

Adapted to new assembler syntax
---

diff --git a/mach/6500/cg/mach.c b/mach/6500/cg/mach.c
index 3fe8e7e5e..bc49938e2 100644
--- 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 ddc791138..1adf66775 100644
--- 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