ORG 0100H
MAIN: MOV SP,#70H
START: MOV P2,#00H
SCAN: MOV P1,#0F0H
LOOP: MOV A,P1
ANL A,#0F0H
XRL A, #0F0H
JZ LOOP
ACALL DEL15ms
MOV A,P1
ANL A,#0F0H
XRL A,#0F0H
JZ LOOP
R_SCAN: MOV P1,#11111110B
MOV A,P1
ANL A,#0F0H
CJNE A,#0F0H,ROW_0
MOV P1,#11111101B
MOV A,P1
ANL A,#0F0H
CJNE A,#0F0H,ROW_1
MOV P1,#11111011B
MOV A,P1
ANL A,#0F0H
CJNE A,#0F0H,ROW_2
MOV P1,#11110111B
MOV A,P1
ANL A,#0F0H
CJNE A,#0F0H,ROW_3
AJMP LOOP
ROW_0: MOV DPTR,#KCODE0
AJMP CFIND
ROW_1: MOV DPTR,#KCODE1
AJMP CFIND
ROW_2: MOV DPTR,#KCODE2
AJMP CFIND
ROW_3: MOV DPTR,#KCODE3
CFIND: JNB ACC.4,KEY
INC DPTR
JNB ACC.5,KEY
INC DPTR
JNB ACC.6,KEY
INC DPTR
KEY: CLR A
MOVC A,@A+DPTR
MOV P2,A
AJMP SCAN
DEL15ms: MOV R7,#30
D1: MOV R6,#250
DJNZ R7,D1
RET
KCODE0: DB 3FH,06H,5BH,4FH
KCODE1: DB 66H,6DH,7DH,07H
KCODE2: DB 7FH,6FH,77H,7CH
KCODE3: DB 39H,5EH,79H,71H
END
我這ASM用kile翻譯c51不出來求大佬救命
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/227944.html
標籤：匯編語言