Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - dnu702.ctl
There is 1 other file named dnu702.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 DECNET-10-UTILITIES-V702
*EXIT

.DELETE PAT:SWIL.MAC,PAT:SWIFIL.MAC,PAT:SWIWLD.MAC,PAT:SWILIO.MAC
.DELETE PAT:SWINET.MAC,PAT:SWISCN.MAC,PAT:SWIHLP.MAC,PAT:SWIQUE.MAC
.DELETE PAT:SWIERM.MAC,PAT:SWITOU.MAC,PAT:SWIMEM.MAC,PAT:SWIMSC.MAC
.DELETE PAT:NFT.MAC,PAT:FAL.MAC,PAT:NIP.MAC,PAT:TSC.MAC
.DELETE PAT:NCPTAB.MAC,PAT:NRT.MAC

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

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

.RUN ASL:MACRO
*PAT:SWIL=ASL:SWIL
*PAT:SWIFIL=ASL:SWIFIL
*PAT:SWIWLD=ASL:SWIWLD
*PAT:SWILIO=ASL:SWILIO
*PAT:SWINET=ASL:SWINET
*PAT:SWISCN=ASL:SWISCN
*PAT:SWIHLP=ASL:SWIHLP
*PAT:SWIQUE=ASL:SWIQUE
*PAT:SWIERM=ASL:SWIERM
*PAT:SWITOU=ASL:SWITOU
*PAT:SWIMEM=ASL:SWIMEM
*PAT:SWIMSC=ASL:SWIMSC
*PAT:NFT=ASL:NFT
*PAT:NIP=ASL:NIP
*PAT:FAL=ASL:FAL
*PAT:TSC=ASL:TSC
*PAT:NCPTAB=ASL:NCPTAB
*PAT:NRT=ASL:NRT

.RUN ASL:PIP 100P
*PAT:SWIL.REL/I=SWIFIL.REL,SWIWLD.REL,SWILIO.REL,SWINET.REL,SWISCN.REL,SWIHLP.REL,SWIQUE.REL,SWIERM.REL,SWITOU.REL,SWIMEM.REL,SWIMSC.REL

.RUN ASL:LINK
*PAT:NFT/SAVE/LOCALS/SYMSEG:HIGH=PAT:NFT/GO

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

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

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

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

FIN1::
%FIN::