From: ceriel <none@none>
Date: Wed, 21 Jan 1987 15:21:49 +0000 (+0000)
Subject: adapted to new assembler syntax
X-Git-Tag: release-5-5~4954
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=9acc35460863320b1e15f527f5d9f7bd98924ce5;p=ack.git

adapted to new assembler syntax
---

diff --git a/mach/m68k4/libsys/head_em.s b/mach/m68k4/libsys/head_em.s
index c17a0b447..d8ce66df1 100644
--- a/mach/m68k4/libsys/head_em.s
+++ b/mach/m68k4/libsys/head_em.s
@@ -1,15 +1,16 @@
 .define .lino,.filn
-
-.define F_DUM,EXIT
-
+.define EXIT
 .define	begtext,begdata,begbss
-.define	EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE
+.define	EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE,EBADGTO
 .define	hol0,.reghp,.limhp,.trpim,.trppc
-.define	LINO_AD,FILN_AD
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+
 
-! m68k4 runtime start-off for the Bleasdale 68000 system
 
-F_DUM	= 0
+! EM runtime start-off for the Bleasdale 68000 system
 
 
 LINO_AD	= 0
@@ -22,9 +23,9 @@ EIDIVZ	= 6
 EHEAP	= 17
 EILLINS	= 18
 ECASE	= 20
+EBADGTO = 27
 
-.base 0x20000
-	.text
+	.sect .text
 begtext:
 	! Bleasdale puts the argument and environment vectors
 	! themselves on top of the stack, instead of POINTERS
@@ -49,33 +50,27 @@ begtext:
 	! Now the stack contains an argc (4 bytes), argv-pointer and
 	! envp pointer.
 
-	pea	endbss
-	jsr	_brk
-	add.l	#4,sp
 	jsr	_m_a_i_n
 	add	#012,sp
 EXIT:
 	jsr	__exit
-	! As a temporary measure
-	jsr .trp
-	
 
-	.data
+	.sect .data
 begdata:
 hol0:
 .lino:
-	.long	0	! lino
+	.data4	0	! lino
 .filn:
-	.long	0	! filn
+	.data4	0	! filn
 .reghp:
-	.long	endbss
+	.data4	endbss
 .limhp:
-	.long	endbss
+	.data4	endbss
 .trppc:
-	.long	0
+	.data4	0
 .trpim:
-	.long	0	! was short
+	.data4	0
 
 
-	.bss
-begbss:
+	.sect .bss
+begbss: !initialization is not needed because ALL entries are in zero space!