Initial revision
This commit is contained in:
parent
55f63a8a12
commit
5abd614e01
20
mach/m68k4/libsys/execle.s
Normal file
20
mach/m68k4/libsys/execle.s
Normal 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
16
mach/m68k4/libsys/execv.s
Normal 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
|
Loading…
Reference in a new issue