.title	createdir Create Directory
.ident	/V1.0/

;
; Author:	Rodrick A. Eldridge
;		104 Computer Science
;		Iowa State University
;		Ames, Iowa 50011
;		(515) 294-5659
;
; Created:	July 1985
;
; Modification History:
;
;		April 1986
;		Converted to MLR
;
; Description:	This program will create a directory on the specified device,
;		set the specified prot_value of the directory and will set
;		ownership of the directory to the specified owner_uic.
;
; Format:	external module create_dir -
;			<dev_dir_spec,owner_uic,prot_value>
;
; Arguments:	dev_dir_spec:		character string
;					(passed by descriptor)
;
;			Device and directory specification.
;
;		owner_uic:		longword
;					(passed by reference)
;
;			User identification code.
;
;		prot_value:		word
;					(passed by reference)
;
;			Protection wanted.
;


global module create_dir <dev_dir_spec,owner_uic,prot_value> -
	psect=create_dir

const
	$ssdef			; system services definitions

var
	prot_enable:		.word ^xFFFF


begin

	if <cmpl #3,create_dir.narg(ap)> lss then

		movl	#ss$_insfarg,r0
		goto	exit

	end

	lib$create_dir -
		dev_dir_spec= create_dir.dev_dir_spec(ap),-
		owner_uic=    create_dir.owner_uic(ap),-
		prot_enable=  w^prot_enable,-
		prot_value=   create_dir.prot_value(ap)

exit:

	return

.end