.module keypad.c
	.area text(rom, con, rel)
	.dbfile D:\ICC-AVR\Pc_At\keypad.c
	.dbfunc s scan_key _scan_key fI
;          shift -> R10,R11
;              i -> R20
;           temp -> R12
	.even
_scan_key::
	xcall push_gset4
	.dbline -1
	.dbline 7
; #include <iom103.h>
; /*鍵盤掃描函數,沒有鍵按下返回0x7f*/
; /*如果shift按下，返回值最高位為1*/
; extern delay_1ms(void);
; void delay_ms(unsigned int n);
; unsigned char scan_key(void)
;    {
	.dbline 9
;     unsigned char i,temp;
;     unsigned shift=0;
	clr R10
	clr R11
	.dbline 10
;     DDRB=0x0f;	
	ldi R24,15
	out 0x17,R24
	.dbline 11
; 	PORTB=0xff;	  
	ldi R24,255
	out 0x18,R24
	.dbline 12
;     for (i=0;i<4;i++)
	clr R20
	xjmp L5
L2:
	.dbline 13
;         {
	.dbline 14
;          PORTB=~(1<<i); //鍵盤線掃描
	ldi R16,1
	mov R17,R20
	xcall lsl8
	mov R2,R16
	com R2
	out 0x18,R2
	.dbline 15
;          delay_1ms();   //等待低電平穩定
	xcall _delay_1ms
	.dbline 16
;          temp=PINB&0xf0;//讀取鍵盤掃描信號,屏蔽低四位
	in R24,0x16
	andi R24,240
	mov R12,R24
	.dbline 17
;          if ((PIND&0x20)==0) temp|=01;//檢查shift鍵
	sbic 0x10,5
	rjmp L6
	.dbline 17
	ori R24,1
	mov R12,R24
L6:
	.dbline 18
;          if (temp!=0xf0)//如果有鍵按下，延時10ms消抖
	mov R24,R12
	cpi R24,240
	brne X1
	xjmp L8
X1:
	.dbline 19
;             {           //本程序用display代替10ms延時,
	.dbline 20
;              delay_ms(5); //可消除顯示抖動
	ldi R16,5
	ldi R17,0
	xcall _delay_ms
	.dbline 21
;              temp=PINB&0xf0;//再讀鍵盤
	in R24,0x16
	andi R24,240
	mov R12,R24
	.dbline 22
;              if ((PIND&0x20)==0) //檢查shift鍵
	sbic 0x10,5
	rjmp L10
	.dbline 23
;                 {
	.dbline 24
;                  temp|=01;
	ori R24,1
	mov R12,R24
	.dbline 25
;                  shift=1;
	ldi R24,1
	ldi R25,0
	mov R10,R24
	mov R11,R25
	.dbline 26
;                 }
L10:
	.dbline 27
;              if (temp!=0xf0)
	mov R24,R12
	cpi R24,240
	brne X2
	xjmp L12
X2:
	.dbline 28
;                 {
	.dbline 29
;                  temp&=0xf0;
	andi R24,240
	mov R12,R24
	.dbline 30
;                  switch (temp) //計算鍵值
	mov R22,R12
	clr R23
	cpi R22,176
	ldi R30,0
	cpc R23,R30
	breq L18
	ldi R24,176
	ldi R25,0
	cp R24,R22
	cpc R25,R23
	brlt L22
L21:
	cpi R22,112
	ldi R30,0
	cpc R23,R30
	breq L17
	xjmp L14
L22:
	cpi R22,208
	ldi R30,0
	cpc R23,R30
	breq L19
	cpi R22,208
	ldi R30,0
	cpc R23,R30
	brge X3
	xjmp L14
X3:
L23:
	cpi R22,224
	ldi R30,0
	cpc R23,R30
	breq L20
	xjmp L14
X0:
	.dbline 31
;                      {
L17:
	.dbline 32
; 				      case 0x70:temp=15-(3-i)*4;break;
	ldi R24,3
	sub R24,R20
	lsl R24
	lsl R24
	ldi R25,15
	mov R12,R25
	sub R12,R24
	.dbline 32
	xjmp L15
L18:
	.dbline 33
;                       case 0xb0:temp=14-(3-i)*4;break;
	ldi R24,3
	sub R24,R20
	lsl R24
	lsl R24
	ldi R25,14
	mov R12,R25
	sub R12,R24
	.dbline 33
	xjmp L15
L19:
	.dbline 34
;                       case 0xd0:temp=13-(3-i)*4;break;
	ldi R24,3
	sub R24,R20
	lsl R24
	lsl R24
	ldi R25,13
	mov R12,R25
	sub R12,R24
	.dbline 34
	xjmp L15
L20:
	.dbline 35
;                       case 0xe0:temp=12-(3-i)*4;break;
	ldi R24,3
	sub R24,R20
	lsl R24
	lsl R24
	ldi R25,12
	mov R12,R25
	sub R12,R24
	.dbline 35
	xjmp L15
L14:
	.dbline 36
;                       default:temp=0x7f;					 
	ldi R24,127
	mov R12,R24
	.dbline 37
;                       }
L15:
	.dbline 38
;                  if (shift==1) temp|=0x80; 
	ldi R24,1
	ldi R25,0
	cp R10,R24
	cpc R11,R25
	brne L24
	.dbline 38
	mov R24,R12
	ori R24,128
	mov R12,R24
L24:
	.dbline 39
;                  return temp;
	mov R16,R12
	clr R17
	xjmp L1
L12:
	.dbline 41
;                  }		 
;        	     }
L8:
	.dbline 42
	ldi R24,255
	out 0x18,R24
	.dbline 43
L3:
	.dbline 12
	inc R20
L5:
	.dbline 12
	cpi R20,4
	brsh X4
	xjmp L2
X4:
	.dbline 44
;          PORTB=0xff;	 
;         }
;     return 0x7f;			 
	ldi R16,127
	ldi R17,0
	.dbline -2
L1:
	xcall pop_gset4
	.dbline 0 ; func end
	ret
	.dbsym r shift 10 i
	.dbsym r i 20 c
	.dbsym r temp 12 c
	.dbfunc s keypad _keypad fI
;          temp1 -> R20
;          temp2 -> R22
	.even
_keypad::
	xcall push_gset2
	.dbline -1
	.dbline 47
;     }
; unsigned char keypad(void)
;     {
	.dbline 49
; 	 unsigned char temp1,temp2;
; 	 temp1=scan_key();
	xcall _scan_key
	mov R2,R16
	mov R3,R17
	mov R20,R2
	.dbline 50
; 	 if (temp1==0x7f) return 0x7f;
	cpi R20,127
	brne L27
	.dbline 50
	ldi R16,127
	ldi R17,0
	xjmp L26
L27:
L29:
	.dbline 52
; 	 do
; 	   temp2=scan_key();
	xcall _scan_key
	mov R2,R16
	mov R3,R17
	mov R22,R2
L30:
	.dbline 53
; 	 while (temp1==temp2);
	cp R20,R22
	breq L29
	.dbline 54
; 	 return temp1;	 
	mov R16,R20
	clr R17
	.dbline -2
L26:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r temp1 20 c
	.dbsym r temp2 22 c