4×4key-shumaguan.asm

单片机中LED显示/数码管显示/键盘控制/蜂鸣器输出/中断应用/定时器和计数器/串口通信/键控看门狗/数据交换

;*******************************************************************                                                                 *
;* ME500单片机开发系统演示程序 - 矩阵键盘键值显示                  *
;*                                                                 *
;* 一位数码管显示                                                  *
;*                                                                 *
;* 版本： V1.0 (2006/11/20)                                        *
;* 作者： gguoqing (Email: [e-mail])                    *
;* 网站： www.willar.com(伟纳电子)   www.mcusj.com(伟纳单片机世界) *
;* 邮箱： [e-mail]                                       *
;*                                                                 *
;*【版权】Copyright(C)伟纳电子 www.willar.com  All Rights Reserved *
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！       *
;*                                                                 *
;*******************************************************************
;
;矩阵键盘定义：
;P1.0-P1.3为列线,P1.4-P1.7为行线;
;=====================================================

           RELAY  EQU  P1.3
           BEEP   EQU  P3.7

;------------------------------------------------------

           ORG  0000H
           JMP  MAIN
           ORG  0030H

;------------------------------------------------------
MAIN:      MOV  SP,#60H
           MOV  30H,#10H        ;开机时显示“－”
LOOP1:
           CALL  KEY_SCAN
           CALL  KEY_PLAER
           JMP  LOOP1
;=====================================================
;矩阵键盘键值查找程序
;键值存入30H单元
;=====================================================
;识别键盘有无键按下子程序

KEY_SCAN:
           MOV  P1,#0F0H          ;置列线为0，行线为1
           MOV  A,P1
           ANL  A,#0F0H
           MOV  B,A
           MOV  P1,#0FH           ;置列线为1，行线为0
           MOV  A,P1
           ANL  A,#0FH
           ORL  A,B               ;高四位与低四位重新组合
           CJNE  A,#0FFH,KEY_IN1  ;0FFH为末按键
           RET

;识别具体按键值子程序
KEY_IN1:   MOV  B,A
           MOV  DPTR,#KEYTABLE
           MOV  R3,#0FFH           ;
KEY_IN2:   INC  R3                 ;顺序码加1
           MOV  A,R3
           MOVC  A,@A+DPTR
           CJNE  A,B,KEY_IN3
           MOV  A,R3             ;找到，取顺序码
           MOV  30H,A            ;送显示
           CALL  BEEP_BL
           RET
KEY_IN3:   CJNE  A,#00H,KEY_IN2  ;末完，继续查
           RET                    ;00H为结束码

KEYTABLE:

    DB  0EEH,0EDH,0EBH,0E7H,0DEH  ;0,1,2,3,4,  顺序码
    DB  0DDH,0DBH,0D7H,0BEH,0BDH  ;5,6,7,8,9,
    DB  0BBH,0B7H,07EH,07DH,07BH  ;A,B,C,D,E,
    DB  077H,00H                 ;F      00为结束码

;===============================================
;
;蜂鸣器响一声子程序
;
;===============================================
BEEP_BL:
           MOV  R6,#100
  BL1:     CALL  BL2
           CPL  BEEP             ;蜂鸣器取反
           DJNZ  R6,BL1
           MOV  R5,#25
           CALL  DELAY
           RET
  BL2:     MOV  R7,#180
  BL3:     NOP
           DJNZ  R7,BL3
           RET
DELAY:                           ;延时R5×10MS
           MOV  R6,#50
DELAY1:    MOV  R7,#100
           DJNZ  R7,$
           DJNZ  R6,DELAY1
           DJNZ  R5,DELAY
           RET

;====================================================
;键值显示子程序
;
;使用一位数码管显示，P0口输出段码。
;====================================================
KEY_PLAER:
           MOV  A,30H
           MOV  DPTR,#TABLE    ;取段码表地址
           MOVC  A,@A+DPTR     ;查显示数据对应段码
           MOV  P0,A           ;段码放入P0口
           CLR  P2.7           ;第一个数码管亮
           RET
;-----------------------------------------------------
TABLE:
 DB  0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H
 DB  80H,90H,88h,83h,0c6h,0a1h,86h,8eh,0BFH  ;0－F,-
;-----------------------------------------------------
DELAY4MS:                           ;延时4MS
           MOV  R6,#20
DELAY2:    MOV  R7,#100
           DJNZ  R7,$
           DJNZ  R6,DELAY2
           RET
;------------------------------------------------------
           END                 ;结束