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