k1-k4-keyconut-shuma.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 *
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！       *
;*                                                                 *
;*******************************************************************

;对独立键进行按键次数计数，三位数码管显示。
;K1按下后，进行加1计数
;K2按下后，进行减1计数。
;K3按下后，进行加5计数。
;K4按下后，清计数单元，数码管显示0。
;按住键可以快速计数。

;---------------------------------------------------------
        K1      BIT  P1.4
        K2      BIT  P1.5
        K3      BIT  P1.6
        K4      BIT  P1.7

        K_OLD     EQU   30H
        K_NEW     EQU   31H
        K_COUNT   EQU   32H

        DISSTART  EQU   40H    ;显示单元首地址
        LED_DATA  EQU   P0     ;数码管数据口定义
;---------------------------------------------------------
         ORG  0000H
         JMP  MAIN
         ORG  0030H
;---------------------------------------------------------
MAIN:
         MOV  SP,#60H
         MOV  P1,#0FFH
         MOV  P0,#0FFH
         MOV  K_OLD,#00H
         MOV  K_COUNT,#00H
MAIN1:
         CALL  CONVT
         CALL  PLAY
         CALL  KEY_PROG
         JMP   MAIN1

KEY_PROG:
         CALL  K_SCAN           ;键扫描
         MOV  A,K_NEW
         CJNE  A,K_OLD,KEY_P1
         JMP  KEY_P_END
KEY_P1:
         MOV  R4,#20
KEY_P2:
         CALL  CONVT            ;用显示程序来进行键延时
         CALL  PLAY
         DJNZ  R4,KEY_P2

         CALL  K_SCAN           ;再判断键是否按下
         MOV  A,K_NEW
         CJNE  A,K_OLD,KEY_P3
         JMP  KEY_P_END
KEY_P3:
         JB ACC.0,LOOP1         ;K1按下
         JB ACC.1,LOOP2         ;K2按下
         JB ACC.2,LOOP3         ;K3按下
         JB ACC.3,LOOP4         ;K4按下
         JMP  KEY_P_END
LOOP1:
         INC  K_COUNT          ;键计数加1
         JMP  KEY_P_END
LOOP2:
         DEC  K_COUNT          ;键计数减1
         JMP  KEY_P_END
LOOP3:
         INC  K_COUNT          ;键计数加5
         INC  K_COUNT
         INC  K_COUNT
         INC  K_COUNT
         INC  K_COUNT
         JMP   KEY_P_END
LOOP4:
         MOV  K_COUNT,#00H     ;键计数单元清零
KEY_P_END:
         RET
;---------------------------------------------------------
;代码变换 (HEX TO BCD)
;---------------------------------------------------------
CONVT:
         MOV  A,K_COUNT
         MOV  B,#100
         DIV  AB
         MOV  DISSTART+2,A   ;百位存放在DISSTART＋2
         MOV  A,#10
         XCH  A,B
         DIV  AB
         MOV  DISSTART+1,A   ;十位存放在DISSTART＋1
         MOV  DISSTART,B     ;个位存放在DISSTART
         RET

;---------------------------------------------------------
; 键扫描子程序
;---------------------------------------------------------
K_SCAN:
         MOV  P1,#0FFH
         MOV  K_NEW,#00H
         MOV  A,P1
         CPL  A
         ANL  A,#0F0H
         SWAP  A
         MOV  K_NEW,A
         RET
;---------------------------------------------------------
;延时子程序
;---------------------------------------------------------
DELAY:
         MOV  R6,#200
DEL:
         MOV  R7,#0FFH
         DJNZ  R7,$
         DJNZ  R6,DEL
         RET

;---------------------------------------------------------
PLAY:
         MOV R0,#DISSTART      ;获得显示单元首地址
         MOV R1,#07FH          ;从第一个数码管开始
         MOV R2,#03H           ;共显示3位数码管
DISP1:
         MOV A,@R0             ;获得当前位地址
         MOV DPTR,#TAB_NU      ;获得表头
         MOVC A,@A+DPTR        ;查表获得显示数据
         MOV LED_DATA,A        ;显示数据
         MOV P2,R1             ;开始显示当前位
         MOV A,R1              ;准备显示下一位
         RR A
         MOV R1,A              ;下一位
         INC R0                ;取下一个单元地址
         LCALL DELAY2MS        ;延时 2 MS
         DJNZ R2,DISP1         ;重复显示下一个
         MOV  P2,#0FFH         ;关闭显示
         RET                   ;显示完成，返回
;---------------------------------------------------------
;延时子程序
;---------------------------------------------------------
DELAY2MS:
         MOV  R6,#10
DEL1:
         MOV  R7,#100
         DJNZ  R7,$
         DJNZ  R6,DEL1
         RET
;---------------------------------------------------------
TAB_NU:
    DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H
    DB 080H,090H,088H,083H,0C6H,0A1H,086H,08EH
;---------------------------------------------------------
         END