;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DEVELOPED WITH SUPPORT       *
;      *      FROM THE NATIONAL INSTITUTES OF HEALTH:        *
;      *         NIH CA06927                                 *
;      *         NIH CA22780                                 *
;      *                                                     *
;      *      DIRECT INQUIRIES TO:                           *
;      *            COMPUTER CENTER                          *
;      *            THE INSTITUTE FOR CANCER RESEARCH        *
;      *            7701 BURHOLME AVENUE                     *
;      *            PHILADELPHIA, PENNSYLVANIA   19111       *
;      *                                                     *
;      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
;      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
;      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
;      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
;      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
;      *      OWNED RIGHTS.                                  *
;      *                                                     *
;      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
;      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
;      *      THE USE OF THIS SOFTWARE                       *
;      *                                                     *
;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
;      *      PDP-11/70 OPERATING UNDER IAS V3.0 USING       *
;      *      THE IAS PDP-11 MACRO ASSEMBLER.                *
;      *                                                     *
;      *******************************************************
;
	.TITLE	GETCHA	FORTRAN FILE RECORD CHARACTERISTICS INTERFACE
;
;	AUTHOR	BILL CAEL
;
	.IDENT	/ICR001/
;
;
;CALLING SEQUENCE
;	CALL GETCHA(LUN,RECCHA,RSIZE,CARCHA,EFBK,FFBY,ERR)
;
	.MCALL	FDOF$L,FCSBT$
;
	FDOF$L				;DEFINE FDB OFFSETS
	FCSBT$				;DEFINE FDB BIT DEFINITIONS
	FFDBLN = 6*2			;LENGTH OF FORTRAN FDB HEADER
;
	.PSECT	$MACOD,RW,I,LCL,CON
GETCHA::
	MOV	@2(R5),R2		;GET LUN
	CALL	$FCHNL			;GET ASSOCIATED FFDB
	BCS	100$			;CS - ILLEGAL LUN
	ADD	#FFDBLN,R0		;OFFSET TO REAL FDB
	MOVB	F.RTYP(R0),R1		;SIGN EXTEND AND RETURN RECORD ATTR.
	MOV	R1,@4(R5)
	MOV	F.RSIZE(R0),@6(R5)	;AND RECORD SIZE.
	MOVB	F.RATT(R0),R1		;AND CARRIAGE CONTROL ATTR.
	MOV	R1,@10(R5)
	MOV	F.EFBK+2(R0),@12(R5) ;AND EOF BLOCK NUMBER
	MOV	F.FFBY(R0),@14(R5)	;AND FIRST FREE BYTE IN EOF BLOCK
	CLR	@16(R5)			;STATUS SUCCESS
	RETURN
100$:
	MOV	#-99.,@16(R5)		;ILLEGAL LUN
	RETURN
	.END