# ; ; (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 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