完善资料让更多小伙伴认识你,还能领取20积分哦, 立即完善>
扫一扫,分享给好友
ORG PIC54
GOTO MAIN ORG 0 ;---------------------- ;---------------------------- DELAY22 MOVLW D'200' ; DELAY 2*250=500mS MOVWF COUNT1 DE32 MOVLW D'250' ; 8*250=2mS MOVWF COUNT2 DE42 NOP ; 1+2+1=5uS DECFSZ COUNT2,1 GOTO DE42 DECFSZ COUNT1,1 GOTO DE32 RETLW 0 ;-------------------------------- ; 子程序!!! ;******************************** MAIN MOVLW 0FFH TRIS RA LOOP CALL CONVERT CALL DELAY22 CALL DELAY22 CALL GET_TEMP GOTO LOOP ;------------------------ GET_TEMP CALL INI MOVLW 0CCH MOVWF COMD CALL WR1820 MOVLW 0BEH MOVWF COMD CALL WR1820 CALL RE1820 MOVF TEM_DATE,W MOVWF TEM_DATEL CALL RE1820 MOVF TEM_DATE,W MOVWF TEM_DATEH RETLW 0 ;------------------------ CONVERT CALL INI MOVLW 0CCH MOVWF COMD CALL WR1820 MOVLW 44H MOVWF COMD CALL WR1820 RETLW 0 ;---------DS1820--------- INI ;MOVLW B'00100000' MOVLW 0 TRIS RA BSF RA,3 NOP BCF RA,3 MOVLW D'200' MOVWF COUNT1 L0 DECFSZ COUNT1,1 GOTO L0 ;MOVLW B'01100000' MOVLW 0FH TRIS RA MOVLW D'30' MOVWF COUNT1 L1 DECFSZ COUNT1,1 GOTO L1 BTFSC RA,3 GOTO INI L2 MOVLW D'80' MOVWF COUNT1 L3 DECFSZ COUNT1,1 GOTO L3 BTFSS RA,3 GOTO L0 RETLW 0 ;------------------------- WR1820 MOVLW 8 MOVWF COUNT2 WR0 ;MOVLW B'00100000' MOVLW 0 TRIS RA BCF RA,3 NOP NOP MOVLW 2 MOVWF COUNT1 WR1 DECFSZ COUNT1,1 GOTO WR1 ;MOVLW B'01111111' MOVLW 0FH BTFSC COMD,0 BSF RA,3 BTFSC COMD,0 TRIS RA BCF STATUS,C RRF COMD,1 MOVLW D'20' MOVWF COUNT1 WR2 DECFSZ COUNT1,1 GOTO WR2 BSF RA,3 ;MOVLW B'01100000' MOVLW 0FH TRIS RA DECFSZ COUNT2,1 GOTO WR0 RETLW 0 ;-------------------------- RE1820 MOVLW 8 MOVWF COUNT2 RE0 ;MOVLW B'00100000' MOVLW 0 TRIS RA BCF RA,3 MOVLW 2 MOVWF COUNT1 RE1 DECFSZ COUNT1,1 GOTO RE1 ;MOVLW B'01100000' MOVLW 0FH TRIS RA NOP BTFSS RA,3 BCF STATUS,C BTFSC RA,3 BSF STATUS,C RRF TEM_DATE,1 MOVLW D'20' MOVWF COUNT1 RE2 DECFSZ COUNT1,1 GOTO RE2 DECFSZ COUNT2,1 GOTO RE0 BSF RA,3 RETLW 0 ;------------------------- ;**************************** ;************************** END |
|
相关推荐
|
|
只有小组成员才能发言,加入小组>>
求解外围电路实现的是4脚给持续低电平复位并正常工作,高电平不工作的原因
2077 浏览 1 评论
3508 浏览 3 评论
PIC1946程序有一个变量在运行过程中恢复初始值其他变量保持不变
2334 浏览 2 评论
2761 浏览 0 评论
PIC16F1825的RC5引脚,在主程序中操作无效,在中断中可以改变是为什么?
4019 浏览 5 评论
968浏览 0评论
用XC8编译PIC18F25K80时提示下面Error,求怎么解决这个问题
6351浏览 0评论
小黑屋| 手机版| Archiver| 电子发烧友 ( 湘ICP备2023018690号 )
GMT+8, 2024-11-30 12:44 , Processed in 0.685148 second(s), Total 85, Slave 67 queries .
Powered by 电子发烧友网
© 2015 bbs.elecfans.com
关注我们的微信
下载发烧友APP
电子发烧友观察
版权所有 © 湖南华秋数字科技有限公司
电子发烧友 (电路图) 湘公网安备 43011202000918 号 电信与信息服务业务经营许可证:合字B2-20210191 工商网监 湘ICP备2023018690号