📄 m8sp01.s

📁 AVR MEGA8双机串行口通讯程序,单工485方式,用于单片机组网,有PROTEUS仿真电路,可以立刻验证
💻 S
📖 第 1 页 / 共 2 页
字号:
12 下一页
	.module M8SP01.c
	.area data(ram, con, rel)
_TRADFG::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e TRADFG _TRADFG c
_RDHIS::
	.blkb 1
	.area idata
	.byte 255
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e RDHIS _RDHIS c
_SlaveCR::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e SlaveCR _SlaveCR c
_TXINTMAX::
	.blkb 1
	.area idata
	.byte 12
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e TXINTMAX _TXINTMAX c
_TXINTFG::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e TXINTFG _TXINTFG c
_RXINTMAX::
	.blkb 1
	.area idata
	.byte 16
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e RXINTMAX _RXINTMAX c
_RXINTCR::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e RXINTCR _RXINTCR c
_RXINTFG::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e RXINTFG _RXINTFG c
_TXbufP::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e TXbufP _TXbufP c
_RXbufP::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e RXbufP _RXbufP c
_RXbufPmax::
	.blkb 1
	.area idata
	.byte 11
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e RXbufPmax _RXbufPmax c
_RXERROR::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e RXERROR _RXERROR c
_WaitCR0::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e WaitCR0 _WaitCR0 c
_WaitCR1::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e WaitCR1 _WaitCR1 c
_SLSTEP::
	.blkb 1
	.area idata
	.byte 10
	.area data(ram, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbsym e SLSTEP _SLSTEP c
	.area text(rom, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbfunc e SoftTimer _SoftTimer fV
	.even
_SoftTimer::
	.dbline -1
	.dbline 65
	.dbline 66
	lds R24,_WaitCR0
	subi R24,255    ; addi 1
	sts _WaitCR0,R24
	.dbline 67
	ldi R24,254
	lds R2,_WaitCR0
	cp R24,R2
	brsh L2
	.dbline 68
	.dbline 69
	clr R2
	sts _WaitCR0,R2
	.dbline 70
	lds R24,_WaitCR1
	subi R24,255    ; addi 1
	sts _WaitCR1,R24
	.dbline 71
L2:
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e SoftTimerStart _SoftTimerStart fV
	.even
_SoftTimerStart::
	.dbline -1
	.dbline 74
; //////////从机
; 
; #include <iom8v.h>
; #include <macros.h>
; //ISARM pro
; #define OUTLED1OFF PORTB|=0x01       //for 
; #define OUTLED1ON PORTB&=~0x01
; #define OUTLED2OFF PORTB|=0x02       //For 
; #define OUTLED2ON PORTB&=~0x02
; #define OUTLED2Pulse PORTB^=0x02
; 
; #define OUTLED3OFF PORTB|=0x04      //For 
; #define OUTLED3ON PORTB&=~0x04
; #define OUTLED3Pulse PORTB^=0x04
; #define OUTLED4OFF PORTB|=0x08      //For 
; #define OUTLED4ON PORTB&=~0x08
; #define OUTLED4Pulse PORTB^=0x08
; 
; #define OUTDEON PORTD|=0x10
; #define OUTDEOFF PORTD&=~0x10
; 
; #define KB0 (PINC&0x01)
; #define KB1 (PINC&0x02)
; 
; 
; ///UART///
; #define TXENABLE UCSRB&=~(1<<RXEN);UCSRB|=(1<<TXEN); 
; #define RXENABLE UCSRB&=~(1<<TXEN);UCSRB|=(1<<RXEN); 
; #define RXADDRESS UCSRA|=(1<<MPCM);TRADFG=0;
; #define RXDATA UCSRA&=~(1<<MPCM);TRADFG=1;
; //
; #define TRFG0 0xFE
; #define TRFG1 0xFD
; #define TRFG2 0xF1
; #define TRFG3 0xF0
; //子板编号
; #define SlaveAdress 5
; //////////////////////////////
; unsigned char TRADFG=0;  //0收地址，1收数据
; unsigned char RDHIS=0xff;
; 
; unsigned char SlaveCR=0;  //子板编号计数器，当作物理地址
; unsigned char TXINTMAX=12;//下行发送中断次数控制值
; //unsigned char TXINTCR=0;//下行发送中断次数计数器
; unsigned char TXINTFG=0;//下行发送中断次数完成标志
; unsigned char RXINTMAX=16;//下行发送中断次数控制值
; unsigned char RXINTCR=0;//下行发送中断次数计数器
; unsigned char RXINTFG=0;//下行发送中断次数完成标志
; 
; unsigned char TXBUF[16]; //发送缓冲区
; unsigned char RXBUF[30];  //接收缓冲区
; unsigned char TXbufP=0;  //发送缓冲区下标
; unsigned char RXbufP=0;  //接收缓冲区下标
; unsigned char RXbufPmax=11;//接收数据实际长度
; 
; unsigned char RXERROR=0;
; /////Soft Timer
; unsigned char WaitCR0=0;
; unsigned char WaitCR1=0;
; 
; unsigned char SLSTEP=10;
; 
; 
; void SoftTimer(void)
;   {
;     WaitCR0++;
; 	if(WaitCR0>254)
; 	 {
; 	  WaitCR0=0;
; 	  WaitCR1++;
; 	 }//if(WaitCR0>0)
;   }
; void SoftTimerStart(void)
;   {
	.dbline 75
;    WaitCR0=0;
	clr R2
	sts _WaitCR0,R2
	.dbline 76
;    WaitCR1=0;
	sts _WaitCR1,R2
	.dbline -2
L4:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e watchdog_init _watchdog_init fV
	.even
_watchdog_init::
	.dbline -1
	.dbline 80
;   }
;   
; void watchdog_init(void)
;      {
	.dbline 81
; 	   WDR();
	wdr
	.dbline 82
; 	   WDTCR=0x0F ;
	ldi R24,15
	out 0x21,R24
	.dbline -2
L5:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e Delay_1ms _Delay_1ms fV
;              i -> R16,R17
	.even
_Delay_1ms::
	.dbline -1
	.dbline 86
; 	 }
; 	 
; void Delay_1ms(void)
; 	{
	.dbline 89
; 	unsigned int i;
; 
; 	for (i = 1; i<1140; i++)
	ldi R16,1
	ldi R17,0
	rjmp L10
L7:
	.dbline 91
L8:
	.dbline 89
	subi R16,255  ; offset = 1
	sbci R17,255
L10:
	.dbline 89
	cpi R16,116
	ldi R30,4
	cpc R17,R30
	brlo L7
	.dbline -2
L6:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 i
	.dbend
	.dbfunc e delayXms _delayXms fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delayXms::
	rcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 95
; 		
; 			;
; 	}
; 
; void delayXms(unsigned int n)
;      {
	.dbline 96
; 	   unsigned int i=0;
	clr R20
	clr R21
	rjmp L13
L12:
	.dbline 98
	.dbline 99
	rcall _Delay_1ms
	.dbline 100
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 101
L13:
	.dbline 97
; 	   while(i<n)
	cp R20,R22
	cpc R21,R23
	brlo L12
	.dbline -2
L11:
	rcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 106
; 	     {
; 		  Delay_1ms();
; 		  i++;
; 		 }
; 	 }
; 	 
; 	 
; void port_init(void)
;      {
	.dbline 109
; 	 
; 					 
; 	  PORTB=0xFF;    //PB set to 1
	ldi R24,255
	out 0x18,R24
	.dbline 110
; 	  DDRB=0xFF;     
	out 0x17,R24
	.dbline 112
; 					 
; 	  PORTC=0xFF;    //PC set to 1
	out 0x15,R24
	.dbline 113
; 	  DDRC=0x00;     //
	clr R2
	out 0x14,R2
	.dbline 115
; 	      
; 	  PORTD=0xFF;    //PD set to 1
	out 0x12,R24
	.dbline 116
; 	  DDRD=0x12;     //PD0:RXD PD1:TXD PD2:DI0 PD3:DI1
	ldi R24,18
	out 0x11,R24
	.dbline 120
; 	                 //PD4:DI2  PD5:DI3 
; 	  //OUTDEON;
; 	  
; 	SFIOR&=~(1<<PUD);  //OPEN UP LINK
	in R24,0x30
	andi R24,251
	out 0x30,R24
	.dbline 124
; 	//MCUCR|=(1<<ISC11); //Down edge int1
; 	//GICR=(1<<INT1); //enable INT1
; 	  
; 	  delayXms(10); //delay 1s
	ldi R16,10
	ldi R17,0
	rcall _delayXms
	.dbline -2
L15:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e uart_init _uart_init fV
	.even
_uart_init::
	.dbline -1
	.dbline 128
; 	 }
; //////////////////////////UART INIT
; void uart_init(void) 
;    {
	.dbline 130
;     
;     OUTDEOFF;
	cbi 0x12,4
	.dbline 131
;     UCSRB=0x00;
	clr R2
	out 0xa,R2
	.dbline 133
; 	//UBRRL=0x25;  //19.2kbps
; 	UBRRL=0x1;  //38.4kbps
	ldi R24,1
	out 0x9,R24
	.dbline 135
; 	//TX EN ,9Bit ,Adress init
; 	RXADDRESS
	sbi 0xb,0
	.dbline 135
	sts _TRADFG,R2
	.dbline 136
; 	UCSRB=((1<<RXCIE)|(1<<TXCIE)|(1<<UCSZ2));
	ldi R24,196
	out 0xa,R24
	.dbline -2
L16:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e timer_init _timer_init fV
	.even
_timer_init::
	.dbline -1
	.dbline 142
; 	//UCSRB=((1<<TXCIE)|(1<<TXCIE)|(1<<TXEN)|(1<<TXB8));
;    }//void uart_init(void) 
; 
; ///////////////Timer init	 
; void timer_init(void)
;      {
	.dbline 143
; 	  ;
	.dbline -2
L17:
	.dbline 0 ; func end
	ret
	.dbend
	.area vector(rom, abs)
	.org 16
	rjmp _timer1_ovf_isr
	.area text(rom, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbfunc e timer1_ovf_isr _timer1_ovf_isr fV
	.even
_timer1_ovf_isr::
	.dbline -1
	.dbline 149
; 	 }	 	 
; 	
; 
; #pragma interrupt_handler timer1_ovf_isr:9
; void timer1_ovf_isr(void)
; {	
	.dbline 150
; 	 ;  
	.dbline -2
L18:
	.dbline 0 ; func end
	reti
	.dbend
	.area vector(rom, abs)
	.org 26
	rjmp _uart1_tx_isr
	.area text(rom, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbfunc e uart1_tx_isr _uart1_tx_isr fV
	.even
_uart1_tx_isr::
	st -y,R2
	st -y,R24
	st -y,R25
	st -y,R30
	st -y,R31
	in R2,0x3f
	st -y,R2
	.dbline -1
	.dbline 157
; 	 
; }//void timer1_ovf_isr(void)
; 
; //TR to SLAVE
; #pragma interrupt_handler uart1_tx_isr:14
; void uart1_tx_isr(void)
;  {
	.dbline 159
;     
; 	TXbufP++;
	lds R24,_TXbufP
	subi R24,255    ; addi 1
	sts _TXbufP,R24
	.dbline 161
; 	
; 	   if(TXbufP==TXINTMAX) //发送完成
	lds R2,_TXINTMAX
	cp R24,R2
	brne L20
	.dbline 162
; 	    {	       
	.dbline 163
; 		 OUTDEOFF; 
	cbi 0x12,4
	.dbline 164
; 		 SLSTEP=10;
	ldi R24,10
	sts _SLSTEP,R24
	.dbline 166
; 		 
; 	    }//if(TXbufP>TXINTMAX)
	rjmp L21
L20:
	.dbline 168
	.dbline 169
	ldi R24,<_TXBUF
	ldi R25,>_TXBUF
	lds R30,_TXbufP
	clr R31
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	out 0xc,R2
	.dbline 170
L21:
	.dbline -2
L19:
	ld R2,y+
	out 0x3f,R2
	ld R31,y+
	ld R30,y+
	ld R25,y+
	ld R24,y+
	ld R2,y+
	.dbline 0 ; func end
	reti
	.dbend
	.area vector(rom, abs)
	.org 22
	rjmp _uart1_rx_isr
	.area text(rom, con, rel)
	.dbfile E:\m8com\M8SP01.c
	.dbfunc e uart1_rx_isr _uart1_rx_isr fV
;           TmpD -> R16
	.even
_uart1_rx_isr::
	st -y,R2
	st -y,R3
	st -y,R16
	st -y,R24
	st -y,R25
	st -y,R30
	st -y,R31
	in R2,0x3f
	st -y,R2
	.dbline -1
	.dbline 176
; 	 else
; 	  {
; 	   UDR=TXBUF[TXbufP];  
; 	  }//else
; 	
;  }//void uart1_tx_isr(void)
; 
; #pragma interrupt_handler uart1_rx_isr:12
; void uart1_rx_isr(void)
;  {	
	.dbline 177
;     unsigned char TmpD=0;
	clr R16
	.dbline 179
; 	
; 	TmpD=UDR;
	in R16,0xc
	.dbline 181
; 	
; 	if(TRADFG==0)
	lds R2,_TRADFG
	tst R2
	brne L23
	.dbline 182
; 	 {
	.dbline 183
; 	  if((TmpD==SlaveAdress) && (RDHIS==SlaveAdress))
	cpi R16,5
	brne L25
	lds R24,_RDHIS
	cpi R24,5
	brne L25
	.dbline 184
; 	   {
	.dbline 185
; 	    OUTLED2ON;
	cbi 0x18,1
	.dbline 186
; 	    RXDATA	   
	cbi 0xb,0
	.dbline 186
	ldi R24,1
	sts _TRADFG,R24
	.dbline 187
; 		RXbufP=0;
	clr R2
	sts _RXbufP,R2
	.dbline 188
; 	   }//if(TmpD==SlaveAdress && RDHIS==SlaveAdress)
L25:
	.dbline 189
; 	  RDHIS=TmpD;
	sts _RDHIS,R16
	.dbline 190
; 	 }//if(ADFG==0)
	rjmp L24
L23:
	.dbline 192
; 	else
; 	  {
	.dbline 194
; 	   
;        if(RXbufP<RXINTMAX)
	lds R2,_RXINTMAX
	lds R3,_RXbufP
	cp R3,R2
	brsh L27
	.dbline 195
; 	     {
	.dbline 197
; 		 
; 	     RXbufP++;
12 下一页
💿 文件大小 130 K
👤 上传用户 Lxb500
📂 所属分类单片机开发
🏷️ 相关标签

#PROTEUS #MEGA8 #AVR #485
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -