ptrace.e 159 B

123456789101112131415
  1. #
  2. mes 2,EM_WSIZE,EM_PSIZE
  3. exp $ptrace
  4. pro $ptrace,0
  5. zre errno
  6. lal 0
  7. loi EM_PSIZE+3*EM_WSIZE
  8. loc 26
  9. mon
  10. zeq *1
  11. ste errno
  12. loc -1
  13. 1
  14. ret EM_WSIZE
  15. end