TLC549串行模数转换

这是TLC549串行模数转换程序：
CS                BIT        P1.7
DAT                BIT        P1.6
CLK                BIT        P3.0
AD_DATA                DATA        30H
                ORG        0000H
                AJMP        MAIN

                ORG        0100H
MAIN:        MOV        SP,#60H
                ACALL        TLC549_ADC
                MOV        R7,#0
                DJNZ        R7,$
                ACALL        TLC549_ADC        ;读取上次ADC值，并再次启动AD转换
                MOV        AD_DATA,A
                SJMP        $
TLC549_ADC:
                CLR        A
                CLR        CLK
                CLR        CS        ;选中TLC549
                MOV        R6,#8

TLCAD_L1:        SETB        CLK
                NOP       
                NOP
                MOV        C,DAT
                RLC        A
                CLR        CLK        ;DAT＝0，为读出下一位数据作准备
                NOP
                DJNZ        R6,TLCAD_L1

                SETB        CS        ;禁能TLC549，再次启动AD转换
                SETB        CLK
                RET
                END
但是不知怎么达不到效果。改变点位器触点的位置，但它的数值却没有变化，求大神帮忙指导。