.;.MODULE CONFIG,29,<System configuration file>
.;
.; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
.; All rights reserved
.;
.; This software is furnished under a license for use only on a
.; single computer system and  may  be  copied  only  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 except for  use  on  such
.; system and to one who agrees to these license  terms.  Title
.; to  and  ownership of the software shall at all times remain
.; in Mentec, Inc.
.;
.; The information in this document is subject to change without
.; notice and should not be construed as a commitment by Digital
.; Equipment Corporation, or Mentec, Inc.
.;
.; Digital and Mentec  assume  no  responsibility for the use or
.; reliability of its software on equipment which is not supplied
.; by Digital  or Mentec,  and listed  in the  Software  Product
.; Description.
.; File used to configure an RT-11 system disk.
.; James Williams 24-Jan-84, 30-Aug-84, 26-Jan-85, 21-Feb-85, 27-Mar-85
.; 13-Mar-86
.; Irene Ziemba 20-Jun-87, 29-Jun-87
.; Linda Banche 24-May-90 	Change startup command file names
.; Bill Dunham  23-May-91	Delete TT.SYS and RT11MT.SYS if no mt support
	.GoTo	Config
.Check:
	.TestFile SYS:'File'
	.If <FilErr> EQ 346 .Return
	.If <FilErr> NE <Succes> .GoTo 1$
	.SetT FilFnd
	.Return
.1$:
;?CONFIG-F-Unexpected file error value "'<FilErr>'" - SY:'File'
	.Stop

.CnfDev:
	.Parse ArgLst	"," P0 P1 P2 P3
	.SetF $DelXX
	.SetF $OkXX
	.SetF FilFnd
	.SetF Defalt
	.SetS File P0[1:2]+".SYS"
	.GoSub Check
	.IfT FilFnd .GoTo 2$
	.SetS File P0[1:2]+"X.SYS"
	.GoSub Check
	.IfF FilFnd .Return
.2$:
	.If P0 NE "VM" Run	SY:Config	'P0':/P
	.If P0 EQ "VM" Run	SY:Config	/A:177572
	.If <ExStat> EQ <Succes> .SetT Defalt
	.SetL $OkXX Defalt
	.If P1 NE "Ask" .GoTo 3$
	.SetT Defalt
	.SetT $OkXX
;
; The "'P0'" device may be valid for your system
	.IfF $NoQue .GoTo 4$
; It was not removed.
;
	.Return
.3$:
	.IfF $Query .GoTo 5$
;
.4$:
	.SetS YN "Y"
	.IfF Defalt .SetS YN "N"
	.Ask [Defalt] Defalt Do you want 'P0' ('P2' handler) ('YN')?
.5$:
	.SetL $OkXX Defalt
	.IfT Defalt .Return
	.SetT $DelXX
	.IfT $Delet		'PIP''P0'(,X).SYS,'P0'.MAC'S'
	.Return
.Config:.Disable Prefix,Suffix,LowerCase
.;DEBUG	comment out next line
	.Enable Quiet
	.SetT DU
	.SetT LP
	.SetT LS
	.SetT MM
	.SetT MS
	.SetT MT
	.SetT MU
	.SetT NC
	.SetT NQ
	.SetT NU
	.SetT SL
	.SetT XC
	.SetT XL
	.SetT Spool
	.SetT Queue
	.SetT Batch
	.SetF DelDU
	.SetF DelMM
	.SetF DelMS
	.SetF DelMT
	.SetF DelMU
	.SetF DelNC
	.SetF DelNQ
	.SetF DelNU
	.SetF DelSL
	.SetF DelXC
	.SetF DelXL
	.SetF $Query
	.SetF $SomeQ
	.SetF $NoQue
	.SetF $NoDCL
	.SetT $Delet
	.SetS S	"/D/X:-1"
	.SetS TempS P1[1:4]
	.If TempS EQ "/QUE" .SetT $Query
	.If TempS EQ "/SOM" .SetT $SomeQ
	.If TempS EQ "/NOQ" .SetT $NoQue
	.IfT $NoQue .GoTo 10$
	.SetS TempS P1[1:2]
	.If TempS EQ "/N" .SetT $NoDCL
.10$:	.If P1 EQ "" .GoTo 20$
	.SetL Option $Query!$SomeQ!$NoQue!$NoDCL
	.IfT Option .GoTo 20$
;?CONFIG-F-Unknown option, use /QUERY /SOMEQUERY or /NOQUERY, found "'P1'"
	.Exit
.20$:	.IfDisabled DCL .SetT $NoDCL
	.IfT $NoDCL	.Disable Quiet
	.IfT $NoDCL	.SetS PIP ";PIP	SYS:"
	.IfF $NoDCL	.SetS PIP "PIP	SYS:"
.;
.; For the very trusting user, this command file may be invoked using:
.;
.; @CONFIG /NOQUERY
.;
.; which will perform most of the configuration WITHOUT asking questions.
.;
.; For the somewhat trusting user, this command file may be invoked using:
.;
.; @CONFIG /SOMEQUERY
.;
.; which will ask questions about configuration details not "forced" by
.; hardware.
.;
.; For the less trusting user, this command file may be invoked using:
.;
.; @CONFIG /QUERY
.;
.; which will asks questions about every group of deletions.
.;
.; To "practice" configuration the user/debugger can use:
.;
.; @CONFIG/N /{|SOME|NO}QUERY
.;
.; which will display the deletions it would have done, without doing them.
.;
.; This procedure configures the device with the logical name "SYS:".  If
.; SYS: is not defined prior to running CONFIG.COM, it will default it to "SY:".
.;
	.Enable DCL,LowerCase
Run	SY:Config	SYS:
	.If <ExStat> NE <Succes> 		Assign SY: SYS:
Run	SY:Config	/R:370/M:020000/V:020000
	.SetF Pro3XX
	.If <ExStat> EQ <Succes> .SetT Pro3XX
	.SetL OkSB ^Pro3XX
	.SetF OkXM
	.SETF OKXB
	.SETF OKZM
	.SETF OKZB
Run	SY:Config	/A:177572
	.If <ExStat> EQ <Succes> .SetT OkXM
	.If <ExStat> EQ <Succes> .SETT OKXB
	.If <ExStat> EQ <Succes> .SETT OKZM
	.If <ExStat> EQ <Succes> .SETT OKZB
	.If P1 NE "" .GoTo 50$
; This command file can be run in 3 modes:
;
;	Query
;	SomeQuery (the default)
;	NoQuery
;
; In Query mode this command file asks a series of questions.  The default
; answers are determined from the currently booted system''s characteristics
; and represent a "reasonable" guess of a good configuration.
;
; In SomeQuery mode this command file asks questions only when it can not
; determine the answer from testing hardware configuration. (e.g. is the
; device connected to the serial port a printer, or do you want the files for
; automatic installation to be retained).
;
; In NoQuery mode this command file asks no questions, simply taking defaults
; for the questions it would ask in the other modes.
;
	.SetT $SomeQ
	.Ask [$SomeQ] $SomeQ Do you want "SomeQuery" mode (Y)?
	.IfT $SomeQ .GoTo 50$
;
	.SetF $NoQue
	.Ask [$NoQue] $NoQue Do you want "NoQuery" mode (N)?
	.IfT $NoQue .GoTo 50$
;
; Defaulting to "Query" mode
;
.50$:	.SetL $Query ^($SomeQ!$NoQue)
	.IfT $NoQue .GoTo 30$
;
; This command file is designed to remove system files that are not
; applicable to the currently booted system.  It should be applied
; to a copy of the distribution, NOT to the distribution media itself,
; since it deletes files.
;
.ifT Pro3XX .goto 55$
.;
; For best results the system on which @CONFIG is run should be the
; system the system disk is ultimately to be used with.  Also any
; devices that have non-standard CSRs should have the handler csr''s
; modified using the SET xx CSR=nnnnnn command before running @CONFIG.
;
.55$:
; This command file may be stopped at any time by entering two "Ctrl/C"s.
;
	.SetT TF
	.Ask [TF] TF Do you want to configure your new system disk (Y)?
	.IfF TF .Exit
.30$:	.IfF $NoDCL 				UnProtect SYS:*.*/SYS/NoLog
	.IfF $Query .GoTo 60$
;
	.SetT TF
	.Ask [TF] TF Do you want to remove unused device handlers (Y)?
	.IfF TF .GoTo SkipDv
.60$:
	.SetS	Ask "ASK"
	.IfT 	Pro3XX .SetS Ask ""
	.SetS	ArgLst	"CR,   ,Card reader"
	.GoSub	CnfDev
	.SetS	ArgLst	"CT,   ,Cassette tape"
	.GoSub	CnfDev
	.SetS	ArgLst	"DD,'Ask',DECTape II"
	.GoSub	CnfDev
	.SetS	ArgLst	"DL,   ,RL01/RL02"
	.GoSub	CnfDev
	.SetS	ArgLst	"DM,   ,RK06/RK07"
	.GoSub	CnfDev
	.SetS	ArgLst	"DP,   ,RP02/RP03"
	.GoSub	CnfDev
	.SetS	ArgLst	"DS,   ,RS03/4"
	.GoSub	CnfDev
	.SetS	ArgLst	"DT,   ,DECTape"
	.GoSub	CnfDev
	.SetS	ArgLst	"DU,   ,Generic disk"
	.GoSub	CnfDev
	.SetL	DelDU	$DelXX
	.SetL	DU	$OkXX
	.SetS	ArgLst	"DW,   ,PRO3__ winchester"
	.GoSub	CnfDev
	.SetS	ArgLst	"DX,   ,RX01 floppy"
	.GoSub	CnfDev
	.SetS	ArgLst	"DY,   ,RX02 floppy"
	.GoSub	CnfDev
	.SetS	ArgLst	"DZ,   ,PRO3__ RX50 floppy"
	.GoSub	CnfDev
	.SetS	ArgLst	"LD,   ,Logical disk subsetting"
	.GoSub	CnfDev
	.SetS	ArgLst	"LP,   ,Line printer"
	.GoSub	CnfDev
	.SetL	LP	$OkXX
	.SetS	ArgLst	"LS,'Ask',Serial line printer"
	.GoSub	CnfDev
	.SetL	LS	$OkXX
	.SetS	ArgLst	"MM,   ,TJU16/TU45 magtape"
	.GoSub	CnfDev
	.SetL	DelMM	$DelXX
	.SetL	MM	$OkXX
	.SetS	ArgLst	"MS,   ,TK25/TS11/TS05/TU80 magtape""
	.GoSub	CnfDev
	.SetL	DelMS	$DelXX
	.SetL	MS	$OkXX
	.SetS	ArgLst	"MT,   ,TM11/TMA11/TS03/TE16 magtape"
	.GoSub	CnfDev
	.SetL	DelMT	$DelXX
	.SetL	MT	$OkXX
	.SetS	ArgLst	"MU,   ,TK50/TU81 magtape"
	.GoSub	CnfDev
	.SetL	DelMU	$DelXX
	.SetL	MU	$OkXX
	.SetS	ArgLst	"NC,   ,PRO3__ Ethernet"
	.GoSub	CnfDev
	.SetL	DelNC	$DelXX
	.SetL	NC	$OkXX
	.SetS	ArgLst	"NL,   ,Null"
	.GoSub	CnfDev
	.SetS	ArgLst	"NQ,   ,QBus Ethernet"
	.GoSub	CnfDev
	.SetL	DelNQ	$DelXX
	.SetL	NQ	$OkXX
	.SetS	ArgLst	"NU,   ,UniBus Ethernet"
	.GoSub	CnfDev
	.SetL	DelNU	$DelXX
	.SetL	NU	$OkXX
	.SetS	ArgLst	"PC,   ,Papertape"
	.GoSub	CnfDev
	.SetS	ArgLst	"PD,   ,PDT/150 floppy"
	.GoSub	CnfDev
	.SetS	ArgLst	"PI,   ,PRO3__ interface"
	.GoSub	CnfDev
	.SetS	ArgLst	"RF,   ,RF11/RS11"
	.GoSub	CnfDev
	.SetS	ArgLst	"RK,   ,RK05"
	.GoSub	CnfDev
	.SetS	ArgLst	"SL,   ,Single Line editor"
	.GoSub	CnfDev
	.SetL	DelSL	$DelXX
	.SetS	ArgLst	"VM,   ,Memory as disk"
	.GoSub	CnfDev
	.IfF 	Pro3xx	.GoTo 70$
	.SetS	ArgLst	"XC,   ,PRO3__ Serial line communications"
	.GoSub	CnfDev
	.IfT 	$DelXX	'PIP'XL(,X).MAC'S'
	'PIP'XL(,X).SYS'S'		
	.IfT 	Pro3xx 	.GoTo 80$
.70$:
	.SetS	ArgLst	"XL,'Ask',Serial line communications"
	.GoSub	CnfDev
	'PIP'XC(,X).SYS,XC.MAC'S'
.80$:
.SkipDv:
	.SetT DOMONS
	.IfF $Query .GoTo 110$
;
	.Ask [DOMONS] DOMONS Do you want to remove unused monitors (Y)?
	.IfF DOMONS .GoTo SkipSY
.110$:
	.IfT $NoQue .GoTo 140$
	.IfT $SomeQ .GoTo 140$
	.IfF Pro3XX .GoTo 130$
.130$:
	.SetS YN "Y"
	.IfF OkSB .SetS YN "N"
	.Ask [OkSB] OkSB Do you want support for RT11SB ('YN')?
.140$:	.SetT OkFB
	.IfT $NoQue .GoTo 150$
;
	.Ask [OkFB] OkFB Do you want support for RT11FB (Y)?
.150$:	.IfF $Query .GoTo 170$
	.IfT OkXM .GoTo 160$
;
; RT11XM will not run on this machine since it lacks memory management
.160$:
;
	.SetS YN "Y"
	.IfF OkXM .SetS YN "N"
	.Ask [OkXM] OkXM Do you want support for RT11XM ('YN')?
;
	.SetS YN "Y"
	.IfF OkXB .SetS YN "N"
	.Ask [OkXB] OkXB Do you want support for RT11XB ('YN')?
;
	.SetS YN "Y"
	.IfF OkZM .SetS YN "N"
	.Ask [OkZM] OkZM Do you want support for RT11ZM ('YN')?
;
	.SetS YN "Y"
	.IfF OkZB .SetS YN "N"
	.Ask [OkZB] OkZB Do you want support for RT11ZB ('YN')?
.170$:
.SkipSY:
	.SetF AI
	.IfT $NoQue .GoTo 180$
;
	.Ask [AI] AI Do you want support for automatic installation (N)?
.180$:	.SetF ErrLog
	.IfT $NoQue .GoTo 190$
;
	.Ask [ErrLog] ErrLog Do you want support for device error logging (N)?
.190$:	.SetT Sysgen
	.IfT $NoQue .GoTo 200$
;
	.Ask [Sysgen] Sysgen Do you want support for sysgenning new monitors (Y)?
.200$:	.SetL Printr LP!LS
	.SetL Spool Printr
	.IfF $Query .GoTo 210$
	.SetS YN "Y"
	.IfF Spool .SetS YN "N"
;
	.Ask [Spool] Spool Do you want support for the transparent SPOOLer ('YN')?
.210$:
	.SetL Queue	^Spool&Printr
	.IfF $Query .GoTo 220$
;
	.Ask [Queue] Queue Do you want support for the QUEUE program (N)?
.220$:	.SetL MagTap	MM!MS!MT!MU
	.IfF $Query .GoTo 230$
;
	.SetS YN "Y"
	.IfF MagTap .SetS YN "N"
	.Ask [MagTap] MagTap Do you want support for 1/2" Magtapes ('YN')?
.230$:	.SetF Batch
	.IfT $NoQue .GoTo 240$
;
	.Ask [Batch] Batch Do you want support for BATCH (N)?
.240$:	.SetL OkPro PRO3XX
	.IfF PRO3XX .GoTo 120$
	.IfF $Query .GoTo 120$
;
; Certain utilities do not run on PRO3__ hardware
;
	.SetS YN "Y"
	.IfF OkPro .SetS YN "N"
	.Ask [OKPro] OkPro Do you want to save them anyway ('YN')?
.120$:
.;
.;ask about utility groups (PATCH, ...)
.;
;
; A few more deletions (prompted by combinations of answers) may
; now be performed.  This will be followed by a Squeeze of the
; system disk.  Please be patient...
;
.IfF	AI	'PIP'(IVP,STRTAI,VERIFY).COM'S'
.IfF	AI	'PIP'IVP.MAC'S'
.IfF	AI	'PIP'TERMID.SAV,MDUP.AI'S'
.IfF	AI	'PIP'RT11(A,P)I.SYS'S'

.IfF	ErrLog	'PIP'EL.SYS,EL(,COPY,INIT,TASK).MAC'S'
.IfF	ErrLog	'PIP'ERR(OUT.OBJ,TXT.MAC,LOG.REL),(ELINIT,ERROUT).SAV'S'

.IfF	Spool	'PIP'SPOOL.REL,SP(,X).SYS,SP.MAC'S'

.IfF	Queue	'PIP'QUE(UE.REL,MAN.SAV)'S'

.IfF	Batch	'PIP'BA(TCH.SAV,.SYS,X.SYS,.MAC)'S'

.IfF	Sysgen	'PIP'(SBFB,XBXM,ZBZM).ANS'S'
.IfF	Sysgen	'PIP'SYSGEN.COM'S'
.IfF	Sysgen	'PIP'MTT(EM,IN)T.MAC'S'
.IfF	Sysgen	'PIP'(RMON,TRMTBL).MAC'S'
.IfF	Sysgen	'PIP'(USR,XM,XB,ZB,ZM,XMSUBS,FSM).MAC'S'
.IfF	Sysgen	'PIP'(BA,CR,CT,EL).MAC'S'
.IfF	Sysgen	'PIP'D(D,L,M,P,S,T).MAC'S'
.IfF	Sysgen	'PIP'D(U,W,X,Y,Z).MAC'S'
.IfF	Sysgen	'PIP'L(D,P,S).MAC'S'
.IfF	Sysgen	'PIP'N(C,I,L,Q,U).MAC'S'
.IfF	Sysgen	'PIP'(PC,PD,RF,RK,SP,VM).MAC'S'
.IfF	Sysgen	'PIP'T(J,M,S,T,U).MAC'S'
.IfF	Sysgen	'PIP'X(C,L).MAC'S'

.IfF	MagTap	'PIP'M(BOOT,BOT16,SBOOT,UBOOT).BOT'S'
.IfF	MagTap	'PIP'DISMT(1,2).COM,FSM.MAC'S'
.IfF	MagTap	'PIP'T(J,M,S,U).MAC'S'
.IfF	MagTap	'PIP'MDUP.(AI,MM,MS,MT,MU,SAV)'S'
.IfF	MagTap	'PIP'(MM,MS,MT,MU).SYS'S'
.IfF	MagTap	'PIP'(MM,MS,MT,MU)X.SYS'S'
.IfF	MagTap	'PIP'(MM,MS,MT,MU)HD.SYS'S'

.IfF	MagTap	'PIP'(TT,RT11MT).SYS'S'

.IfT	OkPro	'PIP'DATIME.(COM,MAC,SAV)'S'
.IfT	OkPro	'PIP'(CONSOL,VTMAC).MAC'S'
.IfT	OkPro	'PIP'(ODT,VTHDLR).OBJ'S'
.IfT	OkPro	'PIP'(FILEX,K52,SPEED).SAV'S'
.IfT	OkPro	'PIP'(TRANSF).SAV'S'

.IfF	DOMONS	.GoTo SkipXX

.IfF	OkFB	'PIP'RT11(FB,PI).SYS,STRTFB.COM,RTFB.MAP'S'

.IfF	OkSB	'PIP'STRTSB.COM'S'
.IfF	OkSB	'PIP'(RMON,SB,EL).MAC'S'
.IfF	OkSB	'PIP'RT(SB).MAP'S'
.IfF	OkSB	'PIP'RT11(AI,SB).SYS'S'
.IfF	OkXM	'PIP'RT11XM.SYS,RTXM.MAP,STRTXM.COM'S'
.IfF	OKXB	'PIP'RT11XB.SYS,RTXB.MAP,STRTXB.COM'S'

.SETL	XBXM	OKXB!OKXM	
.IfF	XBXM	'PIP'XBXM.ANS,XM.MAC,XB.MAC'S'

.SETL	XZ	OKXB!OKXM!OKZB!OKZM
.IFF	XZ	'PIP'XMSUBS.MAC'S'
.IfF	XZ	'PIP'(CR,CT,DD,DL,DM,DP)X.SYS'S'
.IfF	XZ	'PIP'D(S,T,U,W,X,Y)X.SYS'S'
.IfF	XZ	'PIP'(DZ,LD,LP,LS,MM,MS)X.SYS'S'
.IfF	XZ	'PIP'(MT,MU,NC,NL,NQ,NU)X.SYS'S'
.IfF	XZ	'PIP'(PC,PI,RF,RK,SL,SP)X.SYS'S'
.IfF	XZ	'PIP'(VM,XC,XL)X.SYS'S'
.IfF	XZ	'PIP'DEMOX1.MAC,V.SAV,VBGEXE.SAV,VTCOM.SAV,KEX.SAV'S'
.IfF	XZ	'PIP'GIDIS.SAV,ALPH00.FNT'S'

.IFF	OKZM	'PIP'ZM.MAC,STRTZM.COM'S'
.IFF	OKZB	'PIP'ZB.MAC,STRTZB.COM'S'

.SETL	ZBZM	OKZB!OKZM
.IFF	ZBZM	'PIP'ZBZM.ANS'S'

.SetL	SBFB	OkSB!OkFB
.IfF	SBFB	'PIP'(CR,CT,DD,DL,DM,DP).SYS'S'
.IfF	SBFB	'PIP'D(S,T,U,W,X,Y).SYS'S'
.IfF	SBFB	'PIP'(DZ,LD,LP,LS,MM,MMHD).SYS'S'
.IfF	SBFB	'PIP'M(S,SHD,T,THD,U,UHD).SYS'S'
.IfF	SBFB	'PIP'(NL,PC,PD,PI,RF,RK).SYS'S'
.IfF	SBFB	'PIP'(SL,SP,VM,XC,XL,SLMIN).SYS'S'
.IfF	SBFB	'PIP'SBFB.ANS'S'

.SetL	FBXM	OkFB!OkXM
.IfF	FBXM	'PIP'(RTMON,QUEUE,SPOOL,VTCOM).REL'S'
.IfF	FBXM	'PIP'QUEMAN.SAV'S'
.IfF	FBXM	'PIP'(FB,RMON,DEMOBG,DEMOFG).MAC,DEMOF1.FOR'S'

.SkipXX:
.IfT 	DelMM	'PIP'TJ.MAC,MMHD.SYS,MDUP.MM'S'
.IfT 	DelMS	'PIP'TS.MAC,MSHD.SYS,MDUP.MS'S'
.IfT 	DelMT	'PIP'TM.MAC,MTHD.SYS,MDUP.MT'S'
.IfT	DelMU	'PIP'TU.MAC,MUHD.SYS,MDUP.MU,MDUP.AI,MUBOOT.BOT'S'
.IfT	DelSL	'PIP'SLMIN.SYS,LET.SAV'S'

.IfF	OkPro	'PIP'GIDIS.SAV,ALPH00.FNT'S'

.SetL	TempL	DU!MU
.IfF	TempL	'PIP'UM.MAC'S'

.SetL	TempL	NC!NQ!NU
.IfF	TempL	'PIP'NI.MAC,NITEST.MAC'S'

.;DEBUG comment out next line
.IfF	$NoDCL	$Squeeze SYS:/NoQuery
.;DEBUG uncomment out next line
.;.Dump
.Exit