ack/lang/cem/libcc/mon/pipe.e
1985-01-01 22:27:02 +00:00

19 lines
175 B
Plaintext

#
mes 2,EM_WSIZE,EM_PSIZE
exp $pipe
pro $pipe,0
loc 42
mon
zeq *1
ste errno
loc -1
ret EM_WSIZE
1
lal 0
loi EM_PSIZE
stf EM_WSIZE
sil 0
loc 0
ret EM_WSIZE
end