digcnt	equ	12	;digit position count
	dispadd	equ	0ff00h	;display address start
	digs	equ	12	;digit count
	delay	equ	06f00h
	
		org	100h
start	mvi	b,digcnt	;initialize
	lxi	h,dispadd-1	;display address less one
blank	lxi	d,dispadd
	mvi	c,digs
	sub	a		;zero accumulator
bloop	stax	d		;blank the digit
	inx	d
	dcr	c
	jnz	bloop
	inx	h
	mvi	c,0
dloop	lxi	d,delay
	dcx	d
	mov	a,d
	ora	e
	jnz	dloop+3
	lxi	d,table
	mov	a,c
	add	e
	mov	e,a
	ldax	d
	mov	m,a
	inr	c
	mvi	a,11h
	cmp	c
	jnz	dloop
	dcr	b
	jnz	blank
	jmp	start

table	db	0afh
	db	6h
	db	0cbh
	db	4fh
	db	66h
	db	6dh
	db	0edh
	db	7h
	db	0efh
	db	6fh
	db	0e7h
	db	0ech
	db	0a9h
	db	0ceh
	db	0e9h
	db	0e1h