Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;
;   PSIV11.CTL -- Patch and rebuild PSI-20-V1-1
;   Version 2(3)
;3	27-JUL-88 /HAH Add branch for no update
; 2(2) 22-MAR-88 HAH Clear definition of SYS: before running PEPB
;	02-JAN-86 /HAH
;	10-APR-85 /GAT
;
;
;		       COPYRIGHT (c) 1985,1988 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.
;

;
;   This .CTL file applies the  patches  to  the  libraries  of
;   PSI-20-V1-1 and rebuilds all of the components.
;
;   For this .CTL file to run, the connected directory must  be
;   the patching directory (Logical name).
;
;   This control file is expected to run without errors.
;
@PEPB
*INITIALIZE PSI-20-V1-1
*EXIT


@DEFINE DSK: ASL:
@DEFINE SYS: ASL:

@DELETE PAT:FAL.MAC,PAT:NFT.MAC,PAT:NCPTAB.MAC,PAT:SETHOS.MAC
@DELETE PAT:SERVER.MAC,PAT:DAPLIB.MAC,PAT:DAPSYM.MAC,PAT:DNCONN.MAC

@ERROR %
@VDIR PAT:PSIV11.SUP
@IF (ERROR) @GOTO NOUPD
@UPDATE
*@PSIV11.SUP
@
NOUPD::
@ERROR
@EXPUNGE
!
!	Build the MCB
!
!
!   Assemble macro source modules
!
@run dnmac
*cetab,=netpar/pa:1,mcblib/pa:1,cexlib/pa:1,cetab
*nmtab,=rsxlib/pa:1,nmtab
*nstab,=rsxlib/pa:1,nstab
*cexllc,=netpar/pa:1,datml/pa:1,cexllc
*dcpdlc,=netpar/pa:1,datml/pa:1,dcpdlc
*dmcdlc,=netpar/pa:1,datml/pa:1,dmcdlc
*dmrdlc,=netpar/pa:1,datml/pa:1,dmrdlc
*dtedlc,=netpar/pa:1,datml/pa:1,dtedlc
*dtrllc,=netpar/pa:1,datml/pa:1,dtrllc
*inillc,=netpar/pa:1,datml/pa:1,inillc
*kdpddm,=netpar/pa:1,datml/pa:1,kdpddm
*nmxllc,=netpar/pa:1,datml/pa:1,nmlacc/pa:1,nmxllc
*nspllc,=netpar/pa:1,datml/pa:1,nspllc
*scllc,=netpar/pa:1,datml/pa:1,scllc
*scxllc,=netpar/pa:1,datml/pa:1,scxllc
*topllc,=netpar/pa:1,datml/pa:1,topllc
*xptllc,=netpar/pa:1,datml/pa:1,xptllc
*gatllc,=netpar/pa:1,nmlacc/pa:1,datml/pa:1,gatllc
*plpllc,=netpar/pa:1,datml/pa:1,plpllc
*flpdlc,=netpar/pa:1,datml/pa:1,flpdlc
!
!   Create .TSKs and .STBs
!
@run tkb36
*cetab/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:cetab/map,cetab/stb=cetab,cex.stb/ss,mcblib.olb/lb/ss
@run tkb36
*nmtab/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:nmtab/map,nmtab/stb=nmtab,nmx.stb/ss
@run tkb36
*nstab/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:nstab/map,nstab/stb=nstab,scx.stb/ss
@run tkb36
*cexllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:cexllc/map,cexllc/stb=cexllc,cex.stb/ss
@run tkb36
*dcpdlc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:dcpdlc/map,dcpdlc/stb=dcpdlc,dcp.stb/ss
@run tkb36
*dmcdlc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:dmcdlc/map,dmcdlc/stb=dmcdlc,dmc.stb/ss
@run tkb36
*dmrdlc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:dmrdlc/map,dmrdlc/stb=dmrdlc,dmr.stb/ss
@run tkb36
*dtedlc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:dtedlc/map,dtedlc/stb=dtedlc,dte.stb/ss
@run tkb36
*dtrllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:dtrllc/map,dtrllc/stb=dtrllc,dtr.stb/ss
@run tkb36
*inillc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:inillc/map,inillc/stb=inillc,ini.stb/ss
@run tkb36
*kdpddm/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:kdpddm/map,kdpddm/stb=kdpddm,kdp.stb/ss
@run tkb36
*nmxllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:nmxllc/map,nmxllc/stb=nmxllc,nmx.stb/ss
@run tkb36
*nspllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:nspllc/map,nspllc/stb=nspllc,nsp.stb/ss
@run tkb36
*scllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:scllc/map,scllc/stb=scllc,sc.stb/ss
@run tkb36
*scxllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:scxllc/map,scxllc/stb=scxllc,scx.stb/ss
@run tkb36
*topllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:topllc/map,topllc/stb=topllc,top.stb/ss
@run tkb36
*xptllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:xptllc/map,xptllc/stb=xptllc,xpt.stb/ss
@run tkb36
*gatllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:gatllc/map,gatllc/stb=gatllc,gat.stb/ss
@run tkb36
*plpllc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:plpllc/map,plpllc/stb=plpllc,plp.stb/ss
@run tkb36
*flpdlc/nomm/nohd/stack:0/pbase:0/psize:160000/task,-
*nul:flpdlc/map,flpdlc/stb=flpdlc,flp.stb/ss
!
!   Build the DN20 system image
!
@run vnp36
!
!   Clean up directory
!
@del *.obj
@del PAT:nmlacc.mac
!
!	Build the Utilities
!
@RUN MACRO
*NCPTAB=NCPTAB.MAC
@

@RUN MACRO
*DAPSYM=DAPSYM.MAC
*DAPLIB=DAPLIB.MAC
*NFT=NFT.MAC
*FAL=FAL.MAC
*DNCONN=DNCONN.MAC
@

@LOAD %"SET:DATA:150000/LOCALS/SYMSEG:PSECT:.LOW./SAVE" NFT,DAPLIB,DNCONN

@LOAD %"SET:DATA:150000/LOCALS/SYMSEG:PSECT:.LOW./SAVE" FAL,DAPLIB

@DELETE PAT:DAPSYM.UNV,PAT:DAPSYM.REL,PAT:DAPLIB.REL,PAT:NFT.REL,PAT:FAL.REL
@DELETE PAT:DNCONN.REL

@RUN MACRO
*SERVER=SERVER.MAC
@RUN LINK
*SERVER,SERVER/SAVE/GO
@SAVE CTERM-SERVER

@RUN MACRO
*SETHOS=SETHOS.MAC
@LOAD SETHOS
@SAVE SETHOST


;
;	Signal success
;

@EXPUNGE PAT:
@DEFINE DSK:
@DEFINE SYS:

@PEPB
*SIGNAL-SUCCESS PSI-20-V1-1
*EXIT

@GOTO EXIT

;
;	Signal failure on error
;

%ERR::
@GOTO ERROR
%TERR::
@GOTO ERROR
ERROR::
@EXPUNGE PAT:
@DEFINE DSK:
@DEFINE SYS:

@PEPB
*SIGNAL-FAILURE PSI-20-V1-1
*EXIT

EXIT::
%FIN::