.ENABLE SUBSTITUTION
;
;
.ASK FORLIB	IS THE FORTRAN OTS IN [1,1]FORLIB
.IFT	FORLIB .GOTO 10
.ASK SYSLIB	IS THE FORTRAN OTS IN [1,1]SYSLIB
.IFT SYSLIB	.GOTO 10
;
;  IT IS NECESSARY TO EXTRACT $NAM FROM THE LIBRARY CONTAINING THE FORTRAN
;	OTS.  IF A RESIDENT LIBRARY IS USED, THIS COMMAND FILE WILL NOT
;	WORK.  IN THE LATTER CASE, THE FORTRAN DISTRIBUTION MUST BE USED
;	TO TEMPORARILY BUILD A FORLIB OUT OF WHICH $NAM MAY BE EXTRACTED.
.STOP
;
.10:	.IFT FORLIB .SETS LIBNAM "[1,1]FORLIB"
	.IFT SYSLIB .SETS LIBNAM "[1,1]SYSLIB"
;
; WE NOW EXTRACT $NAM FROM THE LIBRARY
;
PIP NAM.OBJ;*/DE
LBR NAM.OBJ;1='LIBNAM'/EX:$NAM
;
; ASSEMBLE THE PATCH FILE
;
MAC NAM.POB,NAM/-SP=NAM.PAT
;
; AND CREATE THE NEW NAM.OBJ
;
PAT NAM.OBJ;2=NAM.OBJ;1,NAM.POB
;
;
; ASSEMBLE TIMER
;
MAC TIMER,TIMER/-SP=PERFRM
;
; ASSEMBLE MEASUR
;
MAC MEASUR,MEASUR/-SP=MEAPRE,PERFRM
;
;
; ASSEMBLE TRACEM
;
MAC TRACEM,TRACEM/-SP=TRACEM
;
; THE ROUTINE MESURX TIMERX AND TRACE ARE GENERATED FROM RATFOR SOURCES.
;	COPIES OF THE GENERATED FORTRAN
;	ARE PROVIDED.  IF YOU HAVE RATFOR AND HAVE MADE CHANGES, YOU
;	MAY WISH TO REGENERATE THE FORTRAN CODE.
;
.ASK	RATFOR	DO YOU WISH TO START FROM THE ORIGINAL RATFOR
.IFF RATFOR .GOTO 20
RAT TIMERX,TIMERX/-SP=PERFRM
RAT MESURX,MESURX/-SP=MEAPRE,PERFRM
RAT TRACE,TRACE/-SP=TRACE
.20:
;
; COMPILE THE  FORTRAN ROUTINES
;
F4P TIMERX,TIMERX/-SP/-CK/-TR=TIMERX
F4P MESURX,MESURX/-SP/-CK/-TR=MESURX
F4P TRACE,TRACE/-SP/-CK/-TR=TRACE
;
; BUILD PERLIB.OLB
;
PIP PERLIB.OLB;*/DE
;
LBR PERLIB.OLB/CR=NAM,MEASUR,MESURX,TIMERX,TRACE
;
LBR PERLIB/DG:TIMEIN:$COUNT
LBR PERLIB/IN=TIMER
LBR PERLIB/DG:TIMEIN:$COUNT
LBR PERLIB/IN=TRACEM
PIP PERLIB.OLB/TR
; THE LIBRARY PERLIB.OLB HAS BEEN CREATED.