00FC =         	drsel	equ	0fch	;DR 0, HD 0, STEP OUT
 0020 =         	drvrdy	equ	20h	;Drive Ready bit
 000D =         	cntrl	equ	0dh	;WENBL, MCLK, FRENBL
 0005 =         	clrflt	equ	5h	;Toggle 3bit to clr wrfault
 000F =         	run	equ	0fh	;cntrl + RUN bit
 0007 =         	wrsect	equ	7h	;WRITE SECTOR COMMAND
 0003 =         	rdsect	equ	3h	;READ SECTOR COMMAND
 0002 =         	opdone	equ	2h	;OP DONE STATUS BIT
 0001 =         	tkzro	equ	1h	;Track Zero bit
 0080 =         	halt	equ	80h	;Halt bit
 0010 =         	nflt	equ	10h	;Write Fault
 0008 =         	tmout	equ	8h	;Timeout bit
 0004 =         	cmplt	equ	4h	;Complete bit
 0002 =         	xrtry	equ	2h	;Auxilliary status retry bit
 E3F9 =         	djiost	equ	0e3f9h	;DJ UART STATUS
 E3F8 =         	djdata	equ	0e3f8h	;DJ DATA
 0004 =         	djdr	equ	4h	;DJ DATA READY WHEN OFF
 0000 =         	wboot	equ	0h	;RESTART
 00AA =         	tstpat	equ	0aah	;Test pattern 10101010
 0008 =         	himem	equ	8h	;High Memory Select & Reset
                
 0100           	org	100h
                	;select drive, head & Mclock, out step direction
 0100 3EFC      setup	mvi	a,drsel
 0102 D352      	out	52h
 0104 3E0D      	mvi	a,cntrl		;enable function register
 0106 D350      	out	50h
                	;toggle write enable to clr write fault
 0108 C30001    	jmp	setup
U010B 0000      cksumr	db	acr,alf
 010D 636865636B	db	'check sum error$'
 011D           end	100h