|
ORG 1000H AJUMP MAIN ；转跳到主程序 ORG 00BH ；中断地址 AJUMP SERVER ；中断调用 MAIN: MOV TMOD , 40H ；初始值 MOV TH0 ， #5BH ；设置计时值 MOV TL0 ， #20H MOV TH1 ， #00H ；设置计数值 MOV TL1 ， #00H MOV R0 ， #10 ；设置1s时间 MOV A , #00H ；清空累加器 MOV 4000H , #05H ；存放最大值5米 MOV 4001H , #01H ；存放最小值1米 MOV 3000H , #00H ；清空显示数据 DATE1 ACALL DATE2 ；调用显示程序 MOV A , 3000H ；取位数据 SUBB A , 4000H ；与最大值比较 JC MIN ；当小于最大值，在于最小值比较 SET P1.1 ；发送高电平控制水泵 CLR P1.0 ；开启发射装置 ACALL D1MS CLR P1.1 ；停止发送 SET P1.0 ；关闭发射装置 AJUMP HEAR ；等待1s中断 MIN: SUB A 4001H ；与最小值比较 JC HEAR ；等待采集数据 SET P1.1 ；关闭水泵 CLR P1.0 ；开启发射装置 ACALL D1MS CLR P1.1 ；停止发送 SET P1.0 ；关闭发射装置 HEAR: AJMP HEAR ；等待1s中断 AJMP DATE1 ；重新取数据 ********TO中断程序（T0计时器，T1计数器）****** SERVER: PUSH A PUSH B PUSH DPL PUSH DPH ；保护现场 CLR TR0 CLR ET0 ；关中断 DEC R0 JNZ R0 T2 ；是否到了1S，否则跳到T2 CLR TR1 CLR ET1 ；停止计数 MOV A , TH1 ；将高八位的计数值存放A中 MOV B , TL1 ；将低八位的计数值存放B中 MOV 5001H ,B CZ A , F0 ；判断是否大于256 MOV 5000H , #25 F0: MOV B , #10 MOV A , 5001H DIV AB ADDC A, 5000H MOV 3000H , A ；存放水位值 MOV TL1 , #00H MOV TH1 , #00H ；计数值清零 SETB TR1 SETB ET1 ；启动计数 T2: MOV TH0, #5BH ；设置计时值 MOV TL0 #20H SETB TR0 SETB ET0 ；开计时中断 POP A POP B POP DPL POP DPH ；恢复现场 RETI ；转到显示程序 ********显示程序********* DATE2: MOV A , 3000H ；取水位数据 MOV B , #10 ；分离整数和最小值 DIV AB ；整数放A,小数放B ACALL CHAIAO ；调用查表 ADD A , #80H ；加小数点代码 MOV P2 , A ；显示整数的数值 MOV A , B ；取小数值 ACALL CHABIAO ；调用查表 MOV P0 , A ；显示小数的数值 RET ；返回 TABLE: DB 3FH, 06H, 5BH, 4FH, 66H ；0,1,2,3,4， DB 6DH, 7DH, 07H, 7FH, 6FH ；5.6.7.8.9 CHABIAO: PUSH DPH ；保护现场 PUSH DPL MOV DPTR , #TABLE MOVC A, @A+DPTR POP DPL POP DPH ；恢复现场 RET D1MS: MOV R7, #80 ；延时1MS子程序 DJNZ R7, $ RET END
| 
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
