利用定时器1延时1秒的程序(c51语言)

 

//利用定时器1延时1秒的程序2007-07-16 ;利用定时器精确延时1秒
// 循环点亮P1口接的八只发光二极管。
//与另一个汇编语言程序相对应，完成相同的功能
#include<reg51.h>
unsigned     char i=0,j=0;
code unsigned char datab[8]=
{0x55,0x0AA,0x05,0x0A,0x50,0x0A0,0x0FF,0x0};
void    t1int() interrupt 3
{
TR1=0;
TL1=0;
TH1=0x4C;
i++;
if(i==20)
{
   i=0;
   P1=datab[j];
   j++;
   if(j==7)
   j=0;
}
TR1=1;
}
void main()
{
TMOD=0x10;
TL1=0;
TH1=0x4C;
TR1=1;
ET1=1;
EA=1;         
while(1);
}   
/*利用定时器1延时1秒的程序2007-06-27 09:57;利用定时器精确延时1秒
;循环点亮P1口接的八只发光二极管。
ORG 0000H
AJMP START
ORG             001BH      ;T1中断入口地址
AJMP INT_T1
ORG             0030H
START:
MOV         SP,#60H
MOV            TMOD,#10H ;置T1为方式1
MOV             TL1,#00H ;延时50mS的时间常数
MOV             TH1,#4CH
MOV             R0,#00H
MOV             R1,#20
SETB TR1           ;启动定时器1，开始定时
SETB ET1
SETB EA ;开中断
SJMP $
INT_T1:   ;T1中断服务子程序
PUSH ACC ;保护现场
PUSH PSW
PUSH DPL
PUSH DPH
CLR          TR1;关闭定时器1，停止定时
MOV          TL1,#00H   ;延时50mS常数
MOV          TH1,#4CH      
DJNZ R1,EXIT
MOV           R1,#20   ;延时一秒的常数
MOV        DPTR,#DATAb ;置常数表基址
MOV              A,R0            ;置常数表偏移量
MOVC A,@A+DPTR     ;读常数表
MOV            P1,A             ;送P1口显示
INC            R0
ANL            R0,#07H
EXIT:
SETB TR1       ;启动定时器1，开始定时
POP         DPH     ;恢复现场
POP         DPL
POP         PSW
POP         ACC
RETI
;发光二极管显示常数表
DATAb:      DB 55H,0AAH,05H,0AH,50H,0A0H,0FFH,0H
END
*/