.;
.;  STARTUP-FIL F\R UPPSALABUSS PDP-11/84 "LABAN" RSX11M+ V 4.0
.;
.;	HISTORIK
.;	DATUM	VEM				ORSAK
.;	880819	B-E TAPPER			"URUPPF\RANDE"
.;
;	OBS ! OM TK: [R REORGANISERAD M]STE @LB:[1,2]DYNINS K\RAS !
;	ELLER: S[TT SYMBOLEN $DYNS NEDAN TRUE eller LB:[1,2]DODYNINS.DAT finnes
;
.;	TERMINALER OCH DECNET VMR:ade, VNP SET SYS GJORT, STARTUP STARTAR
.;
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
.;
	.SETF $PROUT			!KAN [NDRAS F\R FELS\KNING
.;---	.SETT $PROUT			!KAN [NDRAS F\R FELS\KNING
	.IFF $PROUT .ENABLE QUIET
.;
.;
	SET /NOLOGON		!TILL]T INTE INLOGGNING INNAN SL: OCH AL:
.;
	SET /NONAMED
	CHU 1 2
	.DISABLE QUIET	!F\R DIVERSE FELUTSKRIFTER
.;
	.TESTDEVICE TI:
	.PARSE <EXSTRI> "," VAR1 VAR2
	'IF'.IF VAR1 NE "TT0:"
		; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
		SET /LOGON	!TILL]T INTE INLOGGNING INNAN SL: OCH AL:
		.STOP		!AVBRYT
	'ENDIF'
.;
	.IFF $PROUT .ENABLE QUIET
.;
.;	H[R S[TTS DEFAULTS !!
.;
	.SETT LOGIN	!TILL]T INLOGGNING
	.SETT $VFS	!STARTA VFS
	.SETT $TAX	!STARTA TAX
	.SETT $TERON	!STARTA TAX-TERMINALERNA (LIU /TE:n:ON)
	.SETT $PUB	!STARTA PDISP BATCHAR
	.SETF $BACKU	!DET [R INTE BACKUP
.;
	.TESTFILE LB:[1,2]DODYNINS.DAT
	.DISABLE QUIET
	;
	'IF'.IF <FILERR> EQ 1
		.SETT $DYNS	!G\R DYNINS
		;DYNINS KOMMER ATT G\RAS PGA ATT LB:[1,2]DODYNINS.DAT FINNES !
	'ELSE'
		.SETF $DYNS	!G\R INTE DYNINS
		;DYNINS KOMMER INTE ATT G\RAS TY LB:[1,2]DODYNINS.DAT SAKNAS !
	'ENDIF'
	;
	.IFF $PROUT .ENABLE QUIET
	.SETF $ALLO	!ALLOKERA LOGDISK
	.SETT $MIMER	!STARTA MIMER
.;
	.SETS $BOO "11MP4.0"		!ANV[NDS AV ANROPADE KOMMANDOFILER
.;
.;
;
;	GLOBAL ASSIGNMENTS (ANDRA [N F\R TAX/VFS/PDISP)
;
	ASN DU:=RA:/GBL         !F\R RADIOTASK M.M.
;
;		NOTE: VO: F\R VOLVO-DISKEN
;		      VT: F\R VOLTVA-DISKEN
;		      VR: F\R VOLTRE-DISKEN
;		      RB: F\R RADIOSYS-DISKEN eller f|r DU0: om ej mountad
;
	ASN DU:=RB:/GBL
;
	ASN DU:=WI:/GBL		!THE COMMON WINCHESTER IS DU0:
	ASN DU0:=WN:/GBL	!THE SECOND WINCHESTER IS DU0:
;----	ASN DU1:=WN:/GBL	!THE SECOND WINCHESTER IS DU1:
;----	MOU DU1:/OVR/VI/PUB
.;
.;*********************** KONFIGURATION ****************************
.;
	.DISABLE QUIET
	.IFF LOGIN ;OBS ! Inloggning kommer inte att till}tas.
	.IFF $VFS  ;OBS ! VFS startas inte
	.IFF $TAX  ;OBS ! TAX startas inte
	.IFF $MIMER ;OBS ! MIMER startas inte
.;
	.IFF $PROUT .ENABLE QUIET
;
;
;
;	INSTALLERA ALLA PRAKTISKA UTILITIES, VIDTAG VISSA SYSTEM-]TG[RDER
;
.;
;-----	INS LB:[1,54]ILCLI/CLI=YES/TASK=...ILC
;-----	CLI /INIT=ILCLI/MESSAGE/DPR="<15><12>/>>/"/TASK=...ILC
	SET /LOGON
	INS $EDTFSL/CKP=YES/PRI=60./TASK=...ED2	!F\R RADIOSYSTEMET
	INS $SORT/CKP=YES/PRI=60./TASK=...SRT	!F\R RADIOSYSTEMET OCH PDISP
.;
	ASN DU:=SL:/GBL
	ASN DU:=AL:/GBL
	@LB:[1,2]VMLOAD
	@LB:[DECMAIL11]MAILINS
,;
	@LB:[1,2]UTLINS				!INSTALL UTILITIES FROM SL:
.;
	INS $KER/TASK=...REK
.;
	DCL STOP/ACCOUNTING SCHEDULED_SHUTDOWN
.;
.;---	INS FV6/INC=62000/CKP=YES/PRI=12/TASK=...FV6
.;
	INS [2,101]NA0190
	RUN NA0190/RSI=10M
;
;	VARNA F\R BOOT !
;
	BRO ALL: SYSTEMET STARTASOM -- det tar cirka 3 minuter - ta rast !
;
;	INSTALLERA RADIOTASKEN
;
.;
	.SETT RADIO
	.TESTFILE RA:[200,121]RADIO.TSK
	'IF'.IF <FILERR> NE 1
		.DISABLE QUIET
		; ***** ERROR ***** RADIOPROGRAMMEN KAN INTE INSTALLERAS.
		.SETF RADIO
		.IFF $PROUT .ENABLE QUIET
	'ENDIF'
.;
;	DRA I G]NG TAX/VFS/PDISP
;
;
	'IF'.IFT $VFS
		.TESTFILE LB:[1,2]PUBSTART.CMF
		'IF'.IF <FILERR> NE 1
			.DISABLE QUIET
			;**** ERROR **** VOLVO KAN INTE STARTAS
			.IFF $PROUT .ENABLE QUIET
		'ELSE'
			@LB:[1,2]PUBSTART
			@LB:[1,2]EXTRAENT
			.IF <EXSTAT> NE 1 .PAUSE
			'IF'.IFACT UTKUPD
				.DISABLE QUIET
				;STARTSYS V[NTAR P] UTK\RNINGSBEVAKNING
				.IFF $PROUT .ENABLE QUIET
				.WAIT UTKUPD
			'ENDIF'
		'ENDIF'
	'ENDIF'
;
;	DRA I G]NG MIMER - OBS ! F]R EJ STARTAS F\RE TAX PGA MIMERFIX
;
	.IFT $MIMER @LB:[1,300]DBSTART
;
	SET /NOLOGON
	.IFF LOGIN .EXIT
	SET /LOGON
	BRO ALL:SYSTEMET [R BOOTAT, LOGON [R TILL]TEN
	REM BRO
	.DISABLE QUIET
;************************************************************************
;*									*
;*	SYSTEM LABAN [R UPPE EFTER BOOT '<DATE>' '<TIME>'		*
;*									*
;************************************************************************
	.ENABLE QUIET
	.XQT LRM 000
;
;	<EOF> LB0:[1,2]STARTSYS.SAT
;