Initial revision

diff --git a/mach/m68k4/libsys/execle.s b/mach/m68k4/libsys/execle.s
new file mode 100644 (file)
index 0000000..0bae3ed
--- /dev/null
+++ b/mach/m68k4/libsys/execle.s
@@ -0,0 +1,20 @@
+.define _execle
+.extern _execle
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+_execle:       link a6,#0
+               tst.b -48(sp)
+               lea 12(a6),a0
+1:
+               tst.l (a0)+
+               bne 1b
+               move.l a0,-(sp)
+               pea 12(a6)
+               move.l 8(a6),-(sp)
+               jsr _execve
+               add.l #0xC,sp
+               unlk a6
+               rts

diff --git a/mach/m68k4/libsys/execv.s b/mach/m68k4/libsys/execv.s
new file mode 100644 (file)
index 0000000..e8bb105
--- /dev/null
+++ b/mach/m68k4/libsys/execv.s
@@ -0,0 +1,16 @@
+.define _execv
+.extern _execv
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+_execv:                link a6,#0
+               tst.b -48(sp)
+               move.l _environ,-(sp)
+               move.l 12(a6),-(sp)
+               move.l 8(a6),-(sp)
+               jsr _execve
+               add.l #0xC,sp
+               unlk a6
+               rts