;廣告流水燈程序
ORG 00H
MOV P2,#80H
START:MOV A,#0FFH    ;賦初值
      CLR C
      MOV R2,#8
LOOP:RRC A           ; 帶進位右移
     MOV P1,A
     CALL DELAY
     DJNZ R2,LOOP
     MOV R2,#7
LOOP1:RLC A          ;  帶進位左移
      MOV P1,A
      CALL DELAY
      DJNZ R2,LOOP1
      JMP START
DELAY:MOV R3,#20     ;   延時0.2秒
D1:   MOV R4,#20
D2:   MOV R5,#248
      DJNZ R5,$
      DJNZ R4,D2
      DJNZ R3,D1
      RET
      END