基于单片机双字节简易计算器程序设计.docx
《基于单片机双字节简易计算器程序设计.docx》由会员分享，可在线阅读，更多相关《基于单片机双字节简易计算器程序设计.docx（23页珍藏版）》请在冰豆网上搜索。
基于单片机双字节简易计算器程序设计
;=================Const===============================
SysStackEqu07h;08H...1FH
DarkEqu10H
;-----------------Hardware----------------------------
DisSegPortEqu0000H;0:
Lightup
DisCSPortEqu2000H;1:
Select
KeyOutPortEquDisCSPort;KeyOutputPort
;KeyInout:
p1.0,P.1..P1.3;0:
Pressed
;------------------ByteUnits-------------------------
KeyGetFBit20H;1:
GetANewKey
KeyPressBit21H;1:
KeyReleased
SumPressBit22H;1+
SumPress1Bit23H
EqualPressBit24H;1=
DivPressBit25H;1/
DivPress1Bit26H
MulPressBit27H;1*
MulPress1Bit28H
SubbPressBit29H;1-
SubbPress1Bit31H
NegPressBit32H
NegPress1Bit33H;+/-
NegPress2Bit34H
DataPressBit35H;数字键
FuncPressBit36H;运算功能键
SignBit37H
KeyCodeEqu60H
DisBufEqu70H;..75H
DeciPosEqu76H;Bit=1:
ShowDeciPoint
SumVaEqu77H;pressfuncKEY,MemorytheDATAONdis
DivVaEqu78H;thesameUP
MulVaEqu79H;thesameUP
SubbVaEqu85H;thesameUP
;=======================================================
Org0000H
AJmpMain
;=======================================================
Display:
MovR1,#00000001B;R1=DisCS
MovR0,#DisBuf;DisBufPointer
DisLoop:
MovB,#0FFH
MovA,DeciPos;小数点?
AnlA,R1
JzDisNext;0没小数点
ClrB.7;1小数点
DisNext:
MovDptr,#DisCSPort;DoDisplayCS
MovA,R1
Movx@Dptr,A
MovA,@R0;GetDisChar
MovDptr,#DisTab
MovcA,@A+Dptr
AnlA,B
MovDptr,#DisSegPort;UseTable
Movx@Dptr,A;SendtoDisSegPort
ACallDelay
IncR0
MovA,R1
RLA
MovR1,A
CjneR0,#DisBuf+6,DisLoop
Ret
;-------------------------------------------------------
;Char:
'0','1','2','3','4','5','6','7','8','9'
;Code:
00H,01H,02H,03H,04H,05H,06H,07H,08H,09H
DisTab:
DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
;Char:
'A','B','C','D','E','F','10H'
;Code:
+,-,*,/,=,ON/C,Dark
DB088H,0BFH,0c6H,0a1H,86H,8eH,0FFH
;--------------------------------------------------------
Delay:
MovR2,#04h
Delay1:
MovR3,#0
DjnzR3,$
DjnzR2,Delay1
Ret
;-------------------------------------------------------
InitDis:
MovDisBuf+0,#0
MovDisBuf+1,#Dark
MovDisBuf+2,#Dark
MovDisBuf+3,#Dark
MovDisBuf+4,#Dark
MovDisBuf+5,#Dark
MovDeciPos,#00000000B
Ret
;------------------------------------------------------
NegDis:
MovDisBuf+5,#0BH
Ret
;-------------------------------------------------------
ScanKey:
MovDptr,#KeyOutPort
MovA,#0
Movx@Dptr,A
MovA,P1
CplA;取反处理,以便用A进行是否全0判断.指令只可判断全0不可判断全1
ANlA,#0FH;屏蔽掉无关位
Ret
;-----------------------------------------------------------------------
ReadKey:
ACallScanKey
JnzReadKey1;A为0时无按键,只要有一位为1即有按键
ClrKeyPress
ReadKeyQ:
Ret
ReadKey1:
JbKeyPress,ReadKeyQ;键压着可以准确定位是哪个键压着,故返回
MovR2,#11111110B;
MovR3,#0;准备扫描第一列
ReadKeyLp:
MovDptr,#KeyOutPort
MovA,R2;列扫描值,选则列输出,检测
Movx@Dptr,A
MovA,#0
JnbP1.0,ReadKeyOk
MovA,#6
JnbP1.1,ReadKeyOk
MovA,#12
JnbP1.2,ReadKeyOk
MovA,#18
JnbP1.3,ReadKeyOk
IncR3
MovA,R2
RLA
MovR2,A
AJmpReadKeyLp
ReadKeyOk:
AddA,R3;加上列扫描值
SetbKeyGetF
SetbKeyPress
MovDptr,#KeyChgTab
MovcA,@A+Dptr
MovKeyCode,A
Ret
;----------------------------------------------------------------
;KeyCode00H,01H,02H,03H,04H,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH,10H,11H,12H,13H,14H,15H,16H,17H
;OldKeySpc,0,Dot,Equ,+,M+,%,1,2,3,?
M-,+/-,4,5,6,-,MRC,C,7,8,9,X,/
KeyChgTab:
DB10,0,11,12,13,14,15,1,2,3,16,17,18,4,5,6,19,20,21,7,8,9,22,23
;-------------------------------------------------------
InitKey:
ClrKeyGetF
Ret
;--------------------------------------------------------
InitFunck:
ClrSumPress
ClrEqualPress
ClrDivPress
ClrMulPress
ClrSubbPress
InitNeg:
ClrNegPress1
ClrNegPress2
Ret
;--------------------------------------------------------
;=================================================================
;执行运算
Final:
JbSumPress1,AddA;是否按下过加法键加法
JbDivPress1,DivD
JbMulPress1,MulM
JbSubbPress1,SubbS
AjmpMainLoop
;---------------------------------------------------------
AddA:
ClrSumPress1;执行加法运算
ACallFromLED
JnbNegPress,AddC1
ClrNegPress
MovA,R6
OrlA,#10000000B
MovR6,A
AddC1:
ACallInitDis
ACallAddF;调用加法子程序
ACallToLED
Ret
;----------------------------------------------------------
DivD:
ClrDivPress1;执行除法运算
ACallFromLED
JnbNegPress,DivC1
ClrNegPress
MovA,R6
OrlA,#10000000B
MovR6,A
DivC1:
ACallInitDis
ACallDivF
ACallToLED
Ret
;--------------------------------------------------------------
;R6R7*R4R5=R2R3R6R7
MulM:
ClrMulPress1
ACallFromLED
JnbNegPress,MulC1
ClrNegPress
MovA,R6
OrlA,#10000000B
MovR6,A
MulC1:
ACallInitDis
ACallMulF;调用乖法子程序
AcallToLED
Ret
;-----------------------------------------------------------------
;R4R5-R6R7=R6R7
SubbS:
ClrSubbPress1
ACallFromLED
JnbNegPress,SubbC1
ClrNegPress
MovA,R6
OrlA,#10000000B
MovR6,A
SubbC1:
ACallInitDiS
ACallSubbF
ACallToLED
Ret
;------------------------
;R4R5*R6R7=R6R7
MulF:
MovA,R4;判断两数符号同或异
XrlA,R6
MovC,ACC.7
MovSign,C
MovA,R4
ClrACC.7
MovR4,A
MovA,R6
ClrACC.7
MovR6,A
MovA,R7
MovB,R5
MULAB
XCHA,R7
MovR2,B
MovB,R4
MULAB
AddA,R2
MovR2,A
ClrA
AddcA,B
MovR3,A
MovA,R6
MovB,R5
MULAB
AddA,R2
MovR2,A
MovA,B
AddcA,R3
MovR3,A
ClrA
AddcA,#00H
XCHA,R6
MovB,R4
MULAB
AddA,R3
MovR3,A
MovA,B
AddcA,R6
XCHA,R2
MovR6,A
ClrOV
MovA,R6
MovC,Sign
MovACC.7,C
MovR6,A
BackMul:
Ret
;------------------------
;R4R5/R6R7=R6R7先R0R1余R2R3
DivF:
MOVA,R4
XRLA,R6
MOVC,ACC.7
MOVSign,C
MOVA,R4
CLRACC.7
MOVR4,A
MOVA,R6
CLRACC.7
MOVR6,A
MovR0,#0
MovR1,#0;商赋初值零
Div2Byte_1:
MovA,R5
Clrc
SubbA,R7;低字节相减
MovR5,A
MovA,R4
SubbA,R6;高位相减
MovR4,A
JcDiv2Byte_3;如果高字节都需要借位则退出循环
Clrc
MovA,R1;R1自增
AddCA,#1
MovR1,A
JncDiv2Byte_2
IncR0;商加一
Div2Byte_2:
SjmpDiv2Byte_1
Div2Byte_3:
MovA,R0
MovR6,A
MovA,R1
MovR7,A
MOVA,R6
JBACC.7,IDIVE
JBOV,IDIVE
MOVC,Sign
MOVACC.7,C
MOVR6,A
RET
IDIVE:
SETBOV
BackDiv:
Ret
;-----------------------------------------------------------------------------
AddF:
MOVA,R4
MOVC,ACC.7
MOVSign,C
XRLA,R6;判断R3R6是否同号
MOVC,ACC.7
MOVA,R4
ClrACC.7
MOVR4,A
MOVA,R6
CLRACC.7
MOVR6,A
JCDAB2
ACallAdd1
MOVA,R6
JBACC.7,DABE
DAB1:
MOVC,Sign
MOvACC.7,C
MOVR6,A
CLROV
RET
DABE:
SETBOV
RET
DAB2:
LCALLSubb1
MOVA,R6
JNBACC.7,DAB1
ACALLCmpt
CPLSign
SJMPDAB1
BackA:
Ret
;-----------------------------------------------------------------------------
SubbF:
MOVA,R6
CPLACC.7
MOVR6,A
MOVA,R4
MOVC,ACC.7
MOVSign,C
XRLA,R6;判断R3R6是否同号
MOVC,ACC.7
MOVA,R4
ClrACC.7
MOVR4,A
MOVA,R6
CLRACC.7
MOVR6,A
JCDAB2
ACallAdd1
MOVA,R6
JBACC.7,SDABE
SDAB1:
MOVC,Sign
MOvACC.7,C
MOVR6,A
CLROV
RET
SDABE:
SETBOV
RET
SDAB2:
ACallSubb1
MOVA,R6
JNBACC.7,SDAB1
ACALLCMPT
CPLSign
SJMPSDAB1
;------------------------
Cmpt:
MOVA,R7
CPLA
ADDA,#01H
MOVR7,A
MOVA,R6
CPLA
ADDCA,#00H
MOVR4,6
Ret
;-----------------------------
;R4R5+R6R7=R6R7
Add1:
ClrC
MovA,R5
AddA,R7
MovR7,A
MovA,R4
AddcA,R6
MovR6,A
Ret
;------------------------
;R4R5-R6R7=R6R7
Subb1:
MovA,R5
ClrC
SubbA,R7
MovR7,A
MovA,R4
SubbA,R6
MovR6,A
Ret
;------------------------
;=======================================================================
;从显示屏读出数
FromLED:
Movr0,#DisBuf+4
ReadLED1:
Cjne@r0,#Dark,ReadLED2
Decr0
cjner0,#DisBuf+0,READLED1
ReadLED2:
MovR6,#0
MovA,@r0
MovR7,A
Cjner0,#DisBuf+0,ReadLed3
SjmpBackFLED
ReadLED3:
ACallR6R7Mul10
Decr0
MovA,@r0
AcallAddDis
Cjner0,#DisBuf+0,ReadLED3
BackFLED:
Ret
;====================================================================
AddDis:
ClrC
AddcA,R7
MovR7,A
JncBackAD
INCR6
BackAD:
Ret
;-----------------------------------------------------------------------
;R6R7:
=R6R7*10
R6R7Mul10:
MovA,R7
MovB,#10
MulAB
MovR7,A;R7*10高
MovA,#10
XchA,B;B:
=10,A:
=BR7低
XchA,R6;A:
=R6
MulAB
AddA,R6
MovR6,A
Ret
;-------------------------------------------------------
;将数送显示
;============================DisplayNumber===============================
;changeR67into@r0.DisBuf（5）
;By:
Linjuan,improvedby:
WuChuiHong
;Improvements:
;1.MuchFaster,2.FewerCodes,3.r6,r7,r5,r6,r7,DptrNotused
;EveryExecTime=275usfornum=1to65535,Teston25/9/1998
;Change:
a,b,r0,R0,r2ifmorethan1byte
;---------------------------------------------------------------------------
;IfR6.7=1（Negtive!
）thenR6R7:
=0-R6R7,DisBuf+5:
'-'
ToLED:
MovA,R6
JnbACC.7,Correct
ClrACC.7
MovR6,A
ACallNegDis
Correct:
MovR0,#DisBuf
LCallFilDisBuf
Word2DR01:
Movr2,#4;1wordneedsonly4loops
W2DLoop:
Mova,r6
jzW2DByte;needonlydolowbyte
Movb,#10;elsedividedby10
divab
Movr6,a
Mova,r7
anla,#0f0h
orla,b
swapa
Movb,#10
divab
swapa
Xcha,r7
anla,#0fh
xcha,b
swapa
orla,b
Movb,#10
divab
Mov@R0,b
IncR0
Orla,r7
Movr7,a
djnzr2,W2DLoop
jnzW2DOut0
Ret
;------------------------------
W2DByteClr:
Movr2,#2
ACallClrDisLp
SJmpW2DByteA
;------------------------------
W2DByte:
Mova,r7
W2DByteA:
Movb,#10
divab
Mov@R0,b
jzW2DOut
Movb,#10
divab
IncR0
Mov@R0,b
jzW2DOut
IncR0
W2DOut0:
Mov@R0,a
W2DOut:
Ret
;---------------------------------------------------------------------------
ClrDisBuf0:
Movr0,#D
升级会员 