_wait.e 401 B

123456789101112131415161718192021222324252627282930313233
  1. #
  2. mes 2,EM_WSIZE,EM_PSIZE
  3. #if EM_WSIZE<4
  4. #define STATUS_SIZE 2
  5. #else
  6. #define STATUS_SIZE EM_WSIZE
  7. #endif
  8. exp $_wait
  9. pro $_wait,0
  10. loc 7
  11. mon
  12. zne *1
  13. lal 0
  14. loi EM_PSIZE
  15. zer EM_PSIZE
  16. cms EM_PSIZE
  17. zeq *2
  18. #if EM_WSIZE==1
  19. lal 0
  20. loi EM_PSIZE
  21. sti 2 ; 2 bytes, not one int!
  22. #else
  23. sil 0
  24. #endif
  25. ret EM_WSIZE
  26. 2
  27. asp STATUS_SIZE
  28. ret EM_WSIZE
  29. 1
  30. ste errno
  31. loc -1
  32. ret EM_WSIZE
  33. end