Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - utl702.ctl
There is 1 other file named utl702.ctl in the archive. Click here to see a list.
;
;		       COPYRIGHT (C) 1984, 1985 BY
;	    DIGITAL EQUIPMENT CORPORATION, MAYNARD, MA.
;
;   THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED
;   AND  COPIED  ONLY  IN  ACCORDANCE  WITH  THE  TERMS OF SUCH
;   LICENSE AND WITH  THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT
;   NOTICE.   THIS SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT
;   BE PROVIDED  OR  OTHERWISE	MADE  AVAILABLE  TO  ANY  OTHER
;   PERSON.   NO  TITLE  TO  AND  OWNERSHIP  OF THE SOFTWARE IS
;   HEREBY TRANSFERRED.
;
;   THE INFORMATION IN	THIS  SOFTWARE	IS  SUBJECT  TO  CHANGE
;   WITHOUT  NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
;   BY DIGITAL EQUIPMENT CORPORATION.
;
;   DIGITAL  ASSUMES  NO  RESPONSIBILITY   FOR	 THE   USE   OR
;   RELIABILITY  OF  ITS  SOFTWARE  ON	EQUIPMENT  WHICH IS NOT
;   SUPPLIED BY DIGITAL.
;
.R PEPB
*INITIALIZE UTILITIES-10-V702
*EXIT

.PATH ASL:/SEARCH
.PATH REL:=ASL:

.DELETE PAT:DIRECT.MAC,PAT:INITIA.MAC,PAT:SYSTAT.MAC,PAT:UFDSET.MAC
.DELETE PAT:LOGIN.MAC,PAT:FACTOR.MAC,PAT:CREF.MAC,PAT:COMPIL.MAC
.DELETE PAT:BACKUP.MAC,PAT:BACKRS.MAC,PAT:ENDECR.MAC,PAT:USGSUB.MAC
.DELETE PAT:PFH.MAC,PAT:CREDIR.MAC,PAT:LOGOUT.MAC,PAT:REACT.MAC
.DELETE PAT:DAEMON.MAC,PAT:CRSCPY.MAC,PAT:FILCOM.MAC,PAT:FILDAE.MAC

.RUN ASL:UPDATE
*@PAT:UTL702.SUP

.RUN ASL:MACRO
*PAT:DIRECT=ASL:DIRECT
*PAT:INITIA=ASL:INITIA
*PAT:SYSTAT=ASL:SYSTAT
*PAT:UFDSET=ASL:UFDSET
*PAT:LOGIN=ASL:LOGIN
*PAT:FACTOR=ASL:FACTOR
*PAT:ENDECR=ASL:ENDECR
*PAT:USGSUB=ASL:USGSUB
*PAT:BACKUP=ASL:BACKUP
*PAT:BACKRS=ASL:BACKRS
*PAT:LOGOUT=ASL:LOGOUT
*PAT:PFH=ASL:PFH
*PAT:REACT=ASL:REACT
*PAT:CREDIR=ASL:CREDIR
*PAT:DAEMON=ASL:DAEMON
*PAT:CRSCPY=ASL:CRSCPY
*PAT:FILCOM=ASL:FILCOM
*PAT:FILDAE=ASL:FILDAE
*PAT:CREF=ASL:CREF
*PAT:COMPIL=ASL:COMPIL

.RUN ASL:LINK
*PAT:DIRECT/SSAVE/LOCALS/SYMSEG:HIGH=PAT:DIRECT/GO

.RUN ASL:LINK
*PAT:INITIA/SSAVE=PAT:INITIA,ASL:HELPER.REL/GO

.RUN ASL:LINK
*PAT:SYSTAT/SSAVE=PAT:SYSTAT/GO

.RUN ASL:LINK
*PAT:LOGIN/SSAVE=PAT:LOGIN/GO

.RUN ASL:LINK
*PAT:BACKUP/SSAVE=PAT:BACKUP,PAT:BACKRS/GO

.RUN ASL:LINK
*PAT:LOGOUT/SSAVE=PAT:LOGOUT/GO

.RUN ASL:LINK
*PAT:PFH/SAVE=PAT:PFH/GO

.RUN ASL:LINK
*PAT:REACT/SSAVE=PAT:REACT/GO

.RUN ASL:LINK
*PAT:CREDIR/SSAVE=PAT:CREDIR/GO

.RUN ASL:LINK
*PAT:DAEMON/SSAVE=PAT:DAEMON/GO

.RUN ASL:LINK
*PAT:CRSCPY/SSAVE=PAT:CRSCPY,ASL:SCAN,ASL:HELPER/GO

.RUN ASL:LINK
*PAT:FILCOM/SSAVE=PAT:FILCOM/GO

.RUN ASL:LINK
*PAT:FILDAE/SAVE=/SEGMENT:LOW PAT:FILDAE,ASL:SCAN/GO

.RUN ASL:LINK
*PAT:CREF/SSAVE=PAT:CREF,ASL:HELPER/GO

.RUN ASL:LINK
*PAT:COMPIL/SSAVE=PAT:COMPIL/GO

.R PEPB
*SIGNAL-SUCCESS UTILITIES-10-V702
*EXIT

.GOTO FIN1
%ERR::
.GOTO ERROR
%CERR::
.GOTO ERROR
%TERR::
ERROR::

.R PEPB
*SIGNAL-FAILURE UTILITIES-10-V702
*EXIT

FIN1::
%FIN::