MVI B,00H
	MVI A,10H
	STA 0B01H
	STA 0B02H
	STA 0B03H
	STA 0B04H
	STA 0B05H	
START:	MVI A,FFH
	STA 3000H
	LDA 2000H
	MOV B,A
	RLC
	JC ON1
	RLC
	JC ON2
	RLC
	JC ON3
	RLC
	JC ON4
	RLC
	JC ON5
	RLC
	JC ON6
	RLC
	JC ON7
	RLC
	JC ON8
	JMP NEXT
ON1:	MVI A,80H
	CMA
	STA 3000H
	CMA
	JMP NEXT
ON2:	MVI A,40H
	CMA
	STA 3000H
	CMA
	JMP NEXT
ON3:	MVI A,20H
	CMA
	STA 3000H
	CMA
	JMP NEXT
ON4:	MVI A,10H
	CMA
	STA 3000H
	CMA
	JMP NEXT
ON5:	MVI A,08H
	CMA
	STA 3000H
	CMA
	JMP NEXT
ON6:	MVI A,04H
	CMA
	STA 3000H
	CMA
	JMP NEXT
ON7:	MVI A,02H
	CMA
	STA 3000H
	CMA
	JMP NEXT
ON8:	MVI A,01H
	CMA
	STA 3000H
	CMA
	JMP NEXT
NEXT: 	MOV D,A
	CALL KIND
	MOV E,A
	MOV A,D
LOOP1:	DCR E
	JZ START
	RRC
	JC SHOW2
	JMP SHOW1
SHOW2: MVI A,F0H
	CMA
	STA 3000H
	CMA
	JMP LOOP1
SHOW1:	CMA
	STA 3000H
	CMA
	JMP LOOP1
JMP START
END