tcl5620.a51.bak

在KEIL环境下用C51与A51混合编程开发TLC5620

;/*
;******************************************************************************
;*         文件名称: TLC5620.a51
;*         文件说明: TLC5620驱动程序
;*         版本:      1.00
;*         作者:      
;*         日期:    2008-6-30 21:27:49
;*         版权:    
;*         更改记录:
;******************************************************************************
;*/
;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	;设置数字量转为模拟量
    RSEG        SEEPROM

FALLING_CLK:
SETB CLK
CLR CLK
RET
;********************************************************************************************
;* 名称: DAPut
;* 描述: 设置数字量转为模拟量
;* 功能: 设置DA输出电压
;* 调用: 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