perm filename TAILOR[IMS,AIL] blob sn#000791 filedate 1973-07-03 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00003 PAGES VERSION 15-6(2)
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	HISTORY
 00003 00003		TITLE	TLR
 00004 ENDMK
⊗;
COMMENT ⊗HISTORY
AUTHOR,REASON
021  601700000002  ⊗;


COMMENT ⊗
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