跑马灯5.asm

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

   ;两个两个闪
 org 0000h           
  r:clr p3.0     
    lcall l1
    setb p3.0  
    clr p3.1
    lcall l3
    setb p3.1   
    clr p3.2
    lcall l2
    setb p3.2
    clr p3.1
    lcall l4
    setb p3.1 
    ljmp r


l1: mov a,#0a0h          ;7-0两个两个隔着闪
    mov p0,a
    rr a
    lcall delay
    mov p0,a
    lcall delay
    mov a,#0ah  
    mov p0,a
    rr a
    lcall delay
    mov p0,a
    anl a,#00h 
    mov p0,a
    ret

 l2:mov a,#05h          ;0-7两个两个隔着闪
    mov p0,a
    rl a
    lcall delay
    mov p0,a
    lcall delay
    mov a,#50h  
    mov p0,a
    rl a
    lcall delay
    mov p0,a
    anl a,#00h 
    mov p0,a
    ret

l3: mov a,#0a0h         ;7-4两个两个隔着闪
    mov p0,a
    rr a
    lcall delay
    mov p0,a
    lcall delay
    ret
l4: mov a,#05h          ;0-3两个两个隔着闪
    mov p0,a
    rl a
    lcall delay
    mov p0,a
    lcall delay
    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