ad9832.txt

ad9832控制程序,

      ORG 0000H
      LJMP MAIN
      ORG 0030H				
MAIN:
      MOV SP,#60H 
      SETB P1.0
      MOV SCON,#00H
      MOV 40H,#1BH      
      MOV 41H,#00H
      MOV R0,#40H
      ACALL  SEND
  
      MOV 40H,#05H      
      MOV 41H,#00H
      MOV R0,#40H
      ACALL  SEND
 
SENDPW:                 
      MOV 40H,#18H      
      MOV 42H,#90H
  
      MOV 41H,#00H      
      MOV 43H,#00H
   
      MOV R0,#40H       
      ACALL  SEND
      ACALL  SEND

SENDFW:                 
      MOV 30H,#0CH      
      MOV 32H,#84H
      MOV 34H,#4CH
      MOV 36H,#0C4H
      
      MOV 31H,#1BH      
      MOV 35H,#0B4H	
      MOV 37H,#01H
      
      MOV R4,#0CFH       
      MOV R5,#8EH
      MOV R6,#00H
      MOV R7,#00H

      MOV R3,#07H       
CIRCLE:      
      MOV R1,#64H
SENDFW1: 
      MOV R2,#04H       
      ACALL PPP          
  
      MOV R0,#30H       
      ACALL  SEND
      ACALL  SEND
      ACALL  SEND
      ACALL  SEND

  
      MOV 40H,#03H      
      MOV 41H,#00H
      MOV R0,#40H
      ACALL  SEND

      
  
      MOV R2,#04H       
      MOV R0,#31H
      ACALL PPP
      
      MOV R0,#31H      
      CLR C
      MOV A,@R0
      ADDC A,R4
      MOV @R0,A
      INC R0
      INC R0
      MOV A,@R0
      ADDC A,R5
      MOV @R0,A
      INC R0
      INC R0
      MOV A,@R0
      ADDC A,R6
      MOV @R0,A
      INC R0
      INC R0
      MOV A,@R0
      ADDC A,R7
      MOV @R0,A
     
      ACALL DELAY     
     
      SETB P1.7    	
      
      DJNZ R1,SENDFW1       
      DJNZ R3,CIRCLE
      SJMP SENDFW

PPP:                   
      MOV A,@R0         
      ACALL DXCH  
      MOV @R0,A
      INC R0
      INC R0
      DJNZ R2,PPP
      RET

DXCH:  
      MOV C,ACC.7      
      MOV 10H,C
      MOV C,ACC.6
      MOV 11H,C
      MOV C,ACC.5
      MOV 12H,C
      MOV C,ACC.4
      MOV 13H,C
      MOV C,ACC.3
      MOV 14H,C
      MOV C,ACC.2
      MOV 15H,C
      MOV C,ACC.1 
      MOV 16H,C
      MOV C,ACC.0
      MOV 17H,C
      MOV A,22H
      RET
    
SEND:			
      MOV A,@R0
      CLR P1.0
      MOV SBUF,A
WAIT0: 
      JNB TI,WAIT0
      CLR TI
      INC R0
      MOV A,@R0
      MOV SBUF,A
WAIT1: 
      JNB TI,WAIT1      
      SETB P1.0
      CLR TI
      INC R0
      RET

DELAY:			
      MOV R0,#20H
DELAY0:
      MOV R2,#0D8H
DELAY1:
      DJNZ R2,DELAY1
      DJNZ R0,DELAY0
      RET
  END