找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 2326|回复: 0
打印 上一主题 下一主题
收起左侧

汇编键盘扫描及显示源程序

[复制链接]
跳转到指定楼层
楼主
ID:70976 发表于 2014-12-25 13:07 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 daniu 于 2014-12-25 13:17 编辑

  1. ORG     0000H
  2. MOV     SP,50H
  3. SJMP    MAIN


  4. MAIN:   LCALL   SM
  5.         MOV     A,R7
  6.         CJNE    A,#16,NEXT
  7.         SJMP    MAIN
  8. NEXT:   MOV     B,#10
  9.         DIV     AB
  10.         MOV     DPTR,#TAB
  11.         MOVC    A,@A+DPTR
  12.         MOV     R1,A
  13.         MOV     A,B
  14.         MOVC    A,@A+DPTR
  15.         MOV     R0,A


  16.         MOV     R3,#3
  17. L3:     MOV     SBUF,R1
  18.         JNB     TI,$
  19.         CLR     TI

  20.         MOV     SBUF,R0
  21.         JNB     TI,$
  22.         CLR     TI
  23.         DJNZ    R3,L3
  24.         LCALL   YS
  25.         SJMP    MAIN
  26.         RET


  27. SM:MOV  P0,#0F0H
  28.    MOV  R7,P0
  29.    CJNE R7,#0F0H,KX
  30.    SJMP KK
  31.    LCALL  YS
  32.    CJNE R7,#0F0H,KX
  33.    SJMP KK
  34. KX:MOV  P0,#0FH
  35.    MOV  A,P0
  36.    ORL  A,R7

  37.    CJNE A,#0EEH,K1
  38.    MOV  R7,#1
  39.    RET
  40. K1:CJNE A,#0EDH,K2
  41.    MOV  R7,#2
  42.    RET
  43. K2:CJNE A,#0EBH,K3
  44.    MOV  R7,#3
  45.    RET
  46. K3:CJNE A,#0E7H,K4
  47.    MOV  R7,#4
  48.    RET
  49. K4:CJNE A,#0DEH,K5
  50.    MOV  R7,#5
  51.    RET
  52. K5:CJNE A,#0DDH,K6
  53.    MOV  R7,#6
  54.    RET
  55. K6:CJNE A,#0DBH,K7
  56.    MOV  R7,#7
  57.    RET
  58. K7:CJNE A,#0D7H,K8
  59.    MOV  R7,#8
  60.    RET
  61. K8:CJNE A,#0BEH,K9
  62.    MOV  R7,#9
  63.    RET
  64. K9:CJNE A,#0BDH,K10
  65.    MOV  R7,#0
  66.    RET
  67. K10:CJNE A,#0BBH,K11
  68.    MOV  R7,#10
  69.    RET
  70. K11:CJNE A,#0B7H,K12
  71.    MOV  R7,#11
  72.    RET
  73. K12:CJNE A,#07EH,K13
  74.    MOV  R7,#12
  75.    RET
  76. K13:CJNE A,#07DH,K14
  77.    MOV  R7,#13
  78.    RET
  79. K14:CJNE A,#07BH,K15
  80.    MOV  R7,#14
  81.    RET
  82. K15:CJNE A,#077H,K16
  83.    MOV  R7,#15
  84.    RET
  85. K16:NOP
  86.    RET



  87. KK:MOV  R7,#16
  88.    RET


  89. YS:MOV   R6,#00FH
  90. Y1:MOV   R5,#0FFH
  91.    DJNZ  R5,$
  92.    DJNZ  R6,Y1
  93.    RET

  94. TAB:DB 088H,0BEH,0C4H,094H,0B2H
  95.     DB 091H,081H,0BCH,080H,090H
  96.     END
复制代码

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表