jisan.asm

18B20汇编程序

JISAN:CLR C
       CLR FUSU_BIT;初始化负数标志位.
       MOV A,H_TEMP;判断是零上还是零下
       JNB ACC.7,ZHENSU
       SETB FUSU_BIT;是零下?度  标志位为1

;如果为零下时的转换(正数的补码为本身,负数的补码:取反加1)
       MOV A,L_TEMP
       CPL A
       INC A
       MOV L_TEMP,A
       MOV A,H_TEMP
       CPL A
       MOV H_TEMP,A

ZHENSU:CLR C
       MOV A,H_TEMP;整数部分
       SWAP A;高低四位互换
       MOV R7,A
       MOV A,L_TEMP
       ORL A,#00FH;去掉低四位(把后四位变为0)
       SUBB A,#00FH
       SWAP A;把高四位换到低四位
       ADDC A,R7

       MOV ZHENGSHU,A


       MOV B,#10
       DIV AB
       MOV SW,A
       MOV GW,B

XIAOSU:CLR C
       MOV A,L_TEMP;小数部分
       ORL  A,#11110000B
       CLR C
       SUBB A,#11110000B
       MOV L_TEMP,A
       MOV DOT,A

       MOV B,#6
       CLR C
       MUL AB
       MOV B,#10
       DIV AB
       MOV DSW,A
       MOV DGW,B

       RET

;------------------------
;温度计算子程序
;------------------------

FORMULA: ; 按公式：T实际=(T整数-0.25)+( M每度-M剩余)/ M每度
;计算出实际温度，整数部分和小数部分分别存于ZHENGSHU单元和DOT单元

;将61H中的低4位移入60H中的高4位，得到温度的整数部分，并存于ZHENGSHU单元
;将2EH中的低4位移入2FH中的高4位，得到温度的整数部分，并存于ZHENGSHU单元
;2F 2E 2D 2C 2B 2A 29 28
;60 61 62 63 64 65 66 67
;MOV 29H,2EH;61H
;MOV ZHENGSHU,A

; ( M每度-M剩余)/ M每度,小数值存于A中
MOV A,28H;67h
SUBB A,29H;66h
MOV B,#64H
MUL AB
MOV R4,B
MOV R5,A
MOV R7,28H;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,77H
JNC ZHENG ;是否为负数
CPL A
INC A
MOV DIS_1,#2DH ; 零度以下时,第一位显示"-"号
MOV ZHENGSHU,A
ZHENG:
MOV DIS_1,#2BH ; 零度以上时,第一位显示"+"号
RET
;------------------------
;双字节除以单字节子程序
;------------------------
DIV457: CLR C
MOV A,R4
SUBB A,R7
JC DV50
SETB OV ;商溢出
RET
DV50: MOV R6,#8 ;求平均值（R4R5／R7－→R3）
DV51: MOV A,R5
RLC A
MOV R5,A
MOV A,R4
RLC A
MOV R4,A
MOV F0,C
CLR C
SUBB A,R7
ANL C,/F0
JC DV52
MOV R4,A
DV52: CPL C
MOV A,R3
RLC A
MOV R3,A
DJNZ R6,DV51
MOV A,R4 ;四舍五入
ADD A,R4
JC DV53
SUBB A,R7
JC DV54
DV53: INC R3
DV54: CLR OV
RET
;---------------------
;转换成非压缩的BCD码
;---------------------
BCD1: MOV A,ZHENGSHU
MOV B,#0AH
DIV AB
ORL A,#00110000B ;转换成ASCII码
MOV DIS_2,A
MOV DIS_3,B
MOV A,DIS_3
ORL A,#00110000B ;转换成ASCII码
mov DIS_3,A

MOV A,DOT
MOV B,#0AH
DIV AB
ORL A,#00110000B ;转换成ASCII码
MOV DIS_4,A
MOV DIS_5,B
MOV A,DIS_5
ORL A,#00110000B ;转换成ASCII码
mov DIS_5,A

RET
;----------------------
;串口显示数据子程序
;----------------------

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,#0A1H
       MOV SBUF,A
       JNB TI,$
       CLR TI
       MOV A,#0E6H
       MOV SBUF,A
       JNB TI,$ ;发送符号℃至串口

CLR TI
MOV A,#0DH;换行
MOV SBUF,A
JNB TI,$ ;发送给PC,通过串口调试助手显示
;ajmp eee

CLR TI
MOV A,#0AH;换行
MOV SBUF,A
JNB TI,$ ;发送给PC,通过串口调试助手显示
RET