execle.e 264 B

12345678910111213141516171819202122232425
  1. #
  2. mes 2,EM_WSIZE,EM_PSIZE
  3. exp $execle
  4. pro $execle,0
  5. lal EM_PSIZE
  6. 1
  7. dup EM_PSIZE
  8. loi EM_PSIZE
  9. zer EM_PSIZE
  10. cmp
  11. zeq *2
  12. adp EM_PSIZE
  13. bra *1
  14. 2
  15. adp EM_PSIZE
  16. loi EM_PSIZE
  17. lal EM_PSIZE
  18. lal 0
  19. loi EM_PSIZE
  20. loc 59
  21. mon
  22. ste errno
  23. loc -1
  24. ret EM_WSIZE
  25. end