;
; reset current record, extent, file de^
; f
.freset::
	push	h
	lxi	h,12
	dad	d
	mvi	m,0;		reset extent
	lxi	h,32
	dad	d
	mvi	m,0;		and record pointer
	pop	h
	ret