main.s

使用单片机实现的对信号源的频率测试。准确精确度好！

	.module main.c
	.area text(rom, con, rel)
	.dbfile D:\avr\+++精华+++\频率计/delay.h
	.dbfunc e delay_1us _delay_1us fV
	.even
_delay_1us::
	.dbline -1
	.dbline 15
; /*****************************************
; *      基于频率计程序设计 		   	     *
; * 功    能：频率计          			 *
; * 时钟频率：内部8M 						 *
; * 设    计：莫锦攀						 *
; * 修改日期：2007年07月05日				 *
; * 编译环境：ICC-AVR6.31					 *
; * 实验环境：M16学习板					 *
; * 使用端口：PC6,PC7,PA4~PA7,PD6(ICP) 	 *
; *****************************************/
; 
; #include <iom16v.h>
; #include "1602.h"
; 
; #define uint unsigned int
	.dbline 16
; #define uchar unsigned char
	nop
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_nus _delay_nus fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nus::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 20
; 
; uint Cnt1;	  		   //第一次捕获值
; uint Cnt2;			   //第二次捕获值
; uint Cnt;		   //捕获差值
	.dbline 21
; uchar Flag=0;		   //捕获次数
	clr R20
	clr R21
	.dbline 22
; uchar Data[6]={0,0,0,0,0,0};//显示初值,最后一个0是结束符，方便液晶显示
	xjmp L6
L3:
	.dbline 23
	xcall _delay_1us
L4:
	.dbline 22
	subi R20,255  ; offset = 1
	sbci R21,255
L6:
	.dbline 22
	cp R20,R22
	cpc R21,R23
	brlo L3
	.dbline -2
L2:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfunc e delay_1ms _delay_1ms fV
;              i -> R16,R17
	.even
_delay_1ms::
	.dbline -1
	.dbline 27
; 
; void init_timer1(void)			  //初始化T/C1的输入捕获中断
; {
; TIMSK=1<<OCIE0;			   //0X02输入捕获使能
; TCCR1B=0xC2;				   //输入捕获噪音使能,下降沿捕获,时钟8分频1us计数一次
	.dbline 29
	clr R16
	clr R17
	xjmp L11
L8:
	.dbline 29
L9:
	.dbline 29
	subi R16,255  ; offset = 1
	sbci R17,255
L11:
	.dbline 29
; TIFR=1<<ICF1;					   //0x20写"1"清输入捕获标志位
; SREG=SREG&0x7f;				   //全局中断关
	cpi R16,116
	ldi R30,4
	cpc R17,R30
	brlo L8
	.dbline -2
L7:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 i
	.dbend
	.dbfunc e delay_nms _delay_nms fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nms::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 33
; }
; 
; void hz(uint i,uchar *p)		 //显示处理,+48是因为液晶显示的是ASCII码
; {p[4]=i%10+48;//个
	.dbline 34
;  p[3]=i/10%10+48;//十
	clr R20
	clr R21
	.dbline 35
;  p[2]=i/100%10+48;//百
	xjmp L16
L13:
	.dbline 36
	xcall _delay_1ms
L14:
	.dbline 35
	subi R20,255  ; offset = 1
	sbci R21,255
L16:
	.dbline 35
	cp R20,R22
	cpc R21,R23
	brlo L13
	.dbline -2
L12:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfile D:\avr\+++精华+++\频率计/1602.h
	.dbfunc e LCD_init _LCD_init fV
	.even
_LCD_init::
	.dbline -1
	.dbline 45
;  p[1]=i/1000%10+48;//千
;  p[0]=i/10000%10+48;//万
; }
; 
; 
; void timer1(void)			   //捕获检测
; {if(TIFR&0x20)				   
; 	{TIFR|=0x20;				   //清除捕获标志位
; 	Cnt=ICR1L;				   //cnt暂存
; 	Cnt2=(ICR1H<<8)+ICR1L;	   //cnt2存放点前捕获值
	.dbline 46
; 	Cnt=Cnt2-Cnt1;			   //cnt存放两次时间差
	in R24,0x1a
	ori R24,240
	out 0x1a,R24
	.dbline 47
; 	Cnt1=Cnt2;				   //cnt1存放上次捕获值
	sbi 0x14,7
	.dbline 48
; 	Flag++;					   //检测到第一次捕获
	sbi 0x14,6
	.dbline 49
; 	if(Flag==2)				   //检测到第二次捕获
	ldi R16,40
	xcall _LCD_write_command
	.dbline 50
; 	{Flag=0;				   //清除捕获标志位
	xcall _LCD_en_write
	.dbline 51
; 	hz(Cnt,Data);			   //显示处理
	ldi R16,40
	ldi R17,0
	xcall _delay_nus
	.dbline 52
; 	LCD_write_string(6,1,Data);		 //显示
	ldi R16,40
	xcall _LCD_write_command
	.dbline 53
; 	delay_nms(100);
	ldi R16,12
	xcall _LCD_write_command
	.dbline 54
; 	Cnt=0;Cnt1=0;Cnt2=0;		//清除捕获值几捕获差值
	ldi R16,1
	xcall _LCD_write_command
	.dbline 55
; 	}
	ldi R16,2
	ldi R17,0
	xcall _delay_nms
	.dbline -2
L17:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e LCD_en_write _LCD_en_write fV
	.even
_LCD_en_write::
	.dbline -1
	.dbline 59
; 	}
; }
; 
; 
	.dbline 60
; void main(void)
	sbi 0x15,7
	.dbline 61
; {
	ldi R16,1
	ldi R17,0
	xcall _delay_nus
	.dbline 62
;    LCD_init();//液晶初始化
	cbi 0x15,7
	.dbline -2
L18:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e LCD_write_command _LCD_write_command fV
;        command -> R20
	.even
_LCD_write_command::
	xcall push_gset1
	mov R20,R16
	.dbline -1
	.dbline 66
;    init_timer1();
;    DDRD=0x00;
;    PORTD=0xff;//设置D口为带上拉电阻输入
;    while(1)
	.dbline 67
;    {LCD_write_string(3,0,"ICP BY MJP");
	ldi R16,16
	ldi R17,0
	xcall _delay_nus
	.dbline 68
;   timer1();
	cbi 0x15,6
	.dbline 69
;  }
	in R24,0x1b
	andi R24,15
	out 0x1b,R24
	.dbline 70
;  
	mov R24,R20
	andi R24,240
	in R2,0x1b
	or R2,R24
	out 0x1b,R2
	.dbline 71
; }
	xcall _LCD_en_write
	.dbline 72
; }
	mov R24,R20
	andi R24,#0x0F
	swap R24
	mov R20,R24
	.dbline 73
; }
	in R24,0x1b
	andi R24,15
	out 0x1b,R24
	.dbline 74
; }
	mov R24,R20
	andi R24,240
	in R2,0x1b
	or R2,R24
	out 0x1b,R2
	.dbline 75
; }
	xcall _LCD_en_write
	.dbline -2
L19:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r command 20 c
	.dbend
	.dbfunc e LCD_write_data _LCD_write_data fV
;           data -> R20
	.even
_LCD_write_data::
	xcall push_gset1
	mov R20,R16
	.dbline -1
	.dbline 80
; }
; }
; }
; }
; }
	.dbline 81
; }
	ldi R16,16
	ldi R17,0
	xcall _delay_nus
	.dbline 82
; }
	sbi 0x15,6
	.dbline 83
; }
	in R24,0x1b
	andi R24,15
	out 0x1b,R24
	.dbline 84
; }
	mov R24,R20
	andi R24,240
	in R2,0x1b
	or R2,R24
	out 0x1b,R2
	.dbline 85
; }
	xcall _LCD_en_write
	.dbline 86
; }
	mov R24,R20
	andi R24,#0x0F
	swap R24
	mov R20,R24
	.dbline 87
; }
	in R24,0x1b
	andi R24,15
	out 0x1b,R24
	.dbline 88
; }
	mov R24,R20
	andi R24,240
	in R2,0x1b
	or R2,R24
	out 0x1b,R2
	.dbline 89
; }
	xcall _LCD_en_write
	.dbline -2
L20:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r data 20 c
	.dbend
	.dbfunc e LCD_set_xy _LCD_set_xy fV
;        address -> R20
;              y -> R20
;              x -> R22
	.even
_LCD_set_xy::
	xcall push_gset2
	mov R20,R18
	mov R22,R16
	.dbline -1
	.dbline 94
; }
; }
; }
; }
; }
	.dbline 96
; }
; }
	tst R20
	brne L22
	.dbline 96
	mov R20,R22
	subi R20,128    ; addi 128
	xjmp L23
L22:
	.dbline 97
; }
	mov R20,R22
	subi R20,64    ; addi 192
L23:
	.dbline 98
; }
	mov R16,R20
	xcall _LCD_write_command
	.dbline -2
L21:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r address 20 c
	.dbsym r y 20 c
	.dbsym r x 22 c
	.dbend
	.dbfunc e LCD_write_string _LCD_write_string fV
;              s -> R20,R21
;              Y -> R10
;              X -> R22
	.even
_LCD_write_string::
	xcall push_gset3
	mov R10,R18
	mov R22,R16
	ldd R20,y+6
	ldd R21,y+7
	.dbline -1
	.dbline 102
; }
; }
; }
; }
	.dbline 103
; }
	mov R18,R10
	mov R16,R22
	xcall _LCD_set_xy
	xjmp L26
L25:
	.dbline 105
	.dbline 106
	movw R30,R20
	ldd R16,z+0
	xcall _LCD_write_data
	.dbline 107
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 108
L26:
	.dbline 104
; }
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L25
	.dbline -2
L24:
	xcall pop_gset3
	.dbline 0 ; func end
	ret
	.dbsym r s 20 pc
	.dbsym r Y 10 c
	.dbsym r X 22 c
	.dbend
	.dbfunc e LCD_write_char _LCD_write_char fV
;           data -> y+4
;              Y -> R22
;              X -> R20
	.even
_LCD_write_char::
	xcall push_gset2
	mov R22,R18
	mov R20,R16
	.dbline -1
	.dbline 113
; }
; }
; }
; }
; }
; }
; }
; }
; }
	.dbline 114
; }
	mov R18,R22
	mov R16,R20
	xcall _LCD_set_xy
	.dbline 115
; }
	ldd R16,y+4
	xcall _LCD_write_data
	.dbline -2
L28:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym l data 4 c
	.dbsym r Y 22 c
	.dbsym r X 20 c
	.dbend
	.area data(ram, con, rel)
	.dbfile D:\avr\+++精华+++\频率计/1602.h
_Flag::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile D:\avr\+++精华+++\频率计/1602.h
	.dbfile D:\avr\+++精华+++\频率计\main.c
	.dbsym e Flag _Flag c
_Data::
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile D:\avr\+++精华+++\频率计\main.c
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile D:\avr\+++精华+++\频率计\main.c
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile D:\avr\+++精华+++\频率计\main.c
	.dbsym e Data _Data A[6:6]c
	.area text(rom, con, rel)
	.dbfile D:\avr\+++精华+++\频率计\main.c
	.dbfunc e init_timer1 _init_timer1 fV
	.even
_init_timer1::
	.dbline -1
	.dbline 25
	.dbline 26
	ldi R24,2
	out 0x39,R24
	.dbline 27
	ldi R24,194
	out 0x2e,R24
	.dbline 28
	ldi R24,32
	out 0x38,R24
	.dbline 29
	in R24,0x3f
	andi R24,127
	out 0x3f,R24
	.dbline -2
L29:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e hz _hz fV
;              p -> R20,R21
;              i -> R22,R23
	.even
_hz::
	xcall push_gset2
	movw R20,R18
	movw R22,R16
	.dbline -1
	.dbline 33
	.dbline 33
	ldi R18,10
	ldi R19,0
	movw R16,R22
	xcall mod16u
	movw R24,R16
	adiw R24,48
	movw R30,R20
	std z+4,R24
	.dbline 34
	ldi R18,10
	ldi R19,0
	movw R16,R22
	xcall div16u
	ldi R18,10
	ldi R19,0
	xcall mod16u
	movw R24,R16
	adiw R24,48
	movw R30,R20
	std z+3,R24
	.dbline 35
	ldi R18,100
	ldi R19,0
	movw R16,R22
	xcall div16u
	ldi R18,10
	ldi R19,0
	xcall mod16u
	movw R24,R16
	adiw R24,48
	movw R30,R20
	std z+2,R24
	.dbline 36
	ldi R18,1000
	ldi R19,3
	movw R16,R22
	xcall div16u
	ldi R18,10
	ldi R19,0
	xcall mod16u
	movw R24,R16
	adiw R24,48
	movw R30,R20
	std z+1,R24
	.dbline 37
	ldi R18,10000
	ldi R19,39
	movw R16,R22
	xcall div16u
	ldi R18,10
	ldi R19,0
	xcall mod16u
	movw R24,R16
	adiw R24,48
	movw R30,R20
	std z+0,R24
	.dbline -2
L30:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r p 20 pc
	.dbsym r i 22 i
	.dbend
	.dbfunc e timer1 _timer1 fV
	.even
_timer1::
	sbiw R28,2
	.dbline -1
	.dbline 42
	.dbline 42
	in R2,0x38
	sbrs R2,5
	rjmp L32
	.dbline 43
	.dbline 43
	in R24,0x38
	ori R24,32
	out 0x38,R24
	.dbline 44
	in R2,0x26
	clr R3
	sts _Cnt+1,R3
	sts _Cnt,R2
	.dbline 45
	in R2,0x26
	in R3,0x27
	sts _Cnt2+1,R3
	sts _Cnt2,R2
	.dbline 46
	lds R2,_Cnt1
	lds R3,_Cnt1+1
	lds R4,_Cnt2
	lds R5,_Cnt2+1
	sub R4,R2
	sbc R5,R3
	sts _Cnt+1,R5
	sts _Cnt,R4
	.dbline 47
	lds R2,_Cnt2
	lds R3,_Cnt2+1
	sts _Cnt1+1,R3
	sts _Cnt1,R2
	.dbline 48
	lds R24,_Flag
	subi R24,255    ; addi 1
	sts _Flag,R24
	.dbline 49
	cpi R24,2
	brne L34
	.dbline 50
	.dbline 50
	clr R2
	sts _Flag,R2
	.dbline 51
	ldi R18,<_Data
	ldi R19,>_Data
	movw R16,R4
	xcall _hz
	.dbline 52
	ldi R24,<_Data
	ldi R25,>_Data
	std y+1,R25
	std y+0,R24
	ldi R18,1
	ldi R16,6
	xcall _LCD_write_string
	.dbline 53
	ldi R16,100
	ldi R17,0
	xcall _delay_nms
	.dbline 54
	clr R2
	clr R3
	sts _Cnt+1,R3
	sts _Cnt,R2
	.dbline 54
	sts _Cnt1+1,R3
	sts _Cnt1,R2
	.dbline 54
	sts _Cnt2+1,R3
	sts _Cnt2,R2
	.dbline 55
L34:
	.dbline 56
L32:
	.dbline -2
L31:
	adiw R28,2
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
	.even
_main::
	sbiw R28,2
	.dbline -1
	.dbline 61
	.dbline 62
	xcall _LCD_init
	.dbline 63
	xcall _init_timer1
	.dbline 64
	clr R2
	out 0x11,R2
	.dbline 65
	ldi R24,255
	out 0x12,R24
	xjmp L38
L37:
	.dbline 67
	.dbline 67
	ldi R24,<L40
	ldi R25,>L40
	std y+1,R25
	std y+0,R24
	clr R18
	ldi R16,3
	xcall _LCD_write_string
	.dbline 68
	xcall _timer1
	.dbline 69
L38:
	.dbline 66
	xjmp L37
X0:
	.dbline -2
L36:
	adiw R28,2
	.dbline 0 ; func end
	ret
	.dbend
	.area bss(ram, con, rel)
	.dbfile D:\avr\+++精华+++\频率计\main.c
_Cnt::
	.blkb 2
	.dbsym e Cnt _Cnt i
_Cnt2::
	.blkb 2
	.dbsym e Cnt2 _Cnt2 i
_Cnt1::
	.blkb 2
	.dbsym e Cnt1 _Cnt1 i
	.area data(ram, con, rel)
	.dbfile D:\avr\+++精华+++\频率计\main.c
L40:
	.blkb 11
	.area idata
	.byte 'I,'C,'P,32,'B,'Y,32,'M,'J,'P,0
	.area data(ram, con, rel)
	.dbfile D:\avr\+++精华+++\频率计\main.c