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

	org	100h
setup	mvi	a,hddr
	out	cntrl
	mvi	a,fenbl
	out	enbl
	mvi	a,clrflt
	out	enbl
	mvi	a,fenbl
	out	enbl
start	in	status
	ani	index
	mov	b,a
lp	in	status
	ani	index
	cmp	b
	jz	lp
	lxi	h,buff
	mvi	c,m10sec
cmdlp	mvi	a,rdsec
	out	cmnd
wrwait	in	status
	ani	opdone
	jz	wrwait
	in	xstat
	mov	m,a
	inx	h
	mvi	a,himem
	out	cmnd
	in	data
	in	data
	mvi	b,4
dlp	in	data
	mov	m,a
	inx	h
	dcr	b
	jnz	dlp
	dcr	c
	jnz	cmdlp
	jmp	start

buff	ds	m10sec*5
	ds	30
stack	equ	$