基于51单片机的计算器设计程序代码(汇编).doc

DＢUFﻩEQU　 ３0ＨＴEＭＰ EQU 　ﻩ４０HＹJ 　 ﻩEQUﻩﻩ50H　 　　 　 ﻩﻩ;成果寄存ＹJ1　 EQＵﻩﻩ51H 　 ﻩ;中间成果寄存GＯＮG ﻩEQUﻩﻩ52H 　 　 　 ;功能键寄存ﻩﻩＯRG ﻩ00HSＴART: MOV R3,#0 　 　　 　　　 ；初始化显示为空ﻩﻩＭOV ﻩGOＮG,#0ﻩ ＭＯＶ 　ﻩ30H,#10Hﻩ ＭOV ﻩ3１H,#１０Ｈ ﻩＭOＶ ３2H，＃１0H MOV 　 33H，#1０Ｈ ﻩMＯＶ 34H,#1０HＭＬOＯP: ＣＡLL ﻩDISP　 　 　 　 ﻩ；PAN调显示子程序ＷAIＴ： CAＬL TESＴKＥY 　 　 　 ;判断有无按键ﻩﻩJZ　 　 WＡIT 　 　 ﻩ CAＬL GETKEY 　　　 　 　 　;读键 INC 　 R3 　 ﻩ;按键个数 ﻩCJNE A，#0,NEXＴ1　 　 ;判断与否数字键ﻩ LＪMＰ E1 　　　 　 ﻩ;转数字键解决NＥXT1:ﻩCJNE 　Ａ,＃1,NＥXT2 ﻩLJMＰ　 E１NEXT２:ﻩＣJNE 　A,#2,ＮEXT3 LJMP　 E1NEＸＴ3:ﻩCJNE Ａ,#3,ＮEＸT４ﻩ LJMP　　　 E1NEXT４：ﻩCJNE Ａ，#4,NEXT５ ﻩLＪMP E１ＮEXT５:ﻩCJＮE 　 A,#５,ＮEＸT6 ﻩＬJMP E１NEXT6: CＪＮE A,#6,NＥXT７ LJＭP 　 E１ＮＥXT7: CJNE Ａ,#7,ＮEXＴ8ﻩ ＬJMP 　 E1NEXT８：ﻩCＪＮE 　Ａ，＃8,NEXＴ9ﻩ LＪMＰ E１NEXＴ9:ﻩＣJNE A,＃9,NEXＴ10 ＬJMP 　　 E1NＥXT10：ﻩCJNＥ 　 A，＃10，NＥXT１1 　 ;判断与否功能键 ﻩＬJMＰ 　 　E2 　 　 ;转功能键解决ＮEXT11： CJNＥ 　 A,#11，ＮEXT１2 ﻩLJＭP 　 E2NＥXT１２: CJＮE ﻩＡ,#12, NＥXT13ﻩ LJＭP ﻩＥ2NEXＴ13: CJＮE ﻩＡ，#13,NEXT１4 ﻩLJＭP Ｅ2ＮEXT1４: CJNE ﻩＡ,#14,NＥXＴ１5ﻩﻩLJMP　 　ﻩＥ２ＮEＸT１5：ﻩＬＪMP E3　 　 　　　 ;判断与否清除键E1: CJNE 　 R3,#1,Ｎ1 　 　 ﻩ;判断第几次按键 ﻩLJMP　　　　Ｅ11　 　 　 　 ;为第一种数字N１: ＣJNE Ｒ3,#2,N2ﻩ ＬJMＰ　 　　E12 　　 　 　　 ﻩ;为第二个数字N２:ﻩﻩＣJNE 　 R3,#3，N３ ﻩ ＬJMP　 　Ｅ13 　　 ;为第三个数字N3:ﻩ LJMP 　　E３ 　 　 ﻩ;第四个数字转溢出Ｅ11:ﻩMＯV　　 R4，A 　 　　　　 ﻩ;输入值暂存R４ ﻩMOV 3４Ｈ,A 　 　 　　 　 ﻩ;输入值送显示缓存 ＭOV 　 ﻩ３3H,#１０HﻩﻩMＯV　 32H,#１0Hﻩ LJMP 　ﻩMＬＯＯP 　 　 ﻩ;等待再次输入E12: ﻩMOＶ ﻩR7,A 　 　　 ;个位数暂存R7 ＭOV ﻩＢ，＃10 ＭＯV A,R4 MUＬ 　 ﻩAB ﻩﻩ ;十位数 ﻩADDﻩﻩA,R7ﻩ MOV R4,A 　 　 ﻩ；输入值存R4 ﻩMＯＶ 32Ｈ,#1０H　　 　　 　ﻩﻩ；输入值送显示缓存 ＭOＶ　 ﻩ33H,34H MOV 　 ﻩ3４H,Ｒ7 LJＭＰ ﻩMLＯOPE1３: MＯV ﻩR７,Ａﻩ MOV ﻩB,＃10ﻩ MＯV 　 A,Ｒ4ﻩﻩMUL　 ﻩＡB ﻩJB　　 　 ＯV,Ｅ3 　　 　 ﻩ ;输入溢出 ＡDD Ａ,R7ﻩﻩＪB CY,E３ 　 　 ﻩ;输入溢出ﻩ MOV ﻩＲ4,Ａ MOV 　ﻩ３2H,33Hﻩ ﻩﻩ;输入值送显示缓存ﻩﻩMOＶ 　 33H,34HﻩﻩMＯV 　ﻩ34H,R7 ﻩＬJＭP 　 MＬOＯPE3:ﻩ ＭＯV 　 R3，＃0 　 　 ﻩ；按键次数清零 ﻩＭOV 　ﻩR4,＃０ 　 　 　 ﻩ;输入值清零ﻩ MＯV 　 YＪ,#0　 　　 ;计算成果清零ﻩﻩMOＶ 　 GONG,#0 　 　 ；功能键设为零 MOV 　 30H,#1０H 　 ;显示清空 MＯV ﻩ３1H，＃1０HﻩﻩＭOV 　 32H，＃１0H MOV ﻩ33Ｈ,#1０Ｈ MOＶ　 ﻩ３4H，#10Hﻩ LJＭP　 MＬOＯPＥ2： ﻩＭＯV ﻩ３4H,＃10Ｈ MOV　 ﻩ33H,#10Hﻩ ＭOＶ 　 32H,＃10Ｈﻩ MOV ﻩR0,GOＮG　 　　 　 　　　ﻩ;与上次功能键互换 MOＶ ﻩGＯNG，A ＭOV　 A,R０ﻩ CＪNE ﻩA,#10，N2１ 　 　 　ﻩ;判断功能键 ＬＪMＰ　 ﻩJIＡ　 　　 ﻩ;"＋"N21：　　ﻩCJＮE　 A，#１1,N22ﻩﻩLＪMＰ ﻩＪIＡＮ　 　 ;"－"Ｎ２2:　　 CＪNE ﻩA,#12，N2３ LJMP　 ＣHENＧ　 　 　ﻩ；＂＊"Ｎ23： CＪNＥ 　 A，＃1３，N２4 ﻩLJMＰ CHU 　　 　 　 ;"/"N24:ﻩCJＮE A,＃０,N２５ﻩ LJMＰ ﻩFIRST 　　　 　　 　ﻩ;初次按功能键Ｎ２5:ﻩＬＪMP 　 DＥＮ　　　 　　 　ﻩ ；"＝"N4: ﻩLJMＰ E３FIRST:ﻩMＯＶ 　ﻩYJ,R４　 　　 ﻩ;输入值送成果ﻩ MOV R３，#0 　 ﻩ;按键次数清零ﻩﻩLJＭＰ　 ﻩＤＩSP１ 　 ；成果解决ＪIA： MOV 　 ﻩＡ,YJﻩﻩﻩﻩ;上次成果送累加器ﻩ AＤD ﻩA,R4 ﻩ ﻩ；上次成果加输入值 ﻩＪB CY,N4 ﻩ ﻩ；溢出ﻩ MOＶ ﻩＹJ,Aﻩ ﻩ ;存本次成果 ＭOV ﻩR3,#0ﻩ ﻩ ；按键次数清零ﻩﻩLＪMP 　ﻩDＩSＰ1JIAＮ:ﻩMＯV 　 　ﻩA,YJﻩﻩSＵBＢ 　ﻩA,Ｒ4ﻩﻩ ﻩ;上次成果减输入值ﻩ JＢ ﻩCＹ,N４ﻩﻩ ﻩ；负数溢出 ＭOV 　 YJ,A MOV　 R3,#0 ﻩLJＭＰ 　ﻩDＩSP1CHＥNＧ: ＭOV ﻩA,YＪ ＭＯV　 ﻩB,Ａ MOV ﻩA,R４ﻩ MUＬ 　 ABﻩﻩﻩ ;上次成果乘输入值 ﻩJB　 OV,N4 ﻩ ﻩ；溢出ﻩ MＯV ﻩYJ,A ﻩﻩﻩ LJMＰ 　ﻩＤＩSP１ＣＨU：ﻩMOＶ ﻩA,R4 MOV 　 B,Ａ MＯV A,YJﻩ ＤIＶ AＢﻩ ;上次成果除输入值ﻩ MOV YＪ,A MＯV 　 ﻩR3，#0 ＬJMP 　 ﻩＤＩSＰ1DEＮ: MＯＶ ﻩR3,#0ﻩﻩLJMP ﻩDISP1ＤＩSP1:ﻩMOVﻩﻩＢ,#10ﻩﻩMOV ﻩA,YJﻩﻩﻩ ;成果送累加器ﻩﻩＤIV ＡBﻩﻩﻩ ;成果除10ﻩ MＯVﻩ ＹＪ1，A ;暂存"商"ﻩ MＯVﻩﻩA,Ｂ ﻩ;取个位数ﻩ MOＶ ﻩ3４H,A ﻩﻩ;个位数送显示缓存ﻩﻩMＯＶﻩﻩA，YJ１ JZ ＤIＳP１１ﻩﻩﻩﻩ;成果与否为一位数 ﻩMＯVﻩﻩＢ,#10ﻩﻩＭOV ﻩA,YJ1ﻩ DIVﻩ AＢﻩ MOVﻩﻩYJ１,A ＭOV ﻩA,ＢﻩﻩＭOV 33H,A ﻩ ﻩ;十位送显示缓存 ﻩMＯV ﻩＡ，ＹJ1ﻩ JZ ﻩDISP11 ;成果与否为二位数 ＭOVﻩ ３2Ｈ,Ａ ﻩ ;百位数送显示缓存ＤISP11: LＪMＰ ＭＬＯOPＤＩSP: MＯV ﻩR０,#DBUFﻩ ﻩ;显示子程序 MＯVﻩ R1，#TEMP+４ ﻩMOＶﻩ R２，#5DＰ1０: MOVﻩ DＰＴR,#ＳEGＴAB MOVﻩ A,@R0 MOＶＣ Ａ,@Ａ＋DＰTR ﻩMOV ﻩ＠R1,A ﻩＩNＣﻩ R0 DEＣﻩ Ｒ1 ﻩＤJNZﻩＲ2，ＤP10ﻩﻩMOV Ｒ0,＃TＥMPＤP１2:ﻩMＯV 　Ａ,＠R０ﻩ MＯＶ Ｐ0，A clr 　　 Ｐ2.7ﻩﻩＣALＬ D1MＳ ﻩsｅtｂ 　 P2.7ﻩﻩINC　　 Ｒ０ﻩﻩMOV Ａ,＠Ｒ0ﻩ MOV 　 P０,Aﻩﻩｃlr　 　 P2.6 ﻩCALＬ 　 Ｄ1MS ﻩsetb　 　 Ｐ2.6 ﻩINC　　 　R0 MOＶ　　　　 A,@R0 MOV　 P0,Ａ ﻩclr 　Ｐ２.5ﻩﻩCAＬL 　 D1ＭＳﻩ setb P2．５ ﻩINＣ R0 ﻩMOV 　 A,@R0ﻩ MOV　 P0,A ﻩclr 　P２．4ﻩ ＣＡLＬ Ｄ１ＭS setb　 P2．4ﻩﻩINC R0ﻩ MOV　　 　 A,@R０ ﻩＭOV　 　P0，Ａ clr 　Ｐ2.3ﻩﻩCAＬL 　 D1MS sｅtb 　 Ｐ2．3ﻩﻩＲＥTD１MS: MＯV 　　R7,#0２HDＭS: 　　 ＭＯV Ｒ6,#0ＦFH 　 DJNZ 　 Ｒ６,$ ＤJＮZ R7,DMS ﻩﻩRETSEＧTAＢ:ﻩＤB ０２8H,7ｅH，0A２H,062H　 　 　ＤB 74H， 　61H, 21Ｈ, 7ａＨ 　 DB 2０H, 60H, 88Ｈ, 　８3H 　 ＤB 0C6H, 0A1H, 8６H,　 8ＥH,0ffＨＴEＳTKＥY:AＣＡLL DＩSＰﻩ ﻩMOV P１，＃0FＨﻩ ﻩ;读入键状态ﻩﻩＭOVﻩﻩＡ，P1ﻩﻩ ﻩCPLﻩ A ANL ﻩA,#0FＨﻩﻩ ﻩ；高四位不用ﻩﻩRETKEYTABLＥ:ﻩ ﻩ ﻩ ﻩﻩDB ０DEH,0EDＨ。