.define _execl
.extern _execl
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
_execl:		link a6,#0
		move.l (_environ),-(sp)
		pea (12,a6)
		move.l (8,a6),-(sp)
		jsr (_execve)
		add.l #0xC,sp
		unlk a6
		rts
