1.asm

来自「KT800综合系统板实验源程序库」· 汇编 代码 · 共 34 行

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