SUBROUTINE FILL (BLK, IREC, ISUB, PC)
C
C	ROBERT WATSON
C	CISCO, INC.
C	(918)665-2110
C	4135 S. 100TH E. AVE.
C	TULSA OK 74145
C
C	THIS PROGRAM HAS BEEN DONATED TO THE PUBLIC DOMAIN
C	AND IS NOT TO BE COPYRIGHTED.
C
	INTEGER*4	PC,		IPC,		ROPC
	INTEGER*2	BLK(256),	PCDUM(2),	LOPC,
	1		HIPC,		ROREC
	BYTE		LOC(6),		Z
	EQUIVALENCE	(IPC,PCDUM(1)),		(PCDUM(1),LOPC),
	1		(PCDUM(2),HIPC)
	DATA		Z	/.TRUE./
	DATA		ROREC	/0/
	DATA		ROPC	/0/
	IF (ISUB .GE. 0) GO TO 5	!IF NOT ADJUSTING RO PTRS
	IF (ISUB .EQ. -2) GO TO 3	!IF CLEARING RO PTRS
	ROREC = IREC			!BRING RO PTRS INSIDE ROUTINE
	ROPC = PC
	RETURN
3	ROPC = 0
	ROREC = 0
	RETURN
5	CALL ERRSET (39, .TRUE., .FALSE., .TRUE., .FALSE.)
	IF (IREC .EQ. ROREC) PC = ROPC	!ADJUST PC IF THIS IS 1ST RO BLK
	READ   (1'IREC,ERR=10) BLK
	ISUB = 1
	RETURN
10	IPC = PC
	CALL OCTL (LOPC, LOC, Z)
	WRITE  (5,20) LOC, 7
20	FORMAT (/,' REACHED END OF FILE AT ',6A1,A1)
	STOP
	END