lordmorgul

BUFD		EQU		0FF38H
BUFW		EQU		0FF30H

		LJMP		START
		ORG		100H
START:
		MOV		DPTR,#BUFW
		MOV		A,#00000001B
        	MOVX		@DPTR,A
		CLR		P1.6
LOOP1:
		MOV		R3,#6
		MOV		R1,#20H

LOOP2:
		JNB		P3.5,LOOP2

		MOV		DPTR,#BUFD
		ACALL		DECODE
		MOVX		@DPTR,A
		MOV		A,#2
	
		LCALL		DELAY_100MS
STOP: 
		LJMP		STOP

DECODE:
		MOV		A,R3
		ANL		A,#0FH
		INC		A
		MOVC		A,@A+PC
		RET

TABLE:
		
		DB		03FH ;0 na segmentowym (HEX, z 00111111B)
		DB		006H ;1
		DB		05BH ;2
		DB		04FH ;3
		DB		066H ;4
		DB		06DH ;5
		DB		07DH ;6
		DB		007H ;7
		DB		07FH ;8
		DB		06FH ;9