.module cycle.c
.area vector(rom, abs)
.org 6
rjmp _Icp_timer1
.area lit(rom, con, rel)
_tabel::
.byte 63,6
.byte 91,'O
.byte 'f,'m
.byte 125,7
.byte 127,'o
.byte 'w,124
.byte 57,94
.byte 'y,'q
.dbfile D:\ICC-AVR\examples.sl\CYCLE\cycle.c
.dbsym s tabel _tabel Ac[16:16]
.area data(ram, con, rel)
.dbfile D:\ICC-AVR\examples.sl\CYCLE\cycle.c
_ledbuff::
.blkb 2
.area idata
.byte 63,63
.area data(ram, con, rel)
.dbfile D:\ICC-AVR\examples.sl\CYCLE\cycle.c
.blkb 2
.area idata
.byte 63,63
.area data(ram, con, rel)
.dbfile D:\ICC-AVR\examples.sl\CYCLE\cycle.c
.blkb 2
.area idata
.byte 63,63
.area data(ram, con, rel)
.dbfile D:\ICC-AVR\examples.sl\CYCLE\cycle.c
.dbsym s ledbuff _ledbuff Ac[6:6]
.area text(rom, con, rel)
.dbfile D:\ICC-AVR\examples.sl\CYCLE\cycle.c
.dbfunc s delay_1ms _delay_1ms fI
; i -> R16,R17
.even
_delay_1ms::
.dbline 19{
; /**********************************************
; http://www.sl.com.cn
; 双龙电子公司----周期测量演示程序(ICCAVR)
; 作者：詹卫前
; 1、学习定时器T1捕捉(捕获)中断的使用
; **********************************************/
; #include
; #pragma interrupt_handler Icp_timer1:4 // 设置ICP中断
; /* 七段译码字形表 */
; const unsigned char tabel[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71};
; /* 显示缓冲区 */
; unsigned char ledbuff[]={0x3f,0x3f,0x3f,0x3f,0x3f,0x3f};
; unsigned int oldcount;
; unsigned int newcount;
; /******************************
; 1ms延时程序
; ******************************/
; void delay_1ms(void)
; {
.dbline 21
; unsigned int i;
; for(i=1;i ldi R16,1
ldi R17,0
rjmp L5
L2:
.dbline 22
L3:
.dbline 21
subi R16,255 ; offset = 1
sbci R17,255
L5:
.dbline 21
cpi R16,118
ldi R30,4
cpc R17,R30
brlo L2
.dbline 23}
; ;
; }
L1:
ret
.dbsym r i 16 i
.dbfunc s display _display fI
; i -> R20
.even
_display::
rcall push_gset1
.dbline 28{
; /******************************
; 六路动态扫描显示电路
; ******************************/
; void display(void)
; {
.dbline 30
; unsigned char i;
; for (i=0;i clr R20
rjmp L10
L7:
.dbline 31
.dbline 32
ldi R24, ldi R25,>_ledbuff
mov R30,R20
clr R31
add R30,R24
adc R31,R25
ldd R2,z+0
out 0x18,R2
.dbline 33
ldi R16,1
mov R17,R20
rcall lsl8
mov R2,R16
com R2
out 0x12,R2
.dbline 34
rcall _delay_1ms
.dbline 35
ldi R16,1
mov R17,R20
rcall lsl8
in R2,0x12
or R2,R16
out 0x12,R2
.dbline 36
L8:
.dbline 30
inc R20
L10:
.dbline 30
cpi R20,6
brlo L7
.dbline 37}
; {
; PORTB=ledbuff[i];//将显示缓冲区数据送PORTB口
; PORTD=~(1 ; delay_1ms(); //每一位显示保持一定时间
; PORTD|=(1 ; }
; }
L6:
rcall pop_gset1
ret
.dbsym r i 20 c
.dbfunc s hextobcd _hextobcd fI
; temp -> R20
; i -> R22
; count -> R10,R11
.even
_hextobcd::
rcall push_gset3
mov R10,R16
mov R11,R17
.dbline 42{
; /************************************
; 将count十六进制数据转换为LED七段码
; ************************************/
; void hextobcd(unsigned int count)
; {
.dbline 44
; unsigned char i,temp;
; for (i=0;i clr R22
rjmp L15
L12:
.dbline 45
.dbline 45
ldi R18,10
ldi R19,0
mov R16,R10
mov R17,R11
rcall mod16u
mov R20,R16
mov R21,R17
.dbline 46
ldi R24, ldi R25,>_tabel
mov R2,R20
clr R3
add R2,R24
adc R3,R25
mov R30,R2
mov R31,R3
lpm
ldi R24, ldi R25,>_ledbuff
mov R30,R22
clr R31
add R30,R24
adc R31,R25
std z+0,R0
.dbline 47
ldi R18,10
ldi R19,0
mov R16,R10
mov R17,R11
rcall div16u
mov R10,R16
mov R11,R17
.dbline 48
L13:
.dbline 44
inc R22
L15:
.dbline 44
cpi R22,6
brlo L12
.dbline 49}
; {temp=count%10;
; ledbuff[i]=tabel[temp];
; count=count/10;
; }
; }
L11:
rcall pop_gset3
ret
.dbsym r temp 20 c
.dbsym r i 22 c
.dbsym r count 10 i
.dbfunc s mcu_init _mcu_init fI
.even
_mcu_init::
.dbline 54{
; /******************************
; MCU初始化
; ******************************/
; void mcu_init(void)
; {
.dbline 55
; DDRD=0x3f;
ldi R24,63
out 0x11,R24
.dbline 56
; DDRB=0xff;
ldi R24,255
out 0x17,R24
.dbline 57
; PORTD=0xff;
out 0x12,R24
.dbline 58
; PORTB=0xff;//端口初始化
out 0x18,R24
.dbline 59
; TIMSK =0x08;//使能T1捕捉中断
ldi R24,8
out 0x39,R24
.dbline 60
; TCCR1A=0x00;
clr R2
out 0x2f,R2
.dbline 61
; TCCR1B=0xC2;//CK/8，捕捉周期的单位为1us
ldi R24,194
out 0x2e,R24
.dbline 62
; ICR1=0;
clr R3
sts 68+1,R3
sts 68,R2
.dbline 63
; TCNT1=0;
sts 76+1,R3
sts 76,R2
.dbline 64}
; }
L16:
ret
.dbfunc s main _main fI
.even
_main::
.dbline 69{
; /************************************************
; 主程序：测量ICP引脚上信号的周期
; ************************************************/
; void main()
; {
.dbline 70
; mcu_init();
rcall _mcu_init
.dbline 71
; SREG|=0x80; //使能全局中断
bset 7
.dbline 72
; for(;;)
L18:
.dbline 73
; {
.dbline 74
; if ((newcount&0xfff8)!=(oldcount&0xfff8))
lds R25,_oldcount+1
lds R24,_oldcount
andi R24,248
lds R31,_newcount+1
lds R30,_newcount
andi R30,248
cp R30,R24
cpc R31,R25
breq L22
.dbline 75
; {
.dbline 76
; oldcount=newcount;
lds R3,_newcount+1
lds R2,_newcount
sts _oldcount+1,R3
sts _oldcount,R2
.dbline 77
; }
L22:
.dbline 78
; hextobcd(oldcount);
lds R17,_oldcount+1
lds R16,_oldcount
rcall _hextobcd
.dbline 79
; display(); //显示测量值
rcall _display
.dbline 80
; }
.dbline 72
.dbline 72
rjmp L18
X0:
L17:
ret
.dbline 73}
.dbfunc s Icp_timer1 _Icp_timer1 fI
.even
_Icp_timer1::
st -y,R2
st -y,R3
st -y,R24
in R2,0x3f
st -y,R2
.dbline 86{
; }
; /**************************************
; 捕捉中断处理程序
; **************************************/
; void Icp_timer1(void)
; {
.dbline 87
; newcount=ICR1;
in R2,0x24
in R3,0x25
sts _newcount+1,R3
sts _newcount,R2
.dbline 88
; ICR1=0;
clr R2
clr R3
sts 68+1,R3
sts 68,R2
.dbline 89
; TCNT1=0;
sts 76+1,R3
sts 76,R2
.dbline 90
; TCCR1B=0xC2;
ldi R24,194
out 0x2e,R24
.dbline 91}
; }
L24:
ld R2,y+
out 0x3f,R2
ld R24,y+
ld R3,y+
ld R2,y+
reti
.area bss(ram, con, rel)
.dbfile D:\ICC-AVR\examples.sl\CYCLE\cycle.c
_newcount::
.blkb 2
.dbsym s newcount _newcount i
_oldcount::
.blkb 2
.dbsym s oldcount _oldcount i
