跑马灯18.asm

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

;一个一个亮
    org 0000h           
  r:clr p3.0     
    lcall l1
    setb p3.0   
    clr p3.1
    lcall l5
    setb p3.1    
    clr p3.2
    lcall l3
    setb p3.2
    clr p3.1
    lcall l7
    setb p3.1 
    ljmp r

 l1: mov a,#00h               ;7-0
      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  
 l3: mov a,#00h               ;0-7
      mov p0,a
      mov a,#01h
      mov r0,#08h
  l4: mov p0,a
      lcall delay
      rl a
      orl a,#01h
      djnz r0,l4
      anl a,#00h 
      mov p0,a
      ret  
l5: mov a,#00h          ;7-4
      mov p0,a
      mov a,#80h
      mov r0,#04h
  l6: mov p0,a
      lcall delay
      rr a
      orl a,#80h
      djnz r0,l6
      anl a,#00h 
      mov p0,a
      ret  
  l7: mov a,#00h           ;0-3
      mov p0,a
      mov a,#01h
      mov r0,#04h
  l8: mov p0,a
      lcall delay
      rl a
      orl a,#01h
      djnz r0,l8
      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