ds1302_.s

ATmega16应用例子

	.module DS1302_.C
	.area text(rom, con, rel)
	.dbfile D:\ICC_H\Software.H
	.dbfunc e speaData _speaData fV
;              y -> y+4
;              j -> y+0
;              i -> R10
;            len -> R12
;            dat -> y+16
	.even
_speaData::
	xcall push_arg4
	xcall push_gset4
	sbiw R28,8
	ldd R12,y+20
	.dbline -1
	.dbline 116
; /*********************************************************************
; 	微 雪 电 子   WaveShare   http://www.waveShare.net	
; 
; 功能目的:   建立使用DS1302的示例程序
; 
; 目标系统:   基于AVR单片机
; 
; 应用软件:   ICCAVR                                               
; 
; 版    本:   Version 1.0
; 
; 圆版时间:   2005-03-01
; 
; 开发人员:   SEE
; 
; 说    明:   若用于商业用途，请保留此段文字或注明代码来源 
; 
; 	深 圳 微 雪 电 子 保 留 所 有 的 版 权
; *********************************************************************/
; 
; /*01010101010101010101010101010101010101010101010101010101010101010101
; ----------------------------------------------------------------------
; 版本更新记录：
; 
; ----------------------------------------------------------------------
; 实验内容：
; 初始化、设置时间、获取时间，使用PA口的LED指示获取的时间数据，观测是否正确写入。
; ----------------------------------------------------------------------
; 硬件连接：
; 将PA口的LED指示灯使用短路帽短接。
; DS1302：VCC、GND、SCK、SIO、~RST
;          |    |   |    |    |
; M16SD： VCC、GND、PD0、PD1、PD2
; ----------------------------------------------------------------------
; 注意事项： 
; 详见M16SD说明书
; ----------------------------------------------------------------------
; 10101010101010101010101010101010101010101010101010101010101010101010*/
; 
; #include <iom16v.H>
; #include "D:\ICC_H\CmmICC.H"
; 
; #define OUT_SCK sbi(DDRC,7)
; #define OUT_SIO sbi(DDRC,6)
; #define OUT_RST sbi(DDRC,5)
; 
; #define IN_SIO  cbi(DDRC,6)
; 
; #define SET_SCK sbi(PORTC,7)
; #define SET_SIO sbi(PORTC,6)
; #define SET_RST sbi(PORTC,5)
; 
; #define CLR_SCK cbi(PORTC,7)
; #define CLR_SIO cbi(PORTC,6)
; #define CLR_RST cbi(PORTC,5)
; 
; #define GET_SIO gbi(PINC,6)
; 
; #include "D:\ICC_H\DS1302.H"
; 
; #define DISP_DDR  DDRA
; #define DISP_PORT PORTA
; 
; /*--------------------------------------------------------------------
; 函数全称：
; 函数功能：
; 注意事项：
; 提示说明：
; 输    入：	
; 返    回：
; --------------------------------------------------------------------*/
; void main()
; { 
; 	uint8 time[3];
; 	
; 	DISP_DDR = 0XFF;
; 	OUT_SCK;
; 	OUT_SIO;
; 	OUT_RST;
; 
; 	DS1302_init();
; 	DS1302_setTime(10,20,30);		//set time: 10:20:30
; 	while(1)
; 	{
; 		DS1302_getTime(time);
; 		DISP_PORT = time[0];
; 	}
; }
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
	.dbline 119
; 
; 
; 
	clr R10
	ldi R20,1
	ldi R21,0
	ldi R22,0
	ldi R23,0
	movw R30,R28
	std z+0,R20
	std z+1,R21
	std z+2,R22
	std z+3,R23
	xjmp L5
L2:
	.dbline 120
	.dbline 121
	movw R30,R28
	ldd R2,z+0
	ldd R3,z+1
	ldd R4,z+2
	ldd R5,z+3
	movw R30,R28
	ldd R6,z+16
	ldd R7,z+17
	ldd R8,z+18
	ldd R9,z+19
	st -y,R5
	st -y,R4
	st -y,R3
	st -y,R2
	movw R16,R6
	movw R18,R8
	xcall div32u
	movw R30,R28
	std z+4,R16
	std z+5,R17
	std z+6,R18
	std z+7,R19
	.dbline 122
	ldi R20,10
	ldi R21,0
	ldi R22,0
	ldi R23,0
	movw R30,R28
	ldd R2,z+4
	ldd R3,z+5
	ldd R4,z+6
	ldd R5,z+7
	st -y,R23
	st -y,R22
	st -y,R21
	st -y,R20
	movw R16,R2
	movw R18,R4
	xcall mod32u
	ldi R24,<_dataElem
	ldi R25,>_dataElem
	mov R30,R10
	clr R31
	add R30,R24
	adc R31,R25
	std z+0,R16
	.dbline 123
	movw R30,R28
	ldd R2,z+0
	ldd R3,z+1
	ldd R4,z+2
	ldd R5,z+3
	ldi R20,10
	ldi R21,0
	ldi R22,0
	ldi R23,0
	st -y,R5
	st -y,R4
	st -y,R3
	st -y,R2
	movw R16,R20
	movw R18,R22
	xcall empy32u
	movw R30,R28
	std z+0,R16
	std z+1,R17
	std z+2,R18
	std z+3,R19
	.dbline 124
L3:
	.dbline 119
	inc R10
L5:
	.dbline 119
	cp R10,R12
	brsh X0
	xjmp L2
X0:
	.dbline -2
L1:
	adiw R28,8
	xcall pop_gset4
	adiw R28,4
	.dbline 0 ; func end
	ret
	.dbsym l y 4 l
	.dbsym l j 0 l
	.dbsym r i 10 c
	.dbsym r len 12 C
	.dbsym l dat 16 l
	.dbend
	.dbfile D:\ICC_H\I2C.H
	.dbfunc e I2C_Start _I2C_Start fc
	.even
_I2C_Start::
	.dbline -1
	.dbline 126
; 
; 
; 
; 
; 
; 
; 
	.dbline 127
; 
	ldi R24,164
	out 0x36,R24
	.dbline 128
L7:
	.dbline 128
L8:
	.dbline 128
; 
	in R2,0x36
	sbrs R2,7
	rjmp L7
	.dbline 128
	.dbline 128
	.dbline 129
; 
	in R24,0x1
	andi R24,248
	cpi R24,8
	breq L10
	.dbline 130
; 
	clr R16
	xjmp L6
L10:
	.dbline 131
; 
	ldi R16,1
	.dbline -2
L6:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e I2C_Restart _I2C_Restart fc
	.even
_I2C_Restart::
	.dbline -1
	.dbline 142
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
	.dbline 143
; 
	ldi R24,164
	out 0x36,R24
	.dbline 144
L13:
	.dbline 144
L14:
	.dbline 144
; 
	in R2,0x36
	sbrs R2,7
	rjmp L13
	.dbline 144
	.dbline 144
	.dbline 145
; 
	in R24,0x1
	andi R24,248
	cpi R24,16
	breq L16
	.dbline 146
; 
	clr R16
	xjmp L12
L16:
	.dbline 147
; 
	ldi R16,1
	.dbline -2
L12:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e I2C_SendWrDAdr _I2C_SendWrDAdr fc
;         wrDAdr -> R16
	.even
_I2C_SendWrDAdr::
	.dbline -1
	.dbline 158
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
	.dbline 159
; 
	.dbline 159
	out 0x3,R16
	.dbline 159
	ldi R24,132
	out 0x36,R24
	.dbline 159
	.dbline 159
	.dbline 160
L19:
	.dbline 160
L20:
	.dbline 160
; 
	in R2,0x36
	sbrs R2,7
	rjmp L19
	.dbline 160
	.dbline 160
	.dbline 161
; 
	in R24,0x1
	andi R24,248
	cpi R24,24
	breq L22
	.dbline 162
; 
	clr R16
	xjmp L18
L22:
	.dbline 163
; 
	ldi R16,1
	.dbline -2
L18:
	.dbline 0 ; func end
	ret
	.dbsym r wrDAdr 16 c
	.dbend
	.dbfunc e I2C_SendWrDAdr_ _I2C_SendWrDAdr_ fc
;         wrDAdr -> R20,R21
	.even
_I2C_SendWrDAdr_::
	xcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 174
;