Someone

0800:

START:	CALL KIND

	MOV D,A

	CPI 00H

	JNZ LED2

	MVI A,01H

	CMA

	STA 3000H

	JMP START

LED2:	MOV A,D

	CPI 01H

	JNZ LED3

	MVI A,02H

	CMA

	STA 3000H

	JMP START

LED3:	MOV A,D

	CPI 02H

	JNZ LED4

	MVI A,04H

	CMA

	STA 3000H

	JMP START

LED4: 	MOV A,D

	CPI 03H

	JNZ LED5

	MVI A,08H

	CMA

	STA 3000H

	JMP START

LED5: 	MOV A,D

	CPI 04H

	JNZ LED6

	MVI A,10H

	CMA

	STA 3000H

	JMP START

LED6: 	MOV A,D

	CPI 05H

	JNZ LED7

	MVI A,20H

	CMA

	STA 3000H

LED7: 	MOV A,D

	CPI 06H

	JNZ LED8

	MVI A,40H

	CMA

	STA 3000H

LED8: 	MOV A,D

	CPI 07H

	JNZ START

	MVI A,80H

	CMA

	STA 3000H

	JMP START

	

RET

END

---------------------------


0800:

START:	LXI H,0B00H

	MVI A,FFH

	STA 3800H

	CALL KIND

	MOV M,A

	MVI A,01H

	CMA

	STA 3000H

	MOV A,M

	CPI 01H

	JZ START

	LXI B,01F4H

	CALL DELB

LED2:	MVI A,02H

	CMA

	STA 3000H

	MOV A,M

	CPI 02H

	JZ START

	CALL DELB

LED3:	MVI A,04H

	CMA

	STA 3000H

	MOV A,M

	CPI 03H

	JZ START

	CALL DELB

LED4: 	MVI A,08H

	CMA

	STA 3000H

	MOV A,M

	CPI 04H

	JZ START

	CALL DELB

LED5:  MVI A,10H

	CMA

	STA 3000H

	MOV A,M

	CPI 05H

	JZ START

	CALL DELB

LED6: 	MVI A,20H

	CMA

	STA 3000H

	MOV A,M

	CPI 06H

	JZ START

	CALL DELB

LED7: 	MVI A,40H

	CMA

	STA 3000H

	MOV A,M

	CPI 07H

	JZ START

	CALL DELB

LED8:  MVI A,80H

	CMA

	STA 3000H

	MOV A,M

	JMP START	

END