.title getlun
	.enable lc
	.ident	/wrg/
; getlun(unit#,iarray,dsw)
;
; written 23-Jul-80 by Wayne R. Graves
	.mcall glun$s
 unit=2
 iarray=4
 dsw=6
getlun::
	mov	r1,-(sp)	; save r1
	mov	r2,-(sp)	; save r2
	mov	unit(sp),r1	; stuff unit #
	mov	iarray(sp),r2	; get address of array for return data
	clr	@dsw(sp)	; init return status
	glun$s	r1,r2		; get lun information
	bcc	10$		; if no error branch
	mov	@#$dsw,@dsw(sp)	; save error for return
10$:	mov	@dsw(sp),r0	; set r0 for return
	mov	(sp)+,r2	; restore r2
	mov	(sp)+,r1	; restore r1
	return			; return to caller
	.end