k5-counter.asm

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

;*******************************************************************
;*                                                                 *
;* ME500单片机开发系统演示程序 - K5中断计数                        *
;*                                                                 *
;* 5位数码管显示                                                   *
;*                                                                 *
;* 版本： 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 *
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！       *
;*                                                                 *
;*******************************************************************

           K5   EQU  P3.3

           DISSTART  EQU   40H    ;显示单元首地址
           LED_DATA  EQU   P0     ;数码管数据口定义
           COUNT_L   EQU   30H    ;低位计数单元
           COUNT_H   EQU   31H    ;高位计数单元

;---------------------------------------------------------
           ORG  0000H
           JMP  MAIN
           ORG  0013H
           JMP INT1_EX1
           ORG  0030H
;---------------------------------------------------------
MAIN:
           MOV  SP,#60H
           MOV  P0,#0FFH
           MOV  P2,#0FFH
           MOV  30H,#00H
           MOV  31H,#00H

           MOV  TCON,04H     ;INT1为下降沿触发
          ;MOV  TCON,00H     ;INT1为电平触发
           SETB  EA
           SETB  EX1
MAIN1:
           CALL  CONVT
           CALL  PLAY
           JMP   MAIN1
;---------------------------------------------------------
;INT1中断服务子程序
;---------------------------------------------------------
INT1_EX1:
           PUSH  ACC
           PUSH  PSW
           SETB PSW.3              ;设置当前寄存器
           CLR  PSW.4
           MOV  A,COUNT_L
           ADD  A,#01H             ;低位计数值加1
           MOV  COUNT_L,A
           JNC   EX1_01            ;判低位计数值是否有溢出
           INC  COUNT_H            ;高位计数值加1
EX1_01:
           MOV  R4,#0FH           ;调显示子程序做键延时
EX1_02:
           CALL CONVT
           CALL  PLAY
           DJNZ  R4,EX1_02
EX1_END:
           POP  PSW
           POP  ACC
           RETI
;---------------------------------------------------------
;代码变换 (HEX TO BCD)
;
;双字节十六进制整数转换成三字节BCD码整数

;入口条件：待转换的双字节十六进制整数在R6、R7
;          R6（高位）R7（低位）
;出口信息：转换后的三字节ＢＣＤ码整数在R3、R4、R5中。
;          R3（最高位）R4（高位）R5（低位）
;---------------------------------------------------------
CONVT:
;HEXTOBCD:
           PUSH PSW
           SETB PSW.4              ;设置当前寄存器
           CLR  PSW.3
           MOV R6,COUNT_H
           MOV R7,COUNT_L
           CLR A
           MOV R3,A       ;清零
           MOV R4,A
           MOV R5,A
           MOV R2,#10H    ;转换双字节十六进制整数
H_B:
           MOV A,R7       ;从高端移出待转换数的一位到CY中
           RLC A
           MOV R7,A
           MOV A,R6
           RLC A
           MOV R6,A

           MOV A,R5       ;BCD码带进位自身相加，相当于乘2
           ADDC A,R5
           DA A           ;十进制调整
           MOV R5,A

           MOV A,R4
           ADDC A,R4
           DA A
           MOV R4,A

           MOV A,R3
           ADDC A,R3
           MOV R3,A       ;双字节十六进制数的万位数不超过6，不用调整
           DJNZ R2,H_B    ;处理完16bit
          ;RET
;-----------------------------------------------------------
;码型变换，将待转换的数据分成不同的数位，并转换成单位BCD码
;-----------------------------------------------------------
           MOV R0,#DISSTART    ;获得首地址
           MOV A,R5            ;获得待转化的低位
           MOV B,#16           ;转化进制，如果要进行十进制转换 改为 10
           DIV AB              ;计算 A/B
           MOV @R0,B           ;第一位转换完毕，保存低位转化后的数据
           INC R0              ;自增
           MOV @R0,A           ;保存高位
           INC R0              ;取第二个数据地址

           MOV A,R4            ;获得第二个需要转换的数据
           MOV B,#16           ;十六进制
           DIV AB              ;计算
           MOV @R0,B           ;存低位
           INC R0
           MOV @R0,A           ;存高位
           INC R0              ;第三位

           MOV A,R3            ;获得第三个需要转换的数据
           MOV @R0,A           ;存高位
           POP  PSW
           RET                 ;完毕，返回

;---------------------------------------------------------
PLAY:
           MOV R0,#DISSTART      ;获得显示单元首地址
           MOV R1,#07FH          ;从第一个数码管开始
           MOV R2,#05H           ;共显示5位数码管

           MOV  A,DISSTART+4
           JNZ  DISP1
           MOV  DISSTART+4,#0AH   ;万位为0，关闭万位显示

           MOV  A,DISSTART+3
           JNZ  DISP1
           MOV  DISSTART+3,#0AH   ;千位为0，关闭千位显示

           MOV  A,DISSTART+2
           JNZ  DISP1
           MOV  DISSTART+2,#0AH   ;百位为0，关闭百位显示

           MOV  A,DISSTART+1
           JNZ  DISP1
           MOV  DISSTART+1,#0AH   ;十位为0，关闭十位显示
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,0FFH
    DB 088H,083H,0C6H,0A1H,086H,08EH
;---------------------------------------------------------
         END