KEYBUF   EQU   40H   ;键号存放单元

ORG 0000H

LJMP MAIN

ORG 0030H

MAIN:    MOV KEYBUF,#0    ;初始键号设位0，也可以为任意值

MOV R0,#30H      ;显示首地址

MOV R2,#0CH      ;计算数据存放单元个数

CLR A

QING:    MOV @R0,A        ;将数据存放单元清零

INC R0

DJNZ R2,QING

MOV P0,#8FH      ;关闭显示

MOV R1,#30H      ;将显示首地址存放R1里

;===============================================

;五位无符号显示子程序

DIS1:    MOV R0,#30H      ;把显示数据第一位放在R0里

MOV R2,#04H      ;把显示的位码放在R2里

MOV R3,#05H      ;把显示的长度放在R3里

DIS2:    MOV A,@R0

ANL A,#0FH       ;屏蔽显示数据的高四位

MOV B,A

MOV A,R2

ANL A,#0FH       ;屏蔽位码的高四位

SWAP A

ORL A,B

MOV P0,A         ;送总显示数据到P0显示

LCALL DELY4ms    ;调用延时4ms

INC R0           ;取下一个显示数据

DEC R2

DJNZ R3,DIS2     ;四位显示晚后重新开始显示

;===================================================

;键盘扫描子程序

WAIT:    MOV P1,#0FFH        ;P1口送高电平

CLR P1.0            ;第一行清零

MOV A,P1            ;读P1口

ANL A,#0F0H         ;低位屏蔽

XRL A,#0F0H         ;判断低位是否有低电平 ,即判断是否有按键按下

JZ NOKEY1           ;地位有低电平继续扫描,否者跳到第而行去扫描

LCALL DELY10ms      ;延时10ms去抖在进行判断是否有按键按下

MOV A,P1            ;继续读P1口

ANL A,#0F0H         ;判断低位是否有低电平

CJNE A,#0E0H,NK1    ;如果扫描数据不为0E0H就转到NK1

MOV KEYBUF,#0       ;否者判断为0号键

AJMP DK             ;转DK1查表程序

NK1:     CJNE A,#0D0H,NK2    ;如果扫描数据不为0D0H就转到NK2

MOV KEYBUF,#1       ;否者判断为1号键

AJMP DK             ;转DK2查表程序

NK2:     CJNE A,#0B0H,NK3    ;如果扫描数据不为0B0H就转到NK3

MOV KEYBUF,#2       ;否者判断为2号键

AJMP DK             ;转DK3查表程序

NK3:     CJNE A,#70H,NK4     ;如果扫描数据不为70H就转到NK4

LJMP SAN_CHU

NK4:     NOP

NOKEY1:  MOV P1,#0FFH        ;和上面相同

CLR P1.1

MOV A,P1

ANL A,#0F0H

XRL A,#0F0H

JZ NOKEY2

LCALL DELY10MS

MOV A,p1

ANL A,#0F0H

XRL A,#0F0H

JZ NOKEY2

MOV A,P1

ANL A,#0F0H

CJNE A,#0E0H,NK5

MOV KEYBUF,#3

AJMP DK

NK5:     CJNE A,#0D0H,NK6

MOV KEYBUF,#4

AJMP DK

NK6:     CJNE A,#0B0H,NK7

MOV KEYBUF,#5

AJMP DK

NK7:     CJNE A,#70H,NK8

MOV KEYBUF,#10       ;否者判断为3号键

AJMP DK             ;转DK4查表程序

NK8:     NOP

NOKEY2:  MOV P1,#0FFH

CLR P1.2

MOV A,P1

ANL A,#0F0H

XRL A,#0F0H

JZ NOKEY3

LCALL DELY10MS

MOV A,P1

ANL A,#0F0H

XRL A,#0F0H

JZ NOKEY3

MOV A,P1

ANL A,#0F0H

CJNE A,#0E0H,NK9

MOV KEYBUF,#6

AJMP DK

NK9:     CJNE A,#0D0H,NK10

MOV KEYBUF,#7

AJMP DK

NK10:    CJNE A,#0B0H,NK11

MOV KEYBUF,#8

AJMP DK

NK11:    CJNE A,#70H,NK12

LJMP DENG_HAO

NK12:    NOP

NOKEY3:  MOV P1,#0FFH

CLR P1.3

MOV A,P1

ANL A,#0F0H

XRL A,#0F0H

JZ NOKEY4

LCALL DELY10MS

MOV A,P1

ANL A,#0F0H

XRL A,#0F0H

JZ NOKEY4

MOV A,P1

ANL A,#0F0H

CJNE A,#0E0H,NK13

LJMP CHU

NK13:    CJNE A,#0D0H,NK14

LJMP CHENG

NK14:    CJNE A,#0B0H,NK15

LJMP JIAN

NK15:    CJNE A,#70H,NK16

LJMP JIA

NK16:    NOP

;=======================================================

;查表求键值程序

DK:      MOV B,#00H

MOV A,KEYBUF         ;查表程序 查对应的键号数据

MOV DPTR,#TABLE      ;把表头地址放入DPTR

MOVC A,@A+DPTR       ;A里面存放的为键号,利用A和表头地址找到对应的键号数据

MOV B,A              ;把查到的数据送往显示单元

INC R1               ;取下一个显示单元

MOV A,R1

CJNE A,#36H,DKA1     ;判断显示单元是否已满

MOV R1,#35H          ;35H,36H单元用于更好的控制五位显示

AJMP DKA

DKA1:    MOV 34H,33H          ;按键代码按左移显示，先按先显示

MOV 33H,32H

MOV 32H,31H

MOV 31H,30H

MOV 30H,B

DKA:     MOV A,P1             ;读P1口

ANL A,#0F0H          ;屏蔽高四位

XRL A,#0F0H          ;地位是有低电平

JNZ DKA              ;如果有低电平继续读P1口,否者向下执行,查找第二行

NOKEY4:  LJMP DIS1

;===================================

;功能按键功能设定

DENG_HAO:MOV DPTR,#JI_SUAN    ;等号键功能通过加、减、乘、除设定的偏移量来调用子程序

MOV A,3CH            ;3CH存放的为功能程序入口地址偏移量

JMP @A+DPTR          ;转移到按键功能程序

JI_SUAN: AJMP JIA1            ;加计算子程序

AJMP JIAN1           ;减计算子程序

AJMP CHENG1          ;乘计算子程序

AJMP CHU             ;除计算子程序

;=======删除键功能

SAN_CHU: ACALL QING_DIS

AJMP DKA

;=======加键功能

JIA:     MOV 3CH,#00H

ACALL CUN_SHU

ACALL QING_DIS

AJMP DKA

;=======减键功能

JIAN:    MOV 3CH,#02H

ACALL CUN_SHU

ACALL QING_DIS

AJMP DKA

;=======乘键功能

CHENG:   MOV 3CH,#04H

ACALL CUN_SHU

ACALL QING_DIS

AJMP DKA

;=======除键功能

CHU:     MOV 3DH,#06H

ACALL CUN_SHU

ACALL QING_DIS

AJMP DKA

;=================================

;存被加(减、乘、除)数，存放在37H~3BH里

CUN_SHU: MOV 37H,30H    ;36H存放的为最低位

MOV 38H,31H

MOV 39H,32H

MOV 3AH,33H

MOV 3BH,34H    ;3AH存放的为最高位

RET

;================================

;清除显示单元

QING_DIS: MOV R1,#30H

QING1:    MOV @R1,#00H

INC R1

MOV A,R1

CJNE A,#36H,QING1

MOV R1,#30H

LOP1:     RET

;================================

;十进制加法子程序

JIA1:

MOV A,37H      ;个位被加数

ADD A,30H      ;个位被加数+加数

MOV B,#10      ;十六进制除10转换成BCD码

DIV AB

MOV 30H,B      ;余数即个位存放在30H

MOV 37H,A      ;商存放在37H

MOV A,38H      ;十位被加数

ADD A,31H      ;十位被加数+加数

ADD A,37H      ;加上个位之和的进位

MOV 37H,#00H   ;清除37H

MOV B,#10      ;十六进制除10转换成BCD码

DIV AB

MOV 31H,B      ;余数即十位存放在31H

MOV 38H,A      ;商存放在38H

MOV A,39H      ;百位计算同十位

ADD A,32H

ADD A,38H

MOV 38H,#00H

MOV B,#10

DIV AB

MOV 32H,B

MOV 39H,A

MOV A,3AH      ;千位计算同十位

ADD A,33H

ADD A,39H

MOV 39H,#00H

MOV B,#10

DIV AB

MOV 33H,B

MOV 3AH,A

MOV A,3BH      ;万位计算同十位

ADD A,34H

ADD A,3AH

MOV 3AH,#00H

MOV B,#10

DIV AB

MOV 34H,B

MOV 3BH,#00H

AJMP DKA

;=====================

JIAN1:   AJMP DKA

CHENG1:  AJMP DKA

CHU1:    AJMP DKA

;=============================================

;延时程序和查表表格

DELY4ms: MOV R6,#8        ;延时4毫秒

D1:      MOV R7,#248

DJNZ R7,$

DJNZ R6,D1

RET

DELY10ms:MOV R6,#20       ;延时10毫秒

D2:      MOV R7,#248

DJNZ R7,$

DJNZ R6,D2

RET

TABLE:   DB 07H, 04H, 01H  ; /   本表格是以键盘为参考   7   8   9   /

DB 08H, 05H, 02H  ; *                          4   5   6   *

DB 09H, 06H, 03H  ; -                          1   2   3   -

DB 00H, 00H ;=      +                         清除 0   =   +

END