	SUBROUTINE FILL
C
C	FOR FURTHER INFORMATION CONTACT:
C
C	ROBERT WATSON
C	CISCO, INC.
C	4135 S. 100 E. AVE.
C	TULSA OK 74145
C
	INTEGER*4	PC,		IPC,		ROPC
	INTEGER*2	BLK(256),	PCDUM(2),	LOPC
	INTEGER*2	HIPC,		ROREC,		SEGTAB(3,50)
	BYTE		LOC(6),		Z,		SNAM(25)
	EQUIVALENCE	(IPC,PCDUM(1)),		(PCDUM(1),LOPC),
	1		(PCDUM(2),HIPC)
	COMMON	/TSKCOM/  BLK, IREC, ISUB, PC, SEGTAB, IZRWRD, SNAM
	DATA		Z	/.TRUE./
	READ   (1'IREC) BLK
	ISUB = 1
	RETURN
	END
