.title	gettyp
;+
;	integer function gettyp(int, type)
;-
ap=%5
int=2
type=4
ascii=12.
binary=60.
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
gettyp::
	mov	@int(ap),r0		; rat4 unit number
	call	r$gfbk			; get RFDB address in r1
	mov	#err,r0			; assume error
	bcs	100$			; c set => invalid unit
	bit	#rf.clo,(r1)		; file open?
	bne	100$			; NO
	mov	#ascii,r0		; assume character file
	bit	#rf.chr,(r1)		; character file?
	bne	100$			; YES
	mov	#binary,r0		; binary file
100$:
	mov	r0,@type(ap)		; return in variable also
	return
	.end