ack/mach/m68k4/libsys/execl.s

.define _execl
.extern _execl
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
_execl:		link a6,#0
		tst.b -132(sp)
		move.l _environ,-(sp)
		pea 12(sp)
		move.l 8(a6),-(sp)
		jsr _execve
		add.l #0xC,sp
		unlk a6
		rts
Initial revision 1984-12-14 15:52:15 +00:00			`.define _execl`
			`.extern _execl`
Adapted to use of new assembler. 1986-07-22 13:23:14 +00:00			`.sect .text`
			`.sect .rom`
			`.sect .data`
			`.sect .bss`
			`.sect .text`
Initial revision 1984-12-14 15:52:15 +00:00			`_execl: link a6,#0`
			`tst.b -132(sp)`
			`move.l _environ,-(sp)`
			`pea 12(sp)`
			`move.l 8(a6),-(sp)`
			`jsr _execve`
			`add.l #0xC,sp`
			`unlk a6`
			`rts`