.seg
sp := r15
SP := rr14
.psec
.code
_pipe::
{
sc #42 /*pipe*/
ld r2,r4
jp c,cerror
ldl rr6,SP(#4)
ldl @rr6,rr4
xor r2,r2
ret
}