INC DPTR
INC R7
CJNE R7,#100,RSD1
MOV SDZ3,#0CH ;超出上限
SJMP RSDRET
RSD3: MOV A,R7
MOV HEXB,A
ACALL HTDEC ;二进制到十进制转换
MOV SDZ3,A
MOV SDZ4,A
MOV A,SDZ3
ANL A,#0F0H
SWAP A
JNZ RSD9
MOV A,#0AH
RSD9: MOV SDZ3,A
RSDRET: RET
;. . . . . . 采 样 频 率 处 理 . . . . . .
FEQCL: INC R1
MOV @R1,FEQH
INC R1
MOV @R1,FEQL
RET
;. . . . . . 数字滤波 . . . . . .
FQ5P1: SETB RS0
MOV Q1R5,Q1R0
MOV R3,#FEBQA
CF5P2: MOV R2,#FEBQ1
MOV A,R2
MOV R0,A
INC R2
INC R2
MOV A,R2
MOV R1,A
CF5P1: INC R0
INC R1
MOV A,@R0
CLR C
SUBB A,@R1
JNZ HOP1 ;比较高字节
INC R0
MOV A,@R0
CLR C
SUBB A,@R1
JNC YXCH ;比较低字节
MOV A,@R0
XCH A,@R1 ;小在前,低字节交换
MOV @R0,A
SJMP YXCH
HOP1: JNC NXCH
MOV A,@R0 ;小在前,高字节交换
XCH A,@R1
MOV @R0,A
INC R0
INC R1
MOV A,@R1 ;小在前,低字节交换
XCH A,@R0
MOV @R1,A
SJMP YXCH
NXCH: INC R0
INC R1
YXCH: MOV A,R1
CLR C
SUBB A,R3
JNZ CF5P1
CJNE R3,#FEBQ2,CF5P2
MOV R1,#FEBQ3
MOV A,@R1
MOV FEQH,A
INC R1
MOV A,@R1
MOV FEQL,A
CLR RS0
MOV Q1R0,Q1R5
RET
3.系统调试
仪器按原理图装配完毕,CF01的引脚尽可能短,以减小测量误差。程序调试无误后写入IC01。温度检测仪无需调试即可工作;湿度检测计需调试工作点,业余条件下可自行创造一封闭环境进行湿度标定,在25℃环境温度下加湿,用高精度水银套管干湿球计测量湿度值,使环境相对湿度在90%处时稳定一段时间,用数字频率计测量IC02的3脚,调整W01值使输出频率为5870HZ;再将环境相对湿度调在30%处,微调W01使输出频率为7090HZ,反复多次上述过程即可完成标定工作。
本新闻共2页,当前在第1页 [1] [2]
|