跑马灯9.asm

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

      ;三角波
    org 0000h
r:mov r4,#80h
  mov r5,#08h
  mov r6,#80h
  mov r7,#80h

  mov a,#80h
  lcall k1 
  lcall l1
  mov a,#08h
  lcall k2
  lcall l2
 
  lcall x1
  lcall k1
  lcall l1 
  lcall x2
  lcall k2
  lcall l2

  lcall x1
  lcall k1
  lcall l1 
  lcall x2
  lcall k2
  lcall l2

  lcall x1
  lcall k1
  lcall l1 
  lcall x2
  lcall k2
  lcall l2

  lcall x1
  lcall k1
  lcall l1

  mov a,#80h
  lcall k3
  lcall l3

  lcall x1
  lcall k1
  lcall l1
  lcall x3
  lcall k3
  lcall l3

  lcall x1
  lcall k1
  lcall l1
  lcall x3
  lcall k3
  lcall l3

  lcall x1
  lcall k1
  lcall l1
  lcall x3
  lcall k3
  lcall l3
      
  mov a,#80h
  lcall x4
  lcall k2
  lcall l4
  lcall x3
  lcall k3
  lcall l3

  lcall x4
  lcall k2
  lcall l4
  lcall x3
  lcall k3
  lcall l3

  lcall x4
  lcall k2
  lcall l4
  lcall x3
  lcall k3
  lcall l3

  lcall x4
  lcall k2
  lcall l4
  lcall x3
  lcall k3
  lcall l3
  ljmp r

 l1:rr a                           ;移位                 
    mov r4,a
    ret
       
 l2:rr a 
    mov r5,a  
    ret      
 
 l3:rr a    
    mov r6,a
    ret

l4: rr a    
    mov r7,a
    ret

x1:mov a,r4                     ;返回a原来的值
   ret
x2:mov a,r5
   ret
x3:mov a,r6
   ret
x4:mov a,r7
   ret

 k1: mov p0,a                   ;灯的开关
     clr p3.0  
     lcall delay
     setb p3.0
     ret
 k2: mov p0,a
     clr p3.1     
     lcall delay
     setb p3.1
     ret
 k3: mov p0,a       
     clr p3.2  
     lcall delay
     setb p3.2
     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