;左移
  star: mov r3,#8         ;設置流水位數
        mov p1,#11111110b ;從p1.0開始
  loop: acall d01s
        mov a,p1          ;讀取p1當前數據到acc
        rl a              ;左移一位
        mov p1,a          ;將左移的數據再送到p1
        djnz r3,loop      ;沒有完成8位繼續
        ;******************
        mov p1,#0ffh      ;熄滅所有燈
        ;******************
        ;右移
        mov r3,#8         ;設置流水位數
        mov p1,#01111111b ;從p1.7開始
  loop1: acall d01s
        mov a,p1          ;讀取p1當前數據到acc
        rr a              ;右移一位
        mov p1,a          ;將左移的數據再送到p1
        djnz r3,loop1     ;沒有完成8位繼續

        ljmp star         ;完成后返回到開始再來

  ;延時子程序
   d01s: mov r0,#255
  d01l1: mov r1,#198
         djnz r1,$
         djnz r0,d01l1
         ret
         end