電路連接如圖一：

源程序：

ORG 0000H;

LJMP MAIN;

ORG 0030H;

MAIN:MOV P1,#80H; 燈亮主程序

MAIN1:MOV A,P1;

RL A;

MOV P1,A;

LCALL DELAY;

LJMP MAIN1;

DELAY:MOV R4, #10; 0.5s定時延時子程序

MOV TMOD,#1H;啟動定時50ms定時

TIMER:MOV TH0,#3CH;

MOV TL0,#0B0H;

SETB TR0;

WAIT:JB TF0,OK; 溢出判斷

LJMP WAIT;

OK:CLR TF0; 清零溢出位

DJNZ R4,TIMER;執(zhí)行十次50ms定時

RET

END?