title	Module from library BASE_5 : FCBFRE
	name	('FCBFRE')
	maclib	baselib.lib

; Compute disk size in kBytes

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

;		Version 1.0 February 1988

; ENTRY	Reg pair DE points to FCB holding drive

; EXIT	Reg pair HL holds 16 bit value of disk free kBytes

;	On normal return carry is reset
;	On error carry will be set and extended error
;	will be processed

	entry	fcbfre

	extrn	drvfre,curdrv

fcbfre:
	ld	a,(de)		; Get drive
	dec	a		; Fix it
	call	m,curdrv	; Default, so get real
	jp	drvfre		; Get free space

	end