rckil.e 548 B

12345678910111213141516171819202122232425262728293031323334353637
  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 LONGINTS
  8. ; Author: Ceriel J.H. Jacobs
  9. ; Version: $Header$
  10. ;
  11. #include <em_abs.h>
  12. mes 2,EM_WSIZE,EM_PSIZE
  13. exp $rckil
  14. pro $rckil, 0
  15. lal EM_PSIZE
  16. loi EM_LSIZE
  17. lal 0
  18. loi EM_PSIZE
  19. loi EM_LSIZE
  20. cmi EM_LSIZE
  21. zlt *1
  22. lal EM_PSIZE
  23. loi EM_LSIZE
  24. lal 0
  25. loi EM_PSIZE
  26. adp EM_LSIZE
  27. loi EM_LSIZE
  28. cmi EM_LSIZE
  29. zgt *1
  30. ret 0
  31. 1
  32. loc ERANGE
  33. trp
  34. ret 0
  35. end 0