设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 上下限温度控制器 汇编源码
返回列表 发新帖
查看: 4228|回复: 6
打印 上一主题 下一主题
收起左侧

上下限温度控制器 汇编源码

[复制链接]
跳转到指定楼层
楼主
ID:80951 发表于 2015-5-24 10:55 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
完整代码下载：
程序.rar (15.65 KB, 下载次数: 80)

单片机汇编源程序：
  1. ;温度上下限自由设定，P3.5设置温度上限，P3.6设置温度下限，P3.7为温度增加键，每按一次温度加一度。
  2. ;当按P3.5时，数码管显示H00；当按P3.6时，数码管显示L00，设置温度范围为整数，不含小数。
  3. ORG 0000H
  4. TEMPER_L EQU 29H
  5. TEMPER_H EQU 28H
  6. FLAG1 EQU 38H;是否检测到DS18B20标志位
  7. bwei  equ 22h
  8. A_BIT EQU 20H ;数码管个位数存放内存位置
  9. B_BIT EQU 21H ;数码管十位数存放内存位置
  10. XS    EQU 30H
  11. MOV A,#00H
  12. MOV P2,A
  13. MOV R5,#01H
  14. MAIN:LCALL GET_TEMPER;调用读温度子程序
  15. MOV A,29H
  16. MOV B,A
  17. CLR C
  18. RLC A
  19. CLR C
  20. RLC A
  21. CLR C
  22. RLC A
  23. CLR C
  24. RLC A
  25. SWAP A
  26. MOV 31H,A
  27. MOV A,B
  28. MOV C,40H;将28H中的最低位移入C
  29. RRC A
  30. MOV C,41H
  31. RRC A
  32. MOV C,42H
  33. RRC A
  34. MOV C,43H
  35. RRC A
  36. MOV 29H,A
  37. LCALL DISPLAY;调用数码管显示子程序
  38. AJMP MAIN; 这是DS18B20复位初始化子程序
  39. INIT_1820:SETB P1.0
  40. NOP
  41. CLR P1.0;主机发出延时537微秒的复位低脉冲
  42. MOV R1,#3
  43. TSR1:MOV R0,#107
  44. DJNZ R0,$
  45. DJNZ R1,TSR1
  46. SETB P1.0;然后拉高数据线
  47. NOP
  48. NOP
  49. NOP
  50. MOV R0,#25H
  51. TSR2:JNB P1.0,TSR3;等待DS18B20回应
  52. DJNZ R0,TSR2
  53. LJMP TSR4 ; 延时
  54. TSR3:SETB FLAG1 ; 置标志位,表示DS1820存在
  55. LJMP TSR5
  56. TSR4:CLR FLAG1 ; 清标志位,表示DS1820不存在
  57. LJMP TSR7
  58. TSR5:MOV R0,#117
  59. TSR6:DJNZ R0,TSR6 ; 时序要求延时一段时间
  60. TSR7:SETB P1.0
  61. RET; 读出转换后的温度值
  62. GET_TEMPER:SETB P1.0
  63. LCALL INIT_1820;先复位DS18B20
  64. JB FLAG1,TSS2
  65. RET ; 判断DS1820是否存在?若DS18B20不存在则返回
  66. TSS2:MOV A,#0CCH ; 跳过ROM匹配
  67. LCALL WRITE_1820
  68. MOV A,#44H ; 发出温度转换命令
  69. LCALL WRITE_1820;这里通过调用显示子程序实现延时一段时间,等待AD转换结束,12位的话750微秒
  70. LCALL DISPLAY
  71. LCALL INIT_1820;准备读温度前先复位
  72. MOV A,#0CCH ; 跳过ROM匹配
  73. LCALL WRITE_1820
  74. MOV A,#0BEH ; 发出读温度命令
  75. LCALL WRITE_1820
  76. LCALL READ_18200; 将读出的温度数据保存到35H/36H
  77. RET;写DS18B20的子程序(有具体的时序要求)
  78. WRITE_1820:MOV R2,#8;一共8位数据
  79. CLR C
  80. WR1:CLR P1.0
  81. MOV R3,#6
  82. DJNZ R3,$
  83. RRC A
  84. MOV P1.0,C
  85. MOV R3,#23
  86. DJNZ R3,$
  87. SETB P1.0
  88. NOP
  89. DJNZ R2,WR1
  90. RET; 读DS18B20的程序,从DS18B20中读出两个字节的温度数据
  91. READ_18200:MOV R4,#2 ; 将温度高位和低位从DS18B20中读出
  92. MOV R1,#29H ; 低位存入29H(TEMPER_L),高位存入28H(TEMPER_H)
  93. RE00:MOV R2,#8;数据一共有8位
  94. RE01:CLR C
  95. SETB P1.0
  96. NOP
  97. NOP
  98. CLR P1.0
  99. NOP
  100. NOP
  101. NOP
  102. SETB P1.0
  103. MOV R3,#9
  104. RE10: DJNZ R3,RE10
  105. MOV C,P1.0
  106. MOV R3,#23
  107. RE20: DJNZ R3,RE20
  108. RRC A
  109. DJNZ R2,RE01
  110. MOV @R1,A
  111. DEC R1
  112. DJNZ R4,RE00
  113. RET
  114. DISPLAY:
  115. MOV A,29H;将29H中的十六进制数转换成10进制
  116. MOV R3,A
  117. CLR  C
  118. SUBB  A,50H;温度上限
  119. JNB   CY, T3
  120. SETB P1.2;风扇继电器关
  121. SETB P2.5;报警关
  122. MOV   A,R3
  123. CLR   C
  124. SUBB  A,60H;温度下限
  125. JB   CY, T2
  126. SETB P1.1;加热继电器关
  127. SETB P2.5;报警关
  128. SJMP XIANSHI
  129. T2:
  130. CLR   P1.1;加热继电器开
  131. CLR P2.5;报警开
  132. LJMP  XIANSHI
  133. T3:
  134. CLR P1.2;风扇继电器开
  135. CLR P2.5;报警开
  136. XIANSHI:
  137. LCALL SETT
  138. DISP:
  139. MOV A,R3
  140. MOV B,#100 ;10进制/10=10进制
  141. DIV AB
  142. mov bwei,a
  143. mov a,b
  144. mov b,#10
  145. div ab
  146. MOV B_BIT,A ;十位在A
  147. MOV A_BIT,B ;个位在B
  148. MOV R0,#4
  149. CLR C;多加的
  150. DPL1: MOV R1,#250 ;显示1000次
  151. DPLOP:
  152.         MOV DPTR,#NUMTAB
  153.         MOV A,bwei
  154.         MOVC A,@A+DPTR ;查通道的7段代码
  155.         MOV P0,A ;送出十位的7段代码
  156.         CLR P2.3 ;开通道显示        
  157.         ACALL D1MS ;显示1MS
  158.         SETB P2.3




  163. MOV DPTR,#NUMTAB1
  164. MOV A,A_BIT ;取个位数
  165. MOVC A,@A+DPTR ;查个位数的7段代码
  166. MOV P0,A ;送出个位的7段代码
  167. CLR P2.1 ;开个位显示
  168. ACALL D1MS ;显示1MS
  169. SETB P2.1
  170. MOV DPTR,#NUMTAB
  171. MOV A,B_BIT ;取十位数
  172. MOVC A,@A+DPTR ;查十位数的7段代码
  173. MOV P0,A ;送出十位的7段代码
  174. CLR P2.2 ;开十位显示        
  175. ACALL D1MS ;显示1MS
  176. SETB P2.2
  177. JC XSW;多加的
  178. MOV A,31H
  179. MOV B,#160
  180. DIV AB
  181. MOV XS,B
  182. XSW:MOV A,XS
  183. MOVC A,@A+DPTR
  184. MOV P0,A
  185. CLR P2.0
  186. ACALL D1MS
  187. SETB P2.0
  188. SETB C;多加的
  189. DJNZ R1,DPLOP ;250次没完循环
  190. DJNZ R0,DPL1 ;4个250次没完循环
  191. RET;1MS延时(按12MHZ算)
  192. D1MS: MOV R7,#80
  193. DJNZ R7,$
  194. RET
  195. D10MS:        MOV R6,#20
  196. LOOP:        MOV R7,#250
  197.         DJNZ R7,$
  198.         DJNZ R6,LOOP
  199.         RET
  200. D5MS:        MOV R6,#10
  201. LOOP1:        MOV R7,#250
  202.         DJNZ R7,$
  203.         DJNZ R6,LOOP1
  204.         RET
  205. NUMTAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,7FH,7FH,7FH,7FH,7FH,7FH
  206. NUMTAB1: DB 0BFH,86H,0DBH,0CFH,0E6H,0EDH,0FDH,87H,0FFH,0EFH

  208. SETT:        
  209. TH:        JNB P3.6,GS
  210.         JNB P3.5,GSU
  211.         LJMP DISP
  212. GS:        LCALL D10MS
  213.         JB P3.6,TH
  214.         SJMP BIAN3
  215. GSU:        LCALL D10MS
  216.         JB P3.5,TH
  217.         SJMP BIAN

  219. BIAN3:        MOV R1,#00
  220. BIAN1:        MOV P0,#38H
  221.         CLR P2.2
  222.         SETB P2.0
  223.         SETB P2.1
  224.         LCALL D5MS
  225.         MOV A,R1
  226.         MOV B,#10
  227.         DIV AB
  228.         MOV DPTR,#NUMTAB
  229.         MOVC A,@A+DPTR
  230.         MOV P0,A
  231.         CLR P2.1
  232.         SETB P2.0
  233.         SETB P2.2
  234.         LCALL D5MS
  235.         MOV A,B
  236.         MOV DPTR,#NUMTAB
  237.         MOVC A,@A+DPTR
  238.         MOV P0,A
  239.         CLR P2.0
  240.         SETB P2.1
  241.         SETB P2.2
  242.         LCALL D5MS
  243.         MOV 60H,R1
  244.         
  245.         JB P3.7,BIAN1
  246.         JNB P3.7,$
  247.         INC R1
  248.         SJMP BIAN1

  250. BIAN:        MOV R0,#00
  251. BIAN2:        MOV P0,#76H
  252.         CLR P2.2
  253.         SETB P2.0
  254.         SETB P2.1
  255.         LCALL D5MS
  256.         MOV A,R0
  257.         MOV B,#10
  258.         DIV AB
  259.         MOV DPTR,#NUMTAB
  260.         MOVC A,@A+DPTR
  261.         MOV P0,A
  262.         CLR P2.1
  263.         SETB P2.0
  264.         SETB P2.2
  265.         LCALL D5MS
  266.         MOV A,B
  267.         MOV DPTR,#NUMTAB
  268.         MOVC A,@A+DPTR
  269.         MOV P0,A
  270.         CLR P2.0
  271.         SETB P2.1
  272.         SETB P2.2
  273.         LCALL D5MS
  274.         MOV 50H,R0
  275.         
  276.         JB P3.7,BIAN2
  277.         JNB P3.7,$
  278.         INC R0
  279.         SJMP BIAN2
  280.         RET
  281. END

复制代码


温度控制器

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的积分奖励！

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 顶顶 踩踩

相关帖子
回复

使用道具 举报

沙发
ID:54731 发表于 2015-5-24 19:11 | 只看该作者
咋有是汇编，也不错学习一下
回复

使用道具 举报

板凳
ID:160550 发表于 2017-1-11 11:02 | 只看该作者
谢谢啦，好资料，51黑有你更精彩！！！
回复

使用道具 举报

地板
ID:161036 发表于 2017-1-12 09:29 | 只看该作者
请问版主，昨天在这个帖子里无意中点了“程序下载”窗口，没有下载程序。我的黒币怎么被扣了？既然被扣了之后想补下也下不了，或者还是被扣黒币。我觉得这样不合理。

评分

参与人数 1黑币 +30 收起 理由
admin + 30 补偿

查看全部评分

回复

使用道具 举报

5#
ID:161036 发表于 2017-1-15 16:47 | 只看该作者
nongqsong 发表于 2017-1-12 09:29
请问版主，昨天在这个帖子里无意中点了“程序下载”窗口，没有下载程序。我的黒币怎么被扣了？既然被扣了之 ...

谢谢版主！
回复

使用道具 举报

6#
ID:134697 发表于 2017-1-17 14:35 来自手机 | 只看该作者
汇编有的玩了，谢谢分享！
回复

使用道具 举报

7#
ID:264959 发表于 2018-6-4 10:27 | 只看该作者
为什么我在里面找不到程序呢?
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表