k1-k4-keyconut.asm

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

;*******************************************************************
;*                                                                 *
;* ME500单片机开发系统演示程序 - 独立键控制LED灯                   *
;*                                                                 *
;* LED显示                                                         *
;*                                                                 *
;* 版本： 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进行按键次数计数，逐个点亮LED0-LED7。
;K2按下后，点亮LED0-LED3。
;K3按下后，点亮LED4-LED7。
;K4按下后，关闭所有LED。

;---------------------------------------------------------
        K1      BIT  P1.4
        K2      BIT  P1.5
        K3      BIT  P1.6
        K4      BIT  P1.7
       
        K_OLD     EQU  30H
        K_NEW     EQU  31H
        K1_COUNT  EQU  32H
       
;---------------------------------------------------------
         ORG  0000H
         JMP  MAIN
         ORG  0030H
;---------------------------------------------------------
MAIN:
         MOV  SP,#60H
         MOV  P1,#0FFH
         MOV  P0,#0FFH
         MOV  K_OLD,#00H
         MOV  K1_COUNT,#00H
         MOV  20H,#0FFH
MAIN1:
         CALL  K_SCAN          ;键扫描
         MOV  A,K_NEW
         CJNE  A,K_OLD,MAIN2
         JMP  MAIN1
MAIN2:
         CALL  DELAY           ;延时示去抖动
         CALL  K_SCAN          ;再判断键是否按下
         MOV  A,K_NEW
         CJNE  A,K_OLD,MAIN3
         JMP  MAIN1
MAIN3:
         JB ACC.0,LOOP1         ;K1按下
         JB ACC.1,LOOP2         ;K2按下
         JB ACC.2,LOOP3         ;K3按下
         JB ACC.3,LOOP4         ;K4按下
         JMP  MAIN1
LOOP1:   
         CALL  K1_PROG
         JMP  MAIN1
LOOP2:
         MOV  P0,#0F0H
         JMP  MAIN1
LOOP3:
         MOV  P0,#0FH
         JMP  MAIN1
LOOP4:
         MOV  P0,#0FFH
         MOV  K1_COUNT,#00H
         JMP  MAIN1

;---------------------------------------------------------
; k1键功能子程序
;---------------------------------------------------------
K1_PROG:
         INC  K1_COUNT
         MOV  A,K1_COUNT
         
         CJNE  A,#1,K1_P1
         CLR  P0.0
         JMP  K1_P9 
K1_P1:
         CJNE  A,#2,K1_P2
         CLR  P0.1
         JMP  K1_P9         
K1_P2:
         CJNE  A,#3,K1_P3
         CLR  P0.2
         JMP  K1_P9 
K1_P3:
         CJNE  A,#4,K1_P4
         CLR  P0.3
         JMP  K1_P9 
K1_P4:
         CJNE  A,#5,K1_P5
         CLR  P0.4
         JMP  K1_P9 
K1_P5:
         CJNE  A,#6,K1_P6
         CLR  P0.5
         JMP  K1_P9                  
K1_P6:
         CJNE  A,#7,K1_P7
         CLR  P0.6
         JMP  K1_P9        
K1_P7:
         CJNE  A,#8,K1_P8
         CLR  P0.7
         JMP  K1_P9                 
K1_P8: 
         MOV  K1_COUNT,#00H
         MOV  P0,#0FFH
K1_P9:         
         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

;---------------------------------------------------------
        END