.title	getdev
	.ident	/v1.0/

	$dibdef
	$jpidef

;
;	allocate storage for device information block
;

dibdes:	.long	dib$k_length
	.address dib
dib:	.blkb	dib$k_length

;
;	allocate storage for job/process information
;

jpides:	.word	12
	.word	jpi$_username
ubuf:	.long	0
ulen:	.long	0
	.long	0			;end of list

;
;	arguements
;
devnam	= 4
pid	= 8
procnam	= 12
proclen	= 16

;
;	subroutine: to return the PID and username of device owner
;

	.entry	getdev,^m<>
	$getdev_s	devnam=@devnam(ap),-
			prilen=dibdes,-
			pribuf=dibdes
	blbc	r0,error
	movl	dib+dib$l_pid,@pid(ap)
	movl	proclen(ap),ulen
	movl	procnam(ap),ubuf
	$getjpi_s	pidadr=dib+dib$l_pid,-
			itmlst=jpides
error:	ret

	.end