adapted to new assembler syntax

diff --git a/mach/m68k4/libsys/head_em.s b/mach/m68k4/libsys/head_em.s
index c17a0b4..d8ce66d 100644 (file)
--- 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!