main.s

来自「用AVR单片机做的一些程序,包括跑马灯显示,PWM产生,ADC转换等」· S 代码 · 共 250 行

	.module main.c
	.area text(rom, con, rel)
	.dbfile E:\ICCAVR\project\AVRMEG~3\icc\011-UART-485\main.c
	.dbfunc e delay_ms _delay_ms fV
;              a -> R20
;              b -> R22
;              i -> R16
	.even
_delay_ms::
	xcall push_gset2
	.dbline -1
	.dbline 25
; /*
; 实验十一：
; 
; 	RS485通信实险。
; 	1、UART0和UART1两个串口综合实验，串口以查询方式接收数据和发送数据。
; 		UART0：任务A，每秒向串口0发送一个字节变化的数据，不接收数据。
; 		UART1：任务B，从串口1接收数据，将收到的数据原样返回并显示在PB口。
; 		两个串口这间各知独立运行。
; 		可以将两路485信号并接到一起，这样就要以相互通信了。
; 	2、内部1 M晶振，程序采用单任务方式，软件延时。
; 	3、进行此实验请SW1两组跳针插上到485一边，插上LED短路块。
; 	4、实验中使用了两路RS485总线，通过此实验让大家了解RS485网络的基本应用。
; 		此实验原理及程序思路和上一个RS232实验完全相同，大家对照学习可以加
; 		深影像，并掌握RS485和RS232的使用方法。
; 
; 	AVR  mega128学习板
; 	www.iccavr.com 阿发
; 	11:47 2007-10-14
; */
; 
; #include "iom128v.h"
; #include "uart.h"
; 
; /*延时函数*/
; void delay_ms(unsigned char i) {
	.dbline 28
	clr R20
	xjmp L5
L2:
	.dbline 28
; 
; 	unsigned char a, b;
; 	for (a = 0; a < i; a++) {
	.dbline 29
	ldi R22,1
	xjmp L9
L6:
	.dbline 29
L7:
	.dbline 29
	inc R22
L9:
	.dbline 29
	tst R22
	brne L6
	.dbline 30
L3:
	.dbline 28
	inc R20
L5:
	.dbline 28
	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 34
; 		for (b = 1; b; b++);
; 		}
; }
; 
; /*IO口初始化函数*/
; void io_init(void) {
	.dbline 36
; 
; 	DDRA = 0x00;										/*方向输入*/
	clr R2
	out 0x1a,R2
	.dbline 37
; 	PORTA = 0xFF;										/*打开上拉*/
	ldi R24,255
	out 0x1b,R24
	.dbline 38
; 	DDRB = 0xFF;										/*方向输出*/
	out 0x17,R24
	.dbline 39
; 	PORTB = 0xFF;										/*输出高电平*/
	out 0x18,R24
	.dbline 40
; 	DDRC = 0x00;										/*不用的IO口建议设置为输入带上拉*/
	out 0x14,R2
	.dbline 41
; 	PORTC = 0xFF;
	out 0x15,R24
	.dbline 42
; 	DDRD = 0x00;
	out 0x11,R2
	.dbline 43
; 	PORTD = 0xFF;
	out 0x12,R24
	.dbline 44
; 	DDRE = 0x00;
	out 0x2,R2
	.dbline 45
; 	PORTE = 0xFF;
	out 0x3,R24
	.dbline 46
; 	DDRF = 0x00;
	sts 97,R2
	.dbline 47
; 	PORTF = 0xFF;
	sts 98,R24
	.dbline 48
; 	DDRG = 0x18;										/*设置两路RS485的方向控制脚为输出*/
	ldi R24,24
	sts 100,R24
	.dbline 49
; 	PORTG = 0xE7;										/*设置两路RS485均为输入状态*/
	ldi R24,231
	sts 101,R24
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
;              j -> R20
;              i -> R22,R23
;           temp -> R10,R11
	.even
_main::
	.dbline -1
	.dbline 53
; }
; 
; /*主函数*/
; void main(void) {
	.dbline 55
; 
; 	unsigned char j = 0;
	clr R20
	.dbline 56
; 	unsigned int i = 0;
	clr R22
	clr R23
	.dbline 57
; 	unsigned int temp = 0;
	clr R10
	clr R11
	.dbline 59
; 
; 	io_init();
	xcall _io_init
	.dbline 60
; 	uart_init0();
	xcall _uart_init0
	.dbline 61
; 	uart_init1();
	xcall _uart_init1
	xjmp L13
L12:
	.dbline 63
; 	
; 	while (1) {
	.dbline 64
; 		delay_ms(1);
	ldi R16,1
	xcall _delay_ms
	.dbline 67
; 		
; 		/*UART0部分*/
; 		i ++;
	subi R22,255  ; offset = 1
	sbci R23,255
	.dbline 68
; 		if (i > 500) {									/*500mS执行一次*/
	ldi R24,500
	ldi R25,1
	cp R24,R22
	cpc R25,R23
	brsh L15
	.dbline 68
	.dbline 69
; 			uart_transmit0(j);							/*发送变量j*/
	mov R16,R20
	xcall _uart_transmit0
	.dbline 70
; 			j ++;
	inc R20
	.dbline 71
; 			i = 0;
	clr R22
	clr R23
	.dbline 72
; 			}
L15:
	.dbline 75
; 		
; 		/*UART1部分*/
; 		temp = uart_receive1();							/*接收数据*/
	xcall _uart_receive1
	movw R10,R16
	.dbline 76
; 		if (temp != 0) {								/*判断是否接收到数据*/
	cpi R16,0
	cpc R16,R17
	breq L17
X0:
	.dbline 76
	.dbline 77
; 			PORTB = ~(temp & 0xFF);						/*显示低电平有效*/
	movw R24,R10
	andi R25,0
	com R24
	com R25
	out 0x18,R24
	.dbline 78
; 			uart_transmit1(temp & 0xFF);				/*发送收到的数据*/
	mov R16,R10
	andi R17,0
	xcall _uart_transmit1
	.dbline 79
; 			}
L17:
	.dbline 80
L13:
	.dbline 63
	xjmp L12
X1:
	.dbline -2
L11:
	.dbline 0 ; func end
	ret
	.dbsym r j 20 c
	.dbsym r i 22 i
	.dbsym r temp 10 i
	.dbend