_dup2.e 159 B

12345678910111213141516
  1. #
  2. mes 2,EM_WSIZE,EM_PSIZE
  3. exp $_dup2
  4. pro $_dup2,0
  5. lal 0
  6. loi 2*EM_WSIZE
  7. loc 64
  8. ior EM_WSIZE
  9. loc 41
  10. mon
  11. zeq *1
  12. ste errno
  13. loc -1
  14. 1
  15. ret EM_WSIZE
  16. end