dup.e 131 B

1234567891011121314
  1. #
  2. mes 2,EM_WSIZE,EM_PSIZE
  3. exp $dup
  4. pro $dup,0
  5. lol 0
  6. dup EM_WSIZE
  7. loc 41
  8. mon
  9. zeq *1
  10. ste errno
  11. loc -1
  12. 1
  13. ret EM_WSIZE
  14. end