1985-02-07 22:59:50 +00:00
|
|
|
.define _execl
|
|
|
|
|
.define _execve
|
1985-03-04 16:11:41 +00:00
|
|
|
.define _execv
|
|
|
|
|
.define _execle
|
1985-02-07 22:59:50 +00:00
|
|
|
.extern _execl
|
|
|
|
|
.extern _execve
|
1985-03-04 16:11:41 +00:00
|
|
|
.extern _execv
|
|
|
|
|
.extern _execle
|
1985-02-07 22:59:50 +00:00
|
|
|
_execl: tst.b -48(sp)
|
|
|
|
|
link a6,#0
|
|
|
|
|
move.l _environ,-(sp)
|
1985-03-04 16:11:41 +00:00
|
|
|
pusha:
|
1985-02-07 22:59:50 +00:00
|
|
|
pea 12(a6)
|
1985-03-04 16:11:41 +00:00
|
|
|
pushp:
|
1985-02-07 22:59:50 +00:00
|
|
|
move.l 8(a6),-(sp)
|
|
|
|
|
jsr _execve
|
1985-03-04 16:11:41 +00:00
|
|
|
unlk a6
|
|
|
|
|
rts
|
1985-02-07 22:59:50 +00:00
|
|
|
_execve: trap #0
|
1985-03-04 16:11:41 +00:00
|
|
|
.short 3B
|
1985-02-07 22:59:50 +00:00
|
|
|
jmp cerror
|
1985-03-04 16:11:41 +00:00
|
|
|
_execv:
|
|
|
|
|
tst.b -48(sp)
|
|
|
|
|
link a6,#0
|
|
|
|
|
move.l _environ,-(sp)
|
|
|
|
|
move.l 12(a6),-(sp)
|
|
|
|
|
br pushp
|
|
|
|
|
_execle: tst.b -48(sp)
|
|
|
|
|
link a6,#0
|
|
|
|
|
lea 12(a6),a0
|
|
|
|
|
1:
|
|
|
|
|
tst.l (a0)+
|
|
|
|
|
bne 1b
|
|
|
|
|
move.l a0,-(sp)
|
|
|
|
|
br pusha
|
