ORG 0000H
AJMP MAIN
ORG 0100H
MAIN: MOV P2,#00H
KEY0: MOV P3,#0FEH
JNB P3.4,K1
JNB P3.5,K2
JNB P3.6,K3
MOV P3,#0FDH
JNB P3.4,K4
JNB P3.5,K5
JNB P3.6,K6
MOV P3,#0FBH
JNB P3.4,K7
JNB P3.5,K8
JNB P3.6,K9
AJMP KEY0
K1: MOV P0,#0F9H
ACALL YSH1S
AJMP KEY0
RET
K2: MOV P0,#0A4H
ACALL YSH1S
AJMP KEY0
RET
K3: MOV P0,#0B0H
ACALL YSH1S
AJMP KEY0
RET
K4: MOV P0,#099H
ACALL YSH1S
AJMP KEY0
RET
K5: MOV P0,#092H
ACALL YSH1S
AJMP KEY0
RET
K6: MOV P0,#082H
ACALL YSH1S
AJMP KEY0
RET
K7: MOV P0,#0F8H
ACALL YSH1S
AJMP KEY0
RET
K8: MOV P0,#080H
ACALL YSH1S
AJMP KEY0
RET
K9: MOV P0,#090H
ACALL YSH1S
AJMP KEY0
RET
YSH1S: MOV R3,#10
LOOP: MOV R4,#200
LOOP1: MOV R5,#230
DJNZ R5,$
DJNZ R4,LOOP1
DJNZ R3,LOOP
RET
END
|