lcd1602_temp_v1.1.asm

对于不同的18b20这个程序可能有些问题,我遇到是的将暂存器的数据拷回18b20中数据无法保存. 换过18b20就正常了.

CLR RS ;写入控制命令的子程序
CLR RW 
CLR E 
ACALL TEST_BUSY
SETB E 
RET


TEST_BUSY:
SETB E 
NOP
NOP 
MOV P1,#0FFH ;判断液晶显示器是否忙的子程序
CLR RS 
SETB RW
CLR E 
NOP 
SETB E 
JB P1.7,TEST_BUSY ;如果P1.7为高电平表示忙就循环等待 
RET


WRITE_DATA_TO_LCD:
SETB E 
NOP
NOP
SETB RS ;RS=1 
CLR RW ;RW=0 ;准备写入数据
CLR E ;E=0 ;执行显示命令
ACALL TEST_BUSY ;判断液晶模块是否忙?
SETB E ;E=1 ;显示完成,程序停车
RET 




;***************************数据转换***************************
DATA_CONV:  ;数据转换
MOV A,28H ;低字节
ANL A,#0FH;去除高位
MOV B,#6;乘6得到实际数值的100倍.
MUL AB
MOV B,#10
DIV AB
MOV 33H,A;小数位高
MOV 32H,B; 小数位低
MOV A,28H
MOV C,29H.0 ;29h高位的低4字节
RRC A 
MOV C,29H.1
RRC A 
MOV C,29H.2
RRC A 
MOV C,29H.3
RRC A 
MOV 28H,A ;重新合成.结果存在28H.
MOV A,28H
MOV B,#10
DIV AB 
MOV 26H,A ;整数位高
MOV 25H,B ;整数位低 
;-------------------------
MOV A,2AH
MOV B,#10
DIV AB
MOV 40H,B ;高温限值个位 
MOV B,#10
DIV AB
MOV 41H,B;十位
MOV 42H,A;百位
;----------------------------
MOV A,2BH
MOV B,#10
DIV AB
MOV 43H,B ;低温限值位个位 
MOV B,#10
DIV AB
MOV 44H,B ;十位
MOV 45H,A ;百位

CLR C 
MOV A,28H;现温度值与高温限值比较
SUBB A,2AH
JC BIG ;如果高.则关机器
CLR C 
MOV A,2BH;现温度与低温限值比较
SUBB A,28H
JC X_BIG ;低温限值比现温高,则开机器
AJMP CONVERT_END
BIG:
CLR K_ON
AJMP CONVERT_END
X_BIG:
SETB K_ON 
CONVERT_END:
RET 







;********************显示温度*************************
DISPLAY_18B20_TEMP: ;LCD_显示子程序
MOV P1,#10000000B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB3;显示'WENDU:'
MOV R1,#0 ;码表初值
MOV R0,#7;字数
CALL DISPLAY
;---------------显示温度值高位
MOV DPTR,#LED_DATA
MOV R1,26H ;码表初值
MOV R0,#1;字数
CALL DISPLAY
;---------------显示温度值低位
MOV DPTR,#LED_DATA
MOV R1,25H ;码表初值
MOV R0,#1;字数
CALL DISPLAY
;---------------显示小数点
MOV DPTR,#DOT
MOV R1,#0 ;码表初值
MOV R0,#1;字数
CALL DISPLAY
;---------------显示温度值小数高位
MOV DPTR,#LED_DATA
MOV R1,33H ;码表初值
MOV R0,#1;字数
CALL DISPLAY
;---------------显示温度值小数低位
MOV DPTR,#LED_DATA
MOV R1,32H ;码表初值
MOV R0,#1;字数
CALL DISPLAY
;---------------显示单位度
MOV DPTR,#SIGN
MOV R1,#0 ;码表初值
MOV R0,#2;字数
CALL DISPLAY
RET 



;******************显示限值.*****************
DISPLAY_18B20_TEMP_XZ:
MOV P1,#11000000B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB_L ; 显示'L:'
MOV R1,#0 ;码表初值
MOV R0,#2;字数
CALL DISPLAY

;---------------显示温度限值高位
MOV DPTR,#LED_DATA
MOV R1,45H ;码表初值
MOV R0,#1;字数
CALL DISPLAY
;---------------显示温度限值低位
MOV DPTR,#LED_DATA
MOV R1,44H ;码表初值
MOV R0,#1;字数
CALL DISPLAY
;-----------------
MOV DPTR,#LED_DATA
MOV R1,43H ;码表初值
MOV R0,#1;字数
CALL DISPLAY

MOV P1,#11000111B; 显示位置
ACALL ENABLE 
;----
MOV DPTR,#TAB_H ; 显示'H:'
MOV R1,#0 ;码表初值
MOV R0,#2;字数
CALL DISPLAY
;---------------显示高温度限值高位
MOV DPTR,#LED_DATA
MOV R1,42H ;码表初值
MOV R0,#1;字数
CALL DISPLAY
;---------------显示高温度限值低位
MOV DPTR,#LED_DATA
MOV R1,41H ;码表初值
MOV R0,#1;字数
CALL DISPLAY
;-------------------
MOV DPTR,#LED_DATA
MOV R1,40H ;码表初值
MOV R0,#1;字数
CALL DISPLAY
RET 



      
;**********************提示语**********************
DISPLAY_18B20_HELLO:
MOV P1,#10000000B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB_HELLO
MOV R1,#0 ;码表初值
MOV R0,#16;字数
CALL DISPLAy
RET 

/*
DISPLAY_18B20_TESTING:
MOV P1,#10000000B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB_TESTING
MOV R1,#0 ;码表初值
MOV R0,#16;字数
CALL DISPLAy
RET 
*/


DISPLAY_18B20_ERROR:
MOV P1,#00000001B ;清屏并光标复位
ACALL ENABLE
MOV DPTR,#TAB1
MOV R1,#0 ;码表初值
MOV R0,#16;字数
CALL DISPLAy
RET 



DISPLAY_WATING: 
MOV P1,#00000001B ;清屏并光标复位
ACALL ENABLE;调用写入命令子程序
MOV P1,#10000000B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB2
MOV R1,#0 ;码表初值
MOV R0,#13;字数
CALL DISPLAy
RET 

DISPLAY_SAVE: 
MOV P1,#00000001B ;清屏并光标复位
ACALL ENABLE;调用写入命令子程序
MOV P1,#10000000B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB_SAVE
MOV R1,#0 ;码表初值
MOV R0,#10;字数
CALL DISPLAy
RET 


DISPLAY_SETING_TEMP_H:
MOV P1,#00000001B ;清屏并光标复位
ACALL ENABLE;调用写入命令子程序
MOV P1,#10000000B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB_SETING_TEMP_H
MOV R1,#0 ;码表初值
MOV R0,#13;字数
CALL DISPLAy
RET

DISPLAY_SETING_TEMP_L:
MOV P1,#00000001B ;清屏并光标复位
ACALL ENABLE;调用写入命令子程序
MOV P1,#10000000B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB_SETING_TEMP_L
MOV R1,#0 ;码表初值
MOV R0,#13;字数
CALL DISPLAy
RET


DISPLAY_ON:
MOV P1,#11001101B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB_ON
MOV R1,#0 ;码表初值
MOV R0,#3;字数
CALL DISPLAy
RET

DISPLAY_OFF:
MOV P1,#11001101B; 显示位置
ACALL ENABLE ;执行指令
MOV DPTR,#TAB_OFF
MOV R1,#0 ;码表初值
MOV R0,#3;字数
CALL DISPLAy
RET



/*
ADJ_FLASH:
JB FLASH_FLAG,
MOV P1,#1 ;在显示数字的位置用三个空格..
ACALL ENABLE;
*/ 
;*****************提示语**********************
/*
TM0:;定时器程序.
DJNZ R0,N1
CPL  02H
MOV R0,#14H
N1:
MOV TL0,#0B0H
MOV TH0,#3CH
RETI
*/


;**************廷时程序************************
DELAY_BY_R3: 
NOP
NOP 
DJNZ R3,DELAY_BY_R3
RET 

DELAY_BY_R6:
D1: MOV R7,#0
DJNZ R7,$
DJNZ R6,D1
RET




DELAY_2MS:
          MOV R6,#2
F2:       MOV R7,#75
F1:       NOP 
	  NOP 
	  DJNZ R7,F1
          DJNZ R6,F2
	  RET 

DELAY_600MS:
          MOV R6,#0
G2:       MOV R7,#0
G1:       NOP 
	  NOP
          NOP
          NOP 
          NOP 
          NOP
          NOP 
          NOP
	  DJNZ R7,G1
          DJNZ R6,G2
	  RET 
 
DELAY_1M:
MOV R6,#0
MOV R7,#0
E1:  NOP
NOP
DJNZ R7,E1
DJNZ R6,E1
RET 




DEFINE_DATA:
DB 0CH,12H,12H,0CH,00H,00H,00H,00H;度
;DB 04H,0CH,12H,0DH,1EH,04H,08H,00H;今
;DB 0EH,04H,1FH,04H,04H,0AH,11H,00H;天
;DB 0EH,0EH,0EH,1FH,04H,0EH,17H,00H;是
;DB 10H,1FH,02H,0FH,0AH,1FH,02H,00H;年
;DB 0FH,09H,0FH,09H,0FH,09H,13H,00H;月
;DB 0FH,09H,09H,0FH,09H,09H,0FH,00H;日

LED_DATA: DB '0123456789'
	 

TAB_HELLO: 
    DB 'Hello!' ;6
    DB 0H,1H,2H,3H,4H,5H,6H

TAB_TESTING:
    DB 'TEXTING...' ;10

TAB1:
    DB '18B20 NO CONNECT'

TAB2:
    DB 'Waiting......'

TAB3:
    DB 'WENDU: '

DOT:
    DB "."

SIGN:
    DB 00H,'C'

TAB_L:
    DB 'L:'

TAB_H:
    DB 'H:' 
   
TAB_SETING_TEMP_H:
    DB 'SETING_TMP:H '

TAB_SETING_TEMP_L:
    DB 'SETING_TMP:L '

TAB_SAVE:
    DB 'SAVEING...'

TAB_ON:
    DB 'ON '

TAB_OFF:
    DB 'OFF'


END