000

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

      org 00h
main: mov a #0ffh
      mov p3,a
      mov 20h,#00h
      setb 00h
start:jb 00h,fun0
      jb 01h,fun1
      jb 02h,fun2
      ajmp start
 fun0:mov a,#0fah
      mov r6,#3
loop0:mov p3,a
      call delay
      djnz r3,mm0
      cpl a
      orl a,#0f0h
      mov p3,a
      jmp loop0
  mm1:setb 01h
      jmp start
      
fun1 :mov a,#0ffh
      mov p3,a
      mov a,#0feh
      mov r7,#3
loop1:mov p3,a
      call delay
      djnz r7,mm2
      jnb acc.3,fun1
      rl a
      jmp loop1
  mm2:setb 02h
      jmp start
 fun2:mov a,#0ffh
      mov p3,a
      call delay
      mov a,#0feh
      mov r5,#3
loop2:mov p3,a
      call delay
      djnz r5,mm0
      jnb acc.3,fun2
      rl a
      anl a,p3
      orl a,#0f0h
      jmp loop2
  mm0:setb 00h
      jmp start
 delay:mov r2,#50
   d1:mov r1,#20
   d2:mov r3,#248
      djnz r3,$
      djnz r1,d2
      djnz r2,d1
      ret
      end