.title	cctype
;
;	this routine implements the following interface
;
;	crg_ctrl = cctype(fdb)
;
;	where fdb is the integer RAB address returned by the getfdb call
;
;	the value returned is
;
;	none(0) if no implied carriage control for records
;	fort(1) if fortran type carriage control
;	list(2) if list carriage control
;	prn(3)  if print carriage control
;
rab=4
none=0
fort=1
list=2
prn=3
	.psect	st_pure_code	rel,con,lcl,exe,nowrt,rd,pic,shr,usr,novec,long
	.entry	cctype	^m<>
	movl	@rab(ap),r0		; get RAB address
	movl	rab$l_fab(r0),r0	; have FAB address
	movzbl	fab$b_rat(r0),r1	; have recort attribute byte
	bbs	#fab$v_cr,r1,20$	; list carriage control
	bbs	#fab$v_ftn,r1,10$	; fortran carriage control
	bbs	#fab$v_prn,r1,30$	; print carriage control
	movl	#none,r0		; NONE
	brb	40$
10$:
	movl	#fort,r0		; FORT
	brb	40$
20$:
	movl	#list,r0		; LIST
	brb	40$
30$:
	movl	#prn,r0			; PRINT
40$:
	ret
	.end