.title	gtmode
;+
;	integer function gtmode(int)
;-
ap=%5
int=2
cooked=0
raw=1
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
gtmode::
	mov	@int(ap),r0		; rat4 unit number
	call	r$gfbk			; get RFDB address
	mov	#err,r0			; assume ERROR
	bcs	100$			; c set => invalid rat4 unit
	bit	#rf.clo,(r1)		; file open?
	bne	100$			; NO, ERROR
	mov	#cooked,r0		; assume COOKED
	bit	#rf.raw,(r1)		; is it RAW?
	beq	100$			; NO
	mov	#raw,r0			; return(RAW)
100$:
	return
	.end