000.asm

汇编语言写的流水灯程序,已调试通过,使用的是51单片机.

;2051单片机P3口的低4位做流水灯输出,分三种方式点亮,------李坤三作品;
      org 00h
start: mov a,#0ffh
      mov p3,a
      mov 20h,#00h
      setb 00h
lamp :mov a,#0ffh
      mov p3,a
      jb 30h,fun0
      jb 31h,fun1
      jb 32h,fun2
      ajmp start
 fun0:mov r5,#12   ;逐次点亮
loop0:mov a,#0f0h
      mov p3,a
      call delay
      mov a,#0feh
loop00:mov p3,a
      call delay
      jnb acc.3,loop0
      rl a
      anl a,p3
      orl a,#0f0h
      djnz r5,loop00
  mm0:clr 00h
      setb 01h
      ljmp start
fun1 :mov a,#0f0h    ;间隔点亮
      mov p3,a
      call delay
      mov r7,#12
loop1:mov a,#0feh
loop11:mov p3,a
      call delay
      jnb acc.3,loop1
      rl a
      djnz r7,loop11
  mm1:clr 01h
      setb 02h
      ljmp start

 fun2:mov r6,#12         ;轮流点亮
      mov a,#0f0h
      mov p3,a
      call delay
loop2:mov a,#0fah
loop22:mov p3,a
      call delay
      cpl a
      orl a,#0f0h
      mov p3,a
      djnz r6,loop22
  mm2: clr 02h
      setb 00h
      ljmp start
 delay:mov r2,#50
   d1:mov r1,#20
   d2:mov r3,#248
      djnz r3,$
      djnz r1,d2
      djnz r2,d1
      ret
      end