*COMDECK PBOUTOFRN
_*****************************
*                            *
*  TEST ADDR OUT-OF-RANGE    *
*                            *
*****************************?
FUNCTION PBOUTOFRNGE(ADDR : B018BITS) : BOOLEAN;
BEGIN 
  PBOUTOFRNGE := PB18COMP(ADDR,J0GR,J1CORESIZE) 
END; _PBOUTOFRNGE?
