#include<reg51.h>

#include<intrins.h>

void main（void）

{

unsigned char mask=1，j=0;

unsigned int i;

while （1）

{

if（j<7）mask=_crol_（mask,1）;

else mask=_cror_（mask,1）;

P1=～mask;

for（i=0;i<30000;i++）;

P1=0xff;

for（i=0;i<10000;i++）;

j++;

j=j%14;

}

}

用匯編語言程式設計如下

ORG 0000H

MOV A,#7FH

MOV R2，#7

L：JNB F0，R

RL A

JMP O

R：Rr A

O：MOV P1，A

CALL DL_500ms

DJNZ R2，L

MOV R2，#7

CPL F0

JMP L

DL_500ms：

MOV R5，#4

MOV R6，#205

MOV R7，#200

DJNZ R7，$

DJNZ R6，$-2

DJNZ R5,$-4

RET

END