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