pipe.e 175 B

123456789101112131415161718
  1. #
  2. mes 2,EM_WSIZE,EM_PSIZE
  3. exp $pipe
  4. pro $pipe,0
  5. loc 42
  6. mon
  7. zeq *1
  8. ste errno
  9. loc -1
  10. ret EM_WSIZE
  11. 1
  12. lal 0
  13. loi EM_PSIZE
  14. stf EM_WSIZE
  15. sil 0
  16. loc 0
  17. ret EM_WSIZE
  18. end