1985-02-07 15:58:40 +00:00
|
|
|
.define _execl
|
|
|
|
|
.define _execve
|
|
|
|
|
.define _execv
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-02-07 15:58:40 +00:00
|
|
|
.extern _execl
|
|
|
|
|
.extern _execve
|
|
|
|
|
.extern _execv
|
|
|
|
|
_execl: tst.b -48(sp)
|
|
|
|
|
link a6,#0
|
|
|
|
|
move.l _environ,-(sp)
|
|
|
|
|
pea 12(a6)
|
|
|
|
|
move.l 8(a6),-(sp)
|
|
|
|
|
jsr _execve
|
|
|
|
|
add.l #12,sp
|
|
|
|
|
unlk a6
|
|
|
|
|
rts
|
|
|
|
|
_execve: trap #0
|
1987-01-27 20:37:46 +00:00
|
|
|
.data2 59
|
1985-02-07 15:58:40 +00:00
|
|
|
jmp cerror
|
|
|
|
|
_execv: tst.b -48(sp)
|
|
|
|
|
link a6,#0
|
|
|
|
|
move.l _environ,-(sp)
|
|
|
|
|
move.l 12(a6),-(sp)
|
|
|
|
|
move.l 8(a6),-(sp)
|
|
|
|
|
jsr _execve
|
|
|
|
|
add.l #12,sp
|
|
|
|
|
unlk a6
|
|
|
|
|
rts
|
