顺逆流水灯.txt

来自「51单片机实验程序」· 文本 代码 · 共 33 行

。

        ;左移
  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