led-16sm.s

大量ATMEGA16实例, 都可以运行,包括驱动LCD1602, 上位机显示等多功能

	.module LED-16sm.c
	.area text(rom, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
_pattern1::
	.blkb 2
	.area idata
	.byte 1,3
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 7,15
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 31,63
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 127,255
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 127,63
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 31,15
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 7,3
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 1
	.area idata
	.byte 1
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.dbsym e pattern1 _pattern1 A[15:15]c
_pattern2::
	.blkb 2
	.area idata
	.byte 1,2
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 4,8
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 16,32
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 64,128
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 64,32
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 16,8
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 4,2
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 1
	.area idata
	.byte 1
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.dbsym e pattern2 _pattern2 A[15:15]c
_pattern3::
	.blkb 2
	.area idata
	.byte 1,128
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 2,64
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 4,32
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 8,16
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 16,8
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 32,4
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 64,2
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 1
	.area idata
	.byte 128
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.dbsym e pattern3 _pattern3 A[15:15]c
_pattern4::
	.blkb 2
	.area idata
	.byte 17,34
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 'D,136
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 'D,34
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 17,34
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 'D,136
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 'D,34
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 17,0
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.dbsym e pattern4 _pattern4 A[15:15]c
_pattern5::
	.blkb 2
	.area idata
	.byte 254,253
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 251,247
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 239,223
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 191,127
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.dbsym e pattern5 _pattern5 A[8:8]c
	.area lit(rom, con, rel)
_dig0::
	.byte 64
	.dbsym e dig0 _dig0 kc
_dig1::
	.byte 128
	.dbsym e dig1 _dig1 kc
_dig2::
	.byte 16
	.dbsym e dig2 _dig2 kc
_dig3::
	.byte 8
	.dbsym e dig3 _dig3 kc
_dot::
	.byte 32
	.dbsym e dot _dot kc
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
_segconv::
	.blkb 2
	.area idata
	.byte 63,6
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 91,'O
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 'f,'m
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 125,7
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.blkb 2
	.area idata
	.byte 127,'o
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.dbsym e segconv _segconv A[10:10]c
	.area text(rom, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 47
; /*
; Title:	LED-16sm.c
; Connection:
; 	  Factory fixed setting:
; 	  PORTA:
; 	  		PA0-PA2 LCD control
; 			PA3-PA7 4x7-segment display control
; 			Drive LED group2 (the right group of LED)
; 	  PORTB:
; 	  		Shared by LCD and 4x7-segment displays
; 	  		output 8-bit data to LCD or 8-bit data to 4x7-segment displays
; 	  PORTC:
; 	        shared by 8-bit dipswitch and 4 x touch switches + 4 buttons
; 			receive inputs from dipswitch, touch switches and buttons 				
; 	  PORTD: 
; 	  		Drive LED group1 (the left group of LED) 
; Attention:
; 	  1. J12 should be capped (connectted)
; 	  2. J5 is the Jump for LCD back light power 	  
; 
; Operation:
; 	  1. LED group1 does pattern show
; 	  2. There are four patterns, which pattern in operation is controlled by SW4 and SW5
; 	  3. The left three LEDs of LED group2 blinks and the others light consistently
; 	  4. Segment plus dot of 4x7-segment displays lights in sequence
; */
;  
; 
; #include <iom16v.h>
; #include <macros.h>
; 
; unsigned char pattern1[]= {0x01, 0x03, 0x07, 0x0F, 0x1f, 0x3f, 0x7f, 0xff, 0x7f,
; 						  0x3f, 0x1f, 0x0f, 0x07, 0x03, 0x01};
; unsigned char pattern2[]= {0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80, 0x40,
; 						  0x20, 0x10, 0x08, 0x04, 0x02, 0x01};
; unsigned char pattern3[]= {0x01, 0x80, 0x02, 0x40, 0x04, 0x20, 0x08, 0x10, 0x10,
; 						  0x08, 0x20, 0x04, 0x40, 0x02, 0x80};
; unsigned char pattern4[]= {0x11, 0x22, 0x44, 0x88, 0x44, 0x22, 0x11, 0x22, 0x44,
; 						  0x88, 0x44, 0x22, 0x11, 0x00, 0x00};
; unsigned char pattern5[]= {0xfe, 0xfd, 0xfb, 0xf7, 0xef, 0xdf, 0xbf, 0x7f};						  
; const char dig0 = 0x40, dig1 = 0x80, dig2=0x10, dig3=0x08, dot=0x20;
; char segconv[]={0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7d, 0x07, 0x7f, 0x6f};
; unsigned char BCD0, BCD1, BCD2, BCD3;
; int count;
; 
; void port_init(void)
; {
	.dbline 48
;  DDRA  = 0xFF;		//set PortA output
	ldi R24,255
	out 0x1a,R24
	.dbline 49
;  DDRB  = 0xff;		//set PORTB output
	out 0x17,R24
	.dbline 50
;  DDRC  = 0x00;		//set PORTC output
	clr R2
	out 0x14,R2
	.dbline 51
;  PORTC = 0xff;
	out 0x15,R24
	.dbline 52
;  DDRD  = 0xFF;		//set PORTD output
	out 0x11,R24
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay _delay fV
;              i -> R20,R21
;              j -> R22,R23
;          count -> R16,R17
	.even
_delay::
	xcall push_xgsetF000
	.dbline -1
	.dbline 56
; }
; 
; void delay(int count)
; {
	.dbline 58
;  int i, j;
;  for(i=count; i>0; i--)
	movw R20,R16
	xjmp L6
L3:
	.dbline 59
;     for(j=10; j>0; j--)
	ldi R22,10
	ldi R23,0
L7:
	.dbline 60
; 	   ;
L8:
	.dbline 59
	subi R22,1
	sbci R23,0
	.dbline 59
	clr R2
	clr R3
	cp R2,R22
	cpc R3,R23
	brlt L7
X0:
L4:
	.dbline 58
	subi R20,1
	sbci R21,0
L6:
	.dbline 58
	clr R2
	clr R3
	cp R2,R20
	cpc R3,R21
	brlt L3
X1:
	.dbline -2
L2:
	.dbline 0 ; func end
	xjmp pop_xgsetF000
	.dbsym r i 20 I
	.dbsym r j 22 I
	.dbsym r count 16 I
	.dbend
	.dbfunc e main _main fV
;           outd -> R10
;           outc -> R10
;           outb -> R10
;           outa -> R10
;              j -> R22,R23
;          count -> R10,R11
;          swin2 -> R12,R13
;      led_index -> R20,R21
;           swin -> R14,R15
	.even
_main::
	.dbline -1
	.dbline 66
; } 
; 
; //*****************************************************************
; 
; void main(void)
; {
	.dbline 67
;  unsigned char outa=0x00, outb=0x00, outc=0x00, outd=0x00;
	clr R10
	.dbline 67
	.dbline 67
	.dbline 67
	.dbline 68
;  int swin, swin2, led_index=0;  
	clr R20
	clr R21
	.dbline 69
;  int j, count=0;
	clr R11
	.dbline 71
;  
;  port_init();
	xcall _port_init
	.dbline 72
;  PORTA=0xff;
	ldi R24,255
	out 0x1b,R24
	xjmp L13
L12:
	.dbline 74
;  while(1)
;    {
	.dbline 75
;     WDR();				  //Watchdog reset
	wdr
	.dbline 76
; 	if(++count>30)
	movw R24,R10
	adiw R24,1
	movw R10,R24
	ldi R24,30
	ldi R25,0
	cp R24,R10
	cpc R25,R11
	brge L15
X2:
	.dbline 77
; 	  {
	.dbline 78
; 	  	count=0;
	clr R10
	clr R11
	.dbline 79
; 		PORTA^=0x07;
	ldi R24,7
	in R2,0x1b
	eor R2,R24
	out 0x1b,R2
	.dbline 80
; 		PORTB=pattern5[j++];
	movw R2,R22
	subi R22,255  ; offset = 1
	sbci R23,255
	ldi R24,<_pattern5
	ldi R25,>_pattern5
	movw R30,R2
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	out 0x18,R2
	.dbline 81
;     	if(j>=8)
	cpi R22,8
	ldi R30,0
	cpc R23,R30
	brlt L17
X3:
	.dbline 82
;       	j=0;
	clr R22
	clr R23
L17:
	.dbline 83
; 	  }
L15:
	.dbline 86
; 	  
; 	//PORTA=swin;
; 	swin=PINC&0x30;
	in R24,0x13
	clr R25
	andi R24,48
	andi R25,0
	movw R14,R24
	.dbline 87
; 	swin=swin>>4;
	asr R15
	ror R14
	asr R15
	ror R14
	asr R15
	ror R14
	asr R15
	ror R14
	.dbline 88
; 	swin2=~PINC&0x0f;
	in R24,0x13
	clr R25
	com R24
	com R25
	andi R24,15
	andi R25,0
	movw R12,R24
	.dbline 90
; 	
; 	if(swin==0)
	tst R14
	brne L19
	tst R15
	brne L19
X4:
	.dbline 91
; 	  {
	.dbline 92
; 	  PORTD=pattern1[led_index];	  
	ldi R24,<_pattern1
	ldi R25,>_pattern1
	movw R30,R20
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	out 0x12,R2
	.dbline 93
; 	  }
	xjmp L20
L19:
	.dbline 94
; 	else if(swin==0x01)
	movw R24,R14
	cpi R24,1
	ldi R30,0
	cpc R25,R30
	brne L21
X5:
	.dbline 95
; 	  {
	.dbline 96
; 	  PORTD=pattern2[led_index];	  
	ldi R24,<_pattern2
	ldi R25,>_pattern2
	movw R30,R20
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	out 0x12,R2
	.dbline 97
; 	  }
	xjmp L22
L21:
	.dbline 98
; 	else if(swin==0x02)
	movw R24,R14
	cpi R24,2
	ldi R30,0
	cpc R25,R30
	brne L23
X6:
	.dbline 99
; 	  {
	.dbline 100
; 	  PORTD=pattern3[led_index];	  
	ldi R24,<_pattern3
	ldi R25,>_pattern3
	movw R30,R20
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	out 0x12,R2
	.dbline 101
; 	  }
	xjmp L24
L23:
	.dbline 103
; 	else
; 	  {
	.dbline 104
; 	  PORTD=pattern4[led_index];	  
	ldi R24,<_pattern4
	ldi R25,>_pattern4
	movw R30,R20
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	out 0x12,R2
	.dbline 105
; 	  }
L24:
L22:
L20:
	.dbline 107
; 	  
; 	led_index++;
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 108
; 	if(led_index>14)
	ldi R24,14
	ldi R25,0
	cp R24,R20
	cpc R25,R21
	brge L25
X7:
	.dbline 109
; 		led_index=0;			
	clr R20
	clr R21
L25:
	.dbline 111
; 	
;     delay(2000+800*swin2);
	ldi R16,800
	ldi R17,3
	movw R18,R12
	xcall empy16s
	subi R16,48  ; offset = 2000
	sbci R17,248
	xcall _delay
	.dbline 112
;    }
L13:
	.dbline 73
	xjmp L12
X8:
	.dbline -2
L11:
	.dbline 0 ; func end
	ret
	.dbsym r outd 10 c
	.dbsym r outc 10 c
	.dbsym r outb 10 c
	.dbsym r outa 10 c
	.dbsym r j 22 I
	.dbsym r count 10 I
	.dbsym r swin2 12 I
	.dbsym r led_index 20 I
	.dbsym r swin 14 I
	.dbend
	.area bss(ram, con, rel)
	.dbfile C:\+samples-16small\LED-16sm\LED-16sm.c
_count::
	.blkb 2
	.dbsym e count _count I
_BCD3::
	.blkb 1
	.dbsym e BCD3 _BCD3 c
_BCD2::
	.blkb 1
	.dbsym e BCD2 _BCD2 c
_BCD1::
	.blkb 1
	.dbsym e BCD1 _BCD1 c
_BCD0::
	.blkb 1
	.dbsym e BCD0 _BCD0 c
; }