Question

单片机 P1口控制4个独立键盘 按下键盘 点亮P2口LED灯 为什么按键之后没有反应 用proteus仿真过程

ORG 0000H
AJMP MAIN
ORG 0100H
MAIN:MOV P2,#00H ;P2口清零
KEY: MOV P1,#0FFH ;先给P1口送1，如果按键，变0
MOV A, P1 ;读取P1口数据
CPL A ;取反 高电平表示有键按下
ANL A,#0FH ;相与
JZ KEY ;A为0表示没有按键 重新扫描
LCALL D10ms ;延时 等待前沿抖动结束
MOV A,P1 ;再次读取P1口数据 判断是否确实有键按下
CPL A
ANL A ,#0FH
JZ KEY ;A为0 重新扫描
MOV B,A ;确实有键按下 值送B
MOV A,P1
CPL A
ANL A,#0FH ;判别按键释放
KEY1: JNZ KEY1 ;按键没有释放 等待
LCALL D10ms ;释放 延时去后沿抖动
MOV A,B ;取键值送A
JB ACC.0,PKEY1 ;执行PKEY1
EKEY:RET
PKEY1:MOV P2,#01H ;送值给P2.0，点亮LED
RET
D10ms:MOV R7,#10H
DS1:MOV R6,#0FFH
DS2:DJNZ R6,DS2
DJNZ R7,DS1
RET
END

Answer 1

;
ORG 0000H
AJMP MAIN
ORG 0100H
MAIN:
MOV P2, #00H ;P2口清零
KEY:
MOV P1, #0FFH ;先给P1口送1，如果按键，变0
MOV A, P1 ;读取P1口数据
CPL A ;取反 高电平表示有键按下
ANL A, #0FH ;相与
JZ KEY ;A为0表示没有按键 重新扫描

CALL D10ms ;延时 等待前沿抖动结束
MOV A, P1 ;再次读取P1口数据 判断是否确实有键按下
CPL A
ANL A, #0FH
JZ KEY ;A为0 重新扫描

MOV B, A ;确实有键按下 值送B
KEY1:
MOV A, P1
CPL A
ANL A, #0FH ;判别按键释放
JNZ KEY1 ;按键没有释放 等待
CALL D10ms ;释放 延时去后沿抖动
MOV A, B ;取键值送A
JB ACC.0, PKEY1 ;执行PKEY1
EKEY:
SJMP KEY
RET

PKEY1:
MOV P2, #01H ;送值给P2.0，点亮LED
SJMP KEY

D10ms:
MOV R7, #10H
DS1:MOV R6, #0FFH
DS2:DJNZ R6, DS2
DJNZ R7, DS1
RET
END