tlc2543.asm

tlc2543模数转换芯片

;**************************************************************

DSQT1:  PUSH PSW	   ;AD转换子程序
        SETB PSW.3
        CLR  PSW.4

DAQ00:  CLR P3.2            ;select IC0
        SETB P3.3
        MOV R5,#00H         ;#00000000B

        ACALL DZFS

        MOV R5,#10H         ;#00010000B

        ACALL DZFS
	
	
	MOV ACH_NO,#00H     ;0   
        ACALL GUNC          ;save ch0 data ;shu ju gun cun

        MOV R5,#20H         ;#00100000B
        ACALL DZFS

        INC ACH_NO          ;1
        ACALL GUNC          ;save ch1 data

        MOV R5,#30H         ;#00110000B
        ACALL DZFS
        INC ACH_NO         ;2
        ACALL GUNC         ;SAVE CH2

        MOV R5,#40H
        ACALL DZFS
        INC ACH_NO         ;3
        ACALL GUNC         ;SAVE CH3

        MOV R5,#50H
        ACALL DZFS
        INC ACH_NO         ;4
        ACALL GUNC         ;SAVE CH4

        MOV R5,#60H
        ACALL DZFS
        INC ACH_NO         ;5
        ACALL GUNC         ;SAVE CH5

        MOV R5,#70H
        ACALL DZFS
        INC ACH_NO         ;6
        ACALL GUNC         ;SAVE CH6

        MOV R5,#80H
        ACALL DZFS
        INC ACH_NO         ;7
        ACALL GUNC         ;SAVE CH7

        MOV R5,#90H
        ACALL DZFS
        INC ACH_NO         ;8
        ACALL GUNC         ;SAVE CH8

        MOV R5,#0A0H
        ACALL DZFS
        INC ACH_NO         ;9
        ACALL GUNC         ;SAVE CH9



        MOV R5,#00H
        ACALL DZFS
        INC ACH_NO         ;10
        ACALL GUNC         ;SACE CH10

 ;*********************************************************************

        SETB P3.2          	;select  IC1
        CLR P3.3

        MOV R5,#00H        	;#00000000B
        ACALL DZFS
        MOV R5,#10H        	;#00010000B
        ACALL DZFS
        INC ACH_NO         	;11
        ACALL GUNC         	; save ch0 data ;shu ju gun cun

        MOV R5,#20H        	;#0010000000B
        ACALL DZFS
        INC ACH_NO         	;12
        ACALL GUNC         	;save ch1 data

        MOV R5,#30H        	;#00110000B
        ACALL DZFS
        INC ACH_NO         	;13
        ACALL GUNC         	;SAVE CH2

        MOV R5,#40H
        ACALL DZFS
        INC ACH_NO          	;14
        ACALL GUNC         	;SAVE CH3

        MOV R5,#50H
        ACALL DZFS
        INC ACH_NO          	;15
        ACALL GUNC         	;SAVE CH4

        MOV R5,#60H
        ACALL DZFS
        INC ACH_NO           	;16
        ACALL GUNC          	;SAVE CH5

        MOV R5,#70H
        ACALL DZFS
        INC ACH_NO           	;17
        ACALL GUNC           	;SAVE CH6

        MOV R5,#80H
        ACALL DZFS

        INC ACH_NO           	;18
        ACALL GUNC           	;SAVE CH7

        MOV R5,#90H
        ACALL DZFS
        INC ACH_NO           	;19
        ACALL GUNC           	;SAVE CH8

        MOV R5,#0A0H
        ACALL DZFS
        INC ACH_NO           	;20
        ACALL GUNC           	;SAVE CH9

        MOV R5,#00H
        ACALL DZFS
        INC ACH_NO           	;21
        ACALL GUNC           	;SACE CH10


RRET1:  NOP
        POP PSW
        RET
;********************************************************************
DZFS:   CLR AD_CLK
        JNB P3.2,CLRP32
        JNB P3.3,CLRP33
CLRP32: SETB P3.2
        CLR P3.2
        AJMP DZFS00
CLRP33: SETB P3.3
        CLR P3.3


DZFS00: MOV R4,#08H
        MOV A,R5
        JNB AD_EOC,$       ;!!!!!!!!!
LOOP1:  MOV C,AD_DAT
        RLC A
        MOV AD_ADD,C
        SETB AD_CLK
        NOP
        NOP
        NOP
        NOP
        CLR AD_CLK
        NOP
        NOP
        NOP
        NOP
        DJNZ R4,LOOP1
        MOV R2,A        ;HI 8bit



        MOV R4,#04H
LOOP2:  MOV C,AD_DAT
        RLC A
        SETB AD_CLK
        CLR AD_CLK
        DJNZ R4,LOOP2
        MOV R3,A        ;LOW 4bit



R2R3:   MOV A,R2        ;R2,R3 TIAO ZHENG
        ANL A,#0FH
        SWAP A
        ORL A,R3
        MOV R3,A
        MOV A,R2
        ANL A,#0F0H
        SWAP A
        MOV R4,A
        MOV A,R3
        MOV R2,A          ; R2 LOW 8bit
        MOV A,R4
        MOV R3,A          ; R3 HI 4bit
        RET
;************************************************************

GUNC:   MOV A,ACH_NO
        MOV B,#16
        MUL AB
        MOV DPL,A
        MOV A,B
        MOV DPH,A
        MOV R0,#9FH
        MOV R7,#07
        INC DPTR
        INC DPTR
LLP:    MOVX A,@DPTR
        MOV @R0,A
        INC R0
        INC DPTR
        MOVX A,@DPTR
        MOV @R0,A
        INC R0
        INC DPTR
        DJNZ R7,LLP
CUN:    MOV A,ACH_NO
        MOV B,#16
        MUL AB
        MOV DPL,A
        MOV A,B
        MOV DPH,A
        MOV R0,#9FH
        MOV R7,#140
LPCUN:  MOV A,@R0
        MOVX @DPTR,A
        INC R0
        INC DPTR
        DJNZ R7,LPCUN
        MOV A,ACH_NO
        MOV B,#16
        MUL AB
        MOV DPL,A
        MOV A,B
        MOV DPH,A
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        INC DPTR
        MOV A,R2
        MOVX @DPTR,A
        INC DPTR
        MOV A,R3
        MOVX @DPTR,A
        RET