t1-conut.asm

ME500——51单片机的几个中断程序

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

;P3.2输出T1计数脉冲，请将P3.2与P3.5用导线连接。

;定时器0定时，中断一次，T1计数器加1。

;T1计数器计满10次，LED灯左移一位。（流水灯）

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

         ORG 0000H
         LJMP MAIN
         ORG 001BH
         LJMP INT
         ORG 0030H

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

; 主程序

;*********************************************************
MAIN:
         MOV P0,#0FEH         ; 初始点亮LED1
         MOV R7,#0FEH
         MOV TMOD,#51H        ;TIMER0定时，TIMER1计数
         MOV TH1,#0FFH        ;计数10次
         MOV TL1,#0F6H
         MOV TH0,#0A6H        ;25ms定时常数
         MOV TL0,#00H
         SETB P3.5
         SETB  EA
         SETB  ET1
         SETB TR0
         SETB TR1
LOOP:
         JBC  TF0,LOOP1       ;T0采用查询方式
         JMP  LOOP
LOOP1:
         CLR  TR0
         MOV TH0,#0A6H        ;25ms定时常数
         MOV TL0,#00H
         CPL  P3.2            ;T1中断触发脉冲
         CLR  TF0
         SETB TR0
         JMP LOOP

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

; T1 中断服务子程序

;*********************************************************
INT:                           ;T1采用中断方式
         CLR  EA
         MOV TH1,#0FFH
         MOV TL1,#0F6H         ;计数10次
         MOV A,R7
         RL A                  ;循环移位
         MOV R7,A              ;保存到R7
         MOV P0,A              ;点亮下一个LED
         SETB  EA
         RETI

;*********************************************************
         END