标题: 有用汇编写的线反转法扫描键盘程序吗 [打印本页]
作者: 昃认真    时间: 2015-1-9 13:05
标题: 有用汇编写的线反转法扫描键盘程序吗
本人最近在写单片机综设，需要用到汇编写扫描键盘程序，想用线反转法，求各位大神有用汇编写的线反转法扫描键盘的程序
作者: admin    时间: 2015-1-9 14:47
反转法扫描的汇编程序：电路图：矩阵键盘接p1口，数码管位接p2 段选接p3，程序经过测试的可以用.
  1.         org 0000h
  2.         ljmp main
  3.         org 0030h
  4. main:   mov P2,#0feh    ;送数码管位选
  5.         lcall scan      ;调用扫描函数
  6.         ljmp main
  7. scan:   mov P1,#0f0h
  8.         mov a,90h       ;读引脚
  9.         cjne a,#0f0h,start0  ;
  10.         ljmp exit
  11. start0: lcall delay
  12.         mov P1,#0f0h
  13.         mov a,90h       ;再次读引脚
  14.         cjne a,#0f0h,start1
  15.         ljmp exit
  16. start1: mov r3,a        ;存取行的码值

  18.         mov P1,#0fh
  19.         mov a,90h          ;
  20.         cjne a,#0fh,start2
  21.         ljmp exit
  22. start2: lcall delay

  24.         mov P1,#0fh
  25.         mov a,90h       ;读取列码值
  26.         mov r2,a
  27.         cjne a,#0fh,strat3
  28.         ljmp exit
  29. strat3: ;mov r2,a

  31.         anl a,#0fh
  32.         mov r2,a
  33.         mov a,r3
  34.         anl a,#0f0h
  35.         orl a,r2
  36.        ; orl a,r3

  38.         mov 60h, a         ;存取键的码值
  39.         mov r5,#00h
  40.         mov dptr,#cod
  41. w1:     mov a,r5
  42.         movc a,@a+dptr    ;开始查表
  43.         inc r5
  44.         cjne a,60h,w1      ;直到查表结束
  45.         lcall display     ;查到后开始显示
  46. exit:   ret
  47. display:mov a,r5          ;显示的数值代号存在r5中
  48.         subb a,#01h
  49.         mov dptr,#num
  50.         movc a,@a+dptr
  51.         mov P3,a          ;送数码管段码
  52.         ret



  56. delay:  MOV R5,#10
  57.   D2:        MOV R6,#2
  58.   D1:        MOV R7,#248
  59.         DJNZ R7,$
  60.         DJNZ R6,D1
  61.         DJNZ R5,D2
  62.         RET

  64.         ORG 0500H
  65. num:    DB  0C0H,0F9H,0A4H,0B0H,99H
  66.         DB   92H,82H,0F8H,080H,90H,88h,83h,0c6h,0a1h,86h,8eh
  67.         org 0550h
  68. cod:    db   0eeh,0deh,0beh,7eh, 0edh,0ddh,0bdh,7dh
  69.         db   0ebh,0dbh,0bbh,7bh,0e7h,0d7h,0b7h,77h

  71.         end
复制代码




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