ماشین حساب به زبان اسمبلی

سلام بر همگان دوستان
ببخشید من یه ماشین حساب میخواستم به زبان شیرین اسمبلی که عملیات جمع ضرب تفریق و تقسیم رو انجام بده
البته این ماشین حساب باید اعداد رو به صورت باینری دریافت کنه
ممنون میشم اگه سورس برنامه رو برا دانلود بذارید
تنگس:8:

چرا کسی جواب نمیده

خوب !
من یه گشتی در دریای پهناور شبکه جهانی زدم و به یه سورس رسیدم . این سورس منوی ماشین حساب رو هم طراحی کرده . ولی وقتی با emu8086 کامپایل می کنم یه قسمتش ارور میده . فقط رو یه خط ارور داره ! دوستان اگه میتونید تو برطرف کردن این مشکل کمک کنید
مشکل دوم هم اینه که این ماشین حساب اعداد را در مبنای 10 دریافت می کنه . چجوری میشه اعداد را به صورت باینری دریافت کنه و به صورت باینری هم جواب بده
برای دانلود emu8086 هم به این سایت مراجعه کنید [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
من برنامه tasm ندارم و با emu کامپایل کردم اگه از دوستان کسی هست که tasm داشته باشه ممنون میشم برا دانلود بذاره .

کد:

001.model huge002.stack 100h 003.data 004 005numstring db 10 dup(?), "$" 006 007keypressed db ? ; VARIABLE TO STORE ASCII OF PRESSED KEY FROM AL 008 009line0 db " CALCULATOR (press ESC to exit program)" 010line1 db 10,13, " _____________________" 011line2 db 10,13, " | _________________ |" 012line3 db 10,13, " | | 0. | |" 013line4 db 10,13, " | |_________________| |" 014line5 db 10,13, " | ___ ___ ___ ___ |" 015line6 db 10,13, " | | 7 | 8 | 9 | | + | |" 016line7 db 10,13, " | |___|___|___| |___| |" 017line8 db 10,13, " | | 4 | 5 | 6 | | - | |" 018line9 db 10,13, " | |___|___|___| |___| |" 019lineA db 10,13, " | | 1 | 2 | 3 | | x | |" 020lineB db 10,13, " | |___|___|___| |___| |" 021lineC db 10,13, " | | . | 0 | = | | / | |" 022lineD db 10,13, " | |___|___|___| |___| |" 023lineE db 10,13, " |_____________________|", "$" 024 025 026print0 db "0" , "$" 027print1 db "1" , "$" 028print2 db "2" , "$" 029print3 db "3" , "$" 030print4 db "4" , "$" 031print5 db "5" , "$" 032print6 db "6" , "$" 033print7 db "7" , "$" 034print8 db "8" , "$" 035print9 db "9" , "$" 036 037 038.code 039 call initds 040call clrscrandprintcalc 041call getkeyandpaintcalc 042call terminateprog 043 044 045mov ax ,3; 046int 10h 047 048mov ah,9 049lea dx ,print1 050int 21h 051 052;======== If its neccessary please don't touch the code beginning here====== 053;========INITIALIZE=DATA=SEGMENT============ 054proc initds near 055mov ax, @data ; init DS 056mov es, ax 057mov ds, ax 058ret 059initds endp 060;======CLEAR=THE=SCREEN=AND=PRINT=THE=CALCULATOR========= 061proc clrscrandprintcalc near 062mov ax, 3; CLEARSCREEN 063int 10h 064mov ah, 9 065lea dx, line1 ; PRINT CALCULATOR 066int 21h 067ret 068clrscrandprintcalc endp 069;======GET=INPUT=FROM=USER=AND=PAINT=CORRESPONDING=KEY=IN=THE=CALCULATOR======= 070proc getkeyandpaintcalc near 071jumps ; FOR LONG JUMPS 072lea si, numstring; LOAD SI WITH BASE ADDRESS OF NUMSTRING 073mov di, 0 ; COUNTER FOR PRINTING 074mov ah, 2 075mov bh, 0 076mov dx,0316h ; POSITION CURSOR IN THE LCD DISPLAY OF OUR CALCULATOR 077int 10h ; INTERRUPT TO POSITION CURSOR 078ulit: 079mov ah, 7 ;GET KEY 080int 21h 081mov keypressed, al ; MOVE AL TO KEYPRESSED 082cmp ch, 0; DOES CH HAVE A PREVIOUS VALUE? TO CHECK IF CLEARPREVIOUS PROCEDURE IS TO BE CALLED 083je skip 084call clearprevious 085skip: 086cmp keypressed, '0' ; TEST THE INPUTS 087je do0 088cmp keypressed, '1' 089je do1 090cmp keypressed, '2' 091je do2 092cmp keypressed, '3' 093je do3 094cmp keypressed, '4' 095je do4 096cmp keypressed, '5' 097je do5 098cmp keypressed, '6' 099je do6 100cmp keypressed, '7' 101je do7 102cmp keypressed, '8' 103je do8 104cmp keypressed, '9' 105je do9 106cmp keypressed, '.' 107je doperiod 108cmp keypressed, '=' 109je doequals 110cmp keypressed, '+' 111je doplus 112cmp keypressed, '-' 113je dominus 114cmp keypressed, '*' 115je dotimes 116cmp keypressed, '/' 117je dodivide 118cmp keypressed, 1Bh 119je exit 120mov ch, 0 121jmp ulit 122 123do0: ;POSITION THE X AND Y OF THE BLOCKS FOR EACH KEY 124mov cx,0D0Ch 125mov dx,0D0Eh 126jmp do 127do2: 128mov cx,0B0Ch 129mov dx,0B0Eh 130jmp do 131do5: 132mov cx,090Ch 133mov dx,090Eh 134jmp do 135do8: 136mov cx,070Ch 137mov dx,070Eh 138jmp do 139do7: 140mov cx,0708h 141mov dx,070Ah 142jmp do 143do4: 144mov cx,0908h 145mov dx,090Ah 146jmp do 147do1: 148mov cx,0B08h 149mov dx,0B0Ah 150jmp do 151doperiod: 152mov cx,0D08h 153mov dx,0D0Ah 154jmp do 155do9: 156mov cx,0710h 157mov dx,0712h 158jmp do 159do6: 160mov cx,0910h 161mov dx,0912h 162jmp do 163do3: 164mov cx,0B10h 165mov dx,0B12h 166jmp do 167doequals: 168mov cx,0D10h 169mov dx,0D12h 170jmp do 171doplus: 172mov cx,0716h 173mov dx,0718h 174jmp do 175dominus: 176mov cx,0916h 177mov dx,0918h 178jmp do 179dotimes: 180mov cx,0B16h 181mov dx,0B18h 182jmp do 183dodivide: 184mov cx,0D16h 185mov dx,0D18h 186do: 187mov ax, 0600h ; CALL FUNCTION 188mov bh, 70h ; TO PAINT (WITH WHITE) 189int 10h ; THE KEY 190 191mov al, keypressed 192mov numstring[si], al 193inc si 194inc di 195;call printnums 196jmp ulit 197exit: 198ret 199getkeyandpaintcalc endp 200 201 202;=============================== 203proc printnums near 204push cx 205push bx 206mov cx, di 207here: 208mov bx, 0 209mov ah,2 210mov dl, numstring[bx] 211int 21h 212loopne here 213pop bx 214pop cx 215ret 216printnums endp 217 218;===CLEARS=THE=PREVIOUS=PAINTED=KEY=AND=REDRAWS=THE=LINE=IN=THE=BOTTOM=OF=THE=KEY===== 219proc clearprevious near 220mov ax, 0600h 221mov bh, 07h ; PAINT WITH BLACK 222int 10h ; FUNCTION TO PAINT. NOTE THAT WE DID NOT CHANGE THE VALUES OF CX AND DX 223mov ah,2 ; POSITION CURSOR, READY TO REDRAW THE LINE 224mov bh, 0 225mov dx, cx 226int 10h ; INTERRUPT TO POSTION CURSOR 227mov dl,'_' 228int 21h ; THREE INT 21H BECAUSE 229int 21h ; THE LOWER LINE CONSISTS 230int 21h ; OF THREE (3) UNDERSCORES 231mov dx,0316h ; POSITION CURSOR IN THE LCD DISPLAY OF OUR CALCULATOR 232sub dx, di 233int 10h ; INTERRUPT TO POSITION CURSOR 234ret 235clearprevious endp 236;====TERMINTATE=THE=PROGRAM====== 237proc terminateprog near 238mov ah, 4ch; 239int 21h 240ret 241endp terminateprog 242;=============================== 243end