Initial revision

This commit is contained in:
ceriel 1987-01-26 22:33:58 +00:00
parent 55f63a8a12
commit 5abd614e01
2 changed files with 36 additions and 0 deletions

View file

@ -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

16
mach/m68k4/libsys/execv.s Normal file
View file

@ -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