;/*
;******************************************************************************
;*         文件名稱: TLC5620.a51
;*         文件說明: TLC5620驅(qū)動程序
;*         版本:      1.00
;*         作者:      
;*         日期:    2008-6-30 21:27:49
;*         版權(quán):    
;*         更改記錄:
;******************************************************************************
;*/
;TCL5620與單片機的接口CLK.DATA1.LOAD
;On power up, the DACs are reset to CODE 0.
;Each output voltage is given by:
;VO(DAC A|B|C|D) = REF * (CODE/256)*(1+RNG bit value)

CLK		BIT 	P2^0
DATA1 	BIT 	P3^7
LOAD 	BIT 	P2^1

    SEEPROM     SEGMENT     CODE
    PUBLIC _DAPut	;設(shè)置數(shù)字量轉(zhuǎn)為模擬量
    RSEG        SEEPROM

FALLING_CLK:
SETB CLK
CLR CLK
RET
;********************************************************************************************
;* 名稱: DAPut
;* 描述: 設(shè)置數(shù)字量轉(zhuǎn)為模擬量
;* 功能: 設(shè)置DA輸出電壓
;* 調(diào)用: FALLING_CLK
;* 輸入: R7
;* 輸出: R7
;* 使用寄存器: A, B, R6, R7
;********************************************************************************************
_DAPut:
SETB LOAD 
; A0 A1 = 0 0
MOV A, R7	; The first parameter
RL A
RL A
RL A
RL A
RL A
RL A
RLC A
MOV DATA1, C; A0
ACALL FALLING_CLK
RLC A
MOV DATA1, C; A1
ACALL FALLING_CLK

; set RNG
CLR DATA1
ACALL FALLING_CLK
; set CODE
MOV A, R5	; the second parameter
MOV  R4, #8H
LOOP1:		; transfer D7--D0
RLC A
MOV DATA1, C	
ACALL FALLING_CLK
DJNZ R4, LOOP1
CLR LOAD
NOP
NOP
END