.title	getlen - get file length info from F77
	.ident /v1.0/
;+
;	Don Rubin	October 1982
;
;	subroutine getlen(lun,len)
;
;	call syntax:
;
;	where:	lun=	channel to check on (file must be open)
;		len=	length of file in blocks EOF
;-
	d.ffd	=14	;size of fortran FDB prefix

getlen::
	mov	@2(r5),r2	;get lun
	clr	@4(r5)		;assume error
	call	$fchnl		;get address of fortran's FDB
	bcs	100$		;error if CS

	add	#d.ffd,r0	;point to real FDB

	mov	4(r5),r3	;get address of file size argument
	mov	f.hibk+2(r0),(r3)	;get file size high order word
	mov	f.hibk(r0),2(r3)	;get file size low order word

100$:	return
	.end