1*41846Sbostic/*- 2*41846Sbostic * Copyright (c) 1990 The Regents of the University of California. 3*41846Sbostic * All rights reserved. 4*41846Sbostic * 5*41846Sbostic * This code is derived from software contributed to Berkeley by 6*41846Sbostic * the Systems Programming Group of the University of Utah Computer 7*41846Sbostic * Science Department. 8*41846Sbostic * 9*41846Sbostic * %sccs.include.redist.c% 10*41846Sbostic */ 11*41846Sbostic 12*41846Sbostic#if defined(LIBC_SCCS) && !defined(lint) 13*41846Sbostic .asciz "@(#)execle.s 5.1 (Berkeley) 05/12/90" 14*41846Sbostic#endif /* LIBC_SCCS and not lint */ 15*41846Sbostic 16*41846Sbostic#include "SYS.h" 17*41846Sbostic 18*41846SbosticENTRY(execle) 19*41846Sbostic lea sp@(4),a0 20*41846Sbostic movl a0,a1 21*41846Sbosticagain: 22*41846Sbostic tstl a0@+ 23*41846Sbostic jne again 24*41846Sbostic movl a0@,sp@- 25*41846Sbostic pea a1@(4) 26*41846Sbostic movl a1@,sp@- 27*41846Sbostic jbsr _execve 28*41846Sbostic addl #12,sp 29*41846Sbostic rts /* execle(file, arg1, arg2, ..., env); */ 30