;FREESP - return free space on current disk
;
; updated: 09/18/84 (fixed bug that kept it from working with
;		     anything but 2k allocation block size)
;
; entry:  none
; return: hl= k free
;
cr	equ	0dh
lf	equ	0ah
;
galv	equ	27
gdpb	equ	31
;
	extrn	bdos,print,phldc
	public	freesp
;
freesp:	mvi	c,25
	call	bdos
	mvi	c,19
	mov	e,a
	call	50h
	ani	0fh
	xchg
done:	dcr	a
	dcr	a		;1=1k, 2=2k, 3=4k, 4=8k, 5=16k
dlp:	dcr	a
	jz	dxit
	dad	h
	jmp	dlp
;
dxit:	call	print
	db	cr,lf
	db	'Free upload space :',0
	call	phldc
	call	print
	db	'k',cr,lf,0
	ret
	end