machine	mc68030
	fpu	1

*******************************************************************************
	xdef	_FileLength
_FileLength:
	sub.w	#268,a7
	movem.l	rl0,-(a7)
	fmovem.x	fl0,-(a7)
* name      	 offset
* l         	 0+s0
* fib       	 4+s0
* lock      	 264+s0
* args
* name      	 272+s0
	move.l	#-1,(0+s0,a7)

startif0:			; if
	move.l	(272+s0,a7),d1
	move.l	#-2,d2
	move.l	(_DOSBase,pc),a6
	jsr	(-84,a6)	; Lock
	move.l	d0,(264+s0,a7)
	tst.l	(264+s0,a7)
	beq	end0

startif2:			; if
	move.l	(264+s0,a7),d1
	lea	(4+s0,a7),a0
	move.l	a0,d2
	move.l	(_DOSBase,pc),a6
	jsr	(-102,a6)	; Examine
	tst.l	d0
	beq	end2
	lea	(4+s0,a7),a0
	move.l	(124,a0),(0+s0,a7)
end2:				; endif

	move.l	(264+s0,a7),d1
	move.l	(_DOSBase,pc),a6
	jsr	(-90,a6)	; UnLock
end0:				; endif

FileLengthend:
	move.l	(0+s0,a7),d0
FileLengthfinish:
rl0	reg	d1/d2/a0/a6
fl0	freg	
s0	equ	16
	fmovem.x	(a7)+,fl0
	movem.l	(a7)+,rl0
	add.w	#268,a7
	rts

	xref	_DOSBase