取键值MC51单片机子程序实例

;取键值程序

;功能：等待键入，并刷新显示，并返回键值放A

;占用：PSW,A,DPTR,R0,R2,R3,R4,R6,R7

;入口：无出口：A

ORG0190H

WAT_KB:MOVR0,#3FH

WAT_0:ACALLDISP_0;刷新显示器

ACALLT_KB

JZWAT_0;无键,循环

ACALLKEY_LD;延时消抖,刷新显示

JZWAT_0;无键,循环

KB_VUL:CLRA

CPLA

MOVDPTR,#PORT_B

MOVX@DPTR,A;关显示

MOVR2,#0FEH

MOVR4,#0

KB_1:MOVDPTR,#PORT_A

MOVA,R2

MOVX@DPTR,A;扫描键盘

INCDPTR

INCDPTR

MOVXA,@DPTR;读键盘

CPLA

ANLA,#0FH;屏蔽无效位

JNZKB_2;有键,转键分析

INCR4

MOVA,R2

JNBACC.7,WAT_0;无键,返回

RLA

MOVR2,A

SJMPKB_1;无键,扫描下一行

KB_2:RRCA

JCKB_3;有键,转取键值

XCHA,R4;取下一行

ADDA,#8

XCHA,R4

SJMPKB_2;无键,循环

KB_3:MOVR2,#21

KB_4:ACALLDISP_0

ACALLT_KB

JZKB_5;刷新显示,等键释放

DJNZR2,KB_4

KB_5:MOVDPTR,#KEY_TB

MOVA,R4

MOVCA,@A+DPTR;取键值

RET

KEY_LD:ACALLDISP_0

ACALLDISP_0

ACALLT_KB

RET

KEY_TB:DB07H,08H,09H,0AH;7,8,9,A

DB1CH,1DH,1EH,11H;FFIS/FUNC,FFNO/USER,FILL/MODE,空

DB04H,05H,06H,0BH;4,5,6,B

DB1AH,1BH,1FH,10H;COMP/DEC,MOVE/HEX,OFST/HIST,MON

DB01H,02H,03H,0CH;1,2,3,C

DB18H,19H,14H,15H;BP/BTOP,BT/BENT,EXEC,SCAL

DB00H,0FH,0EH,0DH;0,F,E,D

DB16H,17H,12H,13H;NEXT/+,LAST/-,TRAC,STEP