FSEEK.MAC=FSEEK.VGN;1/AU:72
-/.ident/,.
	.ident	/000004/
-/; 000003/
; 000004 27-Nov-81 RVT	Fix for RSX block-mode access.
-/fseek::/
-/.point/,.
	BITB	#FD.RWM,F.RACC(R0)		; BLOCK MODE?
	BEQ	25$			; NO.
	MOV	R1,F.BKVB(R0)		; YES, SET UP BLOCK NUMBER
	MOV	R2,F.BKVB+2(R0)
	BR	26$
25$:	CALL	.POINT			; RECORD MODE--
26$:
/