12345678910111213141516171819202122232425262728293031323334353637 |
- #
- ;
- ; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- ; See the copyright notice in the ACK home directory, in the file "Copyright".
- ;
- ;
- ; Module: range checks for LONGINTS
- ; Author: Ceriel J.H. Jacobs
- ; Version: $Header$
- ;
- #include <em_abs.h>
- mes 2,EM_WSIZE,EM_PSIZE
- exp $rckil
- pro $rckil, 0
- lal EM_PSIZE
- loi EM_LSIZE
- lal 0
- loi EM_PSIZE
- loi EM_LSIZE
- cmi EM_LSIZE
- zlt *1
- lal EM_PSIZE
- loi EM_LSIZE
- lal 0
- loi EM_PSIZE
- adp EM_LSIZE
- loi EM_LSIZE
- cmi EM_LSIZE
- zgt *1
- ret 0
- 1
- loc ERANGE
- trp
- ret 0
- end 0
|