F0 BIT PSW.5 ；报警允许标志
TEMP1 DB 00H， 00H， 00H， 00H， 00H， 00H， 00H， 00H， 00H ；50H~58H单元初始化(清零)
ORG 0000H
AJMP MAIN ；转主程序 ORG 00BH
AJMP PT0 ORG 0030H
MAIN： MOV SP，#59H CLR F0 MOV TMOD，#01H MOV TL0，#0B0H MOV TH0，#3CH MOV R7，#150 SETB ET0 SETB EA SETB TRO MAIN1：ACALL KIN ACALL DISP SJMP MAIN1
定时器0中断服务子程序PT0： PT0： MOV TL0，#0BOH
MOV TH0，#3CH DJNZ R7，BACK MOV R7，#150 ACALL TIN MOV BT1，TEMP1 MOV BT0，TEMP0
ACALL DISP
；转T0中断服务子程序 ；设堆栈标志 ；报警标志清零
0初始化（方式1） 100ms定时常数
；置15s软计数器初值 ；允许定时器0中断 ；开中断 0 ；调键盘管理子程序 ；重置定时器0初值 ；15s到否，不到返回 ；重置软计数器初值 ；温度检测
；当前温度送到显示缓冲区 ；显示当前温度
6 ；定时器 ；定时器 ；启动定时器 ；调用显示子程序
ACALL CONT ；温度控制 ACALL ALARM ；温度越限报警 BACK：RETI
4.2温度检测电路
温度检测电路包括温度传感器、变送器和A/D转换三部分。传感器选用型号为WZB-003的铂热电阻，可满足本系统0~500℃测量范围的要求。变送器将电阻信号转换成与温度成正比的电压，当温度在0~500℃时变送器输出0~4.9v左右的电压。A/D转换可采用ADC0809进行，亦可采用单片机内部A/D功能进行。电路设计好后调整变送器的输出，使0~500℃的温度变化对应于0~4.9v的输出，则A/D转换对应的数字量位00H~FAH,即0~250，转换结果乘以2正好是温度值。用这种方法一方面可以减少标度变换的工作量，另一方面还可以避免标度变换带来的计算误差。
本设计A/D转换采用查询方式（由P1.4查询ADC0809的ECO转换结束信号）。为提高采样的可靠性，对采样温度进行数字滤波。数字滤波的方法很多，这里采用4次采样取平均值的方法。因此，4次采样的数字量之和除以2就是检测的当前温度。温度检测子程序流程图如图4-3所示。
7
开始检测结果缓冲区清零采样次数4送R2N启动A/D转换Y4次累加结果除以2送检测结果缓冲区（R2）-1送R2 R2=0?N转换结束？Y累加采样结果结果低8位送51H高8位送50H返回 图4-3 温度检测子程序流程图 4.3温度控制电路
控制电路采用可控硅来实现，双向可控硅SCR和电路电阻丝串接在交流220V市电回路中，单片机信号通过光电隔离器和驱动电路送到可控硅的控制端，由端口的高低电平来控制可控硅的导通与断开，从而控制电阻丝的通电加热时间。
将当前温度与预置温度比较，当前温度小于预置温度时，继电器闭合，接通电阻丝加热；当前温度大于预置温度时，继电器断开，停止加热；当二者相等时电路保持原来状态；当温度降低到比预置温度低2℃时，再重新启动加热；当前温度超出报警上下限时将启动报警，并停止加热。由于电炉加热时，当前温度有可能低于报警下限，为防止误报，在未达到预置温度时，不允许报警，为此设置了报警允许标志位F0。温度控制模块流程图见图4-4。
8
开始当前温度与预设温度比较当前温度<预设温度？NYN当前温度<预设温度-2？置允许报警标志Y开电炉关电炉返回 图4-4 温度控制模块流程图 4.4 人机对话电路
4.4.1键盘管理
为使系统简单紧凑，键盘只设置四个功能键，分别是“启动键”、“百位”、“十位”和“个位”。由P1口低四位作为键盘接口。利用数字键可以分别对预置温度的百位、十位和个位进行0~500℃的温度设置。程序设有预置温度合法检测报警，当预置温度超过500℃时会报警并且将温度设为500℃。键盘管理子程序流程图如图4-5所示。
9
开始预置温度合法检查P1.1=0？NY百位键输入值处理预置温度送显示缓冲区P1.2=1？NY百位键输入值处理N有键闭合？Y调用显示子程序P1.3=1？NP1.0=1？YY百位键输入值处理N保存新的温度预设值有键闭合？NY启动加热返回 图4-5 键盘管理子程序流程图 4.4.2 数码显示 本系统设有3位LED数码显示器，用于显示电阻炉的设定温度和实际温度。采用串行口扩展的静态显示电路作为显示接口电路。
显示子程序DISP如下：
DISP： ACALL HTB ；调用将显示数据转换成BCD码的子程序HTB
MOV SCON,#00H ；置串行口为方式0 MOV R2,#03H ；显示位数送R2 MOV R0,#T100 ；显示缓冲区首地址送R0 LD： MOV DPTR,#TAB ；指向字符码表首地址 MOV A,@R0 ；取出显示数据 MOVC A,@A+DPTR ；查表
MOV SBUF,A ；字符码送串行口
WAIT： JBC TI,NEXT ；发送结束转下一个数据并清除
10