noname1.asm

水温控制

ORG 0000H
;单片机内存分配申明!
TEMPER_L EQU 29H;用于保存读出温度的低8位
TEMPER_H EQU 28H;用于保存读出温度的高8位
FLAG1 EQU 38H;是否检测到DS18B20标志位
a_bit equ 20h ;数码管个位数存放内存位置
b_bit equ 21h ;数码管十位数存放内存位置


        KEY_BUF_G DATA 39H ;键盘输入后，的个位值
        KEY_BUF_S DATA 49H ;键盘输入后，的十位值
        KEY_BUF_B DATA 41H ;键盘输入后，的百位值

        K_UP EQU P1.5     ;上调按钮
        K_DOWN EQU P1.6   ;下调按钮
        K_ENTER EQU P1.7  ;输入数据确认按钮
        K_NOWATER EQU P1.4

        P_DS18B20 EQU P3.3  ;读取DS18B20的输入端口
        P_SWITCH EQU P1.3   ;继电器控制端口,1－风扇，0－电炉

        FLAG EQU 20H.0        ;标志位,确定是否存在DS18B20
        ENTER_FLAG EQU 20H.1  ;键盘输入的标志位,为0说明键盘正在输入，为1说明键盘输入退出
MAIN:
LCALL GET_TEMPER;调用读温度子程序
;进行温度显示,这里我们考虑用网站提供的两位数码管来显示温度
;显示范围00到99度,显示精度为1度
;因为12位转化时每一位的精度为0.0625度,我们不要求显示小数所以可以抛弃29H的低4位
;将28H中的低4位移入29H中的高4位,这样获得一个新字节,这个字节就是实际测量获得的温度
;这个转化温度的方法可是我想出来的哦~~非常简洁无需乘于0.0625系数
MOV A,29H
MOV C,40H;将28H中的最低位移入C
RRC A
MOV C,41H
RRC A
MOV C,42H
RRC A
MOV C,43H
RRC A
MOV 29H,A
LCALL DISPLAY;调用数码管显示子程序
LCALL SCAN_KEY
LCALL SWITCH
AJMP MAIN

;程序名称:ERR
;功能:程序出错处理，显示四个8，即8888
;入口参数:无
;出口参数:DIS_BUF_X,DIS_BUF_G, DIS_BUF_S, DIS_BUF_B
ERR:	MOV a_bit,#08H ;如果没有找到DS18B20，那么就显示错误，错误显示为888
        MOV b_bit,#08H
        LCALL DISPLAY
        SETB P3.0
        RET


; 这是DS18B20复位初始化子程序
INIT_1820:
SETB P3.3
NOP
CLR P3.3
;主机发出延时537微秒的复位低脉冲
MOV R1,#3
TSR1:MOV R0,#107
DJNZ R0,$
DJNZ R1,TSR1
SETB P3.3;然后拉高数据线
NOP
NOP
NOP
MOV R0,#25H
TSR2:
JNB P3.3,TSR3;等待DS18B20回应
DJNZ R0,TSR2
LJMP TSR4 ; 延时
TSR3:
SETB FLAG1 ; 置标志位,表示DS1820存在
LJMP TSR5
TSR4:
CLR FLAG1 ; 清标志位,表示DS1820不存在
LJMP TSR7
TSR5:
MOV R0,#117
TSR6:
DJNZ R0,TSR6 ; 时序要求延时一段时间
TSR7:
SETB P3.3
RET

; 读出转换后的温度值
GET_TEMPER:
SETB P3.3
LCALL INIT_1820;先复位DS18B20
JB FLAG1,TSS2
RET ; 判断DS1820是否存在?若DS18B20不存在则返回
TSS2:
CLR P3.0;DS18B20已经被检测到!!!!!!!!!!!!!!!!!!
MOV A,#0CCH ; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#44H ; 发出温度转换命令
LCALL WRITE_1820
;这里通过调用显示子程序实现延时一段时间,等待AD转换结束,12位的话750微秒
LCALL DISPLAY
LCALL INIT_1820;准备读温度前先复位
MOV A,#0CCH ; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#0BEH ; 发出读温度命令
LCALL WRITE_1820
LCALL READ_18200; 将读出的温度数据保存到35H/36H
RET
;写DS18B20的子程序(有具体的时序要求)
WRITE_1820:
MOV R2,#8;一共8位数据
CLR C
WR1:
CLR P3.3
MOV R3,#6
DJNZ R3,$
RRC A
MOV P3.3,C
MOV R3,#23
DJNZ R3,$
SETB P3.3
NOP
DJNZ R2,WR1
SETB P3.3
RET
; 读DS18B20的程序,从DS18B20中读出两个字节的温度数据
READ_18200:
MOV R4,#2 ; 将温度高位和低位从DS18B20中读出
MOV R1,#29H ; 低位存入29H(TEMPER_L),高位存入28H(TEMPER_H)
RE00:
MOV R2,#8;数据一共有8位
RE01:
CLR C
SETB P3.3
NOP
NOP
CLR P3.3
NOP
NOP
NOP
SETB P3.3
MOV R3,#9
RE10:
DJNZ R3,RE10
MOV C,P3.3
MOV R3,#23
RE20:
DJNZ R3,RE20
RRC A
DJNZ R2,RE01
MOV @R1,A
DEC R1
DJNZ R4,RE00
RET

;程序名称:SCAN_KEY
;功能:扫描键盘
;入口参数:DIS_BUF_G,DIS_BUF_S,DIS_BUF_B
;出口参数:KEY_BUF_G,KEY_BUF_S,kEY_BUF_B
SCAN_KEY:
      JNB K_NOWATER,NOWATER
      JB K_ENTER,QUIT			;如果有Enter键入，则开始键盘输入
      LCALL K_DELAY
      JB K_ENTER,QUIT
      CLR ENTER_FLAG				;每次进来都赋值输入标志，设置为0
      MOV KEY_BUF_G,a_bit ;将当前的温度赋值给KEY_BUF,也就是说是以当前温度为基准，进行加减的
      MOV KEY_BUF_S,b_bit
K_LOOP:
      JB ENTER_FLAG,QUIT;如果输入完成，ENTER_FLAG则为1，退出键盘程序
      JB K_ENTER,KUP
      CALL PRO_ENTER
KUP:  JB K_UP,KDOWN
      CALL PRO_UP
KDOWN:JB K_DOWN,LOOPA
      CALL PRO_DOWN
LOOPA:LCALL DISPLAY
      SJMP K_LOOP
QUIT: RET


;程序名称：无水报警子程序
NOWATER:
       CALL K_DELAY
       JB  K_NOWATER,SCAN_KEY
       CLR P3.0
       call err
       CLR P1.3
       RET


;程序名称:PRO_ENTER
;功能:确认键盘输入和退出键盘输入
;入口参数:ENTER_FLAG
;出口参数:ENTER_FLAG
PRO_ENTER:
      CALL K_DELAY
      JB K_ENTER,K_LOOP ;按键抖动处理
      SETB ENTER_FLAG
      CALL K_DELAY
      RET

;程序名称:PRO_UP
;功能:数值上调处理
;入口参数:KEY_BUF_G,KEY_BUF_S,KEY_BUF_B
;出口参数:DIS_BUF_G,DIS_BUF_S,DIS_BUF_B
PRO_UP:
      CALL K_DELAY
      JB K_UP,K_LOOP    ;按键抖动处理
      INC KEY_BUF_G     ;个位增一
      MOV A,KEY_BUF_G
      CJNE A,#0AH,UPNEXT;个位增加到10，回0
      MOV KEY_BUF_G,#00H
      INC KEY_BUF_S     ;十位加一
      MOV A,KEY_BUF_S
      CJNE A,#0AH,UPNEXT;十位超过99，溢出了
      MOV R0,#200
ERROR1:LCALL ERR        ;出错，显示8888
      DJNZ R0,ERROR1
      DEC KEY_BUF_S     ;退回99
      MOV KEY_BUF_G,#09H
UPNEXT:
      MOV a_bit,KEY_BUF_G
      MOV b_bit,KEY_BUF_S

      CALL K_DELAY
      RET

;程序名称:PRO_DOWN
;功能:数值下调处理
;入口参数:KEY_BUF_G,KEY_BUF_S,KEY_BUF_B
;出口参数:DIS_BUF_G,DIS_BUF_S,DIS_BUF_B
PRO_DOWN:
      CALL K_DELAY
      JB K_DOWN,K_LOOP    ;按键抖动处理
      DEC KEY_BUF_G       ;个位减一
      MOV A,KEY_BUF_G
      CJNE A,#0FFH,DOWNNEXT;个位减到0，回到9
      MOV KEY_BUF_G,#09H
      DEC KEY_BUF_S        ;十位减一
      MOV A,KEY_BUF_S
      CJNE A,#0FFH,DOWNNEXT;十位低于0，溢出了
      MOV R0,#200
ERROR2:LCALL ERR           ;出错，显示8888
      DJNZ R0,ERROR2
      INC KEY_BUF_S        ;退回00
      MOV KEY_BUF_G,#00H
DOWNNEXT:
      MOV a_bit,KEY_BUF_G ;增加完成后，赋值退出，然后DISPLAY显示出来
      MOV b_bit,KEY_BUF_S
      CALL K_DELAY
      RET




K_DELAY:			;键盘抖动延时子程序
	MOV R6,#250
DL20MS_1:
	MOV R7,#200
	DJNZ R7,$
	DJNZ R6, DL20MS_1
	RET

;继电器控制
SWITCH:
        MOV A,KEY_BUF_G		;三个Buffer都是0的话，说明还没有输入数值，直接退出
        JNZ SNEXT
        MOV A,KEY_BUF_S
        JNZ SNEXT
        MOV A,KEY_BUF_B
        JZ  SQUIT
SNEXT:
	MOV A,KEY_BUF_S
	SUBB A,b_bit
	JC COOL
	JNZ HOT					;十位如果相等，那么继续比较个位
	MOV A,KEY_BUF_G
	SUBB A,a_bit
	JC COOL
HOT:  CLR P_SWITCH				;P_SWITCH 为0说明当前温度小于设定温度，要升温，所以接电炉
	  SJMP SQUIT
COOL: SETB P_SWITCH         ;P_SWITCH 为1说明当前温度大于设定温度，要降温，所以接风扇
SQUIT:RET

;显示子程序
display: mov a,29H;将29H中的十六进制数转换成10进制
mov b,#10 ;10进制/10=10进制
div ab
mov b_bit,a ;十位在a
mov a_bit,b ;个位在b
mov dptr,#numtab ;指定查表启始地址
mov r0,#4
dpl1: mov r1,#250 ;显示1000次
dplop: mov a,a_bit ;取个位数
MOVC A,@A+DPTR ;查个位数的7段代码
clr p2.1 ;开个位显示
mov p0,a ;送出个位的7段代码

acall d1ms ;显示1ms
setb p2.1
mov a,b_bit ;取十位数
MOVC A,@A+DPTR ;查十位数的7段代码
clr p2.0 ;开十位显示
mov p0,a ;送出十位的7段代码

acall d1ms ;显示1ms
setb p2.0
djnz r1,dplop ;100次没完循环
djnz r0,dpl1 ;4个100次没完循环
ret
;1MS延时(按12MHZ算)
D1MS: MOV R7,#80
DJNZ R7,$
RET
;实验板上的7段数码管0～9数字的共阴显示代码
numtab: DB 03FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
end