EEPW论坛

/**************************************
   程序名称：流水灯
   编译环境：keil-uvsion4
   操作系统：windows-xp
   程序功能：
   设计者：  shunzhidui
   时间：  2011年
**************************************/
       ORG 0000H
       AJMP START
       ORG 0030H
START: MOV P0,55H
       LCALL DELAY
    LCALL DELAY
    MOV P0,0AAH
    LCALL DELAY
    LCALL DELAY
    MOV P0,0FFH
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
       MOV A,0FEH
    SETB C
LOOP1: MOV P0,A
       LCALL DELAY
    LCALL DELAY
    RLC  A
    JC LOOP1
LOOP2: RRC A
       MOV P0,A
    LCALL DELAY
    LCALL DELAY
    JC LOOP2
    AJMP LOOP1

 DELAY:MOV R1,#0FFH
    L1:MOV R0,#0FFH
    W1:DJNZ R0,W1
       DJNZ R1,L1
    NOP
    NOP
       RET
    END