多路温度检测

;八路循环显示，四数码管显示数据,第一位表示路数;显示范围00.0-100.0;键盘1--8选择对应路数; 正常时绿灯亮，不正常时红灯闪，蜂鸣器响，数字显示闪烁;通过按键解除声音与灯报警;通过按键可修改每一路的上下限;当某一路不正常时，会立即跳到非正常显示模式并且显示该路 NUM EQU 41HGREEN EQU P1.0RED EQU P1.1VOICE EQU P1.3ORG 0000HSJMP STARTORG 0003HLJMP ISR ;中断0用于解除报警START:SETB EX0;初始中断源SETB IT0; 边沿触发方式SETB EAMOV 47H,#10 ;范围的下限MOV 48H,#50 ;范围上限，用于后续比较等作用LCALL FDATE ;初始化8路每一路的上下限，默认为10-50MOV NUM,#00H ;初始化路数值MOV TMOD,#01H ;设置计时方式，time0方式1。

CLR TF0SJMP TIM0MAIN: JB TF0,RTIM0 ;利用查询方式计时M1: LCALL JUMPOO: LCALL DISPTYPE ;调用选择性显示子程序（内有判断是否按键）LCALL ADAD ;八路快速扫描，检查是否超过各路的范围LCALL AD ;调用AD转换子程序，并将值存入34H 地址MOV A,NUMRL A ;以下几句为将各路的上下限放入47h48h 中ADD A,#60HMOV R1,AMOV A,@R1MOV 48H,AINC R1MOV A,@R1MOV 47H,ALCALL ASC1 ;调用数字量与温度转换算法LCALL JUDGE ;判断是否超过温度范围JB 00H,YTCLR GREEN ;正常显示绿灯亮 CLR VOICELCALL DISPLAY ;显示JNB 06H,OOSJMP MAINYT:LCALL SPECILSETB REDCLR VOICETIM0: MOV R4,#00HT0LOP:MOV TL0,#00H ;预设值。

MOV TH0,#00H ;SETB TR0 ;开始计时。

SJMP M1RTIM0:CLR TR0CLR TF0INC R4CJNE R4,#0AH,T0LOP ; 多次循环计时通过改变0a值来改变显示时间MOV A,NUMINC AMOV NUM,ASJMP TIM0JUMP: MOV A,NUMCJNE A,#08H,NEXT ;若模拟路数到了08则在给它初始化00值MOV NUM,#00HNEXT: RET;*******************;AD转换子程序;******************AD: MOV DPTR,#0FFFEH ;AD转换端口MOV A,NUMMOVX @DPTR,AJNB P3.0,$ ;查询MOVX A,@DPTR ;读取8位数据MOV 4AH,A ;暂存入数据单元RET;*****************;数字量与温度之间的转换算法子程序;***************ASC1: MOV A,4AHCJNE A,#0FFH,UNDERMOV 3AH,#64H ;如果是100，赋初值MOV 42H,#00HSJMP SAVEUNDER:MOV B,#64HMUL AB ;乘以100MOV 3AH,B ;3AH存储乘积的高八位 MOV 42H,A ;低八位CLR CADD A,3AHMOV 42H,A ;42H保存余数部分MOV A,3AHADDC A,#00HMOV 3AH,A ;3AH保存整数部分SAVE:MOV A,42HMOV B,#0AHMUL ABMOV 33H,B ;33H保存小数部分MOV A,33HACALL ASCMOV 33H,ACOVT: MOV A,3AH ;将整数部分放入 A MOV B,#0AH ;位分离DIV ABPUSH ACCMOV A,BACALL ASCANL A,#7FHMOV 30H,A ;（30H）个位POP ACCMOV B,#0AHDIV ABPUSH ACCMOV A,BACALL ASCMOV 31H,A ;（31H）十位POP ACCACALL ASCMOV 32H,A ;（32H）百位MOV A,41HINC AACALL ASC ;显示路数MOV 34H,ARET;**************;转换为七段显示码;***************ASC: MOV DPTR,#2000HMOVC A,@A+DPTRRET;**************************;显示子程序;**************************DISPLAY:MOV DPTR,#0FFDDH ; 字位口MOV A,#08H ; 选择显示管3 MOVX @DPTR,AMOV DPTR,#0FFDCH ; 字形口MOV A,30H ; 个位显示MOVX @DPTR,AACALL DDELAY ; 调用显示延迟MOV DPTR,#0FFDDH ; 字位口MOV A,#10H ; 选择显示管2MOVX @DPTR,AMOV DPTR,#0FFDCH ; 字形口MOV A,31H ; 十位显示MOVX @DPTR,AACALL DDELAYMOV DPTR,#0FFDDH ;MOV A,#20H ;MOVX @DPTR,AMOV DPTR,#0FFDCH ; 字形口MOV A,32H ; 百位显示MOVX @DPTR,AACALL DDELAYMOV DPTR,#0FFDDH ; 字位口MOV A,#04H ; 选择显示管4MOVX @DPTR,AMOV DPTR,#0FFDCH ; 字形口MOV A,33H ; 小数位显示MOVX @DPTR,AACALL DDELAYMOV DPTR,#0FFDDH ; 字位口MOV A,#01H ; 选择显示管6MOVX @DPTR,AMOV DPTR,#0FFDCH ; 字形口MOV A,34H ; 路数显示MOVX @DPTR,AACALL DDELAYRETDDELAY: MOV R5,#0FFH ; 显示延迟DLOOP: NOPDJNZ R5,DLOOPRETORG 2000H ; 七段数码管码DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;********************;选择性显示子程序;*******************DISPTYPE:CLR AUU: LCALL KEYJB PSW.5,RETURN ;无键返回，进入正常显示CPL 06H ;用于选择某一路时将其锁定，再按下是解除MOV A,40HPUSH ACCSUBB A,#09H;判断0键是否按下，也即是否进入修改状态JNZ S1LCALL JTH0S1: POP ACCCJNE A,#08H,S2 ;判断是否是第1路MOV NUM,#00HRETS2: CJNE A,#0AH,S3 ;判断是否是第2路MOV NUM,#01HRETS3: CJNE A,#0CH,S4;判断是否是第3路MOV NUM,#02HRETS4: CJNE A,#01H,S5;判断是否是第4路MOV NUM,#03HRETS5: CJNE A,#03H,S6 ;判断是否是第5路MOV NUM,#04HRETS6: CJNE A,#05H,S7 ;判断是否是第6路MOV NUM,#05HRETS7: CJNE A,#00H,S8 ;判断是否是第7路MOV NUM,#06HRETS8: CJNE A,#02H,RETURN ;判断是否是第8路MOV NUM,#07HRETURN:RET;***************;非正常显示子程序;***********SPECIL:SETB 01H ;设定位用于显示红灯MOV R3,#03HMOV R0,#00H ;用于判断是否7路正常MOV NUM,#00HTG: SJMP TIM1CLR TF0MAIN1:JB TF0,RTIM1M2: LCALL JUMP1LCALL ADMOV A,NUM ;以下几句为将各路的上下限放入47h48h中 RL AADD A,#60HMOV R1,AMOV A,@R1MOV 48H,A INC R1MOV A,@R1MOV 47H,ALCALL ASC1 ;转换成温度值LCALL JUDGE ;判断范围JNB 00H,LL ;判断是否超过范围LCALL DISPLAY ;显示SJMP MAIN1TIM1: MOV R4,#00HT1LOP:MOV TL0,#00H ;预设值。

MOV TH0,#00H ;SETB TR0 ;开始计时。

SJMP M2RTIM1:CLR TR0CLR TF0LCALL WARN ;报警INC R4MOV R3,#01H ;用于闪烁延时MOV A,#0FFH ;共阳灭码用于报警时闪烁显示MOV DPTR,#0FFDCHMOVX @DPTR,ALCALL LAYCJNE R4,#0AH,T1LOP ; 多次循环计时MOV A,NUMINC AMOV NUM,ASJMP TGLL: INC R0 ;不超过范围跳到此位置CJNE R0,#08H,JJ ;若R0值为8说明八路都正常则返回否则NUM加一AJMP REREJJ: MOV A,NUM ;该路正常num迅速加一返回INC AMOV NUM,ASJMP TIM1JUMP1: MOV A,NUMCJNE A,#08H,NEXT2 ;判断num是否是8，若是重新初始 MOV NUM,#00HMOV R0,#00HNEXT2: RETRERE:RET;************; 报警子程序;*************WARN:JNB 01H,FANSETB GREENCPL RED ;红灯闪烁表示报警SETB VOICE ;接喇叭报警器RETFAN: SETB REDCLR GREENCLR VOICERET;************; 扫描键子程序;*********KEY:ACALL KINPRETKINP:LCALL KAP ;JNZ KP1SETB PSW.5 ;置无键标志RETKP1:LCALL DELY ;去抖LCALL KAP ;再次扫描键盘JNZ KP2 ;转识键码程序SETB PSW.5 ;置无键标志RETKP2:CLR PSW.5 ;置有键操作标志MOV R2,#0FEH ;逐列扫描初始值MOV R1,#00H ;0列加数KP4:MOV DPTR,#0FFDDHMOV A,R2MOVX @DPTR,A ;送列扫描信号MOV DPTR,#0FFDEHMOVX A,@DPTR ;回读行信号JB ACC.0,L1 ;不是第一行，转第二行MOV A,#00H ;是第一行，行吗=0AJMP KP5L1:JB ACC.1,L2 ; 不是第二行，转第三行MOV A,#08H ;是第二行，行码=8AJMP KP5L2:JB ACC.2,L3 ;不是第三行，转第四行MOV A,#10H ;是第三行，行码=16AJMP KP5L3:JB ACC.3,NEXT1 ;不是第四行，转下一列MOV A,#18H ; 是第四行，行码=24KP5:ADD A,R1MOV 40H,APUSH ACC ;保护已经得到的键码KP3:LCALL DELYLCALL KAP ;继续扫描JNZ KP3 ;A值不等于0，表示手未松开！POP ACC ;A值等于0，手已经松开，弹回键码！ RETNEXT1:INC R1 ;下一列列码加1MOV A,R2 JNB ACC.7,KINP ;列到最后列了吗？RL AMOV R2,A ;下一列AJMP KP4 ;扫描下一列KAP:MOV A,#00H ;全扫描字（列）MOV DPTR,#0FFDDHMOVX @DPTR,A ;送全扫描字MOV DPTR,#0FFDEHMOVX A,@DPTR ;回读行信息CPL AANL A,#0FH ;得到A值，=0，无键；≠0,有键RETDELY:MOV R6,#02H;#14H ;去抖！DL:MOV R7,#0FFHDJNZ R7,$DJNZ R6,DLRET;***************;判断范围子程序;*************JUDGE: CLR CMOV A,3AHPUSH ACCSUBB A,47H ;3AH内存入的是范围的下限POP ACCJC TRANCLR 00H ;若不超过范围则00H被清零SUBB A,48H ;3BH存入的是范围的上限JNC TRANCLR 00HRETTRAN: SETB 00H ;若超过范围则00H被置一RET;****************; 延时子程序该程序延时100毫秒，时间可通过R3调整 ;*****************LAY:WA:MOV TMOD,#01HMOV TL0,#0B0HMOV TH0,#3CHSETB TR0 ;开始计时WAIT:JNB TF0,WAITCLR TF0DJNZ R3,WARET;***********; 中断0服务子程序(用于结束灯报警);************ISR:CLR 01H ;清除标志位01h返回后用于解除报警RETI;**************;快速扫描8路温度程序用于显示之前快速判断8路温度是否有超过范围的;****************ADAD:MOV A,NUMPUSH ACC ;入站保存路数num值MOV R7,#00HXU: MOV DPTR,#0FFFEH ;AD转换端口MOV A,R7MOVX @DPTR,AJNB P3.0,$ ;查询MOVX A,@DPTR ;读取8位数据MOV 4AH,AMOV A,NUM ;以下几句为将各路的上下限放入47h48h 中RL A ;左移一位相等于乘以2ADD A,#60HMOV R1,AMOV A,@R1MOV 48H,AINC R1MOV A,@R1MOV 47H,A ;将下限值存入47h内LCALL ASC1LCALL JUDGE ;判断是否超过范围JNB 00H,FCLCALL SPECILFC: INC R7MOV A,R7CJNE R7,#08H,XUPOP ACC ;出站把值送入numMOV NUM,ARET;******************************************;数据存储及调用模块;*****************************************FDATE: ;各路默认的高低限MOV R0,#60HFD: MOV A,#50 ;各路默认的高限MOV @R0,AINC R0MOV A,#10 ;各路默认的低限MOV @R0,AINC R0CJNE R0,#70H,FD MOV R0,#00HRETODATE: MOV A,NUM ;各路高低限取出，存入48h 和47h中，每次必取RL AADD A,#60HMOV R0,A ;存入60h加num的二倍 MOV A,@R0MOV 48H,AINC R0MOV A,@R0MOV 47H,ARETIDATE: MOV A,NUM ;各路高低限调用，从47h48h 每次修改必入RL AADD A,#60HMOV R0,AMOV A,48HMOV @R0,AINC R0MOV A,47HMOV @R0,ARET;*********************;以下为修改模块;*********************JTH0: CLR P1.4 ;修改状态标志;LCALL FDATE ;若由此句，每次都初始化;SETB P1.3 ;关正常时闪烁CLR TR0 ;关计时CLR TF0MAIN3: MOV 49H,#00H ;进入修改选路时显示LCALL DISPTYPE1JB PSW.5,MAIN33 ;无按键处理MOV A,46HCJNE A,#09H,MAIN34 ;=8，跳出修改状态，小于8路次SJMP RETTMAIN34: JNC MAIN33 ;大于8，无按键处理LCALL ODATELCALL JTH ;修改,先显示高限。