定时器流水灯

?图一

电路连接如图一：

源程序：

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;执行十次50ms定时

RET

END?