	.title getfatt
	.enable lc
	.ident	/wrg/
; get file record attribute
; Written by Wayne R. Graves 27-Jul-80
;
	.globl v$ratt
iopt=2
getfatt::
	mov	iopt(sp),r0	; get i/o pointer into r0
	movb	v$ratt(r0),r0	; get file type into r0
	return			; return to caller
	.end
