ORG PIC54
GOTO MAIN
ORG 0
;----------------------
;----------------------------
DELAY22
MOV LW D'200' ; DELAY 2*250=500mS
MOV WF COUNT1
DE32 MOV LW D'250' ; 8*250=2mS
MOV WF COUNT2
DE42 NOP ; 1+2+1=5uS
DECFSZ COUNT2,1
GOTO DE42
DECFSZ COUNT1,1
GOTO DE32
RETLW 0
;--------------------------------
; 子程序!!!
;********************************
MAIN
MOV LW 0FFH
TRIS RA
LOOP
CALL CONVERT
CALL DELAY22
CALL DELAY22
CALL GET_TEMP
GOTO LOOP
;------------------------
GET_TEMP
CALL INI
MOV LW 0CCH
MOV WF COMD
CALL WR1820
MOV LW 0BEH
MOV WF COMD
CALL WR1820
CALL RE1820
MOV F TEM_DATE,W
MOV WF TEM_DATEL
CALL RE1820
MOV F TEM_DATE,W
MOV WF TEM_DATEH
RETLW 0
;------------------------
CONVERT
CALL INI
MOV LW 0CCH
MOV WF COMD
CALL WR1820
MOV LW 44H
MOV WF COMD
CALL WR1820
RETLW 0
;---------DS1820---------
INI
; MOV LW B'00100000'
MOV LW 0
TRIS RA
BSF RA,3
NOP
BCF RA,3
MOV LW D'200'
MOV WF COUNT1
L0
DECFSZ COUNT1,1
GOTO L0
; MOV LW B'01100000'
MOV LW 0FH
TRIS RA
MOV LW D'30'
MOV WF COUNT1
L1
DECFSZ COUNT1,1
GOTO L1
BTFSC RA,3
GOTO INI
L2
MOV LW D'80'
MOV WF COUNT1
L3
DECFSZ COUNT1,1
GOTO L3
BTFSS RA,3
GOTO L0
RETLW 0
;-------------------------
WR1820
MOV LW 8
MOV WF COUNT2
WR0
; MOV LW B'00100000'
MOV LW 0
TRIS RA
BCF RA,3
NOP
NOP
MOV LW 2
MOV WF COUNT1
WR1
DECFSZ COUNT1,1
GOTO WR1
; MOV LW B'01111111'
MOV LW 0FH
BTFSC COMD,0
BSF RA,3
BTFSC COMD,0
TRIS RA
BCF STATUS,C
RRF COMD,1
MOV LW D'20'
MOV WF COUNT1
WR2
DECFSZ COUNT1,1
GOTO WR2
BSF RA,3
; MOV LW B'01100000'
MOV LW 0FH
TRIS RA
DECFSZ COUNT2,1
GOTO WR0
RETLW 0
;--------------------------
RE1820
MOV LW 8
MOV WF COUNT2
RE0
; MOV LW B'00100000'
MOV LW 0
TRIS RA
BCF RA,3
MOV LW 2
MOV WF COUNT1
RE1
DECFSZ COUNT1,1
GOTO RE1
; MOV LW B'01100000'
MOV LW 0FH
TRIS RA
NOP
BTFSS RA,3
BCF STATUS,C
BTFSC RA,3
BSF STATUS,C
RRF TEM_DATE,1
MOV LW D'20'
MOV WF COUNT1
RE2
DECFSZ COUNT1,1
GOTO RE2
DECFSZ COUNT2,1
GOTO RE0
BSF RA,3
RETLW 0
;-------------------------
;****************************
;**************************
END
上一篇:TIMER0控制单个LED闪烁
下一篇:pic16f877a 万年历程序
推荐阅读最新更新时间:2024-03-16 15:48
设计资源 培训 开发板 精华推荐
- 兆易创新GD25/55全系列车规级SPI NOR Flash荣获ISO 26262 ASIL D功能安全认证证书
- 新型IsoVu™ 隔离电流探头:为电流测量带来全新维度
- 英飞凌推出简化电机控制开发的ModusToolbox™电机套件
- 意法半导体IO-Link执行器电路板为工业监控和设备厂商带来一站式参考设计
- Melexis采用无磁芯技术缩小电流感测装置尺寸
- 千丘智能侍淳博:用数字疗法,点亮“孤独症”儿童的光
- 数药智能冯尚:ADHD数字疗法正为儿童“多动症”提供更有效便捷服务
- Vicor高性能电源模块助力低空航空电子设备和 EVTOL的发展
- 创实技术electronica 2024首秀:加速国内分销商海外拓展之路
- “跨芯片”量子纠缠实现 有助建构更强大的量子计算能力