coding.s

自定简单无线协议.由AVR编码发送,51中断接收解码, 误码率低, 但通信速率较低

	.module coding.c
	.area text(rom, con, rel)
	.dbfile D:\MYDOCU~1\电子\08电信节\coding_and_decode改进\coding.c
	.dbfunc e delay _delay fV
;              i -> R20,R21
;              j -> R22
;              t -> R16,R17
	.even
_delay::
	rcall push_xgsetF000
	.dbline -1
	.dbline 10
; //ICC-AVR application builder : 2008-5-2 16:02:25
; // Target : M8
; // Crystal: 7.3728Mhz
; 
; #include <iom8v.h>
; #include <macros.h>
; unsigned int ms;
; 
; void delay(unsigned int t)
; {	unsigned int i;unsigned char j;
	.dbline 11
; 	for(i=0;i<t;i++)
	clr R20
	clr R21
	rjmp L5
L2:
	.dbline 12
; 		for(j=80;j>0;j--);
	ldi R22,80
	rjmp L9
L6:
	.dbline 12
L7:
	.dbline 12
	dec R22
L9:
	.dbline 12
	ldi R24,0
	cp R24,R22
	brlo L6
X0:
L3:
	.dbline 11
	subi R20,255  ; offset = 1
	sbci R21,255
L5:
	.dbline 11
	cp R20,R16
	cpc R21,R17
	brlo L2
X1:
	.dbline -2
L1:
	.dbline 0 ; func end
	rjmp pop_xgsetF000
	.dbsym r i 20 i
	.dbsym r j 22 c
	.dbsym r t 16 i
	.dbend
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 16
; }
; 
; void port_init(void)
; {
	.dbline 17
;  PORTB = 0x01;
	ldi R24,1
	out 0x18,R24
	.dbline 18
;  DDRB  = 0x01;
	out 0x17,R24
	.dbline 19
;  PORTC = 0x00; //m103 output only
	clr R2
	out 0x15,R2
	.dbline 20
;  DDRC  = 0x00;
	out 0x14,R2
	.dbline 21
;  PORTD = 0x00;
	out 0x12,R2
	.dbline 22
;  DDRD  = 0x00;
	out 0x11,R2
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e timer1_init _timer1_init fV
	.even
_timer1_init::
	.dbline -1
	.dbline 31
;  
; }
; 
; //TIMER1 initialize - prescale:1
; // WGM: 0) Normal, TOP=0xFFFF
; // desired value: 500uSec
; // actual value: 499.946uSec (0.0%)
; void timer1_init(void)
; {
	.dbline 32
;  TCCR1B = 0x00; //stop
	clr R2
	out 0x2e,R2
	.dbline 33
;  TCNT1H = 0xF1; //setup
	ldi R24,241
	out 0x2d,R24
	.dbline 34
;  TCNT1L = 0x9A;
	ldi R24,154
	out 0x2c,R24
	.dbline 35
;  OCR1AH = 0x0E;
	ldi R24,14
	out 0x2b,R24
	.dbline 36
;  OCR1AL = 0x66;
	ldi R24,102
	out 0x2a,R24
	.dbline 37
;  OCR1BH = 0x0E;
	ldi R24,14
	out 0x29,R24
	.dbline 38
;  OCR1BL = 0x66;
	ldi R24,102
	out 0x28,R24
	.dbline 39
;  ICR1H  = 0x0E;
	ldi R24,14
	out 0x27,R24
	.dbline 40
;  ICR1L  = 0x66;
	ldi R24,102
	out 0x26,R24
	.dbline 41
;  TCCR1A = 0x00;
	out 0x2f,R2
	.dbline 42
;  TCCR1B = 0x01; //start Timer
	ldi R24,1
	out 0x2e,R24
	.dbline -2
L11:
	.dbline 0 ; func end
	ret
	.dbend
	.area vector(rom, abs)
	.org 16
	rjmp _timer1_ovf_isr
	.area text(rom, con, rel)
	.dbfile D:\MYDOCU~1\电子\08电信节\coding_and_decode改进\coding.c
	.dbfunc e timer1_ovf_isr _timer1_ovf_isr fV
	.even
_timer1_ovf_isr::
	st -y,R24
	st -y,R25
	in R24,0x3f
	st -y,R24
	.dbline -1
	.dbline 47
; }
; 
; #pragma interrupt_handler timer1_ovf_isr:iv_TIM1_OVF
; void timer1_ovf_isr(void)
; {
	.dbline 49
;  //TIMER1 has overflowed
;  TCNT1H = 0xF1; //reload counter high value
	ldi R24,241
	out 0x2d,R24
	.dbline 50
;  TCNT1L = 0x9A; //reload counter low value
	ldi R24,154
	out 0x2c,R24
	.dbline 51
;  ms++;
	lds R24,_ms
	lds R25,_ms+1
	adiw R24,1
	sts _ms+1,R25
	sts _ms,R24
	.dbline -2
L12:
	.dbline 0 ; func end
	ld R24,y+
	out 0x3f,R24
	ld R25,y+
	ld R24,y+
	reti
	.dbend
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 56
; }
; 
; //call this routine to initialize all peripherals
; void init_devices(void)
; {
	.dbline 58
;  //stop errant interrupts until set up
;  CLI(); //disable all interrupts
	cli
	.dbline 59
;  port_init();
	rcall _port_init
	.dbline 60
;  timer1_init();
	rcall _timer1_init
	.dbline 62
; 
;  MCUCR = 0x00;
	clr R2
	out 0x35,R2
	.dbline 63
;  GICR  = 0x00;
	out 0x3b,R2
	.dbline 64
;  TIMSK = 0x05; //timer interrupt sources
	ldi R24,5
	out 0x39,R24
	.dbline 65
;  SEI(); //re-enable interrupts
	sei
	.dbline -2
L13:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e signal_0 _signal_0 fV
	.even
_signal_0::
	.dbline -1
	.dbline 70
;  //all peripherals are now initialized
; }
; 
; void signal_0(void)
; {	
	.dbline 71
; 	 ms=0;
	clr R2
	clr R3
	sts _ms+1,R3
	sts _ms,R2
	rjmp L16
L15:
	.dbline 72
; 	 while(ms==0) PORTB=PORTB&0xfe;
	in R24,0x18
	andi R24,254
	out 0x18,R24
L16:
	.dbline 72
	lds R2,_ms
	lds R3,_ms+1
	tst R2
	brne X2
	tst R3
	breq L15
X2:
	.dbline 73
; 	 ms=0;
	clr R2
	clr R3
	sts _ms+1,R3
	sts _ms,R2
	rjmp L19
L18:
	.dbline 74
; 	 while(ms==0) PORTB=PORTB|0X01;
	sbi 0x18,0
L19:
	.dbline 74
	lds R2,_ms
	lds R3,_ms+1
	tst R2
	brne X3
	tst R3
	breq L18
X3:
	.dbline -2
L14:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e signal_1 _signal_1 fV
	.even
_signal_1::
	.dbline -1
	.dbline 79
; 	
; }
; 
; void signal_1(void)
; {	 
	.dbline 80
; 	 ms=0;
	clr R2
	clr R3
	sts _ms+1,R3
	sts _ms,R2
	rjmp L23
L22:
	.dbline 81
; 	 while(ms==0) PORTB=PORTB&0xfe;
	in R24,0x18
	andi R24,254
	out 0x18,R24
L23:
	.dbline 81
	lds R2,_ms
	lds R3,_ms+1
	tst R2
	brne X4
	tst R3
	breq L22
X4:
	.dbline 82
; 	 ms=0;
	clr R2
	clr R3
	sts _ms+1,R3
	sts _ms,R2
	rjmp L26
L25:
	.dbline 83
; 	 while(ms<3) PORTB=PORTB|0x01;
	sbi 0x18,0
L26:
	.dbline 83
	lds R24,_ms
	lds R25,_ms+1
	cpi R24,3
	ldi R30,0
	cpc R25,R30
	brlo L25
X5:
	.dbline -2
L21:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e signal_init _signal_init fV
	.even
_signal_init::
	.dbline -1
	.dbline 88
; 	
; }
; 
; void signal_init(void)
; {	
	.dbline 89
; 	 ms=0;
	clr R2
	clr R3
	sts _ms+1,R3
	sts _ms,R2
	rjmp L30
L29:
	.dbline 90
; 	 while(ms<4) PORTB=PORTB&0xfe;
	in R24,0x18
	andi R24,254
	out 0x18,R24
L30:
	.dbline 90
	lds R24,_ms
	lds R25,_ms+1
	cpi R24,4
	ldi R30,0
	cpc R25,R30
	brlo L29
X6:
	.dbline 91
; 	 ms=0;
	clr R2
	clr R3
	sts _ms+1,R3
	sts _ms,R2
	rjmp L33
L32:
	.dbline 92
; 	 while(ms<4) PORTB=PORTB|0x01;
	sbi 0x18,0
L33:
	.dbline 92
	lds R24,_ms
	lds R25,_ms+1
	cpi R24,4
	ldi R30,0
	cpc R25,R30
	brlo L32
X7:
	.dbline -2
L28:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e signal_end _signal_end fV
	.even
_signal_end::
	.dbline -1
	.dbline 97
; 	
; }
; 
; void signal_end(void)
; {	 ms=0;
	.dbline 97
	clr R2
	clr R3
	sts _ms+1,R3
	sts _ms,R2
	rjmp L37
L36:
	.dbline 98
; 	 while(ms==0) PORTB=PORTB&0xfe;
	in R24,0x18
	andi R24,254
	out 0x18,R24
L37:
	.dbline 98
	lds R2,_ms
	lds R3,_ms+1
	tst R2
	brne X8
	tst R3
	breq L36
X8:
	.dbline 100
; 	
; 	 PORTB=PORTB|0x01;
	sbi 0x18,0
	.dbline -2
L35:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e coding _coding fV
;              m -> R20
;              j -> R20
;              i -> R22
;            num -> R10
	.even
_coding::
	rcall push_xgsetF00C
	mov R10,R16
	.dbline -1
	.dbline 104
; } 
; 
; void coding(unsigned char num)
; {	 unsigned char i,j,m;
	.dbline 105
; 	 for(j=0;j<6;j++)
	clr R20
	rjmp L43
L40:
	.dbline 106
; 	 {
	.dbline 107
; 	  	signal_init();
	rcall _signal_init
	.dbline 108
; 	 }
L41:
	.dbline 105
	inc R20
L43:
	.dbline 105
	cpi R20,6
	brlo L40
X9:
	.dbline 110
; 	 
; 	 for(m=0;m<1;m++)
	clr R20
	rjmp L47
L44:
	.dbline 111
;    	 {
	.dbline 113
; 	 
; 	  	signal_0();
	rcall _signal_0
	.dbline 114
; 	 	signal_1();
	rcall _signal_1
	.dbline 115
; 		signal_0();
	rcall _signal_0
	.dbline 116
; 		signal_1();
	rcall _signal_1
	.dbline 118
; 	 
; 	 	for(i=0;i<8;i++)
	clr R22
	rjmp L51
L48:
	.dbline 119
; 	 	{	
	.dbline 121
; 	   
; 			if( ( num&(0x01<<i) )!=0)
	ldi R16,1
	mov R17,R22
	rcall lsl8
	mov R2,R10
	and R2,R16
	breq L52
X10:
	.dbline 122
; 				signal_1();
	rcall _signal_1
	rjmp L53
L52:
	.dbline 124
; 			else
; 				signal_0();
	rcall _signal_0
L53:
	.dbline 126
; 		 		
; 		}	
L49:
	.dbline 118
	inc R22
L51:
	.dbline 118
	cpi R22,8
	brlo L48
X11:
	.dbline 127
;     	signal_init();
	rcall _signal_init
	.dbline 128
; 		signal_init();
	rcall _signal_init
	.dbline 129
; 	 }
L45:
	.dbline 110
	inc R20
L47:
	.dbline 110
	cpi R20,1
	brlo L44
X12:
	.dbline 131
; 		
; 	 signal_end();
	rcall _signal_end
	.dbline -2
L39:
	.dbline 0 ; func end
	rjmp pop_xgsetF00C
	.dbsym r m 20 c
	.dbsym r j 20 c
	.dbsym r i 22 c
	.dbsym r num 10 c
	.dbend
	.dbfunc e main _main fV
;           code -> <dead>
;              t -> R20,R21
	.even
_main::
	.dbline -1
	.dbline 135
; }
; //
; void main(void)
; {unsigned code;
	.dbline 136
;  unsigned t=0;
	clr R20
	clr R21
	.dbline 137
;  init_devices();
	rcall _init_devices
	.dbline 138
;  DDRD=0x00;
	clr R2
	out 0x11,R2
	.dbline 139
;  PORTD=0x01;
	ldi R24,1
	out 0x12,R24
	rjmp L56
L55:
	.dbline 144
; 
;  //insert your functional code here...
;  
;  while(1)
;  {	
	.dbline 153
;  	
; 	/*
; 	
; 	while(PIND!=0x01)  ;
; 	while(PIND==0x01)  coding(0x11);
; 	coding(0xff);
; 	delay(2000);
; 	*/
; 	t++;
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 154
; 		if(t==0xff)  t=0;
	cpi R20,255
	ldi R30,0
	cpc R21,R30
	brne L58
X13:
	.dbline 154
	clr R20
	clr R21
L58:
	.dbline 155
; 		coding(t);
	mov R16,R20
	rcall _coding
	.dbline 156
; 		delay(50000);
	ldi R16,50000
	ldi R17,195
	rcall _delay
	.dbline 160
; 		
; 		
; 	
;  }
L56:
	.dbline 143
	rjmp L55
X14:
	.dbline -2
L54:
	.dbline 0 ; func end
	ret
	.dbsym l code 1 i
	.dbsym r t 20 i
	.dbend
	.area bss(ram, con, rel)
	.dbfile D:\MYDOCU~1\电子\08电信节\coding_and_decode改进\coding.c
_ms::
	.blkb 2
	.dbsym e ms _ms i
;  
;  
;  
; }
;