8051-button

COUNT EQU 20000
SW EQU P2.0
SEG7 EQU P0
;================================
ORG 0H
SETTING:
	MOV TMOD,#00010001B
	MOV DPTR,#NUM_TABLE
	MOV R0,#0
	MOV A,R0
	MOVC A,@A+DPTR
	MOV SEG7,A
;================================
LOOP:
	SETB SW
KEYCHK:
	JB SW,KEYCHK
	CALL DEBOUNCE
	JB SW,KEYCHK
	INC R0
	CJNE R0,#10,ABC
	MOV R0,#0
ABC:
	MOV A,R0
	MOVC A,@A+DPTR
	MOV SEG7,A
KEYCHK2:
	JNB SW,KEYCHK2
	CALL DEBOUNCE
	JNB SW,KEYCHK2
	JMP LOOP
NUM_TABLE:
	DB 11111100B;0
    DB 01100000B;1
    DB 11011010B;2
    DB 11110010B;3
    DB 01100110B;4
    DB 10110110B;5
    DB 00111110B;6
    DB 11100000B;7
    DB 11111110B;8
    DB 11100110B;9
;===================================
DEBOUNCE:
	MOV TH0,#(65536-COUNT)/256
	MOV TL0,#(65536-COUNT) MOD 256
	SETB TR0
WAIT:
	JNB TF0,WAIT
	CLR TF0
	RET
;==================================
END