Õf–,Ì_›ž;.; .; PREGEN.CMD .; .; RSX-11M/S/M-PLUS CEX System and CEX Products. .; Network Pre-Generation Procedure. .; .; Copyright (C) 1981, 1982, 1983 1985 by .; Digital Equipment Corporation, Maynard, Mass. .; .; .; 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. .; .; .; MODULE DESCRIPTION: .; .; PREGEN Command File. .; .; .; Distributed Systems Software Engineering .; .; IDENT HISTORY: .; .; 1.00 17-Apr-82 .; DECnet-11M/S V3.1 .; DECnet-11M-PLUS V1.1 .; .; 2.00 07-NOV-83 .; DECnet-11M/S V4.0 .; DECnet-11M-Plus V2.0 .; .; 5.00 22-JUL-85 .; DECnet-11M/S V4.2 .; DECnet-11M-Plus V3.0 .; DECnet-Micro/RSX V1.0 .; .; .ENABLE SUBSTITUTION .ENABLE ESCAPE .ENABLE CONTROL-Z .DISABLE LOWERCASE .; .; PREGEN notes .; ------------ .; .; Multiple free disks, a large system disk, or magtape distribution .; ----------------------------------------------------------------- .; .; PREGEN takes the two or three distribution kits, and combines them onto .; one or more output generation disks (the number of output disks depends .; on their size). .; .; PREGENs general operation is shown below. .; .; Drive 1 PREGEN operation Drive 2 .; ------- ---------------- ------- .; Network distribution disk --Copy command files--> NETGEN Disk .; Network distribution disk --Copy object files---> Network Object disk .; DECnet distribution disk --Copy command files--> NETGEN Disk .; DECnet distribution disk --Copy object files---> Decnet Object disk .; PSI distribution disk --Copy command files--> NETGEN Disk .; PSI distribution disk --Copy object files---> PSI Object disk .; .; Drive 1 above must always contain distribution disks. Drive 2 may be .; the system disk is it is sufficiently large, or it may be any free disk .; drive. The different output disks are logical entities only. The files .; which go on each may be combined onto physical media in any reasonable .; combination. .; .; .; Single free disk drive, with a small system disk (small dual-disk) .; ------------------------------------------------------------------ .; .; PREGEN takes the two or three distribution kits, and copies the command .; onto the system disk. When all files have been copied, it copies them .; back out to a NETGEN Disk, and deletes them from the system disk. The .; distribution kit disks themselves must be used as the object disks. .; .; PREGENs general operation is shown below. .; .; Drive 1 PREGEN operation Drive 2 (system disk) .; ------- ---------------- ------- .; Network distribution disk --Copy command files--> System Disk .; DECnet distribution disk --Copy command files--> System Disk .; PSI distribution disk --Copy command files--> System Disk .; NETGEN Disk <--Recopy the files---- System Disk .;  --Delete the files----> System Disk .; .; System disk configuration control .; --------------------------------- .; .; The following variable controls the operations described above. .; .; N$HDUO = 0 if system is not a "small dual-disk" configuration. .; 1 if "small dual-disk" configuration, Phase 1. .; 2 if "small dual-disk" configuration, Phase 2. .; .; Phase 1 is when we copy files from the distribution kits to the system disk. .; Phase 2 is when we copy files from the system disk to the NETGEN Disk. .; .; .; Set the configuration variables .; ------------------------------- .; .; Set the number of distribution kits recognized, and their 3 character ids. .; .SETN N$GNUM 3 .SETS S$GLIS "NET,DEC,PSI" .; .; For each "id", set the product name, as "first name/second name/etc". The .; first name in the list is generally used in some context such as "Copy the .; FIRST NAME distribution kit". .; .; The second name (etc) is used only when the distribution kit consists of .; more than one media, such the 2 RK05s which may be required for the Network .; distribution kit. This second name is generally used in some context such as .; "Where is the SECOND NAME distribution kit loaded". .; .; At the moment, provision is made for a maximum of two media per distribution .; kit. .; .ENABLE LOWERCASE .SETS S$NNET "Network/secondary Network" .SETS S$NDEC "DECnet/secondary DECnet" .SETS S$NPSI "PSI/secondary PSI" .DISABLE LOWERCASE .; .; For each "id", set the distribution disk labels, to be used for mounting .; distribution kit disks, as "first label/second label/etc". .; .; The second label (etc) is used only when the distribution kit consists of .; more than one media, such the 2 RK05s which may be required for the Network .; distribution kit. .; .; At the moment, provision is made for a maximum of two media per distribution .; kit. .; .; .SETS S$LNET "NETKIT/NETK01" .SETS S$LDEC "DECKIT/DECK01" .SETS S$LPSI "PSIKIT/PSIK01" .; .; For each "id", set the object disk label, to be used for intializing the .; users working object disks, if necessary. These disks will be used only .; during the build phase of the generation. A maximum of one object disk will .; be required for each distribution kit. Note that the working command file .; disk is always labeled "NETGEN". .; .SETS S$ONET "NETOBJ" .SETS S$ODEC "DECOBJ" .SETS S$OPSI "PSIOBJ" .; .; Set some initial variables. .;  .SETS S$OUIC !Remember the original UIC .SETS S$CDEV "" !No NETGEN Disk yet .SETS S$CLAB "" !Initialize NETGEN Disk label .SETF L$CMOU !The NETGEN Disk is not yet mounted .SETS S$GDEV "" !No Distribution Disk yet .SETF L$GMOU !The Distribution kit is not yet mounted .SETS S$TDEV "" !No Object Disk yet .SETF L$TMOU !The Object Disk is not yet mounted .SETN O$GIND 0 !Not in S$GLIS list yet .SETF L$GREP !Dont repeat last S$GLIS entry .SETS S$GKIT "" !kits copied (dual-disk config only) .; .; Set the host system type flags. .; .SETF L$HVAX !Assume not VAX .IF EQ 5 .SETT L$HVAX !Reset if necessary .SETF L$HMPL !Assume not RSX-11M-PLUS .IF EQ 6 .SETT L$HMPL !Reset if necessary .SETS S$HLOK "" !Assume dont lock on dismount .IFT L$HMPL .SETS S$HLOK "/LOCK=V" .IFT L$HVAX .SETS S$HLOK "/NOUNLOAD" .; .; Get the PREGEN disk, either from "SY:" or from "@ddu:PREGEN". .; .SETS S$PDEV +"'':" .TEST P0 ":" .IF EQ 0 .GOTO X0020 .PARSE P0 ":" S$T1 S$T2 .SETS S$PDEV S$T1+":" .X0020: .TESTDEVICE 'S$PDEV' .PARSE "," S$PDRV S$T1 !Get the "real" device name .; .; Check the CLI .; .SETF $DCLI !Remember the initial CLI .IF NE "DCL" .GOTO X0025 .SETT $DCLI .ENABLE QUIET SET TERM MCR .DISABLE QUIET .X0025: .SETF $DNAMD ! remember if NAMED Directory so we can restore it .IF NE 6 .GOTO X0027 !Check named directory for M+ only .IF EQ "[]" .GOTO X0027 .SETT $DNAMD .ENABLE QUIET SET /NONAMED .DISABLE QUIET .; .; Get the PREGEN UIC, either from "" or from "@[g,m]PREGEN". .; .X0027: .SETS S$PUIC .TEST P0 "[" .IF EQ 0 .GOTO X0030 .PARSE P0 "[]" S$T1 S$T2 S$T3 .SETS S$PUIC "['S$T2']" .; .; Print the preliminary text on the terminal .; .X0030: .ENABLE QUIET .IFF L$HVAX SET /BUF=TI:80. .DISABLE QUIET ; ; ====================================================================== ; PREGEN - RSX-11M/S/M-PLUS CEX System Pre-Generation Procedure ; Started at '