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