📄 数字钟.s
字号:
.module _数字钟.c
.area text(rom, con, rel)
.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_数字钟\数字钟.c
.dbfunc e port_init _port_init fV
.even
_port_init::
.dbline -1
.dbline 9
; //ICC-AVR application builder : 2009-3-11 12:47:48
; // Target : M8
; // Crystal: 8.0000Mhz
;
; #include <iom8v.h>
; #include <macros.h>
;
; void port_init(void)
; {
.dbline 10
; PORTB = 0x00;
clr R2
out 0x18,R2
.dbline 11
; DDRB = 0x00;
out 0x17,R2
.dbline 12
; PORTC = 0x00; //m103 output only
out 0x15,R2
.dbline 13
; DDRC = 0x00;
out 0x14,R2
.dbline 14
; PORTD = 0x00;
out 0x12,R2
.dbline 15
; DDRD = 0x00;
out 0x11,R2
.dbline -2
L1:
.dbline 0 ; func end
ret
.dbend
.dbfunc e init_devices _init_devices fV
.even
_init_devices::
.dbline -1
.dbline 20
; }
;
; //call this routine to initialize all peripherals
; void init_devices(void)
; {
.dbline 22
; //stop errant interrupts until set up
; CLI(); //disable all interrupts
cli
.dbline 23
; port_init();
rcall _port_init
.dbline 25
;
; MCUCR = 0x00;
clr R2
out 0x35,R2
.dbline 26
; GICR = 0x00;
out 0x3b,R2
.dbline 27
; TIMSK = 0x00; //timer interrupt sources
out 0x39,R2
.dbline 28
; SEI(); //re-enable interrupts
sei
.dbline -2
L2:
.dbline 0 ; func end
ret
.dbend
.dbfunc e delay_us _delay_us fV
; time -> R16,R17
.even
_delay_us::
.dbline -1
.dbline 40
; //all peripherals are now initialized
; }
;
; /************************************
; 用 途:微秒级延时程序
; Taget :mega8
; crystal :8M
; 介 绍:在8M的晶振上进行us级的延时
; 入口参数:
; *************************************/
; void delay_us(int time)
; {
L4:
.dbline 42
; do
; {
.dbline 43
; time--;
subi R16,1
sbci R17,0
.dbline 44
; }
L5:
.dbline 45
; while (time > 1);
ldi R24,1
ldi R25,0
cp R24,R16
cpc R25,R17
brlt L4
X0:
.dbline -2
L3:
.dbline 0 ; func end
ret
.dbsym r time 16 I
.dbend
.area lit(rom, con, rel)
_num::
.byte 63,6
.byte 91,'O
.byte 'f,'m
.byte 125,7
.byte 127,'o
.byte 'w,124
.byte 57,94
.byte 'y,'q
.dbsym e num _num A[16:16]kc
.area text(rom, con, rel)
.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_数字钟\数字钟.c
.dbfunc e show_6_digit _show_6_digit fV
; j -> R20
; i -> R10
; p -> R22,R23
.even
_show_6_digit::
rcall push_xgsetF00C
movw R22,R16
.dbline -1
.dbline 74
; }
;
; /************************************
; 用 途:六位数码管的显示程序
; Taget :mega8
; crystal :8M
; 介 绍:数码管共阳
; a-PB0
; b-PB1
; ...
; h-PB6
; DP-PB7
; -------
; 1-PC5
; 2-PC4
; 3-PC3
; 4-PC2
; 5-PC1
; 6-PC0
; 使用show_6_digit(p)
; unsigned char数组
; B用作数据口
; C用作片选
; 入口参数:显示数组
; *************************************/
; const unsigned char num[16]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,
; 0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71};
; void show_6_digit(unsigned char *p)
; {
.dbline 76
; unsigned char i,j;
; DDRB=0xff;
ldi R24,255
out 0x17,R24
.dbline 77
; DDRC=0xff;
out 0x14,R24
.dbline 78
; for (j=0;j<200;j++)
clr R20
rjmp L11
L8:
.dbline 79
; {
.dbline 80
; for (i=0;i<6;i++)
clr R10
rjmp L15
L12:
.dbline 81
; {
.dbline 82
; PORTC=0;//先关显示
clr R2
out 0x15,R2
.dbline 83
; PORTB=~num[*(p+5-i)];//送数据
mov R2,R10
clr R3
movw R30,R22
adiw R30,5
sub R30,R2
sbc R31,R3
ldd R30,z+0
clr R31
ldi R24,<_num
ldi R25,>_num
add R30,R24
adc R31,R25
lpm R2,Z
com R2
out 0x18,R2
.dbline 84
; PORTC=(0x1<<i);//开显示
ldi R16,1
mov R17,R10
rcall lsl8
out 0x15,R16
.dbline 85
; delay_us(200);//小延时
ldi R16,200
ldi R17,0
rcall _delay_us
.dbline 86
; }
L13:
.dbline 80
inc R10
L15:
.dbline 80
mov R24,R10
cpi R24,6
brlo L12
X1:
.dbline 87
; }
L9:
.dbline 78
inc R20
L11:
.dbline 78
cpi R20,200
brlo L8
X2:
.dbline -2
L7:
.dbline 0 ; func end
rjmp pop_xgsetF00C
.dbsym r j 20 c
.dbsym r i 10 c
.dbsym r p 22 pc
.dbend
.area data(ram, con, rel)
.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_数字钟\数字钟.c
_Time::
.blkb 2
.area idata
.byte 12,0
.area data(ram, con, rel)
.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_数字钟\数字钟.c
.blkb 1
.area idata
.byte 0
.area data(ram, con, rel)
.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_数字钟\数字钟.c
.dbsym e Time _Time A[3:3]c
.area text(rom, con, rel)
.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_数字钟\数字钟.c
.dbfunc e init_timer0 _init_timer0 fV
.even
_init_timer0::
.dbline -1
.dbline 103
; }
;
; /************************************
; 用 途:用TC0做一个时钟
; Taget :mega8
; crystal :8M
; 介 绍:8M晶振
; 入口参数:
; 出口参数:
; *************************************/
; unsigned char CountNum;//用来记录中断，第一次中断是1/500S
; unsigned char Count;//用来做1/100S
; unsigned char Time[3]={12,0,0};//表示时间，时分秒
; //初始化TC0
; void init_timer0()
; {
.dbline 104
; TCCR0=0x00;//TCCR0工作于定时方式，先停止TC0
clr R2
out 0x33,R2
.dbline 105
; TCNT0=0x06;//计数器初始值
ldi R24,6
out 0x32,R24
.dbline 106
; TIMSK|=(1<<TOIE0);//开放TOIE0中断
in R24,0x39
ori R24,1
out 0x39,R24
.dbline 107
; TCCR0=(1<<CS01)|(1<<CS00);//打开TC0用64分频
ldi R24,3
out 0x33,R24
.dbline -2
L16:
.dbline 0 ; func end
ret
.dbend
.area vector(rom, abs)
.org 18
rjmp _timer0_fun
.area text(rom, con, rel)
.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_数字钟\数字钟.c
.dbfunc e timer0_fun _timer0_fun fV
.even
_timer0_fun::
st -y,R2
st -y,R24
st -y,R25
in R2,0x3f
st -y,R2
.dbline -1
.dbline 112
; }
; //TC0中断函数
; #pragma interrupt_handler timer0_fun:iv_TIMER0_OVF
; void timer0_fun()
; {
.dbline 113
; TCNT0=0x06;//重装初值
ldi R24,6
out 0x32,R24
.dbline 114
; if (++CountNum==5)
lds R24,_CountNum
subi R24,255 ; addi 1
mov R2,R24
sts _CountNum,R2
cpi R24,5
brne L18
X3:
.dbline 115
; {
.dbline 116
; CountNum=0;
clr R2
sts _CountNum,R2
.dbline 117
; Count++;
lds R24,_Count
subi R24,255 ; addi 1
sts _Count,R24
.dbline 118
; }
L18:
.dbline 119
; if (Count==100)//Count=100就是一秒到时了
lds R24,_Count
cpi R24,100
brne L20
X4:
.dbline 120
; {
.dbline 121
; Count=0;
clr R2
sts _Count,R2
.dbline 122
; Time[2]++;
lds R24,_Time+2
subi R24,255 ; addi 1
sts _Time+2,R24
.dbline 123
; }
L20:
.dbline 124
; if (Time[2]==60)
lds R24,_Time+2
cpi R24,60
brne L23
X5:
.dbline 125
; {
.dbline 126
; Time[2]=0;
clr R2
sts _Time+2,R2
.dbline 127
; Time[1]++;
lds R24,_Time+1
subi R24,255 ; addi 1
sts _Time+1,R24
.dbline 128
; }
L23:
.dbline 129
; if (Time[1]==60)
lds R24,_Time+1
cpi R24,60
brne L28
X6:
.dbline 130
; {
.dbline 131
; Time[1]=0;
clr R2
sts _Time+1,R2
.dbline 132
; Time[0]++;
lds R24,_Time
subi R24,255 ; addi 1
sts _Time,R24
.dbline 133
; }
L28:
.dbline 134
; if (Time[0]==24)
lds R24,_Time
cpi R24,24
brne L32
X7:
.dbline 135
; {
.dbline 136
; Time[0]=0;
clr R2
sts _Time,R2
.dbline 137
; }
L32:
.dbline -2
L17:
.dbline 0 ; func end
ld R2,y+
out 0x3f,R2
ld R25,y+
ld R24,y+
ld R2,y+
reti
.dbend
.dbfunc e time_convert _time_convert fV
.even
_time_convert::
.dbline -1
.dbline 151
; }
; //************************************************
;
; unsigned char Time6[6];
; /************************************
; 用 途:时间的转换
; Taget :mega8
; crystal :8M
; 介 绍:
; 入口参数:
; 出口参数:
; *************************************/
; void time_convert()
; {
.dbline 152
; Time6[0]=Time[0]/10;
ldi R17,10
lds R16,_Time
rcall div8u
sts _Time6,R16
.dbline 153
; Time6[1]=Time[0]%10;
ldi R17,10
lds R16,_Time
rcall mod8u
sts _Time6+1,R16
.dbline 154
; Time6[2]=Time[1]/10;
ldi R17,10
lds R16,_Time+1
rcall div8u
sts _Time6+2,R16
.dbline 155
; Time6[3]=Time[1]%10;
ldi R17,10
lds R16,_Time+1
rcall mod8u
sts _Time6+3,R16
.dbline 156
; Time6[4]=Time[2]/10;
ldi R17,10
lds R16,_Time+2
rcall div8u
sts _Time6+4,R16
.dbline 157
; Time6[5]=Time[2]%10;
ldi R17,10
lds R16,_Time+2
rcall mod8u
sts _Time6+5,R16
.dbline -2
L34:
.dbline 0 ; func end
ret
.dbend
.dbfunc e main _main fV
.even
_main::
.dbline -1
.dbline 161
; }
;
; void main()
; {
.dbline 163
;
; port_init();
rcall _port_init
.dbline 164
; init_devices();
rcall _init_devices
.dbline 166
;
; init_timer0();
rcall _init_timer0
rjmp L46
L45:
.dbline 168
; while(1)
; {
.dbline 169
; time_convert();
rcall _time_convert
.dbline 170
; show_6_digit(Time6);
ldi R16,<_Time6
ldi R17,>_Time6
rcall _show_6_digit
.dbline 171
; }
L46:
.dbline 167
rjmp L45
X8:
.dbline -2
L44:
.dbline 0 ; func end
ret
.dbend
.area bss(ram, con, rel)
.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_数字钟\数字钟.c
_Time6::
.blkb 6
.dbsym e Time6 _Time6 A[6:6]c
_Count::
.blkb 1
.dbsym e Count _Count c
_CountNum::
.blkb 1
.dbsym e CountNum _CountNum c
; }
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -