?? 矩陣式按鍵.s
字號:
.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
; }
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -