main.s

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

	.module main.c
	.area text(rom, con, rel)
	.dbfile E:\ICCAVR\project\AVRMEG~3\icc\002-KEY-LED\main.c
	.dbfunc e delay_ms _delay_ms fV
;              a -> R20
;              b -> R22
;              i -> R16
	.even
_delay_ms::
	xcall push_gset2
	.dbline -1
	.dbline 16
; /*
; 实验二：
; 	KEY按键输入LED发光二极管显示实验。
; 	1、I/O口实验，检测PE口上按键状态，然后在PB口上显示出来。
; 	2、内部1 M晶振，程序采用单任务方式，软件延时。
; 	3、进行此实验请插上LED短路块。
; 	4、此实验让大家认识最基本的IO口输入与输出方法。
; 
; 	AVR  mega128学习板
; 	www.iccavr.com	阿发
; 	23:03 2007-10-09
; */
; #include "iom128v.h"
; 
; /*延时函数*/
; void delay_ms(unsigned char i) {
	.dbline 19
	clr R20
	xjmp L5
L2:
	.dbline 19
; 
; 	unsigned char a, b;
; 	for (a = 0; a < i; a++) {
	.dbline 20
	ldi R22,1
	xjmp L9
L6:
	.dbline 20
L7:
	.dbline 20
	inc R22
L9:
	.dbline 20
	tst R22
	brne L6
	.dbline 21
L3:
	.dbline 19
	inc R20
L5:
	.dbline 19
	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 25
; 		for (b = 1; b; b++);
; 		}
; }
; 
; /*IO口初始化函数*/
; void io_init(void) {
	.dbline 27
; 
; 	DDRA = 0x00;										/*方向输入*/
	clr R2
	out 0x1a,R2
	.dbline 28
; 	PORTA = 0xFF;										/*打开上拉*/
	ldi R24,255
	out 0x1b,R24
	.dbline 29
; 	DDRB = 0xFF;										/*方向输出*/
	out 0x17,R24
	.dbline 30
; 	PORTB = 0xFF;										/*高电平*/
	out 0x18,R24
	.dbline 31
; 	DDRC = 0x00;										/*不用的IO口建议设置为输入带上拉*/
	out 0x14,R2
	.dbline 32
; 	PORTC = 0xFF;
	out 0x15,R24
	.dbline 33
; 	DDRD = 0x00;
	out 0x11,R2
	.dbline 34
; 	PORTD = 0xFF;
	out 0x12,R24
	.dbline 35
; 	DDRE = 0x00;
	out 0x2,R2
	.dbline 36
; 	PORTE = 0xFF;
	out 0x3,R24
	.dbline 37
; 	DDRF = 0x00;
	sts 97,R2
	.dbline 38
; 	PORTF = 0xFF;
	sts 98,R24
	.dbline 39
; 	DDRG = 0x00;
	sts 100,R2
	.dbline 40
; 	PORTG = 0xFF;
	sts 101,R24
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
	.even
_main::
	.dbline -1
	.dbline 43
; }
; 
; void main(void) {
	.dbline 45
; 
; 	io_init();
	xcall _io_init
	xjmp L13
L12:
	.dbline 47
; 
; 	while (1) {
	.dbline 48
; 		if ((PINE & (1 << PE0)) == 0) {					/*判断是否按下*/
	sbic 0x1,0
	rjmp L15
	.dbline 48
	.dbline 49
; 			PORTB = ~(1 << PB0);						/*点亮指示灯*/
	ldi R24,254
	out 0x18,R24
	.dbline 50
; 			}
L15:
	.dbline 51
; 		if ((PINE & (1 << PE1)) == 0) {
	sbic 0x1,1
	rjmp L17
	.dbline 51
	.dbline 52
; 			PORTB = ~(1 << PB1);
	ldi R24,253
	out 0x18,R24
	.dbline 53
; 			}
L17:
	.dbline 54
; 		if ((PINE & (1 << PE2)) == 0) {
	sbic 0x1,2
	rjmp L19
	.dbline 54
	.dbline 55
; 			PORTB = ~(1 << PB2);
	ldi R24,251
	out 0x18,R24
	.dbline 56
; 			}
L19:
	.dbline 57
; 		if ((PINE & (1 << PE3)) == 0) {
	sbic 0x1,3
	rjmp L21
	.dbline 57
	.dbline 58
; 			PORTB = ~(1 << PB3);
	ldi R24,247
	out 0x18,R24
	.dbline 59
; 			}
L21:
	.dbline 60
; 		if ((PINE & (1 << PE4)) == 0) {
	sbic 0x1,4
	rjmp L23
	.dbline 60
	.dbline 61
; 			PORTB = ~(1 << PB4);
	ldi R24,239
	out 0x18,R24
	.dbline 62
; 			}
L23:
	.dbline 63
; 		if ((PINE & (1 << PE5)) == 0) {
	sbic 0x1,5
	rjmp L25
	.dbline 63
	.dbline 64
; 			PORTB = ~(1 << PB5);
	ldi R24,223
	out 0x18,R24
	.dbline 65
; 			}
L25:
	.dbline 66
; 		if ((PINE & (1 << PE6)) == 0) {
	sbic 0x1,6
	rjmp L27
	.dbline 66
	.dbline 67
; 			PORTB = ~(1 << PB6);
	ldi R24,191
	out 0x18,R24
	.dbline 68
; 			}
L27:
	.dbline 69
; 		if ((PINE & (1 << PE7)) == 0) {
	sbic 0x1,7
	rjmp L29
	.dbline 69
	.dbline 70
; 			PORTB = ~(1 << PB7);
	ldi R24,-129
	ldi R25,-1
	out 0x18,R24
	.dbline 71
; 			}
L29:
	.dbline 72
L13:
	.dbline 47
	xjmp L12
X0:
	.dbline -2
L11:
	.dbline 0 ; func end
	ret
	.dbend