.define __pipe .sect .text .sect .rom .sect .data .sect .bss .sect .text .extern __pipe .sect .text __pipe: enter[], 0 movd 42,tos jsr @.mon cmpqd 0,tos beq I0011 movd tos,r7 movd r7,@_errno movd -1,r4 exit [] ret 0 I0011: movd 8(fp),r7 movd tos,r6 movd r6,4(r7) movd tos,r6 movd r6,0(8(fp)) movd 0,r4 exit [] ret 0