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
但是不知怎么达不到效果。改变点位器触点的位置，但它的数值却没有变化，求大神帮忙指导。