jishu-miao-0-9999999.9.asm

51单片机c语言开发的0-9999999.9秒计时程序

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

         Count      EQU  40H
         TimeCount  EQU  3FH

;**********************************************************

         ORG 0000H
         JMP  MAIN
         ORG  000BH
         JMP  TIMER0
         ORG 0030H

;**********************************************************
MAIN:
         MOV  SP,#60H
         MOV TMOD,#01
         SETB  EA
         SETB  ET0
         SETB  TR0
         MOV  TH0,#4CH         ;50ms定时
         MOV  TL0,#00H
         MOV  R0,#Count
         MOV  A,#00H
CLR_1:
         MOV  @R0,A             ;清零
         INC  R0
         CJNE  R0,#49H,CLR_1      
DISP:
         MOV R0,#Count         ;获得显示单元首地址
         MOV R1,#07FH          ;从第一个数码管开始
         MOV R2,#08H           ;共显示8位数码管
DISP1:
         MOV A,@R0             ;获得当前位地址
         MOV DPTR,#TABLE       ;获得表头
         MOVC A,@A+DPTR        ;查表获得显示数据
         MOV P0,A              ;显示数据
         MOV P2,R1             ;开始显示当前位
         MOV A,R1              ;准备显示下一位
         CJNE  A,#0BFH,DISP2
         CLR  P0.7             ;加小数点
DISP2:         
         RR A
         MOV R1,A              ;下一位
         INC R0                ;取下一个单元地址
         LCALL DELAY2MS        ;延时 2 MS
         DJNZ R2,DISP1         ;重复显示下一个
         MOV  P2,#0FFH
         JMP  DISP
         RET                   ;显示完成，返回
;---------------------------------------------------------
;延时子程序
;---------------------------------------------------------
DELAY2MS:
         MOV  R6,#10
DEL1:
         MOV  R7,#100
         DJNZ  R7,$
         DJNZ  R6,DEL1
         RET
;**********************************************************
TIMER0:
         PUSH  ACC
         MOV  TH0,#4CH             ;50ms定时
         MOV  TL0,#00H
         INC  TimeCount
         MOV  A,TimeCount
         CJNE  A,#2,T_END
         MOV  TimeCount,#00H
         INC Count                 ;小数位
         MOV A,Count
         CJNE A,#10,T_END
         MOV  Count,#00H
         INC Count+1               ;个位
         MOV A,Count+1
         CJNE A,#10,T_END
         MOV  Count+1,#00H
         INC Count+2               ;十位
         MOV A,Count+2
         CJNE A,#10,T_END
         MOV  Count+2,#00H
         INC Count+3               ;百位
         MOV A,Count+3
         CJNE A,#10,T_END
         MOV  Count+3,#00H
         INC Count+4               ;千位
         MOV A,Count+4
         CJNE A,#10,T_END
         MOV  Count+4,#00H
         INC Count+5               ;万位
         MOV A,Count+5
         CJNE A,#10,T_END
         MOV  Count+5,#00H
         INC Count+6               ;十万位
         MOV A,Count+6
         CJNE A,#10,T_END
         MOV  Count+6,#00H
         INC Count+7               ;百万位
         MOV A,Count+7
         CJNE A,#10,T_END
         MOV  Count+7,#00H                       
T_END:
         POP  ACC
         RETI

;**********************************************************
TABLE:
        DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H
        DB 80H ,90H,0FFH
        DB 88H,83H,0C6H,0A1H,86H,8EH
;**********************************************************
         END