矩阵式按键.s

ICC mega8例子

	.module _矩阵式按键.c
	.area text(rom, con, rel)
	.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_矩阵式按键\矩阵式按键.c
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 9
; //ICC-AVR application builder : 2009-3-12 17:58:29
; // Target : M8
; // Crystal: 8.0000Mhz
; 
; #include <iom8v.h>
; #include <macros.h>
; 
; void port_init(void)
; {
	.dbline 10
;  PORTB = 0x00;
	clr R2
	out 0x18,R2
	.dbline 11
;  DDRB  = 0x00;
	out 0x17,R2
	.dbline 12
;  PORTC = 0x00; //m103 output only
	out 0x15,R2
	.dbline 13
;  DDRC  = 0x00;
	out 0x14,R2
	.dbline 14
;  PORTD = 0x00;
	out 0x12,R2
	.dbline 15
;  DDRD  = 0x00;
	out 0x11,R2
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 20
; }
; 
; //call this routine to initialize all peripherals
; void init_devices(void)
; {
	.dbline 22
;  //stop errant interrupts until set up
;  CLI(); //disable all interrupts
	cli
	.dbline 23
;  port_init();
	rcall _port_init
	.dbline 25
; 
;  MCUCR = 0x00;
	clr R2
	out 0x35,R2
	.dbline 26
;  GICR  = 0x00;
	out 0x3b,R2
	.dbline 27
;  TIMSK = 0x00; //timer interrupt sources
	out 0x39,R2
	.dbline 28
;  SEI(); //re-enable interrupts
	sei
	.dbline -2
L2:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_us _delay_us fV
;           time -> R16,R17
	.even
_delay_us::
	.dbline -1
	.dbline 40
;  //all peripherals are now initialized
; }
; 
; /************************************
; 用    途:微秒级延时程序
; Taget   :mega8
; crystal :8M
; 介    绍:在8M的晶振上进行us级的延时
; 入口参数:
; *************************************/
; void delay_us(int time)
; {
L4:
	.dbline 42
;     do
;     {
	.dbline 43
;         time--;
	subi R16,1
	sbci R17,0
	.dbline 44
;     } 
L5:
	.dbline 45
;     while (time > 1);
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlt L4
X0:
	.dbline -2
L3:
	.dbline 0 ; func end
	ret
	.dbsym r time 16 I
	.dbend
	.area lit(rom, con, rel)
_num::
	.byte 63,6
	.byte 91,'O
	.byte 'f,'m
	.byte 125,7
	.byte 127,'o
	.byte 'w,124
	.byte 57,94
	.byte 'y,'q
	.dbsym e num _num A[16:16]kc
	.area text(rom, con, rel)
	.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_矩阵式按键\矩阵式按键.c
	.dbfunc e show_2_digit _show_2_digit fV
;              i -> <dead>
;           digi -> R10
	.even
_show_2_digit::
	st -y,R10
	mov R10,R16
	.dbline -1
	.dbline 67
; }
; 
; 
; /************************************
; 用    途:两位数码管显示一个数
; Taget   :mega8
; crystal :8M
; 介    绍:共阳数码管
; 	  	 1-PC1(片选)
; 		 2-PC0
; 		 -----
; 		 a-PB0(数据)
; 		 b-PB1
; 		 ...
; 		 h-PB6
; 		 DP-PB7
; 入口参数:要显示的数，十进制表示
; *************************************/
; const unsigned char num[16]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,
; 	   			0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71};
; void show_2_digit(unsigned char digi)
; {
	.dbline 69
;  unsigned char i;
;  DDRC=0xff;
	ldi R24,255
	out 0x14,R24
	.dbline 70
;  DDRB=0xff;
	out 0x17,R24
	.dbline 71
;  PORTC=0;//关片选
	clr R2
	out 0x15,R2
	.dbline 72
;  PORTB=~num[(unsigned char )(digi/10)];//显示十位
	ldi R18,10
	ldi R19,0
	mov R16,R10
	clr R17
	rcall div16s
	mov R30,R16
	clr R31
	ldi R24,<_num
	ldi R25,>_num
	add R30,R24
	adc R31,R25
	lpm R2,Z
	com R2
	out 0x18,R2
	.dbline 73
;  PORTC=(0x1<<1);//开十位的显示
	ldi R24,2
	out 0x15,R24
	.dbline 74
;  delay_us(200);
	ldi R16,200
	ldi R17,0
	rcall _delay_us
	.dbline 75
;  PORTC=0;//关显示
	clr R2
	out 0x15,R2
	.dbline 76
;  PORTB=~num[(unsigned char )(digi%10)];//显示个位
	ldi R18,10
	ldi R19,0
	mov R16,R10
	clr R17
	rcall mod16s
	mov R30,R16
	clr R31
	ldi R24,<_num
	ldi R25,>_num
	add R30,R24
	adc R31,R25
	lpm R2,Z
	com R2
	out 0x18,R2
	.dbline 77
;  PORTC=(0x1<<0);//开个位的显示
	ldi R24,1
	out 0x15,R24
	.dbline 78
;  delay_us(200);
	ldi R16,200
	ldi R17,0
	rcall _delay_us
	.dbline 79
;  PORTC=0x0;//关显示
	clr R2
	out 0x15,R2
	.dbline -2
L7:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym l i 1 c
	.dbsym r digi 10 c
	.dbend
	.dbfunc e key_vetrix _key_vetrix fc
;              k -> R20
;           key0 -> R10
	.even
_key_vetrix::
	rcall push_xgsetF00C
	.dbline -1
	.dbline 91
; }
; 
; /************************************
; 用    途:矩阵键盘扫描子程序
; Taget   :mega8
; crystal :8M
; 介    绍:用的是D口
; 入口参数:
; 出口参数:没有是-1不然是0-15
; *************************************/
; char key_vetrix()
; {
	.dbline 92
;  char k=-1;
	ldi R20,255
	.dbline 94
;  unsigned char key0;
;  DDRD=0xf0;
	ldi R24,240
	out 0x11,R24
	.dbline 95
;  PORTD=0x0f;//扫描低位
	ldi R24,15
	out 0x12,R24
	.dbline 96
;  delay_us(1);
	ldi R16,1
	ldi R17,0
	rcall _delay_us
	.dbline 97
;  key0=PIND;
	in R10,0x10
	.dbline 98
;  key0=~(key0^0xf0);
	ldi R24,240
	ldi R25,0
	mov R2,R10
	clr R3
	eor R2,R24
	eor R3,R25
	com R2
	com R3
	mov R10,R2
	.dbline 99
;  if (key0==0) return -1;
	tst R2
	brne L9
X1:
	.dbline 99
	ldi R16,255
	rjmp L8
L9:
	.dbline 101
;  //----------------------扫行
;  delay_us(500);//延时消抖
	ldi R16,500
	ldi R17,1
	rcall _delay_us
	.dbline 102
;  key0=PIND;
	in R10,0x10
	.dbline 103
;  key0=~(key0^0xf0);
	ldi R24,240
	ldi R25,0
	mov R2,R10
	clr R3
	eor R2,R24
	eor R3,R25
	com R2
	com R3
	mov R10,R2
	.dbline 104
;  if (key0==0) return -1;
	tst R2
	brne L11
X2:
	.dbline 104
	ldi R16,255
	rjmp L8
L11:
	.dbline 105
;  switch ((key0))
	mov R22,R10
	clr R23
	cpi R22,1
	ldi R30,0
	cpc R23,R30
	breq L16
X3:
	cpi R22,2
	ldi R30,0
	cpc R23,R30
	breq L17
X4:
	cpi R22,4
	ldi R30,0
	cpc R23,R30
	breq L18
X5:
	cpi R22,8
	ldi R30,0
	cpc R23,R30
	breq L19
X6:
	rjmp L13
L16:
	.dbline 107
;  {
;   case (0x01):k=0;break;
	clr R20
	.dbline 107
	rjmp L14
L17:
	.dbline 108
;   case (0x02):k=4;break;
	ldi R20,4
	.dbline 108
	rjmp L14
L18:
	.dbline 109
;   case (0x04):k=8;break;
	ldi R20,8
	.dbline 109
	rjmp L14
L19:
	.dbline 110
;   case (0x08):k=12;break;
	ldi R20,12
	.dbline 110
L13:
L14:
	.dbline 113
;  }
;  //---------------------扫列
;  DDRD=0x0f;
	ldi R24,15
	out 0x11,R24
	.dbline 114
;  PORTD=0xf0;
	ldi R24,240
	out 0x12,R24
	.dbline 115
;  delay_us(1);
	ldi R16,1
	ldi R17,0
	rcall _delay_us
	.dbline 116
;  key0=PIND;
	in R10,0x10
	.dbline 117
;  key0=~(key0^0x0f);
	ldi R24,15
	mov R2,R10
	eor R2,R24
	com R2
	mov R10,R2
	.dbline 118
;  if (0==key0) return -1;
	tst R2
	brne L20
X7:
	.dbline 118
	ldi R16,255
	rjmp L8
L20:
	.dbline 119
;  switch ((key0>>4))
	mov R22,R10
	clr R23
	asr R23
	ror R22
	asr R23
	ror R22
	asr R23
	ror R22
	asr R23
	ror R22
	cpi R22,1
	ldi R30,0
	cpc R23,R30
	breq L25
X8:
	cpi R22,2
	ldi R30,0
	cpc R23,R30
	breq L26
X9:
	cpi R22,4
	ldi R30,0
	cpc R23,R30
	breq L27
X10:
	cpi R22,8
	ldi R30,0
	cpc R23,R30
	breq L28
X11:
	rjmp L22
L25:
	.dbline 121
;  {
;   case 1:k+=0;break;
	.dbline 121
	rjmp L23
L26:
	.dbline 122
;   case 2:k+=1;break;
	inc R20
	.dbline 122
	rjmp L23
L27:
	.dbline 123
;   case 4:k+=2;break;
	subi R20,254    ; addi 2
	.dbline 123
	rjmp L23
L28:
	.dbline 124
;   case 8:k+=3;break;
	subi R20,253    ; addi 3
	.dbline 124
L22:
L23:
	.dbline 131
;  }
;  /*while(0!=key0)//等待按起
;  {
;   key0=pinKEY;
;   key0=~(key0^0x0f);
;  }*/
;  return k;
	mov R16,R20
	.dbline -2
L8:
	.dbline 0 ; func end
	rjmp pop_xgsetF00C
	.dbsym r k 20 c
	.dbsym r key0 10 c
	.dbend
	.dbfunc e main _main fV
;              i -> R12
;              j -> R10
	.even
_main::
	.dbline -1
	.dbline 136
; }
; //********************************
; 
; void main()
; {
	.dbline 137
;  char i,j=0;
	clr R10
	.dbline 138
;  port_init();
	rcall _port_init
	.dbline 139
;  init_devices();
	rcall _init_devices
	rjmp L31
L30:
	.dbline 142
;  
;  while(1)
;  {
	.dbline 144
;  
;   if((i=key_vetrix())!=-1)
	rcall _key_vetrix
	mov R12,R16
	cpi R16,255
	breq L33
X12:
	.dbline 145
;    j=i;
	mov R10,R12
L33:
	.dbline 146
;   show_2_digit(j);
	mov R16,R10
	rcall _show_2_digit
	.dbline 147
;  }
L31:
	.dbline 141
	rjmp L30
X13:
	.dbline -2
L29:
	.dbline 0 ; func end
	ret
	.dbsym r i 12 c
	.dbsym r j 10 c
	.dbend
; }