1985-02-07 22:59:50 +00:00
|
|
|
.define _execl
|
|
|
|
|
.define _execve
|
1985-03-04 16:11:41 +00:00
|
|
|
.define _execv
|
|
|
|
|
.define _execle
|
1987-01-26 21:22:23 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
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
|
1987-01-27 10:45:01 +00:00
|
|
|
.data2 0x3b
|
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)
|
1987-01-27 10:45:01 +00:00
|
|
|
bra pushp
|
1985-03-04 16:11:41 +00:00
|
|
|
_execle: tst.b -48(sp)
|
|
|
|
|
link a6,#0
|
|
|
|
|
lea 12(a6),a0
|
|
|
|
|
1:
|
|
|
|
|
tst.l (a0)+
|
|
|
|
|
bne 1b
|
|
|
|
|
move.l a0,-(sp)
|
1987-01-27 10:45:01 +00:00
|
|
|
bra pusha
|
