📄 time-1302.s
字号:
.module time-1302.c
.area data(ram, con, rel)
_buf_time::
.blkb 33
.area idata
.byte 32,'D,'a,'y,58,50,48,48,55,45,48,49,45,49,54,32
.byte 'T,'i,'m,'e,58,32,48,48,58,48,48,58,48,48,32,32
.byte 0
.area data(ram, con, rel)
.dbfile E:\iccavr代码\实验6_实时时钟DS1302\time-1302.c
.dbsym e buf_time _buf_time A[33:33]c
_buf_write::
.blkb 2
.area idata
.byte 1,32
.area data(ram, con, rel)
.dbfile E:\iccavr代码\实验6_实时时钟DS1302\time-1302.c
.blkb 2
.area idata
.byte 1,22
.area data(ram, con, rel)
.dbfile E:\iccavr代码\实验6_实时时钟DS1302\time-1302.c
.blkb 2
.area idata
.byte 1,2
.area data(ram, con, rel)
.dbfile E:\iccavr代码\实验6_实时时钟DS1302\time-1302.c
.blkb 2
.area idata
.byte 7,0
.area data(ram, con, rel)
.dbfile E:\iccavr代码\实验6_实时时钟DS1302\time-1302.c
.dbsym e buf_write _buf_write A[8:8]c
.area text(rom, con, rel)
.dbfile E:\iccavr代码\实验6_实时时钟DS1302\time-1302.c
.dbfunc e DelaymS _DelaymS fV
; j -> R20,R21
; k -> R22,R23
; i -> R16,R17
.even
_DelaymS::
rcall push_gset2
.dbline -1
.dbline 44
; //******************************************************************************
; // *
; // FileName : 实验板time_1302.c ICCAVR V6.31A编译 *
; // Function : 实时时钟DS1302的读写操作应用 *
; // Date : 2007-01-16 *
; // Version : 1.0 *
; // *
; // Author : 开关电源 hongtusy@163.com *
; // Company : 电子信息技术咨询网 http://www.itsn.cn *
; // *
; //***************************描述与记事*****************************************
; //实验板的AVR程序，实时时钟DS1302应用，将实时时间通过串口打印到PC机上，并通过1602LCD
; //显示出来。只要不在主电源掉电下拆除电池，LCD将可以一直显示当前的实时时间。
; //接线定义：串口PD0(SW6-7)-RXD PD1(SW6-8)-TXD ，SW3-8为系统复位端。
; // SW5-1=PA3时钟CLK，SW5-2=PA4数据DAT，SW5-3=PA5复位RET。
; //PC(SW1-1~8)为LCD数据端，PD4(SW2-1),5(SW2-2),6(SW2-3) 为RS,R/W,EA脚 SW2-5为背光开关。
; //记事：本程序旨在对1302驱动的理解与演示，程序适合初学者使用.
; // 打开串口调试器(可能不能显示汉字)或windows自带的超级终端，调整波特率为9600bps，
; // 即可用PC观察到当前的时间和日期。
; //本例子使用片外8MHz晶体(注意熔丝位的设置)。默认使用ATmega8535作处理器。
; //秒寄存器的最高位在开机时默认是1，代表时钟振荡器停止，必须将其改为0后方可启动时钟。
; //******************************************************************************
;
; #include <iom8535v.h> //头文件，ATmega8535单片机的寄存器定义
; #include <macros.h> //包含有SEI()、CLI()、NOP()、WDR()、等宏定义.
;
; typedef unsigned char uchar; //数据类型说明
; typedef unsigned int uint; //数据类型说明
;
; uchar buf_time[]=" Day:2007-01-16 Time: 00:00:00 "; //LCD显示用的数组
;
; uchar buf_read[8]; //从DS1302读出的时间数据，数据格式为：秒 分 时 日 月 星期 年 写保护字节
; uchar buf_write[8]={0x01,0x20,0x01,0x16,0x01,0x02,0x07,0x00}; //往DS1302写入的时间数据
; // 数据格式为：01秒 20分 01时 16日 01月 02星期 07年 00写保护字节
;
; /************************************************
; 函 数 名： DelaymS()
; 功 能： 毫秒级延时函数
; 输入参数: 延迟时间/系统晶体
; 输出参数： 做相应的延迟处理
; 描 述： /
; ***********************************************/
; void DelaymS (uint i) //延时函数，参数i为延时时间
; {
.dbline 46
; uint j,k; //双重延时
; for (j=0;j<i;j++)
clr R20
clr R21
rjmp L5
L2:
.dbline 47
; {
.dbline 48
clr R22
clr R23
rjmp L9
L6:
.dbline 48
L7:
.dbline 48
subi R22,255 ; offset = 1
sbci R23,255
L9:
.dbline 48
ldi R24,500
ldi R25,1
cp R24,R22
cpc R25,R23
brsh L6
.dbline 49
L3:
.dbline 46
subi R20,255 ; offset = 1
sbci R21,255
L5:
.dbline 46
cp R20,R16
cpc R21,R17
brlo L2
.dbline -2
L1:
rcall pop_gset2
.dbline 0 ; func end
ret
.dbsym r j 20 i
.dbsym r k 22 i
.dbsym r i 16 i
.dbend
.dbfunc e write_data _write_data fV
; h -> R20
.even
_write_data::
rcall push_gset1
mov R20,R16
.dbline -1
.dbline 59
; for (k=0;k<=500;k++);
; }
; }
; /********************************************************
; 子程序名： write_data()
; 功 能： 写入一字节LCD数据
; 输入参数： /
; 输出参数： /
; 描 述： /
; ********************************************************/
; void write_data(uchar h)
; {
.dbline 60
; PORTC = h; //先将数据送出
out 0x15,R20
.dbline 61
; PORTD |= (1<<PD4); //RS=1,数据
sbi 0x12,4
.dbline 62
; PORTD &= ~(1<<PD5); //R/W=0,写
cbi 0x12,5
.dbline 63
; PORTD &= ~(1<<PD6); //EN=0 ,使能，产生一个下降沿。
cbi 0x12,6
.dbline 64
; DelaymS (1);
ldi R16,1
ldi R17,0
rcall _DelaymS
.dbline 65
; PORTD |= (1<<PD6); //EN=1 ,除能
sbi 0x12,6
.dbline -2
L10:
rcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r h 20 c
.dbend
.dbfunc e write_code _write_code fV
; h -> R20
.even
_write_code::
rcall push_gset1
mov R20,R16
.dbline -1
.dbline 75
; }
; /********************************************************
; 子程序名： write_code()
; 功 能： 写入一字节LCD指令/地址
; 输入参数： /
; 输出参数： /
; 描 述： /
; ********************************************************/
; void write_code(uchar h)
; {
.dbline 76
; PORTC = h; //先将地址送出
out 0x15,R20
.dbline 77
; PORTD &= ~(1<<PD4); //RS=0,命令或数据
cbi 0x12,4
.dbline 78
; PORTD &= ~(1<<PD5); //R/W=0,写
cbi 0x12,5
.dbline 79
; PORTD &= ~(1<<PD6); //EN=0 ,使能，产生一个下降沿。
cbi 0x12,6
.dbline 80
; DelaymS (1);
ldi R16,1
ldi R17,0
rcall _DelaymS
.dbline 81
; PORTD |= (1<<PD6); //EN=1 ,除能
sbi 0x12,6
.dbline -2
L11:
rcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r h 20 c
.dbend
.dbfunc e init_lcd _init_lcd fV
.even
_init_lcd::
.dbline -1
.dbline 91
; }
; /********************************************************
; 子程序名： init_lcd()
; 功 能： 初始化LCD
; 输入参数： /
; 输出参数： /
; 描 述： /
; ********************************************************/
; void init_lcd(void)
; {
.dbline 92
; write_code(0x01); //清除屏幕
ldi R16,1
rcall _write_code
.dbline 93
; write_code(0x38); //功能设定，8位数据口/2行/5*7的点阵
ldi R16,56
rcall _write_code
.dbline 94
; write_code(0b00001111); //显示幕ON，光标ON，闪烁ON
ldi R16,15
rcall _write_code
.dbline 95
; write_code(0x06); //模式，加1，显示幕ON。
ldi R16,6
rcall _write_code
.dbline 96
; write_code(0b00000011); //光标回到原点
ldi R16,3
rcall _write_code
.dbline -2
L12:
.dbline 0 ; func end
ret
.dbend
.dbfunc e display_lcd _display_lcd fV
; i -> R20
; p -> R22,R23
.even
_display_lcd::
rcall push_gset2
movw R22,R16
.dbline -1
.dbline 106
; }
; /********************************************************
; 子程序名： display_lcd()
; 功 能： 刷新显示一屏数据，独立的LCD显示程序,用户将显存内容更新后，只要调用此程序即可更新显示。
; 输入参数： /
; 输出参数： /
; 描 述： 在写一个字符前，先设定显示的位置地址，然后再写数据。系统可以自动地址加一。
; ********************************************************/
; void display_lcd(uchar *p)
; {
.dbline 108
; uchar i;
; write_code(0x80); //第一行起始地址，0b10000000B＝0x80.
ldi R16,128
rcall _write_code
.dbline 109
; for(i=0;i<16;i++)
clr R20
rjmp L17
L14:
.dbline 110
.dbline 111
mov R30,R20
clr R31
add R30,R22
adc R31,R23
ldd R16,z+0
rcall _write_data
.dbline 112
L15:
.dbline 109
inc R20
L17:
.dbline 109
cpi R20,16
brlo L14
.dbline 113
; {
; write_data(p[i]);
; }
; write_code(0xc0); //第二行起始地址，0b11000000B=0xc0.
ldi R16,192
rcall _write_code
.dbline 114
; for(i=16;i<32;i++)
ldi R20,16
rjmp L21
L18:
.dbline 115
.dbline 116
mov R30,R20
clr R31
add R30,R22
adc R31,R23
ldd R16,z+0
rcall _write_data
.dbline 117
L19:
.dbline 114
inc R20
L21:
.dbline 114
cpi R20,32
brlo L18
.dbline -2
L13:
rcall pop_gset2
.dbline 0 ; func end
ret
.dbsym r i 20 c
.dbsym r p 22 pc
.dbend
.dbfunc e InputByte _InputByte fV
; i -> R20
; CD -> R22
.even
_InputByte::
rcall push_gset2
mov R22,R16
.dbline -1
.dbline 127
; {
; write_data(p[i]);
; }
; }
; /************************************************
; 函 数 名： InputByte()
; 功 能： 串行写入1字节的数据函数
; 输入参数: /
; 输出参数： /
; 描 述： PA4为数据端，PA3为时钟端，bit0在先，时钟上升沿写入。
; ***********************************************/
; void InputByte (uchar CD)
; {
.dbline 129
; uchar i;
; for(i=0;i<8;i++)
clr R20
rjmp L26
L23:
.dbline 130
; {
.dbline 131
; if((CD & (1<<i))==0)
ldi R16,1
mov R17,R20
rcall lsl8
mov R2,R22
and R2,R16
brne L27
.dbline 132
; PORTA &= ~(1<<PA4); //数据端输出0
cbi 0x1b,4
rjmp L28
L27:
.dbline 134
; else
; PORTA |= (1<<PA4); //否则输出1
sbi 0x1b,4
L28:
.dbline 135
sbi 0x1b,3
.dbline 136
cbi 0x1b,3
.dbline 137
L24:
.dbline 129
inc R20
L26:
.dbline 129
cpi R20,8
brlo L23
.dbline -2
L22:
rcall pop_gset2
.dbline 0 ; func end
ret
.dbsym r i 20 c
.dbsym r CD 22 c
.dbend
.dbfunc e OutputByte _OutputByte fc
; mid -> R20
; i -> R22
.even
_OutputByte::
rcall push_gset2
.dbline -1
.dbline 147
; PORTA |= (1<<PA3); //时钟置高，产生上升沿。
; PORTA &= ~(1<<PA3); //时钟置低
; }
; }
; /************************************************
; 函 数 名： OutputByte
; 功 能： 从DS1302串行读出1字节的数据函数
; 输入参数: /
; 输出参数： /
; 描 述： PA4为数据端，PA3为时钟端，bit0在先，时钟下降沿读出。
; ***********************************************/
; uchar OutputByte (void)
; {
.dbline 148
; uchar i,mid=0;
clr R20
.dbline 149
; for(i=0;i<8;i++)
clr R22
rjmp L33
L30:
.dbline 150
; {
.dbline 151
; if((PINA & 0x10)==0) //操作的是PA4
sbic 0x19,4
rjmp L34
.dbline 152
; {
.dbline 153
; mid &= ~(1<<i); //读取0
ldi R16,1
mov R17,R22
rcall lsl8
mov R2,R16
com R2
and R20,R2
.dbline 154
; }
rjmp L35
L34:
.dbline 156
; else
; {
.dbline 157
; mid |= (1<<i); //读取1
ldi R16,1
mov R17,R22
rcall lsl8
or R20,R16
.dbline 158
; }
L35:
.dbline 159
sbi 0x1b,3
.dbline 160
cbi 0x1b,3
.dbline 161
L31:
.dbline 149
inc R22
L33:
.dbline 149
cpi R22,8
brlo L30
.dbline 162
; PORTA |= (1<<PA3); //时钟置高
; PORTA &= ~(1<<PA3); //时钟置低，产生下降沿
; }
; return (mid);
mov R16,R20
.dbline -2
L29:
rcall pop_gset2
.dbline 0 ; func end
ret
.dbsym r mid 20 c
.dbsym r i 22 c
.dbend
.dbfunc e write_DS1302 _write_DS1302 fV
; i -> R20
.even
_write_DS1302::
rcall push_gset1
.dbline -1
.dbline 173
; }
; /************************************************
; 函 数 名： write_DS1302
; 功 能： 给DS1302写入上电数据，置需要设定的时钟值
; 输入参数: /
; 输出参数： /
; 描 述： 单字节和多字节操作模式都用了。
; 数据格式为：秒 分 时 日 月 星期 年 写保护字节
; ***********************************************/
; void write_DS1302 (void)
; {
.dbline 176
; uchar i;
;
; DDRA |= (1<<DDA5)|(1<<DDA4)|(1<<DDA3); //复位,数据和时钟脚都为输出
in R24,0x1a
ori R24,56
out 0x1a,R24
.dbline 177
; PORTA &= ~(1<<PA5); //RST=0
cbi 0x1b,5
.dbline 178
; PORTA &= ~(1<<PA3); //CLK=0
cbi 0x1b,3
.dbline 179
; PORTA |= (1<<PA5); //RST=1
sbi 0x1b,5
.dbline 180
; NOP();
nop
.dbline 181
; InputByte(0x8e); //写保护命令字节的地址
ldi R16,142
rcall _InputByte
.dbline 182
; InputByte(0x00); //解除写保护命令
clr R16
rcall _InputByte
.dbline 183
; PORTA &= ~(1<<PA5); //RST=0
cbi 0x1b,5
.dbline 184
; PORTA &= ~(1<<PA3); //CLK=0
cbi 0x1b,3
.dbline 185
; PORTA |= (1<<PA5); //RST=1
sbi 0x1b,5
.dbline 186
; NOP();
nop
.dbline 187
; InputByte(0b10010000); //涓流充电寄存器的地址
ldi R16,144
rcall _InputByte
.dbline 188
; InputByte(0b10101010); //设置涓流充电
ldi R16,170
rcall _InputByte
.dbline 189
; PORTA &= ~(1<<PA5); //RST=0
cbi 0x1b,5
.dbline 190
; PORTA &= ~(1<<PA3); //CLK=0
cbi 0x1b,3
.dbline 191
; PORTA |= (1<<PA5); //RST=1
sbi 0x1b,5
.dbline 192
; NOP();
nop
.dbline 193
; InputByte(0xbe); //多字节写操作命令
ldi R16,190
rcall _InputByte
.dbline 194
; for (i=0;i<8;i++)
clr R20
rjmp L40
L37:
.dbline 195
.dbline 196
ldi R24,<_buf_write
ldi R25,>_buf_write
mov R30,R20
clr R31
add R30,R24
adc R31,R25
ldd R16,z+0
rcall _InputByte
.dbline 197
L38:
.dbline 194
inc R20
L40:
.dbline 194
cpi R20,8
brlo L37
.dbline 198
; {
; InputByte(buf_write[i]);
; }
; PORTA &= ~(1<<PA5); //RST=0
cbi 0x1b,5
.dbline -2
L36:
rcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r i 20 c
.dbend
.dbfunc e read_DS1302 _read_DS1302 fV
; i -> R20
.even
_read_DS1302::
rcall push_gset1
.dbline -1
.dbline 209
; }
; /************************************************
; 函 数 名： read_DS1302
; 功 能： 读取DS1302的所有时间数据
; 输入参数: /
; 输出参数： /
; 描 述： 使用多字节方式。
; 数据格式为：秒 分 时 日 月 星期 年
; ***********************************************/
; void read_DS1302 (void)
; {
.dbline 211
; uchar i;
; DDRA |= (1<<DDA5)|(1<<DDA3); //复位和时钟脚都为输出
in R24,0x1a
ori R24,40
out 0x1a,R24
.dbline 212
; PORTA &= ~(1<<PA5); //RST=0
cbi 0x1b,5
.dbline 213
; PORTA &= ~(1<<PA3); //CLK=0
cbi 0x1b,3
.dbline 214
; PORTA |= (1<<PA5); //RST=1
sbi 0x1b,5
.dbline 215
; DDRA |= (1<<DDA4); //数据脚为输出
sbi 0x1a,4
.dbline 216
; NOP();
nop
.dbline 217
; InputByte(0xbf); //多字节读命令
ldi R16,191
rcall _InputByte
.dbline 218
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -