目的：實現(xiàn)流水燈。

　　源程序：

　　/*本程序結(jié)合STC89C51使用，晶振12M，中間用到串口中斷子程序是利用STC單片機(jī)的自定義ISP下載功能，自定義下載命令是FEH,關(guān)于自定義下載請參考《用51單片機(jī)就用STC51,手把手教你STC51的ISP》*/

　　#include"at89x51.h"

　　//#include"reg51.h"

　　#include "intrins.h"

　　#include

　　sfr ISP_CONTR =0xE7;

　　delay_05s()

　　{

　　int i;

　　i=647395;

　　for(;i!=0;i--);

　　}

　　void serial() interrupt 4 //編號0-4，外中斷0，定時器0，外中斷1，定時器1，串行中斷

　　{

　　int a;

　　RI=0;

　　a=SBUF;

　　if (a==0xFE)

　　{delay_05s();

　　delay_05s();

　　ISP_CONTR=0x60;}

　　else

　　SBUF='A';//若不是自定義下載命令則返回'A'

　　while(!TI);

　　TI=0;

　　}

　　void main(void)

　　{

　　unsigned int a,c;

　　unsigned char b;

　　TMOD=0x20;

　　TH1=0xf4;//波特率4800

　　TL1=0XF4;

　　TR1=1;

　　SCON=0XF8;

　　PCON=0X80;

　　EA=1;

　　ES=1;

　　RI=0;

　　b=0xfe;

　　while(1)

　　{

　　P1=b;

　　b=_crol_(b,1);//字符中的位左移1位(偽本征函數(shù))

　　for(c=0;c<30000;c++);/*延時，實踐表明當(dāng)小于值大于等于32768(剛好是unsigned int最大值65535的一半)時，此句指令執(zhí)行時間大于1秒*/

　　}

　　}

　　程序附加說明：

　　1.關(guān)于自定義下載，略微解釋下原理，電腦中STC-ISP軟件向單片機(jī)發(fā)送自定義下載命令后，引起單片機(jī)的串口中斷，并進(jìn)入中斷子程序：判斷是否為設(shè)定“自定義下載命令”-延時1秒-執(zhí)行重啟命令“ISP_CONTR=0x60;”(即MOV ISP_CONTR(0XE7),0X60),單片機(jī)重啟并先運行ISP監(jiān)視程序，電腦STC-ISP軟件便把.hex文件數(shù)據(jù)下到STC單片機(jī)中去。

　　2.流水燈循環(huán)左移右移，用C語言，要高效的話，只有用偽本征函數(shù)文件“intrins.h”中的_crol_(),_cror_()...等等函數(shù)，具體解釋如藍(lán)色文字，例如，要用P1口驅(qū)動8個共陽連接的二極管左循環(huán)一個一個地亮，語句是 P1=_crol_(a,1);//a儲存被移位的字符。

　　c51中的intrins.h庫函數(shù)

　　_crol_ 字符循環(huán)左移

　　_cror_ 字符循環(huán)右移

　　_irol_ 整數(shù)循環(huán)左移

　　_iror_ 整數(shù)循環(huán)右移

　　_lrol_ 長整數(shù)循環(huán)左移

　　_lror_ 長整數(shù)循環(huán)右移

　　_nop_ 空操作8051 NOP 指令

　　_testbit_ 測試并清零位8051 JBC 指令

　　詳解：

　　函數(shù)名： _crol_，_irol_，_lrol_

　　原 型： unsigned char _crol_(unsigned char val,unsigned char n);

　　unsigned int _irol_(unsigned int val,unsigned char n);

　　unsigned int _lrol_(unsigned int val,unsigned char n);

　　功 能：_crol_，_irol_，_lrol_以位形式將val 左移n 位，該函數(shù)與8051“RLA”指令

　　相關(guān)，上面幾個函數(shù)不同于參數(shù)類型。

　　例：

　　#include

　　main()

　　{

　　unsigned int y;

　　C-5 1 程序設(shè)計 37

　　y=0x00ff;

　　y=_irol_(y,4); /*y=0x0ff0*/

　　}

　　函數(shù)名： _cror_，_iror_，_lror_

　　原 型： unsigned char _cror_(unsigned char val,unsigned char n);

　　unsigned int _iror_(unsigned int val,unsigned char n);

　　unsigned int _lror_(unsigned int val,unsigned char n);

　　功 能：_cror_，_iror_，_lror_以位形式將val 右移n 位，該函數(shù)與8051“RRA”指令

　　相關(guān)，上面幾個函數(shù)不同于參數(shù)類型。

　　例：

　　#include

　　main()

　　{

　　unsigned int y;

　　y=0x0ff00;

　　y=_iror_(y,4); /*y=0x0ff0*/

　　}

　　函數(shù)名： _nop_

　　原 型： void _nop_(void);

　　功 能：_nop_產(chǎn)生一個NOP 指令,該函數(shù)可用作C 程序的時間比較。C51 編譯器在_nop_

　　函數(shù)工作期間不產(chǎn)生函數(shù)調(diào)用，即在程序中直接執(zhí)行了NOP 指令。

　　例：

　　P()=1;

　　_nop_();

　　P()=0;

　　函數(shù)名： _testbit_

　　原 型：bit _testbit_(bit x);

　　功 能：_testbit_產(chǎn)生一個JBC 指令，該函數(shù)測試一個位，當(dāng)置位時返回1，否則返回0。

　　如果該位置為1，則將該位復(fù)位為0。8051 的JBC 指令即用作此目的。

　　_testbit_只能用于可直接尋址的位;在表達(dá)式中使用是不允許的。

　　3.至于>>=,>>,<<,<<=的移位運算符，不要天真以為它會循環(huán)移位，事實上，一個8位的字符，左移一位之后，最右邊一位變成0了，而非原來最左邊的一位。如果左移8位，就意味著這個8位的字符變成0x00了。