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

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

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