电子发烧友App
ds3231程序
;宏定义区；
N_NOP MACRO
nop
nop
nop
ENDM
TRAP MACRO
nop
nop
nop
sjmp $
ENDM
TRAP_RET MACRO
nop
nop
nop
ret
nop
nop
nop
sjmp $
ENDM
;====================================================
; function: start_sd ;时钟启动
; input: ---------
; output: ---------
; usage: ---------
;======================================================
start_sd: ;时钟启动
;clr bsda
;N_NOP
setb sda
N_NOP
setb scl
N_NOP
jb sda, ssd_on
setb bsda
ssd_on: clr sda
;N_NOP
;clr scl
N_NOP
ret
;======================================================
; function: stop_sd ;时钟停止
; input: ---------
; output: ---------
; usage: ---------
;=======================================================
stop_sd: ;时钟停止
clr sda
N_NOP
clr sda
N_NOP
setb scl
N_NOP
setb scl
N_NOP
setb sda
N_NOP
ret
;==================================================
; function: ack(应答） bsend------发送位
; input: ---------
; output: ---------
; usage: ---------
;=====================================================
ack: ;时钟应答
clr sda
N_NOP
setb scl
N_NOP
clr scl
ret
;=====================================================
; function: nack ;发送非应答位
; input: ---------
; output: ---------
; usage: ---------
;========================================================
nack: ;非应答
setb sda
N_NOP
setb scl
N_NOP
clr scl
ret
;=========================================================
; function: check_ack ;应答位检查
; input: ---------
; output: ---------
; usage: ---------
;========================================================
check_ack: ;检查应答信号；
clr scl
N_NOP
setb sda
N_NOP
setb scl
N_NOP
mov r6, #255
cck_lp: jnb sda, cck_goon
djnz r6, cck_lp
cck_goon: clr scl
N_NOP
ret
;========================================================
; function: out_bit ;发送一位数给实时时钟
; input: c
; output: ---------
; usage: c
;========================================================
out_bit: ;发送一位数给实时时钟
;lcall dog_int_feed
clr scl
N_NOP
mov sda, c
N_NOP
setb scl
N_NOP
clr scl
N_NOP
TRAP_RET
;===============================================
; function: in_bit ;从实时时钟接收一位数
; input: ---------
; output: c
; usage: c
;=========================================================
in_bit: ;从实时时钟接收一位数
;lcall dog_int_feed
setb sda
N_NOP
setb scl
N_NOP
mov c, sda
clr scl
N_NOP
clr sda
N_NOP
TRAP_RET
;=====================================================
; function: sendh_l (高到低);发送一个字节给实时时钟
; input: a-----发送数据
; output: ---------
; usage: a,c,r7
; r7----发送位数(8位)
;=================================================
send_H_L: ;发送一个字节给实时时钟(高到低)
mov r7, #08h
send_loop: mov c, acc.7
lcall out_bit
rl a
djnz r7, send_loop
nop
nop
ret
;=======================================================
; function: receiveh_l(高到低) ;从总线接收一个字节
; input: ---------
; output: a---接收数据
; usage: a,r3,
;======================================================
receive_H_L: ;从总线接收一个字节(高到低)
mov r3, #08h
re_loop: lcall in_bit
rlc a
djnz r3, re_loop
ret
;=======================================================
; function: write_1_sd ;向I2C总线发送1个字节数据
; input: r0-----欲发送缓冲区地址
; r1-----器件地址
; output: ----------
; usage: a,r0,r1
;=========================================================
write_1_sd: ;向I2C总线发送1个字节数据
lcall start_sd
jb bsda, w1sd_end
mov a, #0d0h;#64h ;写命令字
lcall send_H_L
lcall check_ack
mov a, r1 ;写器件地址
;anl a, #0fh
;swap a
lcall send_H_L
lcall check_ack
mov a, @r0 ;写发送的数据
lcall send_H_L
lcall check_ack
lcall ack ;应答
w1sd_end: lcall stop_sd
ret
;=========================================================
; function: read_1_sd ;从I2C总线接收1个字节数据
; input: ---------
; r0----器件地址
; r1----欲接收数据存放缓冲区地址
; output: year,month...(时间寄存器）
; usage: a,r1
;========================================================
read_1_sd: ;从I2C总线接收1个字节数据
lcall start_sd
jb bsda, r1sd_end
mov a, #0d0h;#64h ;写命令字
lcall send_H_L
lcall check_ack
mov a, r0 ;写器件地址
;anl a, #0fh
;swap a
lcall send_H_L
lcall check_ack
lcall start_sd
jb bsda, r1sd_end
mov a, #0d1h;#65h
lcall send_H_L
lcall check_ack
lcall receive_H_L ;读数据放于时间寄存器
mov @r1, a
lcall nack
lcall stop_sd
ret
r1sd_end: lcall stop_sd
TRAP_RET
;================================================
; fuction: read_sd ;读实时时钟
; input: ------------
; output: year,month...(时间寄存器）
; usage: a,r0,r1
;=================================================
read_sd: ;读实时时钟
;--------------------------------------------------------
;function: read_1_sd ;从I2C总线接收1个字节数据
;input: ---------
; r0----器件地址
; r1----欲接收数据存放缓冲区地址
;output: year,month...(时间寄存器）时间寄存器）
;usage: a,r0,r1,r2---循环次数
;--------------------------------------------------------
mov r0, #0
mov r1, #second
mov r2, #3
rsd_lp: lcall read_1_sd
inc r1
inc r0
djnz r2, rsd_lp
ret
;=========================================================
; fuction: write_sd ;写实时时钟
; input: date_set
; output: ------------
; usage: a,r0,r1,r2
;============================================================
write_sd: ;写实时时钟
;--------------------------------------------------------
;function: write_1_sd ;向I2C总线发送1个字节数据
;input: r0-----欲发送缓冲区地址
; r1-----器件地址
;output: ----------
;usage: a,r0,r1,r2---循环次数
;--------------------------------------------------------
mov r0, #date_set
mov r1, #0
mov r2, #3
;zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
jb brun, ws_ret
jb bstop, ws_ret
jb bset, ws_ret
jb bset1, ws_ret
jnb bset2, ws_ret
mov a, in_code
cjne a, #53, ws_ret
;zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
wsd_lp: jnb bsaveT, ws_ret
lcall write_1_sd
inc r0
inc r1
djnz r2, wsd_lp
ws_ret: clr bsaveT
ret
;==========================================================
; fuction: time_int ;时钟初始化程序
; input: ------------
; output: ------------
; usage: a,r0
;=======================================================
time_int: ;时钟初始化程序
lcall start_sd
mov a, #0d0h;#64h
lcall send_H_L
lcall check_ack
mov a, #0f0h
lcall send_H_L
lcall check_ack
mov a, #20h
lcall send_H_L
lcall check_ack
lcall stop_sd
lcall start_sd
mov a, #0d0h;#64h
lcall send_H_L
lcall check_ack
mov a, #70h
lcall send_H_L
lcall check_ack
mov a, #00h
lcall send_H_L
lcall check_ack
lcall stop_sd
TRAP_RET
ds3231应用电路图
工商网监
评论