;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學(xué)軍      www.51c51.com 更多例程請登陸網(wǎng)站        	   *
;***************************************************************************

;本程序?qū)崿F(xiàn)掃描按鍵顯示功能.
;分別按16個鍵盤顯示分別顯示數(shù)字123A456B789C*0#D
;鍵盤口P1,數(shù)碼管顯示第一位p21, 數(shù)碼管段位p0口
org	0000h
ajmp	main
org	0030h
main:
	mov	dptr,#tab		;將表頭放入DPTR
	lcall	key			;調(diào)用鍵盤掃描程序
	movc	a,@a+dptr               ;查表后將鍵值送入ACC
	mov	p0,a                    ;將Acc值送入P0口
	CLR P2.1                        ;開顯示
	ljmp	main                    ;返回調(diào)用子程序反復(fù)循環(huán)顯示
KEY: LCALL KS                           ;調(diào)用檢測按鍵子程序
     JNZ K1                             ;有鍵按下繼續(xù)
     LCALL DELAY2                       ;無鍵按下調(diào)用延時去抖動程序
     AJMP KEY                           ;返回繼續(xù)檢測有無按鍵按下
K1:  LCALL DELAY2
     LCALL DELAY2                       ;有鍵按下繼續(xù)延時去抖動
     LCALL KS                           ;再一次調(diào)用檢測按鍵程序
     JNZ K2                             ;確認有按下進行下一步
     AJMP KEY                           ;無鍵按下返回繼續(xù)檢測
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跳轉(zhuǎn)到L1
     MOV A,#00H                         ;將第一行的行值00H送入ACC
     AJMP LK                            ;跳轉(zhuǎn)到鍵值處理程序
L1:	JB P1.1,L2                      ;P1.1等于1跳轉(zhuǎn)到L2
     MOV A,#04H                         ;將第二行的行值送入ACC
     AJMP LK                            ;跳轉(zhuǎn)到鍵值理程序進行鍵值處理
L2: JB P1.2,L3                          ;P1.2等于1跳轉(zhuǎn)到L3
     MOV A,#08H                         ;將第三行的行值送入ACC
     AJMP LK                            ;跳轉(zhuǎn)到鍵值處理程序
L3:	JB P1.3,NEXT                    ;P1.3等于1跳轉(zhuǎn)到NEXT處
     MOV A,#0cH                         ;將第四行的行值送入ACC
LK:	ADD A,R4                        ;行值與列值相加后的鍵值送入A
     PUSH ACC                           ;將A中的值送入堆棧暫存
K4:  LCALL DELAY2                       ;調(diào)用延時去抖動程序
     LCALL KS                           ;調(diào)用按鍵檢測程序
     JNZ K4                             ;按鍵沒有松開繼續(xù)返回檢測
     POP ACC                            ;將堆棧的值送入ACC
     RET

NEXT:
    INC  R4                             ;將列值加一
    MOV A,R2                            ;將R2的值送入A
    JNB ACC.7,KEY                       ;掃描完成跳至KEY處進行下一回合的掃描
    RL A                                ;掃描未完成將A中的值右移一位進行下一列的掃描
    MOV R2,A                            ;將ACC的值送入R2暫存
    AJMP K3                             ;跳轉(zhuǎn)到K3繼續(xù)
KS:	MOV P1,#0FH                     ;將P1口高四位置0低四位值1
     MOV A,P1                           ;讀P1口
     XRL A,#0FH                         ;將A中的值與A中的值相異或
     RET                                ;子程序返回
DELAY2:                                 ;40ms延時去抖動子程序8*FA*2=40ms
      MOV R5,#08H
L7:	MOV R6,#0FAH
L8:	DJNZ R6,L8
     DJNZ R5,L7
     RET

tab:

    db  28h,34h,28h,34h,0a9h,60h,20h,7ah,20h,21h,61h,74h,30h,62h,0a2h,7eh
    ;0h0hc9878654a321 輪流顯示鍵盤因為無法表達*# 就用H表示，B用8表示
end