COMMENT ⊗HISTORY
AUTHOR,REASON
021  002100000004  ⊗;


COMMENT ⊗
VERSION 17(4) 12-8-73 BY JRL REMOVE SPECIAL STANFORD CHARACTERS(WHERE POSSIBLE)
VERSION 17(3) 7-26-73 BY RHT VERSION 17 GOES IN
VERSION 15-6(2) 1-14-72 BY DCS BUG #GA# REPLACE .REL BY .SEG AS SEGMENT EXTENSION
VERSION 15-2(1) 12-2-71 BY DCS INSTALL VERSION NUMBER

⊗;
	TITLE	TLR
INTERN SLOF,MYFIL,LOCSM

SLOF:	SLOFIL
	SIXBIT	/REL/
	0
	0			;FOR LOW SEGMENT MODIFICATION

MYFIL:	FILXXX			;UPPER SEGMENT NAME
NOEXPO <
	SIXBIT	/SEG/
>;NOEXPO
EXPO <
	SIXBIT	/SHR/
>;EXPO
	0
	0			;REST OF LOOKUP BLOCK

LOCSM:	LOCSYM			;TAILORS UP.FAI ROUTINES

	END