跑马灯17.asm

单片机写的程序都含有Protues仿真结果

     ;逐个递增亮
org 0000h           
    r:clr p3.0
      lcall l1
      setb p3.0

      clr p3.1
      lcall l1
      setb p3.1
      
      clr p3.2   
      lcall l1
      setb p3.2     

  l1: mov a,#00h
      mov p0,a
      mov a,#80h
      mov r0,#08h
  l2: mov p0,a
      lcall delay
      rr a
      orl a,#80h
      djnz r0,l2
      anl a,#00h 
      mov p0,a
      ret  

delay:mov r1,#10
  kk3:mov r2,#100
  kk2:mov r3,#100
  kk1:djnz r3,kk1
      djnz r2,kk2
      djnz r1,kk3
      ret
      end