网站导航免费论文 原创论文 论文搜索 作业答案 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 设计资源 > 单片机 > 正文
ST套件上0-99秒计时,比较准的!
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: Admin 发布时间: 10/06/19
ORTA,2

    MOVLW TABLE
    MOVWF TABADD        ;将转换表的首地址存入TABADD
    MOVFW DISPBUF_L    ;计数值(W)与转换表的起始地址相加
    BTFSS FLAGS,1 ;FLAGS1位为1时,显示低位
    MOVFW DISPBUF_H
    ADDWF TABADD,W
    CALL CONVERT       ;存入W后调用转换表子程序
    MOVWF PORTB        ;送RB口显示

    BTFSS FLAGS,1      ;根据标志位选择是点亮那一个数码管
    BCF PORTA,1
    BTFSC FLAGS,1
    BCF PORTA,2
    COMF FLAGS,1

  INCF DIGIT,1
  MOVLW 200      ;计数值为200后不再加1
    XORWF DIGIT,0
    BNZ TIMEND  
    CLRF DIGIT

  INCF DISPBUF_L,1 ;秒个位加1
  MOVLW 10
  XORWF DISPBUF_L,0
  BNZ TIMEND
  CLRF DISPBUF_L

  INCF DISPBUF_H,1 ;秒拾位加1
  MOVLW 10
  XORWF DISPBUF_H,0
  BNZ TIMEND
  CLRF DISPBUF_H

  
TIMEND
   SWAPF STATUS_TEMP,W     ;恢复中断前STATUS,W的值
   MOVWF STATUS
   SWAPF W_TEMP,F
   SWAPF W_TEMP,W          ;(用SWAPF才不会影响STATUS的值)
   RETFIE
;------------------------------------------------
MAIN
   CLRF PORTA
   CLRF PORTB         ;初始化IO口

   BSF STATUS,RP0     ;设置寄存器体1
   MOVLW 00000000B  
   MOVWF TRISA
   MOVLW 00000000B
   MOVWF TRISB
   MOVLW 10000100B
   MOVWF OPTION_REG    ;预分频器分配给定时器0,分频比1:32
   BCF STATUS,RP0     ;恢复寄存器体0

   MOVLW 100
   MOVWF RTCC         ;定时器送初值(256-100)*32US=4.992MS,每4.992MS一次中断
   MOVLW 0FFH         ;先让数码管全部不显示
   MOVWF PORTB
   CLRF DIGIT         ;显示计数器清0
   CLRF DISPBUF_L     ;数码管先显示00
   CLRF DISPBUF_H
   BCF INTCON,T0IF
   BSF INTCON,T0IE    ;定时器0溢出中断允许
   BSF INTCON,GIE      ;总中断允许
;--------------------------------------------------
LOOP
   GOTO LOOP         ;循环扫描

CONVERT
   MOVWF PC      ;将W寄存器内的7段显示码地址放入PC
TABLE            ;PC执行新地址指令, 跳到相对的地址执行?
   RETLW 081H ;0 ;RETLW指令,将七段显示码存入W后返回
   RETLW 0E7H ;1
   RETLW 092H ;2
   RETLW 0A2H ;3
   RETLW 0E4H ;4
   RETLW 0A8H ;5
   RETLW 088H ;6
   RETLW 0E3H ;7
   RETLW 080H ;8
   RETLW 0A0H ;9
;----- -----------------------------------------------
   END
 

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 电话:013574892963 QQ:3710167 邮箱:Educs@163.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 Www.myeducs.Cn All Rights Reserved
湘ICP备09003080号