ack/lang/m2/libm2/rckil.e

38 lines
548 B
Plaintext
Raw Normal View History

1987-10-27 11:55:59 +00:00
#
1988-02-19 15:54:01 +00:00
;
; (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$
;
1987-10-27 11:55:59 +00:00
#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