单片机程序整理

1KEY-1CHAR & Kepress+1;====== ======= Const =======================MaxNum Equ 10SysStack Equ 07H ;08H..1FH;======== ========= Hardware ==============T ubePort Equ P0Keyport Bit P3.0 ;0:pressed;========== ========= Bit Units ================SysBits0 Equ 20HKeypressed Bit SysBits0.0 ;1:Key Pressed, Inner working bit KeyGet Bit SysBits0.1 ;1:Get A New Key, Outer Info; Bit SysBits0.2 ;1:; Bit SysBits0.3 ;1:; Bit SysBits0.4 ;1:; Bit SysBits0.5 ;1:; Bit SysBits0.6 ;1:; Bit SysBits0.7 ;1:;----------------------------------------- ---------------------SysBits1 Equ 21H; Bit SysBits1.0 ;1:; Bit SysBits1.1 ;1:; Bit SysBits1.2 ;1:; Bit SysBits1.3 ;1:; Bit SysBits1.4 ;1:; Bit SysBits1.5 ;1:; Bit SysBits1.6 ;1:; Bit SysBits1.7 ;1:;============ ======= Byte Units ===================;00H..07H:Reg 0-7;08H..1FH:System Stack;20H..21H:System Bit Units;22H..2FH;-------------------------------------------------------------------------------DisBuf Equ 30H ;Dispplay Buffer;-------------------------------------------------------------------------------Counter Equ 31H ;Counter:0..MaxNum;32H..7FH;=================== ===========================;80H..FFH;================== ==========================Org 0000hAjmp Main;-------------------------------------------------------------------------------Display: Mov A,DisBufMov Dptr,#DisT abMovc A,@A+DptrMov T ubePort,ARet; Char 0, 1, 2, 3, 4, 5, 6, 7, 8, 9DisT ab: DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,080H,090H ;---------------------------------------------- -------------------ReadKey: Jnb Keyport,ReadKey1;Key Press, Check furtherClr Keypressed ;Key ReleasedReadKeyQ: RetReadKey1: Jb KeyGet,ReadKeyQ;New Key Not Processed, QuitJb KeyPressed,ReadKeyQ;Key Not released yet, QuitSetb KeyPressedSetb KeyGetRet;----------------------------------------------------------------------------------InitKey: Clr KeyGetRet;----------------------------------------------------------------------------------CntT oDis: Mov DisBuf,CounterRet;----------------------------------------------------------------------------------InitCounter: Mov Counter,#0Ret;----------------------------------------------------------------------------------IncNum: Inc CounterMov A,CounterCjne A,#MaxNum,$+3Jc IncNumQMov Counter,#0IncNumQ: Ret;----------------------------------------------------------------------------------Main: Mov Sp,#SysS tackACall InitKeyACall InitCounterMainLoop: ACall CntT oDis ;Counter to DisBufACall Display ;Hardware DisplayACall ReadKey ;Read KeyJbc KeyGet,DoKeyAJmp MainLoopDoKey: ACall IncNum ;If Key Pressed, then Inc CounterAjmp MainLoop;===================== ============================END1 Key,2 Chars;================== =================================; Counter,1 Key, 2 Chars; V er 1.0;================================ ================;========== ====== Const =======================MaxNum Equ 100SysStack Equ 07H ;08H..1FH;========================== Hardware ====================== T ubePort Equ P1DisCS Bit P3.0 ;0:Light upKeyport Bit P3.7 ;0:pressed;======== ============ Bit Units ======================== SysBits0 Equ 20HKeypressed Bit SysBits0.0 ;1:Key Pressed, Inner working bit KeyGet Bit SysBits0.1 ;1:Get A New Key, Outer Info; Bit SysBits0.2 ;1:; Bit SysBits0.3 ;1:; Bit SysBits0.4 ;1:; Bit SysBits0.5 ;1:; Bit SysBits0.6 ;1:; Bit SysBits0.7 ;1:;-------------------------------------------------------------------------------SysBits1 Equ 21H; Bit SysBits1.0 ;1:; Bit SysBits1.1 ;1:; Bit SysBits1.2 ;1:; Bit SysBits1.3 ;1:; Bit SysBits1.4 ;1:; Bit SysBits1.5 ;1:; Bit SysBits1.6 ;1:; Bit SysBits1.7 ;1:;========== ===== Byte Units ===============;00H..07H:Reg 0-7;08H..1FH:System Stack;20H..21H:System Bit Units;22H..2FH;-------------------------------------------------------------------------------DisBuf Equ 30H;31H ;Dispplay Buffer;-------------------------------------------------------------------------------Counter Equ 32H ;Counter:0..MaxNum;33H..7FH;==================== =============================;80H..FFH;================ ===================================Org 0000hAjmp Main;-------------------------------------------------------------------------------Display: Setb DisCSMov A,DisBuf+1Mov Dptr,#DisT abMovc A,@A+DptrMov T ubePort,AACall DelayClr DisCSMov A,DisBufMov Dptr,#DisT abMovc A,@A+DptrMov T ubePort,AACall DelayRet; Char 0, 1, 2, 3, 4, 5, 6, 7, 8, 9DisT ab: DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,080H,090H ;----------------------------------------------------------------------------------Delay: Mov R6,#80Delay1: Mov R7,#0Djnz R7,$Djnz R6,Delay1Ret;----------------------------------------------------------------------------------CntT oDis: Mov A,CounterMov B,#10Div ABMov DisBuf,BMov DisBuf+1,ARet;-------------------------------------------------------------------------------ReadKey: Jnb Keyport,ReadKey1;Key Press, Check furtherClr Keypressed ;Key ReleasedReadKeyQ: RetReadKey1: Jb KeyGet,ReadKeyQ;New Key Not Processed, QuitJb KeyPressed,ReadKeyQ;Key Not released yet, QuitSetb KeyPressedSetb KeyGetRet;----------------------------------------------------------------------------------InitKey: Clr KeyGetRet;---------------------------------------------------------------------------------- InitCounter: Mov Counter,#95Ret;----------------------------------------------------------------------------------IncNum: Inc CounterMov A,CounterCjne A,#MaxNum,$+3Jc IncNumQMov Counter,#0IncNumQ: Ret;----------------------------------------------------------------------------------Main: Mov Sp,#SysS tackACall InitKeyACall InitCounterMainLoop: ACall CntT oDis ;Counter to DisBufACall Display ;Hardware DisplayACall ReadKey ;Read KeyJbc KeyGet,DoKeyAJmp MainLoopDoKey: ACall IncNum ;If Key Pressed, then Inc CounterAjmp MainLoop;============ =================================ENDLedPlay ;========= =======LEDPORT EQU P1KEYPORT BIT P3.7;------------------------ledindx data 30hledtab equ 31hlednum data 33h;------------------------ledmax equ 2;========================org 0000hajmp main;------------------------delay: mov r6,#0delay1: mov r7,#0djnz r7,$djnz r6,delay1ret;---------------------------ledplay: mov dpl,ledtabmov dph,ledtab+1ledplayloop: clr amovc a,@a+dptrjz ledplayq;if a=0,quitinc dptrmov p1,aclr a;get led timemovc a,@a+dptrinc dptrmov r6,aacall delay1ajmp ledplayloopledplayq: ret;-----------------------initled: mov ledindx,#0initled1: mov dptr,#ledadrmov a,ledindxrl amov b,amovc a,@a+dptrmov ledtab+1,a;dw 定义为高字节在地地址低字节在高地址mov a,binc amovc a,@a+dptrmov ledtab,aret;------------------------main: mov sp,#07hacall initledmainloop: acall ledplayajmp mainloopjb keyport,mainloopinc ledindxmov a,ledindxcjne a,#ledmax,mainloop1mov ledindx,#0mainloop1:acall initled1ajmp mainloop;========= ============ledadr: dw led0,led1;------------------------------led0: db 01111111b,255db 00111111b,255db 00011111b,255db 00001111b,255db 11111110b,255db 11111100b,255db 11111000b,255db 11110000b,255db 0,255;--------------------------------led1: db 01111111b,255db 00111111b,200db 00011111b,150db 00001111b,100db 11111110b,150db 11111100b,200db 11111000b,255db 11110000b,255db 0,255;----------------------------------end8Dis-No-Bus-Method;================= Const ========================= MaxNum Equ 10;================ Hardware ======================= DatPort Equ p1 ;SegSelect Bit P3.0 ;-_CSSelect Bit P3.1 ;-_;================ Byte Units =====================DisBuf Equ 30H;..37H;Display Buffer;=================================================Org 0000HAJmp Main;================================================= Display: Mov R0,#DisBuf ;R0->DisBufMov R1,#00000001B ;R1=Dis_CS, 1:SelectDisLoop: Mov DatPort,R1 ;DiS_Cs T o Cs PortSetb CSSelectClr CSSelectMov A,@R0 ;A=Dis_CharMov Dptr,#DisT ab ;Use T able change to Dis ModeMovC A,@A+DptrMov DatPort,A;Send it to Dis Mode PortSetb SegSelectClr SegSelectACall Delay ;S tay a whileInc R0 ;NextMov A,R1RL AMov R1,ACjne R0,#DisBuf+8,DisLoopRet;---------------------------------------------------------------------------------- Delay: Mov R6,#8Delay1: Mov R7,#0Djnz R7,$Djnz R6,Delay1Ret;---------------------------------------------------------------------------; Code 00h, 01h, 02h, 03h, 04h, 05h, 06h, 07h ; Char "0", "1", "2", "3", "4", "5", "6", "7" DisT ab: DB 0c0h, 0f9h, 0a4h, 0b0h, 99h, 92h, 82h, 0f8h; Code 08h, 09h, 0ah, 0bh, 0ch , 0dh , 0eh, 0fh ; Char "8", "9", "a", "b", "c" , "d" , "e", "f"DB 80h, 90h, 88h, 83h, 0c6h, 0a1h, 86h, 8eh; Code 10h 11h; Char " " "H"DB 0FFH, 89H;================================================= InitDis: Mov DisBuf+0,#1Mov DisBuf+1,#2Mov DisBuf+2,#3Mov DisBuf+3,#4Mov DisBuf+4,#5Mov DisBuf+5,#6Mov DisBuf+6,#7Mov DisBuf+7,#8Ret;================================================= Main: Mov Sp,#07HACall InitDisMainLoop: ACall Displaymov r5,#10MainLoop1: ACall Displaydjnz r5,MainLoop1mov a,disbuf+7mov disbuf+7,disbuf+6mov disbuf+6,disbuf+5mov disbuf+5,disbuf+4mov disbuf+4,disbuf+3mov disbuf+3,disbuf+2mov disbuf+2,disbuf+1mov disbuf+1,disbuf+0mov disbuf+0,aAJmp MainLoop;=================================================End8DIS-BUS-Method;================= Const ========================= MaxNum Equ 10;================ Hardware ======================= DisSegPort Equ 0000HDisCSPort Equ 2000H;================ Byte Units =====================DisBuf Equ 30H;..37H;Display BufferDecPoint Data 38H;1:Show Decimal Point;=================================================Org 0000HAJmp Main;================================================= Display: Mov R0,#DisBuf ;R0->DisBufMov R1,#00000001B ;R1=Dis_CS, 1:SelectDisLoop: Mov Dptr,#DisCSPort ;BUS MethodMov A,R1Movx @Dptr,AMov B,#11111111B ;No DeciPointAnl A,DecPointJz Display1Mov B,#01111111BDisplay1:Mov A,@R0 ;A=Dis_CharMov Dptr,#DisT ab ;Use T able change to Dis ModeMovC A,@A+DptrMov Dptr,#DisSegPortAnl A,B ;B=11111111B,01111111BMovx @Dptr,AACall Delay ;S tay a whileInc R0 ;NextMov A,R1RL AMov R1,ACjne R0,#DisBuf+8,DisLoopMov Dptr,#DisSegPortMov A,#0FFHMovx @Dptr,ARet;---------------------------------------------------------------------------------- Delay: Mov R6,#8Delay1: Mov R7,#0Djnz R7,$Djnz R6,Delay1Ret;---------------------------------------------------------------------------; Code 00h, 01h, 02h, 03h, 04h, 05h, 06h, 07h; Char "0", "1", "2", "3", "4", "5", "6", "7" DisT ab: DB 0c0h, 0f9h, 0a4h, 0b0h, 99h, 92h, 82h, 0f8h; Code 08h, 09h, 0ah, 0bh, 0ch , 0dh , 0eh, 0fh; Char "8", "9", "a", "b", "c" , "d" , "e", "f"DB 80h, 90h, 88h, 83h, 0c6h, 0a1h, 86h, 8eh; Code 10h 11h; Char " " "H"DB 0FFH, 89H;================================================= InitDis: Mov DisBuf+0,#1Mov DisBuf+1,#2Mov DisBuf+2,#3Mov DisBuf+3,#4Mov DisBuf+4,#5Mov DisBuf+5,#6Mov DisBuf+6,#7Mov DisBuf+7,#8Mov DecPoint,#00000101BRet;================================================= Main: Mov Sp,#07HACall InitDisMainLoop: ACall DisplayMov R5,#10MainLoop1: ACall DisplayDjnz R5,MainLoop1Mov A,DisBuf+7Mov DisBuf+7,DisBuf+6Mov DisBuf+6,DisBuf+5Mov DisBuf+5,DisBuf+4Mov DisBuf+4,DisBuf+3Mov DisBuf+3,DisBuf+2Mov DisBuf+2,DisBuf+1Mov DisBuf+1,DisBuf+0Mov DisBuf+0,AMov A,DecPointRL AMov DecPoint,AAJmp MainLoop;=================================================EndDis&Readkey;;================= Const ===============Dark Equ 10H;KeyCode 10H="0FFH"...数码管全暗;================ Hardware ======================= DisSegPort Equ 0000HDisCSPort Equ 2000HKeyOutPort Equ DisCSPort;0:OutputKeyInPort Equ P1 ;P1.0..P1.3,0:Pressed;================= Bit Units =====================SysBit0 Equ 20HKeyGet Bit SysBit0.0 ;1:Get a new Keykeypress Bit SysBit0.1 ;;================ Byte Units =====================DisBuf Equ 30H;..37H;Display BufferDecPoint Data 38H;1:Show Decimal PointKeyCode Data 39H;=================================================Org 0000HAJmp Main;================================================= Display: Mov R0,#DisBuf ;R0->DisBufMov R1,#00000001B ;R1=Dis_CS, 1:SelectDisLoop: Mov Dptr,#DisCSPort ;BUS MethodMov A,R1Movx @Dptr,AMov B,#11111111B ;No DeciPointAnl A,DecPointJz Display1Mov B,#01111111BDisplay1:Mov A,@R0 ;A=Dis_CharMov Dptr,#DisT ab ;Use T able change to Dis ModeMovC A,@A+DptrMov Dptr,#DisSegPortAnl A,B ;B=11111111B,01111111BMovx @Dptr,AACall Delay ;S tay a whileInc R0 ;NextMov A,R1RL AMov R1,ACjne R0,#DisBuf+8,DisLoopRet;---------------------------------------------------------------------------------- Delay: Mov R6,#8Delay1: Mov R7,#0Djnz R7,$Djnz R6,Delay1Ret;---------------------------------------------------------------------------; Code 00h, 01h, 02h, 03h, 04h, 05h, 06h, 07h ; Char "0", "1", "2", "3", "4", "5", "6", "7" DisT ab: DB 0c0h, 0f9h, 0a4h, 0b0h, 99h, 92h, 82h, 0f8h; Code 08h, 09h, 0ah, 0bh, 0ch , 0dh , 0eh, 0fh; Char "8", "9", "a", "b", "c" , "d" , "e", "f"DB 80h, 90h, 88h, 83h, 0c6h, 0a1h, 86h, 8eh; Code 10h 11h; Char " " "H"DB 0FFH, 89H;-------------------------------------------------;=================================================;Out,A=0:No KeyKeyScan: Mov Dptr,#KeyOutPortClr AMovx @Dptr,AMov A,KeyInPortCpl AAnl A,#00001111BRet;-------------------------------------------------ReadKey: ACall KeyScanJnz ReadKey1ReadkeyQ1: Clr KeyPressReadKeyQ: Ret ;No Key, QuitReadKey1: Jb KeyPress,ReadKeyQSetb KeyPressACall DisplayACall KeyScanJz ReadKeyQ ;No Key, QuitMov R1,#11111110B ;Key OutputMov R0,#0 ;Key X Code ReadKeyLp: Mov Dptr,#KeyOutPortMov A,R1Movx @Dptr,AMov B,#0 ;Y CodeJnb P1.0,ReadKeyOkMov B,#6 ;Y CodeJnb P1.1,ReadKeyOkMov B,#12 ;Y CodeJnb P1.2,ReadKeyOkMov B,#18 ;Y CodeJnb P1.3,ReadKeyOkMov A,R1RL AMov R1,AInc R0Cjne R0,#6,ReadKeyLpSJmp ReadkeyQ1ReadKeyOk: Mov A,BAdd A,R0Mov Dptr,#KeyT abMovc A,@A+DptrSetb KeyGetMov KeyCode,ARet;---------------------------------------------------------------------------- ; KeyCode 0 1 2 3 4 5KeyT ab: DB 10,0,11,12,13,14; KeyCode 6 7 8 9 10 11DB 15,1, 2, 3,16,17; KeyCode 12 13 14 15 16 17DB 18, 4, 5, 6,19,20; KeyCode 18 19 20 21 22 23DB 21, 7, 8, 9,22,23;-------------------------------------------------InitKey: Clr KeyGetClr keypressRet;================================================= InitDis: Mov DisBuf+0,#DarkMov DisBuf+1,#DarkMov DisBuf+2,#DarkMov DisBuf+3,#DarkMov DisBuf+4,#DarkMov DisBuf+5,#DarkMov DisBuf+6,#DarkMov DisBuf+7,#DarkMov DecPoint,#00000000BRet;================================================= Main: Mov Sp,#07HACall InitDisACall InitKeyMainLoop: ACall ReadKeyACall DisplayJBC KeyGet,DoKeyAJmp MainLoopDoKey: acall KeyIntoDisAJmp MainLoop;================================================= ;Left Shift Display BufferKeyIntoDis: mov disbuf+7,aMov DisBuf+7,DisBuf+6Mov DisBuf+6,DisBuf+5Mov DisBuf+5,DisBuf+4Mov DisBuf+4,DisBuf+3Mov DisBuf+3,DisBuf+2Mov DisBuf+2,DisBuf+1Mov DisBuf+1,DisBuf+0Mov DisBuf+0,KeyCodeRet;-------------------------------------------------EndCalculator== =============================================== ; Calculator;================= Const ========================= Dark Equ 10HSysemStack Equ 07H ;08H..1FH;================ Hardware ======================= DisSegPort Equ 0000HDisCSPort Equ 2000HKeyOutPort Equ DisCSPort;0:OutputKeyInPort Equ P1 ;P1.0..P1.3,0:Pressed;================= Bit Units ===================== SysBit0 Equ 20HKeyGet Bit SysBit0.0 ;1:Get a new KeyKeyPress Bit SysBit0.1 ;1:Key PressingNeedCls Bit SysBit0.2 ;1:Need Clr Screen; Bit SysBit0.3 ;1:; Bit SysBit0.4 ;1:; Bit SysBit0.5 ;1:; Bit SysBit0.6 ;1:; Bit SysBit0.7 ;1:;================ Byte Units =====================;00H..07H:Working Reg;08H..1FH:System Stack,24 bytes;20H..21H:System Bit Units;22H..2FH:DisBuf Equ 30H;..35H;Display Buffer;36H,37HDecPoint Data 38H;1:Show Decimal Point KeyCode Data 39HResult Data 3AH;3BH..7FH;================================================= Org 0000HAJmp Main;================================================= Display: Mov R0,#DisBuf ;R0->DisBufMov R1,#00000001B ;R1=Dis_CS, 1:SelectDisLoop: Mov Dptr,#DisCSPort ;BUS MethodMov A,R1Movx @Dptr,AMov B,#11111111B ;No DeciPointAnl A,DecPointJz Display1Mov B,#01111111BDisplay1: Mov A,@R0 ;A=Dis_CharMov Dptr,#DisT ab ;Use T able change to Dis ModeMovC A,@A+DptrMov Dptr,#DisSegPortAnl A,B ;B=11111111B,01111111BMovx @Dptr,AACall Delay ;S tay a whileInc R0 ;NextMov A,R1RL AMov R1,ACjne R0,#DisBuf+6,DisLoopRet;---------------------------------------------------------------------------------- Delay: Mov R6,#8Delay1: Mov R7,#0Djnz R7,$Djnz R6,Delay1Ret;---------------------------------------------------------------------------; Code 00h, 01h, 02h, 03h, 04h, 05h, 06h, 07h ; Char "0", "1", "2", "3", "4", "5", "6", "7" DisT ab: DB 0c0h, 0f9h, 0a4h, 0b0h, 99h, 92h, 82h, 0f8h; Code 08h, 09h, 0ah, 0bh, 0ch , 0dh , 0eh, 0fh; Char "8", "9", "a", "b", "c" , "d" , "e", "f"DB 80h, 90h, 88h, 83h, 0c6h, 0a1h, 86h, 8eh; Code 10h 11h; Char " " "H"DB 0FFH, 89H;-------------------------------------------------AT oDisHex: Mov DisBuf,AAnl DisBuf,#0FHSwap AMov DisBuf+1,AAnl DisBuf+1,#0FHRet;=================================================;Out,A=0:No KeyKeyScan: Mov Dptr,#KeyOutPortClr AMovx @Dptr,AMov A,KeyInPortCpl AAnl A,#00001111BRet;-------------------------------------------------ReadKey: ACall KeyScanJnz ReadKey1ReadkeyQ1: Clr KeyPress ;Key released ReadKeyQ: Ret ;No Key, QuitReadKey1: Jb KeyPress,ReadKeyQSetb KeyPressACall Display ;DelayACall KeyScanJz ReadKeyQ ;No Key, QuitMov R1,#11111110B ;Key OutputMov R0,#0 ;Key X Code ReadKeyLp: Mov Dptr,#KeyOutPortMov A,R1Movx @Dptr,AMov B,#0 ;Y CodeJnb P1.0,ReadKeyOkMov B,#6 ;Y CodeJnb P1.1,ReadKeyOkMov B,#12 ;Y CodeJnb P1.2,ReadKeyOkMov B,#18 ;Y CodeJnb P1.3,ReadKeyOkMov A,R1RL AMov R1,AInc R0Cjne R0,#6,ReadKeyLpSJmp ReadkeyQ1ReadKeyOk: Mov A,BAdd A,R0Mov Dptr,#KeyT abMovc A,@A+DptrSetb KeyGetMov KeyCode,ARet; KeyCode 0 1 2 3 4 5KeyT ab: DB 10,0,11,12,13,14; KeyCode 6 7 8 9 10 11DB 15,1, 2, 3,16,17; KeyCode 12 13 14 15 16 17DB 18, 4, 5, 6,19,20; KeyCode 18 19 20 21 22 23DB 21, 7, 8, 9,22,23;-------------------------------------------------InitKey: Clr KeyGetClr KeyPressRet;================================================= InitDis: Mov R0,#DisBufInitDisLoop: Mov @R0,#DarkInc R0Cjne R0,#DisBuf+6,InitDisLoopMov DecPoint,#00000000BClr NeedClsRet;================================================= InitCalc: Mov Result,#0ResultT oDis: Mov A,ResultMov B,#10Div ABMov DisBuf,BMov DisBuf+1,A;-------------------------------------------------DelT opZero: Mov A,DecPOintJnz DelT opZQMov R0,#DisBuf+4DelT opZLp: Cjne @r0,#Dark,DelT opZDelT opZ1: Dec r0Cjne r0,#DisBuf,DelT opZLpDelT opZQ: RetDelT opZ: Cjne @r0,#0,DelT opZQMov @r0,#DarkSJmp DelT opZ1;-------------------------------------------------DisT oA: Mov R0,#DisBuf+4Mov A,#0 ;A=UDisT oALp0: Cjne @R0,#Dark,DisT oA1Dec R0Cjne R0,#DisBuf,DisT oALp0DisT oA1: Mov B,#10Mul ABAdd A,@R0Dec R0Cjne R0,#DisBuf-1,DisT oA1Ret;================================================= Main: Mov Sp,#SysemStackACall InitDisACall InitKeyACall InitCalc;-------------------------------------------------MainLoop: ACall ReadKeyACall DisplayJBC KeyGet,DoKeyAJmp MainLoopDoKey: Mov A,KeyCodeClr CSubb A,#10Jc KeyIntoDis ;Y es, Left Shift DisBufMov Dptr,#JmpT ab;FuncKey=0,1,...RL AJmp @A+DptrAJmp MainLoopJmpT ab: AJmp NumZero ;NoUseAJmp SetDeCiP ;'.'AJmp DoEqual ;'='AJmp DoPlus ;'+'AJmp MainLoopAJmp MainLoopAJmp MainLoop;=================================================;Left Shift Display BufferKeyIntoDis: Jnb NeedCls,KeyIntoDis1ACall InitDisKeyIntoDis1: ;Mov DisBuf+5,DisBuf+4 ;Number Left ShiftMov A,DisBuf+4Cjne A,#Dark,MainLoopMov DisBuf+4,DisBuf+3Mov DisBuf+3,DisBuf+2Mov DisBuf+2,DisBuf+1Mov DisBuf+1,DisBuf+0Mov DisBuf+0,KeyCodeClr C ;Decimal Point Left ShiftMov A,DecPointRLC AMov DecPoint,AACall DelT opZeroAJmp MainLoop;================================================= NumZero: ACall InitDisACall InitCalcAJmp MainLoop;-------------------------------------------------SetDeCiP: Mov A,DecPointJnz SetDeCiPQMov DecPoint,#1SetDeCiPQ: AJmp MainLoop;-------------------------------------------------DoEqual: AJmp MainLoop;-------------------------------------------------DoPlus: ACall DisT oAAdd A,ResultMov Result,ASetb NeedClsACall ResultT oDisAJmp MainLoop;=================================================End。