4X4按键实现计算器功能

;4X4按键实现计算器功能

;当按0-9时显示数值

;当按A-F时将其除以10

;如商为0就是0-9数字输入

;如商为1就是+,-,*,/,=

;跟据余数转到相应的功能处

;因为8位数最取值为255

;可扩展到16位或32位

; ok

;硬件连接

POUTEQUP2

KPINEQUP1

PDIG1EQUP3.0

VALDATA30H

KIDDATA31H

KTMPDATA32H

PDIGEQU P3

NOEQU 4 ;N位要显示的数

;内部使用的变量

DIGDATA 33H;

DIDDATA34H

KFHDATA 35H

DAT1DATA36H

DAT2DATA 37H

BUFDATA 38H

MTMEQU1000

MTHEQUHIGH(65536-MTM)

MTLEQULOW(65536-MTM)

MSYSBIT2FH.0

KEFLBIT20H.0

;**************************

;主调度程序

;每1MS中断一次,所有程序都在期间执行

;主程序调度标志位:MSYS

;**************************

ORG0000H

SJMPMAIN

ORG0BH

SJMPMTM0

ORG30H

MAIN:

ACALLMINIT

MLP:JNBMSYS,$

CLRMSYS

ACALLKEYS

ACALLDISP

SJMPMLP

MINIT:

;用户变量初始化

CLRMSYS

MOVR0,#30H

MOVR2,#16

CLRA

MILP:MOV@R0,A

INCR0

DJNZR2,MILP

MOVDIG,#0FEH

CLRKEFL

;系统变量初始化,并开启定时器0

MOVSP,#60H

MOVIE,#82H

MOVTMOD,#01H

MOVTH0,#MTH

MOVTL0,#MTL

SETBTR0

RET

;定时器0中断程序,置系统标志为1

MTM0:

MOVTH0,#MTH

MOVTL0,#MTL

SETBMSYS

RETI

;************************

;显示功能程序

;****************

DISP:MOVPDIG,#0FFH

MOVA,#BUF

ADDA,DID

MOVR0,A

MOVA,@R0

MOVDPTR,#TAB

MOVCA,@A+DPTR

CPLA

MOVPOUT,A

MOVA,DIG

MOVPDIG,A

RRA

MOVDIG,A

INCDID

MOVA,DID

CJNEA,#NO,DSEXT

MOVDID,#0

MOVDIG,#07FH

DSEXT:RET

;************************

;*************************

;按键扫描程序;

;模块应用变量

;硬件连接端口:KPIN

;返回按键值:VAL

;按键处理应用功能程序:KEYPFUN

;

;***********************

;内部使用变量定义:KID=0,KTMP=0

;**********************

KEYS:

MOVDPTR,#KJMP

MOVA,KID

RLA

JMP@A+DPTR

KJMP:AJMPKEYEN

AJMPKEYDEL

AJMPKEYSCAN

AJMPKEYUP

AJMPKEYFUN

MOVKID,#0

RET

KS:MOVKPIN,#0FH

NOP

NOP

MOVA,KPIN

ANLA,#0FH

XRLA,#0FH

RET

KEYEN:

ACALLKS

JZKENEXT

MOVKTMP,#0

INCKID

KENEXT:RET

KEYDEL:

INCKTMP

MOVA,KTMP

CJNEA,#30,KDEXT

MOVKTMP,#0

INCKID

KDEXT:RET

;*******************************

;KPIN: D7 - D0 =0EFH

;D7 D6 D5 D4

; D03 210

; D17 654

; D2B A98

; D3F EDC

KEYSCAN:

ACA