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

 2008-4-16 21:12  2133 7 7 分类: MCU/ 嵌入式

//利用定时器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
*/

写原创有奖励！2025面包板原创奖励正在进行中