开发工具:
文件大小: 3kb
下载次数: 0
上传时间: 2010-05-15
详细说明： 基于51和DS1820的温控系统 数字显示 简易实用 代码详细 c和汇编的 DQ EQU P2.0 ORG 0000H AJMP MAIN MAIN: MOV TMOD,#20H MOV SCON,#50H MOV TH1,#0F3H MOV TL1,#0F3H SETB TR1 CLR TI CLR RI NOR: JNB RI,$ MOV A,SBUF CLR RI CJNE A,#'Y',NOR MAIN1: ACALL INIT_1820 ;初始化18B20 ACALL GET_TEMPER ;获取温度 MOV R0,#55H TRNEXT: MOV A,@R0 MOV SBUF,A JNB TI,$ CLR TI INC R0 CJNE R0,#57H,TRNEXT ;AJMP MAIN1 MOV R0,#22H RENEXT: JNB RI,$ MOV A,SBUF CLR RI MOV @R0,A INC R0 CLR RI CJNE R0,#29H,RENEXT NEXT: SETB P2.1 MOV A,22H CJNE A,#'3',SS CLR P2.1 SS: AJMP MAIN1 ;初始化子程序 INIT_1820: SETB DQ ;1 NOP CLR DQ ;0 MOV R0,#0FFH ;主机发出延时553US的抚慰脉冲 TSR1: DJNZ R0,TSR1 SETB DQ ;然后拉高数据线 NOP NOP NOP MOV R0,#25H TSR2: JNB DQ,TSR3 ;等待18B20回应 DJNZ R0,TSR2 ;延时 AJMP TSR4 TSR3: SETB F1 ;置位标志位，表示18B20存在 CLR P2.2 AJMP TSR5 TSR4: CLR F1 ; 清标志位，表示18B20不存在 AJMP TSR7 TSR5: MOV R0,#06BH TSR6: DJNZ R0,TSR6 ;时序要求延时一段时间 TSR7: SETB DQ RET ;温度获取程序 GET_TEMPER: SETB DQ ACALL INIT_1820 ;先复位 JB F1,TSS2 RET TSS2: MOV A,#0CCH ;跳过ROM匹配 ACALL WRITE_1820 MOV A,#44H ;温度转换 ACALL WRITE_1820 MOV 66H,#3 ;等待750MS，等待转换结束 TSS3: MOV 67H,#250 TSS4: DEC 67H ACALL DIMS MOV A,67H JNZ TSS4 DEC 66H MOV A,66H JNZ TSS3 ACALL INIT_1820 ;先复位 MOV A,#0CCH ;跳过ROM匹配 ACALL WRITE_1820 MOV A,#0BEH ;读温度命令 ACALL WRITE_1820 ACALL READ_1820 ;读取温度 RET WRITE_1820: MOV R2,#8 ;写命令程序 CLR C WR1: CLR DQ MOV R3,#5 WR2: DJNZ R3,WR2 RRC A MOV DQ,C MOV R3,#23 WR3: DJNZ R3,WR3 SETB DQ NOP DJNZ R2,WR1 SETB DQ RET ;读取温度 READ_1820: MOV R4,#2 MOV R1,#56H RE00: MOV R2,#8 RE01: CLR C SETB DQ NOP NOP CLR DQ NOP NOP NOP SETB DQ MOV R3,#5 RE10: DJNZ R3,RE10 MOV C,DQ MOV R3,#23 RE20: DJNZ R3,RE20 RRC A DJNZ R2,RE01 MOV @R1,A DEC R1 DJNZ R4,RE00 RET DIMS: MOV R7,#250 ;延时1MS DLAY: NOP ; 1US NOP ;1US NOP ;1US DJNZ R7,DLAY ;2US RET END ;结束 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
