TITLE	RPGIMP FOR RPGLIB
	SUBTTL	IMPURE AREA FOR RPGLIB

;COPYRIGHT 1976 BOB CURRIER AND CERRITOS COLLEGE


	SEARCH	INTERM

	BIS==:BIS
	MCS==:MCS
	DBMS==:DBMS
	DEBUG==:DEBUG

	SEARCH	COMUNI

	%%COMUNI==:%%COMUNI

	TWOSEG
RPGIMP:	ENTRY	RPGIMP			; MAKE SURE WE GET LOADED


	SALL


	PURLO%				; DEFINE THE LO-SEG

	FIXNUM==:FIXNUM

	LIBIMP==:0			; SATISFY GLOBAL

;	DEFINE NECESSARY AC'S
	AC1==1
	AC2==2
	AC6==6

	PURHI%				; DEFINE THE HI-SEG
	FIXNUM==:FIXNUM

	END