用8051单片机控制八个发光二极管，每隔一个灯亮的左循环程序

用8051单片机控制八个发光二极管，每隔一个灯亮的左循环程序

; P1口接8个LED.上拉电阻1K
ORG 0000H
AJMP STARTUP
ORG 0030H
STARTUP:
MOV SP,#60H
MOV A,#0AAH
LOOP: MOV P1,A
ACALL DELAY
RLC A
SJMP LOOP; 延时的多少决定灯移动速度的快慢
DELAY:
MOV R7,#5
DL2:
MOV R6,#100
DL1:
MOV R5,#100
DJNZ R5,$
DJNZ R6,DL1
DJNZ R7,DL2
RET END

#include
#include
#define uchar unsigned char
#define uint unsigned int
sbit key=P3^4;
uchar i,a,keycount;
void delay_ms(uint s) ;
void main()
{
key=1;
P1=0xfe;
a=0xfe;
while(1)
{

if(!key)
{
//keycount =100;
for(i=0;i<100;i++)
{
if(!key)
{
keycount ++;
}
else
{
break;
}
delay_ms(1);
}
//while(!key);
}

if(keycount>=98)
{
//a=0xfe;
keycount =0;
//P1=a;
delay_ms(500) ;
//for(i=0;i<2;i++)
// {
a=_crol_(a,1);//左移
if(a==0xff)a=0xfe;
P1=a;
delay_ms(500) ;
// }
}
}
}
void delay_ms(uint s)
{
uint x;
for(s;s>0;s--)
{
x=98;
while(x--);
}
}