tsonc.asm

来自「18B20汇编程序」· 汇编 代码 · 共 62 行

;功能说明:将16进制温度转为ASCII码并通过串口发送出去

BCD:ORL GW, #00110000B ;转换成ASCII码
    ORL SW, #00110000B ;转换成ASCII码
    ORL DSW,#00110000B ;转换成ASCII码
    ORL DGW,#00110000B ;转换成ASCII码

    MOV DPTR,#CHINA
S_CHINA:CLR A
        MOVC A,@A+DPTR
        cjne a,#'$',SBUF_C
        AJMP SCON_T
        
SBUF_C:MOV SBUF,A
       JNB TI,$
       CLR TI
       INC DPTR
       AJMP S_CHINA

SCON_T:CLR TI
       MOV A,SW
       MOV SBUF,A
       JNB TI,$;发送整数十位至串口 

       CLR TI
       MOV A,GW
       MOV SBUF,A
       JNB TI,$ ;发送整数个位至串口 

       CLR TI
       MOV A,#2EH
       MOV SBUF,A
       JNB TI,$ ;发送小数点至串口

       CLR TI
       MOV A,DSW
       MOV SBUF,A
       JNB TI,$ ;发送小数十位至串口 

       CLR TI
       MOV A,DGW
       MOV SBUF,A
       JNB TI,$ ;发送小数十位至串口

       CLR TI
       MOV A,#0A1H
       MOV SBUF,A
       JNB TI,$
       CLR TI
       MOV A,#0E6H
       MOV SBUF,A
       JNB TI,$ ;发送符号℃至串口

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

RET

CHINA:DB 0AH " 温度 " '$'