title	Module ALTFSEEK
	name	('AFSEEK')
	maclib	baselib.lib

; Position file for sequential read

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 July 1994

; ENTRY	Reg pair DE points to OPENED FCB
;	Reg H holds extent and reg L holds current record
;	Record defined by parameters will be read

; EXIT	Carry set on read error

	entry	afseek

	extrn	open,dskred

afseek:
	push	ix
	push	de
	pop	ix		; Copy FCB
	ld	(ix+_EX),h	; Set extent
	ld	(ix+_CR),l	; Set current record
	pop	ix
	call	open		; Open file
	call	nc,dskred	; .. ok, so read record
	ret

	end