SYSGEN.CMD=SYSGEN.VMD \ -/Version/,, .; KMS Mod -/KIT TYPE/ -/$BGDSK/,, .;.SETT $BGDSK ! original KMSKIT set this. I don''t know why. -/.314:/ .341C: .ASKS $LB 16B. '$SF1' Device, when ready, for SYSGEN LB: .IF $LB EQ "Y" .SETS $LB "SY:" ! either YES or will force a default to .IFT $BGDSK .IF $LB EQ "" .SETS $LB "SY:" ! SY:. Next try assigning the disk to LB: .ENABLE QUIET ! If by some chance assign fails (disk does not ASN '$LB'=LB: ! exist, type, etc), then trust exit with status .DISABLE QUIET ! to let us know, and we will repeat question. .IF NE 1 .GOTO 341C ! This fails if EXIT WITH STATUS is not in system. -/PIP ['$SYGRP',20]RSXBLD.CMD;*/,.+9 .;PIP ['$SYGRP',20]RSXBLD.CMD;*/DE/NM PIP ['$SYGRP',24]RSXBLD.CMD;*/DE/NM,TTDRVBLD;* .IFF $11SGN PIP ['$SYGRP',50]SYSVMR.CMD;*/DE/NM,['$SYGRP',54]SYSVMR;* .;PIP ['$UIC',20]*.OBJ;*/DE/NM,*.UDC;*,*.ICR;*,*.IDS;*,*.PCS;* .;PIP ['$UIC',24]*.OBJ;*/DE/NM,*.UDC;*,*.ICR;*,*.IDS;*,*.TTY;*,*.PCS;* .;.IFT $BGDSK PIP ['$UIC',30]*.LST;*/DE/NM,['$UIC',34]*.LST;* .;PIP ['$UIC',10]RSXMC.MAC;*/DE/NM,ICTAB;*,['$DFUIC']SGNPARM.CMD;* .;PIP ['$SGNUC']RSXBLD.CMD;*/DE/NM,TTDRVBLD;* .;PIP '$EXC'[11,20]RSXASM.CMD;*/DE/NM,RSXDRVASM;*,[12,20]MCRSETASM;* -/@'$EXC'['$SGNUC']SGNEXEC/,., ;@'$EXC'['$SGNUC']SGNEXEC @'$EXC'['$SGNUC']SGNEXEC -/ST5OV=/,, MCRDIS=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]MCRDIS ST1OV=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]ST1OV ST2OV=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]ST2OV BYE=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]BYE -/CLOSE #3/,, .SETS KMSUIC SET /UIC=[1,24] .OPEN #3 KMSKITASM.CMD .ENABLE DATA #3 INSHD=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]INSHD HELLO=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[15,10]HELLO .DISABLE DATA #3 .CLOSE #3 SET /UIC='KMSUIC' -/.IAS3:/,., .IAS3:; @'$EXC'['$SGNUC']SGNPER @'$EXC'['$SGNUC']SGNPER -/$USRTB/ -/ASN/ -/ASN/ .IFF $MLH ASN '$LB'=LB: ! let user select LB: -/MCRSETASM/,, .SETS KMSUIC .IFF $MLH SET /UIC=[1,24] .IFF $MLH MAC @'$EXC'KMSKITASM .IFF $MLH SET /UIC=[1,24] .IFF $MLH LBR INS/RP=INSHD .IFF $MLH LBR MLTUSR/RP=HELLO .IFF $MLH ;LBR INS/CO=INS .IFF $MLH ;PIP INS.OLB/PU .IFF $MLH ;PIP INSHD.OBJ;*/DE/NM,HELLO.OBJ;* .IFF $MLH SET /UIC='KMSUIC' -/ASN/ .IF $DRV NE $LB .IFF $MLH ASN '$LB'=LB: ! let user select LB: -/.IFF $UWD .GOTO 170/,, .IFT $UWD .IFT $ALOAD .GOTO 170 ! Skip edit question /