;********************************************************************************
;*  標(biāo)題:北京啟東微芯LJD-SY-5100單片機(jī)實(shí)驗(yàn)系統(tǒng)TLC5615演示程序                   *
;*  文件:TLC5615.ASM                                                            *
;*  日期:  2005-6-1                                                             *
;*  版本:  1.0                                                                  *
;*  作者:啟東微芯                                                                 
;*  網(wǎng)站： http://www.LJD-2008.COM                                              *
;********************************************************************************
;*  描述:                                                                       *
;*       使用電壓表測(cè)量 D/A電壓輸出端可以看到最大，中間，最小的電壓值 不斷跳變  *
;*                                                                              *
;*                                                                              *
;********************************************************************************
;* 【聲明】 此程序僅用于學(xué)習(xí)與參考，引用請(qǐng)注明版權(quán)和作者信息！                  *
;********************************************************************************
     
         
   DIN   BIT    P1.0
  SCLK   BIT    P1.1
    CS   BIT    P1.4
DATA_H   EQU    30H
DATA_L   EQU    31H
         
         ORG 0000H
         JMP START
         ORG 0030H

START:   MOV P1,#60H            ;禁用其他芯片
	 MOV R0,#03FH           ;計(jì)數(shù)器
	 MOV R1,#04H            
         MOV DATA_H,#0fH        ;最大值
         MOV DATA_L,#0fcH 
         ACALL TCL5615
         ACALL DELAY1
         MOV DATA_H,#07H        ;中間值
         MOV DATA_L,#0fcH 
         ACALL TCL5615
	 ACALL DELAY1
	 MOV DATA_H,#00H        ;最小值
         MOV DATA_L,#00H 
         ACALL TCL5615
         ACALL DELAY1
         JMP START               ;返回	 
;***************************************************
; 將數(shù)據(jù)寫到5615
;***************************************************
TCL5615: CLR CS                     
         ACALL DELAY
         MOV R6,#08H
LOOPH:   LCALL DELAY            
         MOV A,DATA_H
         RLC A
         MOV DIN,C
         SETB SCLK
         MOV DATA_H,A
         LCALL DELAY
         CLR SCLK
         DJNZ R6,LOOPH
         MOV R6,#08H
LOOPL:   MOV A,DATA_L
         RLC A
         MOV DIN,C
         SETB SCLK
         MOV DATA_L,A
         LCALL DELAY
         CLR SCLK
         DJNZ R6,LOOPL
         SETB CS
         RET
DELAY:   MOV R5,#01H
 H0:     MOV R7,#20H
 H1:     DJNZ R7,H1
         DJNZ R5,H0
         RET
DELAY1:  MOV R5,#20H
HH0:     MOV R6,#0ffH
HH1 :    MOV R7,#0ffH
HH2:     DJNZ R7,HH2
         DJNZ R6,HH1
         DJNZ R5,HH0
         RET
         END