;0802制作的8位輸入器16位鍵盤顯示輸入的字符
RS EQU p2.0;液晶接口的定義
RW EQU p2.1
E  EQU p2.2
MAIN:
	org	0000h
	MOV SP ,#70H;設置堆棧
	MOV p0,#01H	;清屏
	CALL ENABLE
	MOV p0,#38H	;顯示功能
    CALL ENABLE
	MOV p0,#0FH	;顯示開關控制
 	CALL ENABLE
	MOV p0,#06H	;+1
	CALL ENABLE

	MOV p0,#080H;第二行的位置
	CALL ENABLE



KEY: LCALL KS                           ;調用檢測按鍵子程序
     JNZ K1                             ;有鍵按下繼續
     LCALL DELAY2                       ;無鍵按下調用延時去抖動程序
     AJMP KEY                           ;返回繼續檢測有無按鍵按下
K1:  LCALL DELAY2
     LCALL DELAY2                       ;有鍵按下繼續延時去抖動
     LCALL KS                           ;再一次調用檢測按鍵程序
     JNZ K2                             ;確認有按下進行下一步
     AJMP 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                         ;將第二行的行值送入ACC
     AJMP LK                            ;跳轉到鍵值理程序進行鍵值處理
L2: JB P1.2,L3                          ;P1.2等于1跳轉到L3
     MOV A,#08H                         ;將第三行的行值送入ACC
     AJMP LK                            ;跳轉到鍵值處理程序
L3:	JB P1.3,NEXT                    ;P1.3等于1跳轉到NEXT處
     MOV A,#0cH                         ;將第四行的行值送入ACC
LK:	ADD A,R4                        ;行值與列值相加后的鍵值送入A
     PUSH ACC                           ;將A中的值送入堆棧暫存
K4:  LCALL DELAY2                       ;調用延時去抖動程序
     LCALL KS                           ;調用按鍵檢測程序
     JNZ K4                             ;按鍵沒有松開繼續返回檢測
     POP ACC                            ;將堆棧的值送入ACC
MOV DPTR,#TABLE3
MOVC A,@A+DPTR
MOV R1,A

CALL WRITE2
XRL A,#44H
JZ CLEAR
;CALL WRITE2
JMP KEY
CLEAR: MOV p0,#080H;清除6個數為000000
	CALL ENABLE
	MOV R7,#08H
A2: MOV A,#2AH;2Ah是*0的ascii碼
	CALL WRITE2
	DJNZ R7,A2
	MOV p0,#80H  ;光標返回
	CALL ENABLE

JMP KEY
RET

NEXT:
    INC  R4                             ;將列值加一
    MOV A,R2                            ;將R2的值送入A
    JNB ACC.7,KEY                       ;掃描完成跳至KEY處進行下一回合的掃描
    RL A                                ;掃描未完成將A中的值右移一位進行下一列的掃描
    MOV R2,A                            ;將ACC的值送入R2暫存
    AJMP K3                             ;跳轉到K3繼續
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

ENABLE: CLR RS 			;送命令
	CLR RW
	CLR E
	ACALL DELAY
	SETB E
	RET

WRITE1: MOV R1,#00H   ;顯示table中的值
	A1: MOV A,R1;到table取碼
	MOVC A,@A+DPTR
	call  wRITE2   ;顯示到lcd
	INC R1
	CJNE A,#00H,A1  ;是否到00h
	RET

WRITE2:MOV p0,A  ;顯示
	SETB RS
	CLR RW
	CLR E
	CALL DELAY
	SETB E
	RET
DELAY: MOV R4,#05
	D1:MOV R5,#0FFH
	DJNZ R5,$
	DJNZ R4,D1
	RET



TABLE3:DB 44H,23H,30H,2AH,43H,39H,38H,37H,42H,36H,35H,34H,41H,33H,32H,31H

end