title	Module ALTFTELL
	name	('AFTELL')
	maclib	baselib.lib

; Return current record and extent

; 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

; EXIT	Reg H holds extent and reg L holds current record

	entry	aftell

aftell:
	push	ix
	push	de
	pop	ix		; Copy FCB
	ld	h,(ix+_EX)	; Get extent
	ld	l,(ix+_CR)	; Get current record
	pop	ix
	dec	l		; Get previous record
	ret	p		; Ok
	ld	l,080h		; Set max record
	dec	h		; Fix extent
	ret

	end