*** empty log message ***

diff --git a/mach/m68k4/libsys/head_em.s b/mach/m68k4/libsys/head_em.s
new file mode 100644 (file)
index 0000000..c17a0b4
--- /dev/null
+++ b/mach/m68k4/libsys/head_em.s
@@ -0,0 +1,81 @@
+.define .lino,.filn
+
+.define F_DUM,EXIT
+
+.define        begtext,begdata,begbss
+.define        EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE
+.define        hol0,.reghp,.limhp,.trpim,.trppc
+.define        LINO_AD,FILN_AD
+
+! m68k4 runtime start-off for the Bleasdale 68000 system
+
+F_DUM  = 0
+
+
+LINO_AD        = 0
+FILN_AD        = 4
+
+EARRAY = 0
+ERANGE = 1
+ESET   = 2
+EIDIVZ = 6
+EHEAP  = 17
+EILLINS        = 18
+ECASE  = 20
+
+.base 0x20000
+       .text
+begtext:
+       ! Bleasdale puts the argument and environment vectors
+       ! themselves on top of the stack, instead of POINTERS
+       ! to these vectors. We get things right here.
+       move.l  4(sp),a0
+       clr.l   -4(a0)
+       move.l  sp,a0
+       sub.l   #8,sp
+       move.l  (a0),(sp)
+       add.l   #4,a0
+       move.l  a0,4(sp)
+1:
+       tst.l   (a0)+
+       bne     1b
+       move.l  4(sp),a1
+       cmp.l   (a1),a0
+       blt     2f
+       sub.l   #4,a0
+2:
+       move.l  a0,8(sp)
+
+       ! 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
+begdata:
+hol0:
+.lino:
+       .long   0       ! lino
+.filn:
+       .long   0       ! filn
+.reghp:
+       .long   endbss
+.limhp:
+       .long   endbss
+.trppc:
+       .long   0
+.trpim:
+       .long   0       ! was short
+
+
+       .bss
+begbss: