如何实现P2口控制实验流水灯汇编程序？

ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:
    MOV A,#0FEH
LOOP:
    MOV P2,A
    RL A
    LCALL DELAY
    SJMP LOOP
DELAY:
    MOV R2,#200
DLY:
    MOV R3,#250
    DJNZ R3,$
    DJNZ R2,DLY
    RET
    END

#include //包含单片机寄存器的头文件
/****************************************
函数功能：延时一段时间
*****************************************/

void delay(void)
{
unsigned char i,j;
for(i=0;i<250;i++)
for(j=0;j<100;j++)
;
}
/*******************************************************
函数功能：主函数
********************************************************/
void main(void)
{
while(1)
{
P2=0xff;
delay();
P2=0xfe;
delay();
P2=0xfc;
delay();
P2=0xf8;
delay();
P2=0xf0;
delay();
P2=0xe0;
delay();
P2=0xc0;
delay();
P2=0x80;
delay();
P2=0x00;
delay();

P2=0x01;
delay();
P2=0x03;
delay();
P2=0x07;
delay();
P2=0x0f;
delay();
P2=0x1f;
delay();
P2=0x3f;
delay();
P2=0x7f;
delay();
}
}

;
ORG 0000H
MOV A, #255
MOV R2, #9
LOP:
MOV P2, A
CLR C
RLC A
DJNZ R7, $
DJNZ R7, $
DJNZ R6, $ - 4
DJNZ R2, LOP
JMP 0000H

END