标题: Proteus仿真单片机读4*6矩阵键盘子程序的仿真学习程序 [打印本页]
作者: Jackyt    时间: 2020-2-25 21:40
标题: Proteus仿真单片机读4*6矩阵键盘子程序的仿真学习程序
基于protus的读键子程序的仿真学习，已附代码。
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:
  1. ;===============================================================================
  2. ;                   LED Digit Display & 4*6 KeyPad
  3. ;                   By:Wu,ChuiHong
  4. ;===============================================================================
  5. ;20181106 V1.0
  6. ;===============================================================================
  7. Dark                Equ    10H
  8. ;===============================================================================
  9. DisModePort         Equ    0000H                  ;0:Light up
  10. DisCSPort           Equ    2000H                  ;1:Light up
  11. ;-------------------------------------------------------------------------------
  12. KeyInPort           Equ    P1                     ;Use P1.0..P1.3
  13. KeyOutPort          Equ    DisCSPort
  14. ;===============================================================================
  15. DisBuf              Equ    30H;..35H
  16. ;===============================================================================
  17.                     Org    0000H
  18.                     AJmp   Main
  19. ;===============================================================================
  20. Display:            Mov    R0,#DisBuf
  21.                     Mov    R1,#00000001B
  22. DisplayLp:          Mov    A,R1
  23.                     Mov    Dptr,#DisCSPort
  24.                     Movx   @Dptr,A

  26.                     Mov    A,@R0
  27.                     Mov    Dptr,#DisTab
  28.                     Movc   A,@A+Dptr
  29.                     Mov    Dptr,#DisModePort
  30.                     Movx   @Dptr,A

  32.                     ACall  Delay

  34.                     Inc    R0
  35.                     Mov    A,R1
  36.                     RL     A
  37.                     Mov    R1,A

  39.                     Cjne   R0,#DisBuf+6,DisplayLp
  40.                     Ret
  41. ;-------------------------------------------------------------------------------
  42. ;                   Code   00h,  01h,  02h,  03h, 04h,  05h,  06h, 07h ,08h, 09h
  43. ;                   Char   "0",  "1",  "2",  "3", "4",  "5",  "6", "7" ,"8", "9"
  44. DisTab:             DB    0c0h, 0f9h, 0a4h, 0b0h, 99h,  92h,  82h, 0f8h,80h, 90h

  46. ;                   Code   0ah,  0bh,  0ch , 0dh , 0eh, 0fh, 10h
  47. ;                   Char   "a",  "b",  "c" , "d" , "e", "f", " "
  48.                     DB     88h,  83h,  0c6h, 0a1h, 86h, 8eh, 0FFH
  49. ;--------------------------------------------------------------------------
  50. Delay:              Mov    r6,#4                  ;8*256*2*T(1us)=8*512=4000us=2ms
  51. Delay1:             Mov    r7,#0
  52.                     Djnz   r7,[        DISCUZ_CODE_1        ]nbsp;                  ;2
  53.                     Djnz   r6,Delay1
  54.                     Ret
  55. ;-------------------------------------------------------------------------------
  56. InitDis:            Mov    DisBuf+0,#0
  57.                     Mov    DisBuf+1,#Dark
  58.                     Mov    DisBuf+2,#Dark
  59.                     Mov    DisBuf+3,#Dark
  60.                     Mov    DisBuf+4,#Dark
  61.                     Mov    DisBuf+5,#Dark
  62.                     Ret
  63. ;===============================================================================
  64. KeySCan:            Mov    Dptr,#KeyOutPort       ;Fast Judge if Key pressed
  65.                     Clr    A                      ;Output all 0
  66.                     Movx   @Dptr,A
  67.                     Mov    P1,#0FFH               ;Input to A
  68.                     Mov    A,P1
  69.                     Cpl    A
  70.                     Anl    A,#0FH
  71.                     Ret
  72. ;-------------------------------------------------------------------------------
  73. ReadKey:            ACall  KeyScan                ;If Any Key Pressed
  74.                     ACall  Display                ;?
  75.                     Jz     ReadKey                ;No Key, Wait

  77.                     ACall  Display                ;Delay
  78.                     ACall  Display
  79.                     ACall  KeyScan
  80.                     Jz     ReadKey                ;If Key Still Pressed

  82.                     Mov    R1,#0                  ;Key Column Code
  83.                     Mov    R2,#11111110B
  84.                     Mov    Dptr,#KeyOutPort
  85. ReadKeyLoop:        Mov    A,R2                   ;Key Output
  86.                     Movx   @Dptr,A
  87.                     Jb     KeyInPort.0,ReadKeyNxt0;If .0=1(No Key) to next
  88.                     Mov    A,#0                   ;Key Line Code
  89.                     AJmp   ReadKeyOk
  90. ReadKeyNxt0:        Jb     KeyInPort.1,ReadKeyNxt1;If .0=1(No Key) to next
  91.                     Mov    A,#6
  92.                     AJmp   ReadKeyOk
  93. ReadKeyNxt1:        Jb     KeyInPort.2,ReadKeyNxt2;If .0=1(No Key) to next
  94.                     Mov    A,#12
  95.                     AJmp   ReadKeyOk
  96. ReadKeyNxt2:        Jb     KeyInPort.3,ReadKeyNxt3;If .0=1(No Key) to next
  97.                     Mov    A,#18
  98.                     AJmp   ReadKeyOk
  99. ReadKeyNxt3:        Mov    A,R2
  100.                     RL     A
  101.                     Mov    R2,A
  102.                     Inc    R1
  103.                     AJmp   ReadKeyLoop

  105. ReadKeyOk:          Add    A,R1                   ;A=A+R1=Key Code
  106.                     Push   Acc
  107. ReadKey1:           ACall  Display
  108.                     ACall  KeySCan
  109.                     Jnz    ReadKey1
  110.                     Pop    Acc                    ;Return A=KeyCode
  111.                     Ret
  112. ;===============================================================================
  113. AToDisHex:          Mov    B,#16
  114.                     Div    AB
  115.                     Mov    DisBuf+0,B
  116.                     Mov    DisBuf+1,A
  117.                     Ret
  118. ;===============================================================================
  119. Main:               Mov    Sp,#07H
  120.                     ACall  InitDis
  121. ;-------------------------------------------------------------------------------
  122. MainLoop:           ACall  Display                ;Dynamic Display
  123.                     ACall  ReadKey                ;Read Key and get Key_Code
  124.                     ;ACall  AToDisHex              ;Show Key code,MUST after ReadKey
  125.                     Mov    DisBuf+5,DisBuf+4
  126.                     Mov    DisBuf+4,DisBuf+3
  127.                     Mov    DisBuf+3,DisBuf+2
  128.                     Mov    DisBuf+2,DisBuf+1
  129.                     Mov    DisBuf+1,DisBuf+0
  130.                     Mov    DisBuf+0,A
  131.                     AJmp   MainLoop
  132. ;===============================================================================
  133.                     End
复制代码

全部资料51hei下载地址：
Demo.zip (34.66 KB, 下载次数: 13)





欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1