TLC5620 DA转换汇编程序

           SPI_DATA BIT P1.1
           SPI_CLK  BIT P1.2
           CS_DA    BIT P1.3

           ORG 0000H
           AJMP START
           ORG 0010H
                       
TLC5620:                                ;;D/A 转换主程序       
     CLR   A                           
                   SETB  CS_DA                        
                   MOV    R6,#43H        ;;写D/A命令字(通道数的选择)             
COMMAND:           ADD   A,ACC                       
                   MOV    SPI_DATA,C                      
                   SETB  SPI_CLK                        
                   NOP                               
                   NOP                               
                   NOP                               
                   NOP                               
                   CLR   SPI_CLK                        
                   DJNZ  R6,COMMAND                    
                   MOV    A,R7                        
                   MOV    R6,#08H                     
DATE :             ADD   A,ACC           ;;写D/A数据                  
                   MOV    SPI_DATA,C                      
                   SETB  SPI_CLK                        
                   NOP                               
                   NOP                               
                   NOP                               
                   NOP                               
                   CLR   SPI_CLK                        
                   DJNZ  R6,DATE                   
                   CLR   CS_DA                        
                   NOP                               
                   NOP                               
                   SETB  CS_DA                        
                   RET                               
DEL:                                ;;延时程序
     MOV R1,#01H
DEL0:
     MOV R2,#60H
DEL1:
     MOV R3,#0FFH
     DJNZ R3,$
     DJNZ R2,DEL1
     DJNZ R1,DEL0
     RET
   
START:                            
     MOV R7,#0FFH          ;;数据减一处理程序,并进行转换(FF--80)
LOOP1:
     ACALL TLC5620
     ACALL DEL
     DEC R7
     CJNE R7,#80H,LOOP1
    
     MOV R7,#80H          ;;数据加一处理程序,并进行转换(80--FF)             
LOOP2:
     ACALL TLC5620
     ACALL DEL
     INC R7
     CJNE R7,#0FFH,LOOP2
     AJMP START
     END