main.txt

嵌入式Linux应用系统开发实例精讲源代码

MAIN:
LCALL INIT_1820 	;调用复位DS1820子程序
MAIN1:
LCALL GET_TEMPER	;调用读温度子程序
LCALL FORMULA 	;通过公式计算,小数点后显示两位
LCALL BCD
LCALL DISPLAY 	;调用串口显示子程序
LCALL DELAY500 	;延时0.5秒
LCALL DELAY500 	;延时0.5秒
LCALL DELAY500 	;延时0.5秒
AJMP MAIN1
（2）DS1820复位初始化程序
INIT_1820:
SETB WDDATA
NOP
CLR WDDATA
;主机发出延时540微秒的复位低脉冲
MOV R0,#36
LCALL DELAY
SETB WDDATA		;然后拉高数据线
NOP
NOP
MOV R0,#36
TSR2:
JNB WDDATA,TSR3	;等待DS1820回应
DJNZ R0,TSR2
LJMP TSR4 			; 延时
TSR3:
SETB FLAG1 		; 置标志位,表示DS1820存在
LJMP TSR5
TSR4:
CLR FLAG1 			; 清标志位,表示DS1820不存在
LJMP TSR7
TSR5:
MOV R0,#06BH
TSR6:
DJNZ R0,TSR6 		;复位成功!时序要求延时一段时间
TSR7:
SETB WDDATA
RET
（3）读出转换后的温度值
GET_TEMPER:
SETB WDDATA 		; 定时入口
LCALL INIT_1820 	;先复位DS1820
JB FLAG1,TSS2
RET 				; 判断DS1820是否存在?若DS1820不存在则返回
TSS2:
MOV A,#0CCH 		; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#44H 		; 发出温度转换命令
LCALL WRITE_1820
MOV R0,#50 		;等待AD转换结束,12位的话750微秒.
LCALL DELAY
LCALL INIT_1820 	;准备读温度前先复位
MOV A,#0CCH 		; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#0BEH 		; 发出读温度命令
LCALL WRITE_1820
LCALL READ_18200	; 将读出的九个字节数据保存到60H-68H
RET
（4）写DS1820的子程序
WRITE_1820:
MOV R2,#8 			;一共8位数据
CLR C 
WR1:
CLR WDDATA
MOV R3,#6
DJNZ R3,$
RRC A
MOV WDDATA,C
MOV R3,#24
DJNZ R3,$
SETB WDDATA
NOP
DJNZ R2,WR1
SETB WDDATA
RET
（5）读DS1820的程序
从DS1820中读出九个字节的数据
READ_18200:
MOV R4,#9
MOV R1,#60H 		; 存入60H开始的九个单元
RE00:
MOV R2,#8
RE01:
CLR C
SETB WDDATA
NOP
NOP
CLR WDDATA
NOP
NOP
NOP
SETB WDDATA
MOV R3,#09
RE10:
DJNZ R3,RE10
MOV C,WDDATA
MOV R3,#23
RE20:
DJNZ R3,RE20
RRC A
DJNZ R2,RE01
MOV @R1,A
INC R1
DJNZ R4,RE00
RET
（6）温度计算子程序
FORMULA: ; 按公式：T实际=(T整数-0.25)+( M每度-M剩余)/ M每度
;计算出实际温度，整数部分和小数部分分别存于ZHENGSHU单元和DOT单元
;将61H中的低4位移入60H中的高4位，得到温度的整数部分，并存于ZHENGSHU单元
MOV 29H,61H
MOV A,60H
MOV C,48H
RRC A
MOV C,49H
RRC A
MOV C,4AH
RRC A
MOV C,4BH
RRC A
MOV ZHENGSHU,A
; ( M每度-M剩余)/ M每度,小数值存于A中
MOV A,67h
SUBB A,66h
MOV B,#64H
MUL AB
MOV R4,B
MOV R5,A
MOV R7,67H
LCALL DIV457
MOV A,R3

;再减去0.25，实际应用中减去25
SUBB A,#19H
MOV DOT,A 			;小数部分存于DOT中
MOV A,ZHENGSHU
SUBB A,#00H 		;整数部分减去来自小数部分的借位
MOV ZHENGSHU,A
MOV C,4BH
JNC ZHENG 			;是否为负数
CPL A
INC A
MOV DIS_1,#2DH 	; 零度以下时,第一位显示"-"号
MOV ZHENGSHU,A
ZHENG:
MOV DIS_1,#2BH 	;零度以上时,第一位显示"+"号
RET
（7）串口显示数据子程序
DISPLAY:
CLR TI
MOV A,DIS_1
MOV SBUF,A
JNB TI,$ 			;发送给PC,通过串口调试助手显示+/-
CLR TI
MOV A,DIS_2
MOV SBUF,A
JNB TI,$ 			;发送给PC,通过串口调试助手显示整数第一位
CLR TI
MOV A,DIS_3
MOV SBUF,A
JNB TI,$ 			;发送给PC,通过串口调试助手显示整数第二位
CLR TI
MOV A,#2EH
MOV SBUF,A
JNB TI,$ 			;发送给PC,通过串口调试助手显示小数点
CLR TI
MOV A,DIS_4
MOV SBUF,A
JNB TI,$ 			;发送给PC,通过串口调试助手显示小数第一位
CLR TI
MOV A,DIS_5
MOV SBUF,A
JNB TI,$ 			;发送给PC,通过串口调试助手显示小数第一位
CLR TI
MOV A,#0DH;换行
MOV SBUF,A
JNB TI,$ 			;发送给PC,通过串口调试助手显示
CLR TI
MOV A,#0AH			;换行
MOV SBUF,A
JNB TI,$ 			;发送给PC,通过串口调试助手显示
RET
（8）延时子程序
;为保证DS1820的严格I/O时序，需要做较精确的延时
;在DS1820操作中，用到的延时有15 μs，90 μs，270 μs，540 μs
;因这些延时均为15 μs的整数倍，因此可编写一个DELAY15（n）函数
DELAY: ;11.05962M晶振
LOOP: MOV R1,#06H
LOOP1: DJNZ R1,LOOP1
DJNZ R0,LOOP
RET
;500毫秒延时子程序，占用R4、R5
DELAY500:MOV R4,#248
DA222:MOV R5,#248
DJNZ R5,$
DJNZ R4,DA222
RET
END