?? kbsub.lis
字號:
.module KBsub.c
.area text
0000 _KB_Init::
0000 ; /*-----------------------------------------------------*
0000 ; *文件描述:本文件包含了H08C鍵盤中斷子函數(shù),分別為: *
0000 ; *(1)KB_Init:鍵盤初始化函數(shù) *
0000 ; * void KB_Init(void) *
0000 ; *(2)KB_Scan:掃描讀取鍵值函數(shù) *
0000 ; * unsigned char KB_Scan(void) *
0000 ; *(3)KB_Def:鍵值轉(zhuǎn)為定義值函數(shù) *
0000 ; * unsigned char KB_Def(unsigned char KB_valve) *
0000 ; *-----------------------------------------------------*/
0000 ; /*[以下為子程序源代碼]*/
0000 ; /*[頭文件]*/
0000 ; #include "GP32C.H"
0000 ; #include "KB.h"
0000 ; /*KB_Init:鍵盤初始化函數(shù)-------------------------------*
0000 ; *功 能:初始化鍵盤中斷的引腳，但未開放鍵盤中斷 *
0000 ; *參 數(shù):無 *
0000 ; *返 回:無 *
0000 ; *-----------------------------------------------------*/
0000 ; void KB_Init(void)
0000 ; {
0000 ; KB_P=0x00; //復(fù)位KB_P
0000 3F00 clr 0
0002 ; KB_D=0b00001111; //定定義7-4為輸入,3-0為輸出
0002 A60F lda #15
0004 B704 sta 0x4
0006 ; KB_PUE=0b11110000; //定義輸入引腳有內(nèi)部上拉電阻
0006 A6F0 lda #-16
0008 B70D sta 0xd
000A ; INTKBSCR|= (1<<IntBit);//屏蔽鍵盤中斷(IMASKk=1)
000A 121A bset #1,0x1a
000C ; INTKBIER=0b11110000; //允許輸入引腳的中斷可進入
000C A6F0 lda #-16
000E B71B sta 0x1b
0010 ; INTKBSCR|= (1<<ACKKBit); //清鍵盤中斷請求(ACKK=1)
0010 141A bset #2,0x1a
0012 ; INTKBSCR&= ~(1<<IntBit); //開放鍵盤中斷(IMASKk=1)
0012 131A bclr #1,0x1a
0014 L1:
0014 .dbline 0 ; func end
0014 81 rts
0015 ; line -> 0,X
0015 ; i -> 1,X
0015 ; tmp -> 2,X
0015 _KB_Scan::
0015 A7FD ais #-3
0017 95 tsx
0018 ; }
0018 ; /*KB_Scan:掃描讀取鍵值函數(shù)-----------------------------*
0018 ; *功 能:掃描一次4*4鍵盤上的按鍵，讀取鍵值->*p *
0018 ; * 若無按鍵，*p為0xff *
0018 ; *參 數(shù):無 *
0018 ; *返 回:掃描到的鍵值 *
0018 ; *-----------------------------------------------------*/
0018 ; unsigned char KB_Scan(void)
0018 ; {
0018 ; unsigned char line,i,tmp;
0018 ; line=0b11111110; //使第一根行線為0(低電平)
0018 A6FE lda #-2
001A F7 sta ,X
001B ; for(i=1;i<=4;i++) //將掃描4根行線
001B A601 lda #1
001D E701 sta 1,X
001F 2026 bra L6
0021 L3:
0021 ; {
0021 ; tmp=KB_P; //取KB_P->tmp
0021 B600 lda 0
0023 E702 sta 2,X
0025 ; tmp|=0b00001111; //KB_P.7-4保留,KB_P.3-0為1
0025 AA0F ora #15
0027 E702 sta 2,X
0029 ; KB_P=tmp&line; //令KB_P.n=0,n=0、1、2、3
0029 F4 and ,X
002A B700 sta 0
002C ; asm("NOP"); //等待，消除按鍵抖動
002C 9D NOP
002D ; asm("NOP");
002D 9D NOP
002E ; tmp=KB_P;
002E B600 lda 0
0030 E702 sta 2,X
0032 ; tmp&=0b11110000; //看第n行是否有鍵按下
0032 A4F0 and #-16
0034 E702 sta 2,X
0036 ; if(tmp!=0xf0) //本行有鍵按下
0036 A1F0 cmp #-16
0038 2706 beq L7
003A ; {
003A ; tmp=KB_P;
003A B600 lda 0
003C E702 sta 2,X
003E ; break;
003E 200D bra L5
0040 L7:
0040 F6 lda ,X
0041 48 lsla
0042 AA01 ora #1
0044 F7 sta ,X
0045 L4:
0045 6C01 inc 1,X
0047 L6:
0047 E601 lda 1,X
0049 A104 cmp #4
004B 23D4 bls L3
004D L5:
004D ; }
004D ; else //本行無鍵按下,掃描下一行
004D ; line=(line<<1)|0x01;
004D ; }
004D ; if(i==5) tmp=0xff;
004D E601 lda 1,X
004F A105 cmp #5
0051 2604 bne L9
0053 A6FF lda #-1
0055 E702 sta 2,X
0057 L9:
0057 ; return(tmp);
0057 E602 lda 2,X
0059 L2:
0059 A703 ais #3
005B .dbline 0 ; func end
005B 81 rts
.area lit
0000 _KB_Table::
0000 EE31 .byte 238,49
0002 DE32 .byte 222,50
0004 BE33 .byte 190,51
0006 7E41 .byte 126,'A
0008 ED34 .byte 237,52
000A DD35 .byte 221,53
000C BD36 .byte 189,54
000E 7D42 .byte 125,'B
0010 EB37 .byte 235,55
0012 DB38 .byte 219,56
0014 BB39 .byte 187,57
0016 7B43 .byte 123,'C
0018 E72E .byte 231,46
001A D730 .byte 215,48
001C B73A .byte 183,58
001E 7744 .byte 'w,'D
0020 00 .byte 0
.area text
; KeyPress -> 0,X
; i -> 1,X
; j -> 2,X
; KB_valve -> 5,X
005C _KB_Def::
005C A7FD ais #-3
005E 95 tsx
005F ; }
005F ; /*KB_Def:鍵值轉(zhuǎn)為定義值函數(shù)----------------------------*
005F ; *功 能:鍵值轉(zhuǎn)為定義值 *
005F ; *參 數(shù):鍵值 *
005F ; *返 回:鍵定義值 *
005F ; *-----------------------------------------------------*/
005F ; //鍵盤定義表
005F ; const unsigned char KB_Table[]=
005F ; {0xEE,'1',0xDE,'2',0xBE,'3',0x7E,'A',
005F ; 0xED,'4',0xDD,'5',0xBD,'6',0x7D,'B',
005F ; 0xEB,'7',0xDB,'8',0xBB,'9',0x7B,'C',
005F ; 0xE7,'.',0xD7,'0',0xB7,':',0x77,'D',
005F ; 0x00};
005F ; unsigned char KB_Def(unsigned char KB_valve)
005F ; {
005F ; unsigned char KeyPress;
005F ; unsigned char i;
005F ; unsigned char j;
005F ; i=0;
005F 6F01 clr 1,X
0061 203C bra L13
0063 L12:
0063 ; while(1)
0063 ; {
0063 ; j=KB_Table[i];
0063 3F00 clr *__r0
0065 E601 lda 1,X
0067 AB00 add #<_KB_Table
0069 B700 sta *__r1
006B B600 lda *__r0
006D A900 adc #>_KB_Table
006F B700 sta *__r0
0071 5500 ldhx *__r0
0073 F6 lda ,x
0074 95 tsx
0075 E702 sta 2,X
0077 ; //與0(定義表結(jié)束標(biāo)志)相比較
0077 ; if (j==0) //=0,即表中無次定義值
0077 2605 bne L15
0079 ; {KeyPress=0xff; break;} //返回0xff
0079 A6FF lda #-1
007B F7 sta ,X
007C 2023 bra L14
007E L15:
007E ; else
007E ; //與鍵值相比較
007E ; if (j==KB_valve) //找到
007E E602 lda 2,X
0080 E105 cmp 5,X
0082 2615 bne L17
0084 ; {KeyPress=KB_Table[i+1];break;} //取鍵定義值
0084 3F00 clr *__r0
0086 E601 lda 1,X
0088 AB01 add #<_KB_Table+1
008A B700 sta *__r1
008C B600 lda *__r0
008E A901 adc #>_KB_Table+1
0090 B700 sta *__r0
0092 5500 ldhx *__r0
0094 F6 lda ,x
0095 95 tsx
0096 F7 sta ,X
0097 2008 bra L14
0099 L17:
0099 E601 lda 1,X
009B AB02 add #2
009D E701 sta 1,X
009F L13:
009F 20C2 bra L12
00A1 L14:
00A1 ; else
00A1 ; i+=2; //指向下一個鍵值,繼續(xù)判斷
00A1 ; };
00A1 ; return KeyPress;
00A1 F6 lda ,X
00A2 L11:
00A2 A703 ais #3
00A4 .dbline 0 ; func end
00A4 81 rts
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -