?? a4_3.asm
字號:
;///////////////////////////////////////////
;本程序源代碼由單片機培訓網提供.
;單片機培訓網,讓更多人學習單片機更容易.
;第一網址----www.mcuedu.com
;第二網址----http://51_train.nease.net
;創辦人------劉永忠
;熱線電話----(0755)27529998
;email-------aa815@163.com
;輸入端口的應用
;程序難易等級--------稍難
;///////////////////////////////////////////
org 0000h ;起始地址
jmp main
org 0030h
main:
mov p2,#11111110b ;P20亮
lcall key
mov a,34h
cjne a,#00h,tt1
on:
mov p2,#11111001b
tt1:cjne a,#01h,main
jmp on
KEY: LCALL KS ;調用檢測按鍵子程序
JNZ K1 ;有鍵按下繼續
ljmp key_exit ;無鍵按下退出KEY子程序
K1: LCALL delay4ms ;返回繼續檢測有無按鍵按下
LCALL delay4ms
LCALL KS ;有鍵按下繼續延時去抖動
JNZ K2 ;再一次調用檢測按鍵程序
ljmp key_exit ;無鍵按下退出KEY子程序
K2: MOV R2,#0EFH ;將掃描值送入 R2暫存
MOV R4,#00H ;將第一列的列值00H送入R4暫存,R4用于存放列
K3: MOV P1,R2 ;將R2的值送入P1口
L6: JB P1.0,L1 ;P1.0等于1跳轉到L1
MOV A,#00H ;將第一行的行值00H送入ACC
AJMP LK ;跳轉到鍵值處理程序
L1: JB P1.1,L2 ;P1.1等于1跳轉到L2
MOV A,#04H ;將第二行的行值04H送入ACC
AJMP LK ;跳轉到鍵值理程序進行鍵值處理
L2: JB P1.2,L3 ;P1.2等于1跳轉到L3
MOV A,#08H ;將第三行的行值08H送入ACC
AJMP LK ;跳轉到鍵值處理程序
L3: JB P1.3,NEXT ;P1.3等于1跳轉到NEXT處
MOV A,#0cH ;將第四行的行值0CH送入ACC
LK: ADD A,R4 ;行值與列值相加后的鍵值送入A
mov 34h,a ;將A中的值送入34h暫存
K4: ;
lcall delay4ms
lcall delay4ms ;調用動態顯示子程序
LCALL KS ;
JNZ K4 ;按鍵沒有松開繼續返回檢測
RET ;按鍵松開返回
NEXT:
INC R4 ;將列值加一
MOV A,R2 ;將R2的值送入A
JNB ACC.7,key_exit ;掃描完成跳至KEY處進行下一回合的掃描
RL A ;掃描未完成將A中的值右移一位進行下一列的掃描
MOV R2,A ;將ACC的值送入R2暫存
AJMP K3 ;跳轉到K3繼續
key_exit:
mov a,#0ffh ;無鍵按下則將A賦成0FFH。
ret
KS: MOV P1,#0FH ;將P1口高四位置0低四位值1
MOV A,P1 ;讀P1口
XRL A,#0FH ;將A中的值與A中的值相異或
RET ;子程序返回
delay4ms: ;4ms延時
MOV R5,#08H
L7: MOV R6,#0FAH
L8: DJNZ R6,L8
DJNZ R5,L7
RET
delay100us: ;100us延時
mov r5,#50
djnz r5,$
ret
;未按P11,則跳至ON繼續保持
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -