lesson5.s

AVR单片机C语言编程及应用实例 适合初学者的学习研究 其中包含Atmega16中文资料及Protel部分电路图

	.module lesson5.c
	.area text(rom, con, rel)
	.dbfile G:\学习\avr\天祥电子AVR视频教程\chengxu\lesson5\lesson5.c
	.area code(ram, con, rel)
	.dbfile G:\学习\avr\天祥电子AVR视频教程\chengxu\lesson5\lesson5.c
	.area lit(rom, con, rel)
_table::
	.word 63
	.word 6
	.word 91
	.word 79
	.word 102
	.word 109
	.word 125
	.word 7
	.word 127
	.word 111
	.word 119
	.word 124
	.word 57
	.word 94
	.word 121
	.word 113
	.word 0
	.dbsym e table _table A[34:17]kI
	.area text(rom, con, rel)
	.dbfile G:\学习\avr\天祥电子AVR视频教程\chengxu\lesson5\lesson5.c
	.dbfunc e delay _delay fV
;              i -> R20,R21
;              j -> R22,R23
;             ms -> R16,R17
	.even
_delay::
	xcall push_xgsetF000
	.dbline -1
	.dbline 9
; #include <iom16v.h>
; #include <macros.h>
; #define  uchar unsigned char
; #define  uint  unsigned int
; #pragma data:code
; const  table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d, 0x07,
; 		           0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71,0};
; void delay(uint ms)
; {
	.dbline 11
;         uint i,j;
; 	for(i=0;i<ms;i++)
	clr R20
	clr R21
	xjmp L5
L2:
	.dbline 12
; 	   {
	.dbline 13
; 	   for(j=0;j<1141;j++);
	clr R22
	clr R23
	xjmp L9
L6:
	.dbline 13
L7:
	.dbline 13
	subi R22,255  ; offset = 1
	sbci R23,255
L9:
	.dbline 13
	cpi R22,117
	ldi R30,4
	cpc R23,R30
	brlo L6
X0:
	.dbline 14
;        }
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
	xjmp pop_xgsetF000
	.dbsym r i 20 i
	.dbsym r j 22 i
	.dbsym r ms 16 i
	.dbend
	.dbfunc e show _show fV
;              k -> R10
;              j -> R12
	.even
_show::
	st -y,R10
	st -y,R12
	mov R10,R18
	mov R12,R16
	.dbline -1
	.dbline 17
; }
; void show(uchar j,uchar k)
; {
	.dbline 18
;     PORTA|=BIT(3);
	sbi 0x1b,3
	.dbline 19
; 	PORTB=table[j];
	ldi R24,<_table
	ldi R25,>_table
	mov R30,R12
	clr R31
	lsl R30
	rol R31
	add R30,R24
	adc R31,R25
	lpm R2,Z+
	lpm R3,Z
	out 0x18,R2
	.dbline 20
; 	PORTA&=~BIT(3);
	cbi 0x1b,3
	.dbline 21
; 	PORTB=0XFF;
	ldi R24,255
	out 0x18,R24
	.dbline 22
; 	PORTB&=~BIT(k);
	ldi R16,1
	mov R17,R10
	xcall lsl8
	mov R2,R16
	com R2
	in R3,0x18
	and R3,R2
	out 0x18,R3
	.dbline 23
; 	PORTA|=BIT(4);
	sbi 0x1b,4
	.dbline 24
; 	PORTA&=~BIT(4);
	cbi 0x1b,4
	.dbline 25
; 	delay(1);
	ldi R16,1
	ldi R17,0
	xcall _delay
	.dbline -2
L10:
	.dbline 0 ; func end
	ld R12,y+
	ld R10,y+
	ret
	.dbsym r k 10 c
	.dbsym r j 12 c
	.dbend
	.dbfunc e key_press _key_press fc
;              j -> R16
	.even
_key_press::
	.dbline -1
	.dbline 29
; }
; 
; uchar key_press()
; {
	.dbline 31
;     uchar j;
;     DDRD|=0X0F;
	in R24,0x11
	ori R24,15
	out 0x11,R24
	.dbline 32
; 	PORTD|=0X0F;
	in R24,0x12
	ori R24,15
	out 0x12,R24
	.dbline 34
; 	
; 	DDRD&=0XF0;
	in R24,0x11
	andi R24,240
	out 0x11,R24
	.dbline 36
; 	
; 	j=PIND;
	in R16,0x10
	.dbline 37
; 	j=j&0X0F;//00001111
	andi R16,15
	.dbline 38
; 	if(j==0X0F)
	cpi R16,15
	brne L12
X2:
	.dbline 39
; 	{
	.dbline 40
; 	  return 0;
	clr R16
	xjmp L11
L12:
	.dbline 43
; 	}
; 	else
; 	{
	.dbline 44
; 	 return 1;
	ldi R16,1
	.dbline -2
L11:
	.dbline 0 ; func end
	ret
	.dbsym r j 16 c
	.dbend
	.dbfunc e key_scan _key_scan fc
;            key -> R20
	.even
_key_scan::
	xcall push_xgsetF000
	.dbline -1
	.dbline 50
; 	}
; 	
; }
; 
; uchar key_scan()
; {
	.dbline 52
;     uchar key;
;     delay(10);
	ldi R16,10
	ldi R17,0
	xcall _delay
	.dbline 53
; 	if(key_press())
	xcall _key_press
	tst R16
	breq L15
X3:
	.dbline 54
; 	{
	.dbline 55
; 	key=PIND;
	in R20,0x10
	.dbline 56
; 	key&=0X0F;
	andi R20,15
	.dbline 57
; 	switch(key)
	mov R22,R20
	clr R23
	cpi R22,7
	ldi R30,0
	cpc R23,R30
	breq L23
X4:
	cpi R22,11
	ldi R30,0
	cpc R23,R30
	breq L22
X5:
	cpi R22,13
	ldi R30,0
	cpc R23,R30
	breq L21
X6:
	cpi R22,14
	ldi R30,0
	cpc R23,R30
	breq L20
X7:
	xjmp L17
L20:
	.dbline 60
; 	{
; 	   case 0X0E: 
; 	       key=1;
	ldi R20,1
	.dbline 61
; 		   break;
	xjmp L25
L21:
	.dbline 63
; 	   case 0X0D:
; 	       key=2;
	ldi R20,2
	.dbline 64
; 		   break;
	xjmp L25
L22:
	.dbline 66
; 	   	 case 0X0B: 
; 	       key=3;
	ldi R20,3
	.dbline 67
; 		   break;
	xjmp L25
L23:
	.dbline 69
; 	   case 0X07:
; 	       key=4;
	ldi R20,4
	.dbline 70
; 		   break; 
	xjmp L25
L17:
	.dbline 72
; 	   default:	
; 	       key=16;     	   
	ldi R20,16
	.dbline 73
; 	}
L24:
	.dbline 74
; 	  while(key_press());
L25:
	.dbline 74
	xcall _key_press
	tst R16
	brne L24
X8:
	.dbline 75
; 	}
	xjmp L16
L15:
	.dbline 77
; 	else
; 	{
	.dbline 78
; 	  key=16;
	ldi R20,16
	.dbline 79
; 	}
L16:
	.dbline 80
; 	return key;
	mov R16,R20
	.dbline -2
L14:
	.dbline 0 ; func end
	xjmp pop_xgsetF000
	.dbsym r key 20 c
	.dbend
	.dbfunc e main _main fV
;              l -> R10
;              i -> R10
	.even
_main::
	.dbline -1
	.dbline 83
; }
; void main()
; {
	.dbline 85
;     uchar i,l;
;     DDRA=0X18;//0001 1000
	ldi R24,24
	out 0x1a,R24
	.dbline 86
; 	DDRB=0XFF;
	ldi R24,255
	out 0x17,R24
	xjmp L29
L28:
	.dbline 88
; 	while(1)
; 	{
	.dbline 89
; 	  i=key_press();
	xcall _key_press
	mov R10,R16
	.dbline 90
; 	  if(i)
	tst R16
	breq L31
X9:
	.dbline 91
; 	  {
	.dbline 92
; 	     l=key_scan();
	xcall _key_scan
	mov R10,R16
	.dbline 93
; 		 show(l,0);
	clr R18
	xcall _show
	.dbline 94
; 	  }
L31:
	.dbline 95
; 	}
L29:
	.dbline 87
	xjmp L28
X10:
	.dbline -2
L27:
	.dbline 0 ; func end
	ret
	.dbsym r l 10 c
	.dbsym r i 10 c
	.dbend
; }