main.s

用AVR单片机做的一些程序,包括跑马灯显示,PWM产生,ADC转换等

	.module main.c
	.area text(rom, con, rel)
	.dbfile E:\ICCAVR\project\AVRMEG~3\icc\009-AD-LED4\main.c
	.dbfunc e delay_ms _delay_ms fV
;              a -> R20
;              b -> R22
;              i -> R16
	.even
_delay_ms::
	xcall push_gset2
	.dbline -1
	.dbline 23
; /*
; 实验九：
; 	AD转换实验。
; 	1、AD转换实验。程序进行周期AD转换，在并转换值显示在数码管上。
; 	2、使用内部1 M晶振。
; 	3、进行此实验需要插上SPI、AD0短路块。
; 	4、此实验采用项目化管理，主要文件有ADC、DISP、主程序。
; 	5、此实验包含ADC采样、数值转换、显示，是一个完整的小系统。
; 
; 	AVR  mega128学习板
; 	www.iccavr.com 阿发
; 	2007-10-12
; */
; 
; #include "iom128v.h"
; #include <macros.h>
; 
; extern unsigned int get_ad(void);						/*AD采样函数*/
; extern void disp_init(void);							/*显示初始化*/
; extern unsigned char led_buf[];							/*显示缓存*/
; 
; /*延时函数，频率1MHz，单位mS*/
; void delay_ms(unsigned char i) {
	.dbline 26
	clr R20
	xjmp L5
L2:
	.dbline 26
; 
; 	unsigned char a, b;
; 	for (a = 0; a < i; a++) {
	.dbline 27
	ldi R22,1
	xjmp L9
L6:
	.dbline 27
L7:
	.dbline 27
	inc R22
L9:
	.dbline 27
	tst R22
	brne L6
	.dbline 28
L3:
	.dbline 26
	inc R20
L5:
	.dbline 26
	cp R20,R16
	brlo L2
	.dbline -2
L1:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r a 20 c
	.dbsym r b 22 c
	.dbsym r i 16 c
	.dbend
	.dbfunc e io_init _io_init fV
	.even
_io_init::
	.dbline -1
	.dbline 32
; 		for (b = 1; b; b++);
; 		}
; }
; 
; /*IO口初始化函数*/
; void io_init(void) {
	.dbline 34
; 
; 	DDRA = 0x00;										/*方向输入*/
	clr R2
	out 0x1a,R2
	.dbline 35
; 	PORTA = 0xFF;										/*打开上拉*/
	ldi R24,255
	out 0x1b,R24
	.dbline 36
; 	DDRB = 0xFF;										/*方向输出*/
	out 0x17,R24
	.dbline 37
; 	PORTB = 0xFF;										/*输出高电平*/
	out 0x18,R24
	.dbline 38
; 	DDRC = 0x00;										/*不用的IO口建议设置为输入带上拉*/
	out 0x14,R2
	.dbline 39
; 	PORTC = 0xFF;
	out 0x15,R24
	.dbline 40
; 	DDRD = 0x00;
	out 0x11,R2
	.dbline 41
; 	PORTD = 0xFF;
	out 0x12,R24
	.dbline 42
; 	DDRE = 0x00;
	out 0x2,R2
	.dbline 43
; 	PORTE = 0xFF;
	out 0x3,R24
	.dbline 44
; 	DDRF = 0x00;
	sts 97,R2
	.dbline 45
; 	PORTF = 0xFE;										/*PF0无上拉电阻*/
	ldi R24,254
	sts 98,R24
	.dbline 46
; 	DDRG = 0x00;
	sts 100,R2
	.dbline 47
; 	PORTG = 0xFF;
	ldi R24,255
	sts 101,R24
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e int_to_bcd _int_to_bcd fV
;              i -> R20
;           temp -> R22,R23
	.even
_int_to_bcd::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 51
; }
; 
; /*十六进制转十进制函数*/
; void int_to_bcd(unsigned int temp) { 
	.dbline 54
; 	unsigned char i;
; 
; 	if (temp > 9999) {									/*防止数值过大*/
	ldi R24,9999
	ldi R25,39
	cp R24,R22
	cpc R25,R23
	brsh L12
	.dbline 54
	.dbline 55
; 		temp = 9999;
	ldi R22,9999
	ldi R23,39
	.dbline 56
; 		}
L12:
	.dbline 57
	clr R20
	xjmp L17
L14:
	.dbline 57
	.dbline 58
	ldi R18,10
	ldi R19,0
	movw R16,R22
	xcall mod16u
	ldi R24,<_led_buf
	ldi R25,>_led_buf
	mov R30,R20
	clr R31
	add R30,R24
	adc R31,R25
	std z+0,R16
	.dbline 59
	ldi R18,10
	ldi R19,0
	movw R16,R22
	xcall div16u
	movw R22,R16
	.dbline 60
L15:
	.dbline 57
	inc R20
L17:
	.dbline 57
; 	for (i = 0; i < 4; i++) {
	cpi R20,4
	brlo L14
	.dbline -2
L11:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbsym r temp 22 i
	.dbend
	.dbfunc e main _main fV
;              i -> R10,R11
	.even
_main::
	.dbline -1
	.dbline 63
; 	led_buf[i] = temp % 10;								/*提取当前变量最低位*/
; 	temp = temp / 10;									/*去掉当前最低位值*/
;     }
; }
; 
; void main(void) {
	.dbline 67
; 
; 	unsigned int i;
; 
; 	delay_ms(200);										/*加入延时*/
	ldi R16,200
	xcall _delay_ms
	.dbline 68
; 	io_init();											/*IO口初始化*/
	xcall _io_init
	.dbline 69
; 	disp_init();										/*显示初始化*/
	xcall _disp_init
	xjmp L20
L19:
	.dbline 70
	.dbline 71
	ldi R16,100
	xcall _delay_ms
	.dbline 72
	xcall _get_ad
	movw R10,R16
	.dbline 73
	movw R2,R10
	clr R4
	clr R5
	ldi R20,136
	ldi R21,19
	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
	ldi R24,10
	ldi R25,0
	st -y,R24
	xcall lsr32
	movw R10,R16
	.dbline 74
	xcall _int_to_bcd
	.dbline 75
L20:
	.dbline 70
	xjmp L19
X0:
	.dbline -2
L18:
	.dbline 0 ; func end
	ret
	.dbsym r i 10 i
	.dbend