tlc5409.txt

TLC549串行模数转换

简易电压表 串行AD转换 数码管显示程序

CS EQU P1.2 ;串口定义
DAT EQU P1.1
CLK EQU P1.0
SDA EQU P1.7
SCL EQU P1.6
RST1 EQU P1.5
ORG 000H
AJMP MAIN
ORG 100H
MAIN:
CLR EA
MOV SP,#60H
CLR RST1
NOP
NOP
NOP
SETB RST1
NOP
NOP
NOP
LCALL STA
MOV A,#70H
LCALL TONG
MOV A,#0DH
LCALL TONG
MOV A,#02H ; ;往SCANNUM中写1，即只有两个显示数
LCALL TONG
LCALL STOP
NOP
NOP
LOOP:    ACALL TLC549_ADC  ；调用ADC转换程序
MOV R7,#0 ；延时
DJNZ R7,$
ACALL TLC549_ADC ;读取上次ADC 值，并再次启动AD 转换
MOV 34H,A
LCALL XS ；调用显示子程序
SJMP LOOP ；循环执行
;TLC549 串行ADC 转换器的驱动程序
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
；转化子程序，将八位数字输出信号转化为三位数码管输出信号，例如FFH转化为5.00
ZH:
MOV A,34H
MOV B,#33H
DIV AB
ADD A,#80H
MOV 31H ,A
MOV 32H,B
MOV A,32H
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV B,#10H
DIV AB
MOV 32H,A
MOV 33H,B
RET
TAB:
DB 00H, 02H, 04H, 06H, 08H
DB 10H, 12H, 14H, 16H, 18H
DB 20H, 22H, 24H, 25H, 27H
DB 29H, 31H, 33H, 35H, 37H
DB 39H, 41H, 43H, 45H, 47H
DB 49H, 51H, 53H, 55H, 57H
DB 59H, 61H, 63H, 65H, 67H
DB 69H, 71H, 73H, 75H, 76H
DB 78H, 80H, 82H, 84H, 86H
DB 88H, 90H, 92H, 94H, 96H
DB 98H

XS:
LCALL ZH ;调用转化子程序
LCALL  STA
MOV A,#70H
LCALL TONG
MOV A,#07H
LCALL TONG
MOV A,#62H
LCALL TONG
MOV A,31H
LCALL TONG
LCALL STOP
LCALL STA
MOV A,#70H
LCALL TONG
MOV A,#07H
LCALL TONG
MOV A,#61H
LCALL TONG
MOV A,32H
LCALL TONG
LCALL STOP
LCALL STA
MOV A,#70H
LCALL TONG
MOV A,#07H
LCALL TONG
MOV A,#60H
LCALL TONG
MOV A,33H
LCALL TONG
LCALL STOP
RET
STA:     SETB SDA ；7290启动子程序
SETB SCL
NOP
NOP
NOP
CLR SDA
NOP
NOP
NOP
CLR SCL
NOP
RET
STOP:    CLR SDA ；7290停止子程序
SETB SCL
NOP
NOP
NOP
SETB SDA
NOP
NOP
NOP
CLR SCL
NOP
RET
WRB:     MOV R0,#8；7290字节数据发送子程序
CLR C
WLP:   RLC A
JC WR1
CLR SDA
NOP
NOP
SETB SCL
NOP
NOP
NOP
CLR SCL
DJNZ R0,WLP
RET
WR1:     SETB SDA
NOP
NOP
NOP
SETB SCL
NOP
NOP
NOP
NOP
CLR  SCL
NOP
NOP
CLR SDA
DJNZ R0,WLP
RET
CACK:   SETB SDA；应答位检查子程序
SETB SCL
NOP
NOP
NOP
MOV C,SDA
MOV F0,C
CLR SCL
NOP
NOP
NOP
RET
TONG:    LCALL WRB；检查和发送字节数据程序
LCALL CACK
;JB F0,TONG
RET
	END