历史上的今天
返回首页

历史上的今天

今天是:2025年01月17日(星期五)

正在发生

2018年01月17日 | 4*4键盘程序的使用

2018-01-17 来源:eefocus

PC       EQU    2
STATUS   EQU    3
RA       EQU    5
RB       EQU    6

RC       EQU    7
BIJIAO   EQU    0F
JIANZHI  EQU    8
BUFFER   EQU    9
BUFFER1  EQU    0AH
BUFFER2  EQU    0BH
COUNTER  EQU    0CH
CON1     EQU    0DH
CON2     EQU    0EH
PIC57    EQU    7FFH
Z        EQU    2
;-----------------------------
         ORG    PIC57
         GOTO   MAIN
;-----------------------------
         ORG    0
;-----------------------------
;        延时子程序
;----------------------------
DELAY    MOVLW  D'100'
         MOVWF  CON1
L1       MOVLW  D'200'
         MOVWF  CON2
L2       DECFSZ CON2,1
         GOTO   L2
         DECFSZ CON1,1
         GOTO   L1
         RETLW  0         
;-----------------------------
;        4*4键盘扫描判断子程序
;-----------------------------
SCANKEY
         MOVLW  B'11101111'
         MOVWF  RB
         MOVF   RB,W
         ANDLW  B'00001111'
         MOVWF  BUFFER
         MOVLW  B'00001111'
         XORWF  BUFFER,W
         SKPNZ
         GOTO   XYB1
         MOVWF  BUFFER1
         MOVLW  1
         MOVWF  JIANZHI
         MOVF   RB,W
         MOVWF  BIJIAO
         GOTO   QJZ

XYB1     MOVLW  B'11011111'
         MOVWF  RB
         MOVF   RB,W
         ANDLW  B'00001111'
         MOVWF  BUFFER
         MOVLW  B'00001111'
         XORWF  BUFFER,W
         SKPNZ
         GOTO   XYB2
         MOVWF  BUFFER1
         MOVLW  5
         MOVWF  JIANZHI
         GOTO   QJZ

XYB2     MOVLW  B'10111111'
         MOVWF  RB
         MOVF   RB,W
         ANDLW  B'00001111'
         MOVWF  BUFFER
         MOVLW  B'00001111'
         XORWF  BUFFER,W
         SKPNZ
         GOTO   XYB3
         MOVWF  BUFFER1
         MOVLW  9
         MOVWF  JIANZHI
         MOVF   RB,W
         MOVWF  BIJIAO
         GOTO   QJZ

XYB3     MOVLW  B'01111111'
         MOVWF  RB
         MOVF   RB,W
         ANDLW  B'00001111'
         MOVWF  BUFFER
         MOVLW  B'00001111'
         XORWF  BUFFER,W
         SKPNZ
         RETLW  0
         MOVWF  BUFFER1
         MOVLW  0DH
         MOVWF  JIANZHI
         MOVF   RB,W
         MOVWF  BIJIAO

QJZ      MOVLW  1
         MOVWF  BUFFER2
         MOVLW  4
         MOVWF  COUNTER

QJZ1     MOVF   BUFFER1,W
         SUBWF  BUFFER2,W
         SKPNZ
         RETLW  1
         RLF    BUFFER2,1
         INCF   JIANZHI,1
         DECFSZ COUNTER,1
         GOTO   QJZ1
         RETLW  0
;-------------------------------
;    测试程序(注意用法,键值放在JIANZHI里)
;-------------------------------
MAIN
         MOVLW  0
         TRIS   RC
         CLRF   RC
         MOVLW  B'00001111'     ;用RB口作4*4键盘
         TRIS   RB
LOOP     CLRF   RC
         CALL   SCANKEY
         ANDLW  0FH
         SKPNZ                  ;根据返回值不为零,判断有无键按下
         GOTO   LOOP
         MOVLW  0FH
         ANDWF  JIANZHI,W
         MOVWF  RC
         CALL   DELAY
LOOP1    MOVF   BUFFER1,W
         ANDWF  RB,W
         XORWF  BIJIAO,W
         SKPNZ
         GOTO   LOOP1
         GOTO   LOOP
;--------------
;-------------------------------
         END 


推荐阅读

史海拾趣

三环(CCTC)公司的发展小趣事

随着科技的不断进步和市场环境的变化,三环(CCTC)公司认识到科技创新是企业持续发展的关键。因此,公司加大了研发投入力度,引进和培养了一批高素质的研发人才,建立了以博士、硕士为主组成的技术研发团队。同时,公司积极承担并完成多个国家、省级重点科研项目,不断开展新材料、新产品、新技术的研究与创新。这些努力使公司在多个领域取得了突破性的成果,实现了转型升级。

Ambersil公司的发展小趣事

随着电子行业的竞争日益激烈,Ambersil公司意识到,要想在市场中立足,必须注重产品质量。公司加大了对生产线的投入,引进了先进的生产设备和技术,严格把控产品质量。同时,公司还建立了完善的售后服务体系,及时解决客户在使用过程中遇到的问题。这些举措使得Ambersil公司的产品在市场上赢得了良好的口碑。

蜂鸟无线公司的发展小趣事
由于PWM调速是通过调整电压脉冲的占空比来控制电动机的平均电压,因此能够减少能量损失,提高系统的能效。
EPIGAP公司的发展小趣事

EPIGAP公司非常重视创新文化的建设。公司鼓励员工提出新的想法和创意,并为员工提供充分的支持和资源。此外,EPIGAP还积极引进和培养人才,建立了一支高素质、专业化的研发团队。这支团队在公司的发展历程中发挥了至关重要的作用,不断推动公司产品的升级换代和技术创新。

Echelon_Corporation公司的发展小趣事

近年来,随着物联网技术的快速发展,Echelon也积极布局该领域。公司在嵌入式系统部门收购了Echelon Corporation后,成立了新的物联网业务部门,并推出了SmartServer物联网平台。该平台采用了开放、可扩展的体系结构,可以连接、监控商业和工业物联网部署设备,并提供智能化和自动化的决策支持。SmartServer平台的推出,使得Echelon在物联网领域取得了重要突破。

Honeywell公司的发展小趣事

背景:随着科技的进步,霍尼韦尔开始将目光投向更广阔的领域,其中航空航天成为重要的发展方向。

发展:霍尼韦尔在航空航天领域取得了多项技术突破,其仪器仪表和控制系统在多个重要项目中发挥了关键作用。其中,最著名的莫过于1969年阿波罗11号登月任务中,霍尼韦尔的仪器仪表为宇航员提供了稳定的控制和导航支持。

关键事件:阿波罗11号任务的成功不仅展示了霍尼韦尔在航空航天领域的实力,也进一步提升了公司的国际声誉和市场地位。

问答坊 | AI 解惑

防盗报警器的“遥控器”常见问题和解决办法

现在带有遥控器的汽车、摩托车、电动车、家庭防盗系统真是越来越多了,遥控器在给人们带来方便的同时,有时也会出现一些小问题,下面是遥控器常见的一些问题和解决办法。     (1)遥控器没有反应 如果按键时遥控器指示灯不亮或者很暗, ...…

查看全部问答>

经典DC-DC电源设计大全

经典DC-DC电源设计大全…

查看全部问答>

求解 DNW eboot下载bin文件时候连不上usb 问题

求解 DNW eboot下载bin文件时候连不上usb 问题!…

查看全部问答>

50分求一个wince6.0的 usbmsfn.dll文件

Usb mass storage class 对应的dll文件,release目录下应该有。 邮箱:donghaozheng@yahoo.com.cn…

查看全部问答>

Keil计时

我用U-LINK2进行调试,发现KEIL下的时间计时一直都是0,而用软件仿真,时间就会变,想问下如何让那个时间开始计时,我想看下具体的时间消耗…

查看全部问答>

救助啊:ADS编译出来后地址不一致

今天在工作的时候调试AXD,一直都没注意AXD汇编出来的代码,今天仔细看了 发现了一个问题,我在代码中 写着 ldr r1,#0x33ffff1c  可在AXD中看到的确是这样的 ldr r0,0x310000fc ; = #0x33ffff1c 怎么地址变了,想了一阵后怎么也不能明 ...…

查看全部问答>

STM8A的库里为什么没有CAN模块的程序啊???

哪位兄弟有STM8AF里CAN模块啊???请指点!!!!为什么我下载的这个里没有啊????…

查看全部问答>

晶振的问题

请教香版主,只有6M的晶振,在程序哪里可以设置呀?厂家提供的程序里默认是8M的。(新版没有老版人气足嘛。)…

查看全部问答>

uCOS-II 的驱动程序库

请教下uCOS-II 的驱动程序库去哪里找啊~…

查看全部问答>

【转】信号上升时间

一、重视信号上升时间    信号的上升时间,对于理解信号完整性问题至关重要,高速pcb设计中的绝大多数问题都和它有关,你必须对他足够重视。 信号上升时间并不是信号从低电平上升到高电平所经历的时间,而是其中的一部分。业界对它的定 ...…

查看全部问答>