*
* Step to next track
*
tkstep	
	lda	sdisk		;Get the source disk and save it
	mov	b,a		;in B. Get desitination disk and see
	lda	ddisk		;if they are the same. If so, do the
	cmp	b		;samedrv routine. 
	jz	samedrv
	mvi	a,'*'		;Write an asterisk to the console 
	call	pchar		;for each track processed.
	call	takstep		;Step in to next track and back up one
	lda	trkreg		;track to compensate for next series of 
	dcr	a		;operations.
	sta	trkreg
samedrv	
	xra	a		;Default to drive A
	call	select		;and test for current drive-
	call	takstep		;Step in one track in preparation
	jmp	dloop		;for next track manipulation, and go.

takstep	
	lxi	d,cmdreg	;Point to the command register and
	mvi	a,sicmd		;perform a step-in command. 
	stax	d
Šdelay05	
	ldax	d
	rar
	jnc	delay05
delay06	
	ldax	d
	rar
	jc	delay06
	ret