跑马灯13.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 r0,#04h           ;7-0
    mov a,#0c0h    
 l2:mov p0,a
    rr a
    rr a
    lcall delay
    djnz r0,l2
    anl a,#00h
    mov p0,a
    ret
 
 l3:mov r0,#04h          ;0-7
    mov a,#03h    
 l4:mov p0,a
    rl a
    rl a
    lcall delay
    djnz r0,l4
    anl a,#00h
    mov p0,a
    ret

 l5:mov r0,#02h           ;7-4
    mov a,#0c0h    
 l6:mov p0,a
    rr a
    rr a
    lcall delay
    djnz r0,l6
    anl a,#00h
    mov p0,a
    ret

 l7:mov r0,#02h          ;0-3
    mov a,#03h    
 l8:mov p0,a
    rl a
    rl a
    lcall delay
    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