SEARCH HDRFIL
COMPIL(SCC,<SCANC>,<GETBREAK,SETBREAK,RELBREAK,SCAN>,<SCANC ROUTINE>)
HEREFK(SCANC,SCANC.)
	PUSHJ	P,GETBREAK;
	PUSH	P,A		;SAVE TABLE NUMBER
	PUSH	P,A		;TABLE
	PUSHJ	P,SETBREAK	;GOBBLE DOWN ALL STRINGS BUT ARG
	PUSH	P,[0]		;SPACE FOR BRCHAR;
	MOVEI	A,(SP)
	PUSH	P,A		;LOC(ARG)
	PUSH	P,-2(P)		;TABLE #
	MOVEI	A,-2(P)		;LOC(BRCHAR)
	PUSH	P,A
	PUSHJ	P,SCAN
	POP	SP,-2(SP)	;CLOBBER ARG WITH RSLT
	POP	SP,-2(SP)
	POP	P,(P)		;REMOVE BREAK CHARACTER
	PUSHJ	P,RELBREAK	;GOBBLE SAVED TABLE NUMBER
	POPJ	P,
ENDCOM(SCC)