再问有关矩阵键盘扫描的问题

jszhujun2010

再问有关矩阵键盘扫描的问题 [复制链接]

下面是我的程序及硬件电路，我想通过按最左上角的键让P1.6置低电平，让蜂鸣器响起来，我的思路是先检测是否有键按下，通过对比P0口的前后电平变化来实现，然后具体扫描时哪个键，但按键怎么都不起作用，用proteus仿真时发现按下开关，那个开关处电平就变成灰色的了，检测显示电压为2.5V，不知道为什么，求帮忙！
ORG 0000H
SJMP START
ORG 0030H
START:
MOV SP,#60H
MOV P0,#00H
CLR P2.6
CLR P2.5
SETB P2.7
CLR WR
CLR RD
MOV R0,#00H
MAIN:
CALL KEY
SJMP MAIN
KEY:  CALL KINP
ORL A,#00H
JNZ  DISPLAY
RET
DISPLAY:
CLR P1.6
RET
DELAY:
MOV R0,#25
D2:     MOV R1,#25
D1:     DJNZ R1,D1
DJNZ R0,D2
RET
KAP:  SETB WR
          CLR  P2.4
          MOV  P0,#0FFH
          CLR  WR
      MOV  P0,#00H
          SETB RD
          MOV  A,P0
          ORL  A,#00H
          CLR  RD
          RET
KINP: LCALL KAP
      JNZ   KP1
          SJMP  END_KINP
KP1:  LCALL DELAY
      LCALL KAP
          JNZ   KP2
          SJMP  END_KINP
KP2:  MOV R2,#0FEH
      MOV R4,#00H
KP4:  CLR RD
      SETB WR
      MOV P0,R2
          CLR  WR
      MOV P0,#00H
          SETB RD
          JB  P0.0,L1
          MOV A,#00H
      AJMP KP5
L1:   JB  P0.1,L2
      MOV A,#04H
          AJMP KP5
L2:   JB  P0.2,L3
      MOV A,#08H
          AJMP KP5
L3:   JB  P0.3,NEXT
      MOV A,#0CH
KP5:  ADD A,R4
      PUSH ACC
KP3:  LCALL DELAY
      LCALL KAP
          JNZ   KP3
      POP   ACC
          RET
NEXT: INC   R4
      MOV A,R2
          JNB ACC.3 ,END_KINP
          RL  A
          MOV R2,A
          AJMP KP4
END_KINP:RET
          END

[ 本帖最后由 jszhujun2010 于 2013-2-25 23:37 编辑 ]