.;
.;	LB:[1,2]MOUDL.SAT	- MOUNTAR OCH ASSIGNAR SOURCEDISKAR
.;
.;	.CMF P] $
.;
	.ENABLE SUBSTITUTION
	.ENABLE ESCAPE
.;
	.SETS DISCN "RADIOSYS"
	.SETS DISC "RB"
	.GOSUB MOUNT
	.SETS DISCN "VOLVO"
	.SETS DISC "VO"
	.GOSUB MOUNT
	.SETS DISCN "VOLTVA"
	.SETS DISC "VT"
	.GOSUB MOUNT
	.SETS DISCN "VOLTRE"
	.SETS DISC "VR"
	.GOSUB MOUNT
	.EXIT
.;
.NENE:
	;M]STE ANGE DEVICE
.;
.MOUNT:
	.TESTDEVICE 'DISC':
	.TEST <EXSTRI> "140310"
	'IF'.IF <STRLEN> EQ 0
		;ASSIGN F\R 'DISC': SAKNAS !
		.ASKN RBB VILKEN DL-DRIVE SITTER 'DISC': I (ESC=INGEN)
		.IFT <ESCAPE> .RETURN
		.IFT <DEFAUL> .GOTO NENE
		DEV DL'RBB':
		.IF <EXSTAT> NE 1 .GOTO NENE
		.ASK GO [R DET R[TT ATT ASSIGNA 'DISC': HIT
		.IFF GO .GOTO NENE
		ASN DL'RBB':='DISC':/GBL
		.IF <EXSTAT> NE 1 .GOTO NENE
	'ENDIF'
.;
	.TESTDEVICE 'DISC':
	.PARSE <EXSTRI> "," DEV RESTEN
	.TEST <EXSTRI> "MTD"
	'IF'.IF <STRLEN> EQ 0
		MOU 'DEV''DISCN'/PUB/VI
		.IF <EXSTAT> NE 1 .GOSUB UJUJ
	'ENDIF'
.;
	'IF'.IF DISC NE "RB"
SET /CACHE='DEV'(REGION=DLCACH,DEFER,DIRECTORY=15.,VIRTUAL=10.,READ_AHEAD=5.)
		.IF <EXSTAT> NE 1 .GOSUB UJUJ
	'ENDIF'
.;
	.RETURN
.;
.UJUJ:
	;DET [R N]GOT SOM INTE ST[MMER
	DEV DL:
	.EXIT
.;