lcd1602_temp_v1.1.asm

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

;********************************************************
;使用LCD的温度控制器____2004.12.XUJING.
;-------------------------------------------
;00H:18B20存在标志位,0表示存在,1表示不存在              * 
;01H:温度设置标记位,1表示设定高温限值,0表示设定低温限值.*
;02H:暂未用,03H:控制器开关标记,0:表示温度低,1表示温度高
;注:;每次读写应先reset,然后跳过rom检测,再之后才能向18b20发命令.
;注;;MOV A,#4EH;应该是先送此条命令然后马上传两个字节的温度数据,中间不能用reset!.不然就出问题
;*注:程序编制中遇到2个主要错误:子程序中少写了ret而出现未知错误,
;标记位地址与字节地址重叠.
;对于不同的18b20这个程序可能有些问题,我遇到是的将暂存器的数据拷回18b20中数据无法保存.
;换过18b20就正常了.
;估计不同的18b20之间时序可能有微小的差别,或者是18b20损坏所致.
;*
;********************************************************
ORG 00H
JMP INPORT
ORG 0BH
;JMP TM0
ORG 30H
INPORT:
TMP_H EQU 29H ;温度高字节
TMP_L EQU 28H
RS EQU P3.7;确定具体硬件的连接方式 
RW EQU P3.6 ;确定具体硬件的连接方式
E  EQU P3.5 ;确定具体硬件的连接方式
KEY_SET EQU P3.0
KEY_UP  EQU P3.1
KEY_DOWN EQU P3.2
DS18B20_FLAG EQU 70h
SET_FLAG EQU 01H
FLASH_FLAG EQU 02H
K_ON EQU 03H
MOV 25H,#0FFH ;位00h-07h全部置1
MOV R4,#14
MOV TMOD,#01H
MOV TL0,#0B0H
MOV TH0,#3CH
MOV IE,#10000010B ;(8:总控,2:定时0溢出中断控制位)


LCD_INIT:
;15MS
MOV R6,#30
CALL DELAY_BY_R6 ;15ms
MOV P1,#38H ;写38h
ACALL WRITE_NOT_CHECK_BUSY 
MOV R6,#10
CALL DELAY_BY_R6 ;5ms																														
MOV P1,#38H
ACALL WRITE_NOT_CHECK_BUSY
MOV R6,#10
CALL DELAY_BY_R6 ;5ms
;-----设转初始值
SETB E
MOV P1,#00000001B ;清屏并光标复位
ACALL ENABLE;调用写入命令子程序 
MOV P1,#00111000B ;8位2行5x7点阵 
ACALL ENABLE ;调用写入命令子程序 
MOV P1,#00001110B ;显示器开、光标开、光标允许闪烁
ACALL ENABLE ;调用写入命令子程序
MOV P1,#00000110B;文字不动，光标自动右移 
ACALL ENABLE ;调用写入命令子程序


STORE_DEFINE_DATA: ;把自定义字符存入CGRAM
MOV P1,#40H ;CGRAM起始地址
ACALL ENABLE
MOV R2,#8
MOV DPTR,#DEFINE_DATA
MOV R3,#0
NEXTP:
MOV A,R3
MOVC A,@A+DPTR
MOV P1,A
CALL WRITE_DATA_TO_LCD
INC R3
DJNZ R2,NEXTP

;****************主程序*******************
START:
CALL RESET
JNB  70h,MAIN1
MOV P1,#0C0H ;写入显示起始地址（第二行第一个位置）
ACALL ENABLE ;调用写入命令子程序

DS18B20_NOT_READY: 
CALL DISPLAY_18B20_ERROR

LOOP1: 
CALL RESET
JNB 70h,MAIN1
JMP LOOP1 ;如果检测不到18b20程序下面不执行

MAIN1: 
MOV P1,#00000001B ;清屏并光标复位
ACALL ENABLE;调用写入命令子程序 
CALL DISPLAY_WATING ;等待第一次结果.
CALL SKIP_ROM 
CALL TEMP_CONV
CALL DELAY_600MS 
MOV P1,#00000001B ;清屏并光标复位
ACALL ENABLE;调用写入命令子程序



   
MAIN :
CALL RESET
CALL SKIP_ROM 
CALL RECALL_EPROM ;调入温度限值.
MAIN_MAIN:
CALL READ_TEMP ;读18b20的内部温度
JB 70h,DS18B20_NOT_READY ;中途失败!
CALL DATA_CONV ; 数据转换
CALL DISPLAY_18B20_TEMP
CALL DISPLAY_18B20_TEMP_XZ;显示限值.
CALL CONTROL
JNB KEY_SET,S1
JMP MAIN_MAIN


CONTROL:
JNB 03H,CONTROL1
LCALL DISPLAY_OFF
AJMP CONTROL_END
CONTROL1:
LCALL DISPLAY_ON
CONTROL_END:
RET 

S1:
LCALL DELAY_2MS ;延时消抖
JB KEY_SET,MAIN
JNB KEY_SET,$
LCALL KEY ;有键输入
AJMP MAIN


;***************键处理程序******************
KEY: SETB 01H
KEY_IN:;有键输入的程序
MOV P1,#00000001B ;清屏并光标复位
ACALL ENABLE;调用写入命令子程序
JNB 01H,DSP_SET_L ;01如果是0,则显示L:
DSP_SET_H: ;显示高温的限值
MOV P1,#10000000B
ACALL DISPLAY_SETING_TEMP_H ;显示SETING_TEMP:H ..
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
AJMP KEY_SELECT

DSP_SET_L:;显示低温的限值
MOV P1,#10000000B
ACALL DISPLAY_SETING_TEMP_L ;显示SETING_TEMP:L ..
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
AJMP KEY_SELECT 


KEY_SELECT:
JNB KEY_SET,K_SET
JNB KEY_UP,K_UP
JNB KEY_DOWN,K_DOWN
AJMP KEY_SELECT 


K_SET:
LCALL DELAY_2MS
lcall delay_2ms
lcall delay_2ms
JB KEY_SET,KEY_SELECT 


MOV R5,#250
KSET_LOOP:
JB KEY_SET,KEY_CPL
LCALL DELAY_2MS
LCALL DELAY_2MS
DJNZ R5,KSET_LOOP
AJMP EXT_KEY


K_UP:
LCALL DELAY_2MS
lcall delay_2ms
JB KEY_UP,KEY_SELECT
JNB  01H,K_UP_LOW

K_UP_HIGH:
JNB KEY_UP,$
MOV A,2AH
INC A 
MOV 2AH,A
JMP K_UP_DOWN_END

K_UP_LOW:
JNB KEY_UP,$
MOV A,2BH
INC A 
MOV 2BH,A
JMP K_UP_DOWN_END

;*********************

K_DOWN:
LCALL DELAY_2MS
JB KEY_DOWN,KEY_SELECT
JNB  01H,K_DOWN_LOW

K_DOWN_HIGH:
JNB KEY_DOWN,$
MOV A,2AH
DEC A 
MOV 2AH,A
JMP K_UP_DOWN_END

K_DOWN_LOW:
JNB KEY_DOWN,$
MOV A,2BH
DEC A 
MOV 2BH,A

K_UP_DOWN_END:

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 ;百位

AJMP KEY_IN 


KEY_CPL:
CPL 01H
AJMP KEY_IN




EXT_KEY:
MOV P1,#00000001B ;清屏并光标复位
CALL ENABLE;调用写入命令子程序
CALL DISPLAY_SAVE

CALL RESET
CALL SKIP_ROM
MOV A,#4EH
CALL WRITE
MOV A,2AH ;2A数据送高温限值寄存器.
CALL WRITE
MOV A,2BH ;2B数据送低温限什寄存器.
CALL WRITE

CALL RESET 
CALL SKIP_ROM
MOV A,#48H ;将高低温限值寄存器数据送18B20-EPROM保存.
CALL WRITE
A_END:

RET







;***************18b20指令子程序**********************
READ_TEMP:  ;读1820内部温度子程序.
     CALL RESET
     JB 70h,EXT1 
     CALL SKIP_ROM 
     CALL TEMP_CONV ;温度AD变换
     CALL DELAY_600MS  ;时........
     CALL RESET
     CALL SKIP_ROM 
     CALL TEMP_GET ;发取温度的命令
     CALL READ ;接收...
	  EXT1:
     RET 

SKIP_ROM:;跳过ROM检测
    MOV A,#0CCH ;#0CCH为跳过rom命令
    CALL WRITE
    RET 

RECALL_EPROM:;重调Eprom
    MOV A,#0B8H
    CALL WRITE
    RET 

 
TEMP_CONV:
    MOV A,#44H ;AD变换
	 CALL WRITE
	 RET

TEMP_GET:
    MOV A ,#0BEH;读18b20命令
    CALL WRITE
    RET 


;****************************18B20基本时序子程序*********************************
RESET:  ;初始化子程序
   SETB P2.0 
   NOP 
   CLR P2.0    ;拉低
   MOV R3,#150 ; *4=600US
   CALL DELAY_BY_R3
   SETB P2.0    ;拉高
   MOV R3,#15  ; 60US
   CALL DELAY_BY_R3
   MOV R3,#60 ;4个周期*60=240US内检测 
A1: JNB P2.0,A2 ;检测到低平信号
    DJNZ R3,A1 ;如果没有应答的低电平信号,返回A1重新检测,超时后下一行,
    SETB 70h ;DS1820不存在.
    JMP A3
A2: CLR 70h
    MOV R3,120;240US;等恢复时间2*120=240us
    DJNZ R3, $
A3: 
   RET
;------------------------

WRITE:
    MOV R2,#8;一个字节为8位
    CLR C ;C位清0 C位用来放A的一位数据,用移位的方法放入C
B1: SETB P2.0
	 NOP 
    CLR P2.0
	 MOV R3,#4 ;16US
	 CALL DELAY_BY_R3
	 RRC A        ;把A中的数送入C
	 MOV P2.0,C   ;把C送入总线
    MOV R3,#12    ;48US(一位数据的发送:60us<tx<120us)
	 CALL DELAY_BY_R3
	 SETB P2.0  ;拉高1us结束一位
	 NOP 
	 DJNZ R2,B1
         RET

READ:
MOV R1,#4 ;接收4个字节数据依次是1.低位 2.高位. 3.高限 4.低限
MOV R0,#28H;低位放28H;高位放29h (1. 28H,2. 29H 3. 2AH 4. 2BH )
C0: MOV R2,#8;一字节数据8位
C1: CLR C ;清除C
SETB P2.0
NOP 
NOP 
CLR P2.0 ;拉低.
NOP ;1us秒后拉高?
SETB P2.0
MOV R3,#4  ;16us后采数据
CALL DELAY_BY_R3
MOV C,P2.0 ;读出18b20的数据
RRC  A ;移入A
MOV R3,#12;48US恢复时间
CALL DELAY_BY_R3
DJNZ R2,C1 ;一个字节收完
MOV @R0,A  ;移入存储位
INC  R0     ;下一位;29h
DJNZ R1,C0 ;全部取完吗?没有重复
RET 
;*********************************************************************************



;*****************LCD_控制命令***************
DISPLAY: MOV A,R1
MOVC A,@A+DPTR
MOV P1,A
CALL WRITE_DATA_TO_LCD
INC R1
DJNZ R0,DISPLAY
RET 


WRITE_NOT_CHECK_BUSY:
SETB E 
NOP
NOP 
CLR RS ;写入控制命令的子程序
CLR RW 
CLR E 
RET 


ENABLE:
SETB E
NOP
NOP