.title	cctype
	.mcall	FDOF$L
	FDOF$L
nonctl=0
ftnctl=1
lisctl=2
cctype::
	mov	@2(r5),r0
	bitb	#ftnctl,f.ratt(r0)
	beq	notftn
	mov	#ftnctl,r0
	br	getout
notftn:
	bitb	#lisctl,f.ratt(r0)
	beq	notlis
	mov	#lisctl,r0
	br	getout
notlis:
	mov	#nonctl,r0
getout:
	return
	.end