单片机原理实验5简易温度警报系统程序.docVIP

1、MAIN.ASM ;====变量及常数定义段==== INCLUDE VARDFN.INC;添加变量等定义模块 ;=============== ORG 0000H LJMP MAIN ORG 000BH LJMP T0SER ;转T0中断服务子程序 ORG 0030H MAIN: INCLUDE INITIAL.INC;添加初始化模块 MLOOP: JNB TF0,$ ;4mS到？ CLR TF0 ;清定时标志 MOV TH0,#0F0H ;4mS定时重设 MOV TL0,#60H LCALL RDKEY ;调用读键状态及去抖处理 LCALL DISP ;调用数码管动态显示 DJNZ T100MS,ML0 MOV T100MS,#19H ;100mS定时器载入初值 CLR TR1 ;T1停止计数 MOV R3,TL1 ;读计数值,T1清0 MOV TL1,#00H MOV R2,TH1 MOV TH1,#00H SETB TR1 ;重启计数 ACALL FTEMP ;脉冲数转换为温度 ML0: MOV A,STA ;根据状态值散转相应模块 ANL A,#03H RL A MOV DPTR,#MTAB JMP @A+DPTR MTAB: AJMP WORK0 ;转移到待机模块 AJMP WORK1 ;转移到赋值模块 AJMP WORK2 ;转移到查询模块 AJMP WORK0 ;冗余 ;====待机模块==== WORK0: MOV R0,#TEMP0 ;温度送显缓 ACALL DSBUDT MOV DSB4,#01H ;LD1亮 JB ESW2,WK01 JB ESW1,WK02 SJMP WK03 WK01: MOV STA,#01H;下次主循环WORK1模块 SJMP WK03 WK02: MOV STA,#02H;下次主循环WORK2模块 WK03: AJMP MLOOP ;====赋值模块==== WORK1: MOV R0,#SNUM0 ;数据2送显缓 ACALL DSBUDT MOV DSB4,#02H ;LD2亮 JNB ESW2,WK11 MOV STA,#00H ;下次主循环WORK0 SJMP WK13 WK11: CLR A ;查询0键 JB EK0,WK12 INC A ;查询1键 JB EK1,WK12 INC A JB EK2,WK12 INC A JB EK3,WK12 INC A JB EK4,WK12 INC A JB EK5,WK12 INC A JB EK6,WK12 INC A JB EK7,WK12 INC A JB EK8,WK12 INC A ;查询9键 JNB EK9,WK13 WK12: XCH A,SNUM1 ;键值从数据2的右边移入，高2位不变 SWAP A ANL A,#0F0H ORL SNUM1,A WK13: AJMP MLOOP ;====报警模块==== WORK2: MOV A,SNUM1 ;组合数据并送显缓 MOV TEMP0,A MOV R0,#TEMP0 ACALL DSBUDT MOV TEMP0,#00H MOV DSB4,#04H ;LD3亮 CLR C MOV A,TEMP1 SUBB A,SNUM1 JC WK21 SETB LD8 WK21: JNB ESW1,WK22 ;有SW1键？ MOV STA,#00H ;下次主循环返回WORK0模块 WK22: AJMP MLOOP ;====其它非通用子程序==== DSBUDT: MOV A,@R0 ANL A,#0FH MOV DSB2,A MOV A,@R0 ANL A,#0F0H SWAP A MOV DSB3,A INC R0 MOV A,@R0 ANL A,#0FH MOV DSB0,A MOV A,@R0 ANL A,#0F0H SWAP A MOV DSB1,A RET ;====T0中断服务子程序==== T0SER: RETI ;====通用子程序段==== INCL