rcka.e 516 B

12345678910111213141516171819202122232425262728293031
  1. #
  2. ;
  3. ; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. ; See the copyright notice in the ACK home directory, in the file "Copyright".
  5. ;
  6. ;
  7. ; Module: range checks for INTEGER, now for array indexing
  8. ; Author: Ceriel J.H. Jacobs
  9. ; Version: $Header$
  10. ;
  11. #include <em_abs.h>
  12. mes 2,EM_WSIZE,EM_PSIZE
  13. exp $rcka
  14. pro $rcka, 0
  15. lol EM_PSIZE
  16. zlt *1 ; lower bound always 0
  17. lol EM_PSIZE
  18. lal 0
  19. loi EM_PSIZE
  20. adp EM_WSIZE
  21. loi EM_WSIZE
  22. cmi EM_WSIZE
  23. zgt *1
  24. ret 0
  25. 1
  26. loc EARRAY
  27. trp
  28. ret 0
  29. end 0