start:	Restore Disk
	get mini/maxi

	compute cpm last address from offset

	cursec = 1

	create selbits, etc.

dotrak:	density = 0

dodens:	1793 ReadAddress
	if no error goto read
	if density = 1 go to start
	density = 1
	goto dodens

read:	read sector length from 1793 & translate to bps

do sector:
	byte count = bps
	set up 1793 for cursec

seclup:	in	ddata
	mov	m,a
	inx	h
	dec bps
	jnz	seclup

	check for error

	hl >= last address? goto bios

	inc cursec
	if not last sector on track , goto dosector

	stepin
	goto dotrak