📄 mykey.s
字号:
.module mykey.c
.area text(rom, con, rel)
.dbfile G:\学习\avr\天祥电子AVR视频教程\chengxu\mykey\mykey.c
.area code(ram, con, rel)
.dbfile G:\学习\avr\天祥电子AVR视频教程\chengxu\mykey\mykey.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\mykey\mykey.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 -> R22
; j -> R20
.even
_show::
st -y,R20
st -y,R22
mov R22,R18
mov R20,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,R20
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
; PORTA|=BIT(4);
sbi 0x1b,4
.dbline 23
; if(j==1)
cpi R20,1
brne L11
X2:
.dbline 24
; for(k=5;k>0;k--)
ldi R22,5
xjmp L16
L13:
.dbline 25
; {
.dbline 27
;
; PORTB&=~BIT(k);
ldi R16,1
mov R17,R22
xcall lsl8
mov R2,R16
com R2
in R3,0x18
and R3,R2
out 0x18,R3
.dbline 28
; delay(300);
ldi R16,300
ldi R17,1
xcall _delay
.dbline 29
; }
L14:
.dbline 24
dec R22
L16:
.dbline 24
ldi R24,0
cp R24,R22
brlo L13
X3:
xjmp L12
L11:
.dbline 30
; else if(j==2)
cpi R20,2
brne L17
X4:
.dbline 31
; for(k=1;k<6;k++)
ldi R22,1
xjmp L22
L19:
.dbline 32
; {
.dbline 34
;
; PORTB&=~BIT(k);
ldi R16,1
mov R17,R22
xcall lsl8
mov R2,R16
com R2
in R3,0x18
and R3,R2
out 0x18,R3
.dbline 35
; delay(300);
ldi R16,300
ldi R17,1
xcall _delay
.dbline 36
; }
L20:
.dbline 31
inc R22
L22:
.dbline 31
cpi R22,6
brlo L19
X5:
xjmp L18
L17:
.dbline 37
; else if(j==3)
cpi R20,3
brne L23
X6:
.dbline 38
; for(k=1;k<6;k++)
ldi R22,1
xjmp L28
L25:
.dbline 39
; {
.dbline 41
;
; PORTB&=~BIT(j);
ldi R16,1
mov R17,R20
xcall lsl8
mov R2,R16
com R2
in R3,0x18
and R3,R2
out 0x18,R3
.dbline 42
; delay(300);
ldi R16,300
ldi R17,1
xcall _delay
.dbline 43
; PORTB=0xff;
ldi R24,255
out 0x18,R24
.dbline 44
; delay(200);
ldi R16,200
ldi R17,0
xcall _delay
.dbline 45
; }
L26:
.dbline 38
inc R22
L28:
.dbline 38
cpi R22,6
brlo L25
X7:
L23:
L18:
L12:
.dbline 47
;
; PORTB=0XFF;
ldi R24,255
out 0x18,R24
.dbline 48
; PORTB=~BIT(j);
ldi R16,1
mov R17,R20
xcall lsl8
mov R2,R16
com R2
out 0x18,R2
.dbline 49
; PORTA&=~BIT(4);
cbi 0x1b,4
.dbline 50
; delay(1);
ldi R16,1
ldi R17,0
xcall _delay
.dbline -2
L10:
.dbline 0 ; func end
ld R22,y+
ld R20,y+
ret
.dbsym r k 22 c
.dbsym r j 20 c
.dbend
.dbfunc e key_press _key_press fc
; j -> R16
.even
_key_press::
.dbline -1
.dbline 54
; }
;
; uchar key_press()
; {
.dbline 56
; uchar j;
; DDRD|=0X0F;
in R24,0x11
ori R24,15
out 0x11,R24
.dbline 57
; PORTD|=0X0F;
in R24,0x12
ori R24,15
out 0x12,R24
.dbline 59
;
; DDRD&=0XF0;
in R24,0x11
andi R24,240
out 0x11,R24
.dbline 61
;
; j=PIND;
in R16,0x10
.dbline 62
; j=j&0X0F;//00001111
andi R16,15
.dbline 63
; if(j==0X0F)
cpi R16,15
brne L30
X8:
.dbline 64
; {
.dbline 65
; return 0;
clr R16
xjmp L29
L30:
.dbline 68
; }
; else
; {
.dbline 69
; return 1;
ldi R16,1
.dbline -2
L29:
.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 75
; }
;
; }
;
; uchar key_scan()
; {
.dbline 77
; uchar key;
; delay(10);
ldi R16,10
ldi R17,0
xcall _delay
.dbline 78
; if(key_press())
xcall _key_press
tst R16
breq L33
X9:
.dbline 79
; {
.dbline 80
; key=PIND;
in R20,0x10
.dbline 81
; key&=0X0F;
andi R20,15
.dbline 82
; switch(key)
mov R22,R20
clr R23
cpi R22,7
ldi R30,0
cpc R23,R30
breq L41
X10:
cpi R22,11
ldi R30,0
cpc R23,R30
breq L40
X11:
cpi R22,13
ldi R30,0
cpc R23,R30
breq L39
X12:
cpi R22,14
ldi R30,0
cpc R23,R30
breq L38
X13:
xjmp L35
L38:
.dbline 85
; {
; case 0X0E:
; key=1;
ldi R20,1
.dbline 86
; break;
xjmp L43
L39:
.dbline 88
; case 0X0D:
; key=2;
ldi R20,2
.dbline 89
; break;
xjmp L43
L40:
.dbline 91
; case 0X0B:
; key=3;
ldi R20,3
.dbline 92
; break;
xjmp L43
L41:
.dbline 94
; case 0X07:
; key=4;
ldi R20,4
.dbline 95
; break;
xjmp L43
L35:
.dbline 97
; default:
; key=16;
ldi R20,16
.dbline 98
; }
L42:
.dbline 99
; while(key_press());
L43:
.dbline 99
xcall _key_press
tst R16
brne L42
X14:
.dbline 100
; }
xjmp L34
L33:
.dbline 102
; else
; {
.dbline 103
; key=16;
ldi R20,16
.dbline 104
; }
L34:
.dbline 105
; return key;
mov R16,R20
.dbline -2
L32:
.dbline 0 ; func end
xjmp pop_xgsetF000
.dbsym r key 20 c
.dbend
.dbfunc e main _main fV
; l -> R20
; i -> R10
.even
_main::
.dbline -1
.dbline 108
; }
; void main()
; {
.dbline 110
; uchar i,l;
; DDRA=0X18;//0001 1000
ldi R24,24
out 0x1a,R24
.dbline 111
; DDRB=0XFF;
ldi R24,255
out 0x17,R24
xjmp L47
L46:
.dbline 113
; while(1)
; {
.dbline 114
; i=key_press();
xcall _key_press
mov R10,R16
.dbline 115
; if(i)
tst R16
breq L49
X15:
.dbline 116
; {
.dbline 117
; l=key_scan();
xcall _key_scan
mov R20,R16
.dbline 118
; show(l-1,0);
clr R18
subi R16,1
xcall _show
.dbline 119
; }
L49:
.dbline 120
; }
L47:
.dbline 112
xjmp L46
X16:
.dbline -2
L45:
.dbline 0 ; func end
ret
.dbsym r l 20 c
.dbsym r i 10 c
.dbend
; }
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -