ORG 0000H
	LJMP MAIN
	ORG 0030H


MAIN:

	MOV R0,#7FH
ININ:	MOV @R0,A
	DEC R0
	CJNE R0,#00H,ININ	;清零	

KEYI:   ACALL  KSI
	JNZ  LK1
NI:     ACALL  DELAY
	AJMP  KEYI
LK1:    ACALL  DELAY
	ACALL  DELAY
	ACALL  KSI
	JNZ   LK2
	ACALL  DELAY
	AJMP  KEYI
LK2:    JNB   ACC.7,H1
	MOV   A,#00H
H1:     JNB   ACC.6,H2
	MOV   A,#04H
H2:     JNB   ACC.5,H3
	MOV   A,#08H
H3:     JNB   ACC.4,LK2
	MOV   A,#0CH
LIE:    MOV   A,R2
L0:     JNB   ACC.3,L1
	MOV   B,#01H
L1:     JNB   ACC.2,L2
	MOV   B,#02H
L2:     JNB   ACC.1,L3
	MOV   B,#03H
L3:     JNB   ACC.0,KEYI
	MOV   B,#04H
JIANMA: ADD   A,B
	PUSH  A
LK3:    ACALL DELAY
	ACALL KSI
	JNZ   LK3
	POP   A
	MOV   R0,A
	ACALL  DISPALL
	JMP   $



KSI:	MOV   P1,#0FH
	NOP
	NOP
	MOV   A,P1
	ANL   A,#0FH
	MOV   R1,A
	MOV   P1,#0F0H
	NOP
	NOP
	MOV   A,P1
	ANL   A,#0F0H
	ADD   A,R1
	CPL   A
	MOV   R2,A
        RET
DISPALL:MOV   R3,#7FH
	MOV   A,R3
DIS:    MOV   DPTR,#2000H
	MOVX  @DPTR,A
	INC   DPTR
	MOV   A,@R0
	ADD   A,#08H
	MOVC  A,@A+PC
DIR:    MOVX  @DPTR,A
	LCALL  DELAY
	RL   A
	MOV   R3,A
	RET
DSE:	DB 0FAH,060H,0DCH,0F4H,066H,0B6H
	DB 0BEH,0E0H,0FEH,0F6H,0EEH,03EH
	DB 09AH,07CH,0DEH,08EH


DELAY:	MOV R7,#OCH
DEL1:	MOV R6,#0FFH
DEL2:	DJNZ R6,DEL2
	DJNZ R7,DEL1	
	RET	
		
	
	END