MOUNT1.MAC;15/au/-bf=[13,10]MOUNT1.MAC;1
-11,11,/;DLE001/
	$VERSION	x0409
-16,49,/;DLE001/
-53,53,/;DLE001/
;	.MCALL	QIOW$,FHDOF$,HMBOF$,SMSG$S
	.MCALL	QIOW$,SMSG$S
-212,219,/;DLE001/
	mov	.HDBUF+H.FMAX,r0	; Check max number of files
	bis	.hdbuf+h.fmax+2,r0
	BEQ	50$		; Must be non-zero
	CMP	#.ods21,.HDBUF+H.VLEV ; Must be structure level two
	BEQ	30$		; If EQ yes
	CMP	#.ods22,.HDBUF+H.VLEV ; Or the hack version
	BNE	50$		; If NE no
30$:	tst	.HDBUF+H.SBCL	; Must have a cluster factor
	beq	50$		; If NE no
-267,269,/;DLE001/
10$:	MOVB	(R0)+,-(SP)	; Copy character from user label
	bne	15$
	movb	#40,(sp)	; Make null a space
15$:
	CALL	UPCASE		; Upcase any lowercase letters
	MOVB	(R2)+,-(SP)	; Copy character from home block
-273,273,/;DLE001/
	SOB	R1,10$
-277,279,/;DLE001/
30$:
	BEQ	60$		; Equal - skip end check
40$:
	cmpb	#40,(r2)	; Check next byte in home block (ods2 is space)
	beq	60$		; Error, should be a space
-327,331,/;DLE001/
	MOV	.hdbuf+h.vlev,(r0) ; Volume is ods something
	bic	#177400,(r0)+	; Clear the ods level and keep the version
	.IFF	; NDF R$$AMD

	MOVB	.hdbuf+h.vlev,(R0)+	; Move the version level
-354,362,/;DLE001/
	MOVB	.HDBUF+H.IBLB+2,(R0)+ ; Starting LBN of index file bitmap
	ASSUME	V.IBSZ,V.IBLB+1
	MOVB	.HDBUF+H.IBSZ,(R0)+ ; Number of blocks in index file bitmap
	MOV	.HDBUF+H.IBLB,(R0)+ ; LBN of index file bit map, low
	ASSUME	v.ibvb,v.iblb+4
	mov	.hdbuf+h.ibvb,(r0)+	; set index bit map virtial bl #
	assume	v.fmax,v.ibvb+2
	MOV	.HDBUF+H.FMAX,(R0)+ ; Maximum number of files on vol
	mov	.hdbuf+h.fmax+2,(r0)+ ; ...high word
	ASSUME	V.WISZ,V.FMAX+4
	MOVB	$WIN,(R0)	; Put in VCB, valid value?
	BNE	100$		; If NE yes
-370,370,/;DLE001/
100$:
;	Do we need to use all that pool?
	cmpb	(r0),#10.	; Test for big window count
	ble	105$
	movb	#10.,(r0)	; set to smaller size
105$:
	MOVB	$EXT,V.FIEX(R4)	; User specified default extend?
-403,406,/;DLE001/
	tstb	.hdbuf+h.vopr+1	; Is the uic hugmungous?
	bne	160$		; Make this a system disk
	MOV	.HDBUF+H.VOPR,V.VOWN(R4) ; Default volume owner UIC
	BEQ	170$		; Volume is unowned
	movb	.hdbuf+h.vogr,v.vown+1(r4)
160$:
	MOV	.HDBUF+H.VPRO,V.VPRO(R4) ; Set volume protection
170$:
	BIT	#AF$VPR,$FLAGS	; Explicit volume protection specified?
/