_fork.e 159 B

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