status	equ	50h
	enbl	equ	50h
	xstat	equ	51h
	cntrl	equ	52h
	data	equ	53h
	index	equ	40h
	opdone	equ	02h
	m10sec	equ	15h
	rdsec	equ	03h
	cmnd	equ	51h
	himem	equ	08h
	hddr	equ	0fch
	fenbl	equ	0fh
	clrflt	equ	07h
	wrsec	equ	07h
	pat1	equ	0aah
	pat2	equ	55h

	org	100h
setup	mvi	a,hddr
	out	cntrl
	mvi	a,fenbl
	out	enbl
	mvi	a,clrflt
	out	enbl
	mvi	a,fenbl
	out	enbl
	mvi	b,pat1
loop	mvi	a,rdsec
	out	cmnd
rdwt	in	status
	ani	opdone
	jz	rdwt
	mvi	a,himem
	out	cmnd
	mov	a,b
	cma
	mov	b,a
	out	data
	out	data
	out	data
	out	data
	mvi	a,wrsec
	out	cmnd
wrwt	in	status
	ani	opdone
	jz	wrwt
	jmp	loop