什么程序

流水灯，每四个交换。。。
代码如下：
     ORG 0000H
     AJMP START
     ORG 0030H
     
START:
        MOV P0,A
       ACALL DELAY
       SWAP A
       SJMP START
DELAY: MOV R1,#250
   D1: MOV R0,#250
   D2: NOP
       NOP              
       DJNZ R0,D2
       DJNZ R1,DELAY
       RET
       END