谁能帮我看看这个程序有没有错啊 - 编程论坛

只有本站会员才能查看附件，请登录

小弟前两天焊了一个板子，stc89c51的芯片，想做一个电子密码锁，但是最后程序出来后只能显示输入密码等，等到按键按下输入密码却总是没有效果出来啊。就是不能输入密码和修改密码。怎么办啊，求高手给看看哎

程序代码：

RS  BIT     P2.2
RW  BIT     P2.1
E  BIT     P2.0
ORG     0000H
AJMP    START
ORG     0050H
START:
MOV   P0,#01H
ACALL ENABLE
MOV   P0,#38H
ACALL ENABLE
MOV   P0,#0FH
ACALL ENABLE
MOV   P0,#06H
MOV   50H,#1
MOV   51H,#2
MOV   52H,#0
MOV   53H,#4
MOV   54H,#5
MAIN:

LCALL   ENABLE
LCALL   KSXSHI
AA:
LCALL   KEY
CJNE    A,#10,llo
LP:
ACALL   ANAHX
AJMP    MAIN
llo:CJNE   A,#11,AA
ACALL ANBHX
ENABLE:CLR RS
CLR RW
CLR E
LCALL DELAY
SETB E
RET

;。。。。。。。。。。。。。键盘编码。。。。。。。。。。。。。。。。。。

KEY: MOV P1,#0F0H
KEY0:MOV A,P1
CPL A
ANL A,#0F0H
MOV R1,A
JZ KEY
KEY1:MOV P1,#0FH
MOV A,P1
CPL A
ANL A,#0FH
MOV R2,A
JZ KEY
TT:JBC F0,WAIT
SETB F0
LCALL DELAY
SJMP TT
GRET:RET
;........................确定按键值。。。。。。。。。。。。。。
WAIT:MOV A,P1
CPL A
ANL A,#0FH
JNZ WAIT
KEY2:MOV A,R1
MOV R1,#03H
MOV R3,#03H
CLR C
KEY3:RLC A
JC KEY4
DEC R1
DJNZ R3,KEY3
KEY4:MOV A,R2
MOV R2,#00H
MOV R3,#03H
CLR C
KEY5:RRC A
JC KEY6
INC R2
DJNZ R3,KEY5
KEY6:
MOV A,R2
CLR C
RLC A
RLC A
ADD A,R1
RET
;.....................。。显示效果................................
KSXSHI:  MOV P0,#80H
        ACALL ENABLE
        MOV DPTR,#TABLE3
        LCALL WRITE1
        MOV P0,#0C0H
        LCALL ENABLE
        MOV DPTR,#TABLE2
        LCALL WRITE1
        RET
;*******************************按A后的操作部分******************
ANAHX:MOV P0,#80H
ACALL ENABLE
MOV DPTR,#TABLE4
LCALL WRITE1
MOV P0,#0C0H
LCALL ENABLE
MOV DPTR,#TABLE5
LCALL WRITE1
LCALL XG_PASS
RET
;********************************按B后的操作部分 ***************
ANBHX:MOV P0,#80H
ACALL ENABLE
MOV DPTR,#TABLE6
LCALL WRITE1
MOV P0,#0C0H
LCALL ENABLE
MOV DPTR,#TABLE5
LCALL WRITE1
LCALL IP_PASS
RET
;******************************输入5位密码值**********************
IP_PASS:MOV B,#5
MOV R0,#40H
T:CLR P2.3
  ACALL KEY
  SETB P2.3
  MOV  @R0,A
  INC R0
  DJNZ B,T
  ACALL KEY
  CJNE A,#12H,PT
  MOV  A,40H
  CJNE A,50H,KK
  MOV  A,41H
  CJNE A,51H,KK
  MOV  A,42H
  CJNE A,52H,KK
  MOV  A,43H
  CJNE A,53H,KK
  MOV  A,44H
  CJNE A,54H,KK
  CLR  P2.4
  MOV B,#100
  PR:LCALL DELAY
  DJNZ B,PR
  SETB P2.4
  PT:RET
  ;************************************输入密码时并显示***************************
  KK: MOV P0,#80H
      ACALL ENABLE
      MOV DPTR,#TABLE10
      LCALL WRITE1
      MOV P0,#0C0H
      LCALL ENABLE
      MOV DPTR,#TABLE5
      LCALL WRITE1
      MOV B  ,#50
      CLR P2.5
  PK: LCALL DELAY
      DJNZ B,PK
      SETB P2.5
      RET
;************************************修改密码操作部分******************************
XG_PASS:
      MOV P0,#80H
      ACALL ENABLE
      MOV DPTR,#TABLE9
      LCALL WRITE1
      MOV P0,#0C0H
      LCALL ENABLE
      MOV DPTR,#TABLE8
      LCALL WRITE1
      MOV B  ,#5
      MOV R0,#30H
YT: CLR P2.6
     ACALL KEY
     SETB P2.6
     MOV  @R0,A
     INC R0
     DJNZ B,YT
     ACALL KEY
     CJNE A,#12H,XT
     MOV  A,30H
     CJNE A,50H,TK
     MOV  A,31H
     CJNE A,51H,TK
     MOV  A,32H
     CJNE A,52H,TK
     MOV  A,33H
     CJNE A,53H,TK
     MOV  A,34H
     CJNE A,54H,TK
     MOV P0,#80H
     ACALL ENABLE
     MOV DPTR,#TABLE9
     LCALL WRITE1
     MOV P0,#0C0H
     LCALL ENABLE
     MOV DPTR,#TABLE7
     LCALL WRITE1
     MOV B,#5
     MOV R0,#50H
XT1:CLR P2.7
     ACALL KEY
     SETB P2.7
     MOV @R0,A
     INC R0
     DJNZ B,XT1
     ACALL KEY
     CJNE A,#12,XT
     MOV P0,#80H
     ACALL ENABLE
     MOV DPTR,#TABLE1
     LCALL WRITE1
     MOV P0,#0C0H
     ACALL ENABLE
     MOV DPTR,#TABLE0
     LCALL WRITE1
XT: RET
TK: CLR P2.5
     MOV B,#50
GK:LCALL DELAY
     DJNZ B,GK
     SETB P2.5
     RET
     ;*************************************写数据**************************************************
WRITE1:MOV R1,#00H
A1:  MOV A,R1
     MOVC A,@A+DPTR
     LCALL WRITE2
     INC R1
     CJNE A,#00H,A1
     RET
WRITE2:MOV P0,A
        SETB RS
        CLR RW
        CLR E
        LCALL     DELAY
    SETB     E
    RET
DELAY:    MOV     R7,#255
D1:    MOV     R6,#255
D2:    DJNZ    R6,D2
    DJNZ    R7,D1
    RET
TABLE10:DB    20H,50H,41H,53H,53H,57H,4FH,52H,44H,20H,45H,52H,52H,4FH
        DB    52H,21H,00H
                        ;PASSWORD ERROR!
TABLE9:    DB    20H,49H,4EH,50H,55H,54H,20H,20H,20H,20H,54H,48H,45H,20H
        DB    20H,20H,00H
                        ;INPUT THE
TABLE8:    DB    20H,4FH,4CH,44H,20H,20H,70H,41H,53H,53H,57H,4FH,52H,44H
        DB    20H,20H,00H
                        ;OLD PASSWORD
TABLE7:    DB    20H,4EH,45H,57H,20H,20H,50H,41H,53H,53H,57H,4FH,52H,44H
        DB    20H,20H,00H
                        ;NEW PASSWORD
TABLE6:    DB    20H,53H,48H,55H,20H,20H,52H,55H,20H,20H,20H,4DH,49H,20H
        DB    4DH,41H,00H
                        ;输入密码行
TABLE5:    DB    20H,20H,20H,2AH,20H,2AH,20H,2AH,20H,2AH,20H,2AH,20H,20H
        DB    20H,20H,00H
                        ;空白行
TABLE4:    DB    20H,53H,45H,54H,20H,20H,70H,41H,53H,53H,57H,4FH,52H,44H
        DB    20H,20H,00H
                        ;设置密码
TABLE3:    DB    38H,30H,35H,31H,20H,20H,20H,50H,41H,53H,53H,57H,4FH,52H
        DB    44H,20H,00H
                        ;开始第一行8051 PASSWORD
TABLE2:    DB    20H,41H,20H,20H,4FH,52H,20H,20H,42H,20H,20H,4BH,45H,59H
        DB    20H,20H,00H
                        ;开始第二行A OR B KEY 选择状态
TABLE1:    DB    20H,20H,20H,20H,50H,41H,53H,53H,57H,47H,52H,44H,20H,20H
        DB    20H,20H,00H
                        ;显示PASSWORD
TABLE0:    DB    20H,20H,58H,49H,55H,20H,20H,47H,41H,49H,20H,20H,50H,41H
        DB    53H,53H,00H
        END