跑马灯24.asm

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

     ;正弦波
    org 0000h
r:mov r4,#80h
  mov r5,#04h
  mov r6,#40h
  mov r7,#80h

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

  lcall x1
  lcall k1
  lcall l1
  mov a,#40h
  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
  ljmp r

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

l4: rr a
    rr a
    mov r7,a
    ret

x1:mov a,r4                     ;返回值
   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