fork.e 195 B

123456789101112131415161718192021
  1. #
  2. mes 2,EM_WSIZE,EM_PSIZE
  3. exa par_uid
  4. par_uid
  5. bss EM_WSIZE,0,0
  6. exp $fork
  7. pro $fork,0
  8. loc 2
  9. mon
  10. zeq *1
  11. ste errno
  12. loc -1
  13. ret EM_WSIZE
  14. 1
  15. zeq *2
  16. ste par_uid
  17. loc 0
  18. 2
  19. ret EM_WSIZE
  20. end