.seg
sp := r15
SP := rr14
.psec
.code
_execle::
{
ldl rr0,SP(#4) /* path */
ldl rr2,SP
inc r3,#8 /* argv */
ldl rr4,rr2
L1:
ldl rr6,@rr4
inc r5,#4
cpl rr6,#%00000000 /* if zero than rr4 == envp */
jr ne,L1
sc #59 /* exece */
ld r2,r4
jp cerror
}