ack/lang/m2/libm2/rckul.e
2007-02-25 22:49:23 +00:00

38 lines
548 B
Plaintext

#
;
; (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 LONGCARD
; Author: Ceriel J.H. Jacobs
; Version: $Header$
;
#include <em_abs.h>
mes 2,EM_WSIZE,EM_PSIZE
exp $rckul
pro $rckul, 0
lal EM_PSIZE
loi EM_LSIZE
lal 0
loi EM_PSIZE
loi EM_LSIZE
cmu EM_LSIZE
zlt *1
lal EM_PSIZE
loi EM_LSIZE
lal 0
loi EM_PSIZE
adp EM_LSIZE
loi EM_LSIZE
cmu EM_LSIZE
zgt *1
ret 0
1
loc ERANGE
trp
ret 0
end 0