0802k.txt

学林电子实验箱源码 完整板

0802液晶16位键盘的控制程序
	RS EQU P2.0
	RW EQU P2.1
	E EQU P2.2
org	0000h
ajmp	main
org	0030h

MAIN:
	MOV P0,#00000001B	;清屏
	ACALL ENABLE
	MOV P0,#00111000B	;显示功能
        ACALL ENABLE
	MOV P0,#00001111B	;显示开关控制
 	ACALL ENABLE
	MOV P0,#00000110B 	;输入模式
	ACALL ENABLE
	MOV P0,#0C0H		;数据存贮器地址
	ACALL ENABLE
	mov p0,A	;ASCII码	
SETB RS
	CLR RW
	CLR E
	ACALL DELAY
	SETB E
mov a,#00h
mov	dptr,#tab		;将表头放入DPTR
	lcall	key			;调用键盘扫描程序
movc	a,@a+dptr      ;查表后将键值送?
ljmp	main  	;AJMP $


ENABLE: CLR RS 			;送命令
	CLR RW
	CLR E
	ACALL DELAY
	SETB E
	RET
DELAY: MOV P0,#0FFH
	CLR RS
	SETB RW
	CLR E
	NOP
	SETB E
	JB P0.7,DELAY		;判断忙标志
	RET


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
     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

tab:

   db  30h,31h,32h,33h,34h,35h,36h,37h,38h,39h,40h,41h,42h,43h,44h,45h
    ;0h0hc9878654a321 轮流显示键盘因为无法表达*# 就用H表示，B用8表示
end