Калькулятор

[Enver]

Помогите написать самый простой калькулятор. Есть программа, ее нужно дописать.

.model small
.286
.data
a dw ? ; pervoye 4islo
c db ' $'; vyvod rezultata
b dw 10
znak dw ?
d dw ?; vtoroe 4islo
e dw 10
ravno dw ?
.code
start: mov ax,@data
mov ds,ax

; vvod 1 4isla

k5: mov ah,08h
int 21h
k1: cmp al,30h
ja k2
jmp k5
k2: cmp al,39h
ja k5

mov dl,al
mov ah,02h
int 21h

sub dl,30h
mov dh,0
mov a,dx ; save 1 tsifru 1 4isla
;-----------------------------------
mov si,4
k9: cmp si,0
je k6

mov ah,08h
int 21h
cmp al,30h
jae k7 ;
jmp k8 ; jump to znak

k7: cmp al,39h
ja k9

mov dl,al
mov ah,02h
int 21h

sub dl,30h
mov dh,0
mov cx,dx

mov ax,a
mul b

add ax,cx
dec si
jmp k9
;------
k8: cmp al,'+'
je k10
cmp al,'-'
je k11
cmp al, '/'
je k12
cmp al,'*'
jne k9
mov dx,3
mov znak,dx
jmp k20
k10: mov dx,1
mov znak,dx
jmp k20
k11: mov dx,2
mov znak,dx
jmp k20
k12: mov dx,4
mov znak,dx
jmp k20

k6:; vvod znaka
mov ah,08h
int 21h

cmp al,'+'
je k10
cmp al,'-'
je k11
cmp al, '/'
je k12
cmp al,'*'
jne k6
mov dx,3
mov znak,dx


k20: ; vyvod znaka

mov dl,al
mov ah,02h
int 21h


k21: ; vvod 2 4isla

k22: mov ah,08h
int 21h
cmp al,30h
ja k23
jmp k22
k23: cmp al,39h
ja k22

mov dl,al
mov ah,02h
int 21h

sub dl,30h
mov dh,0
mov d,dx ; save 1 tsifru 2 4isla
;-----------------------------------
mov si,4
k27: cmp si,0
je k24

mov ah,08h
int 21h
cmp al,3dh
ja k28 ;
jmp k92 ;jump to ravno
;------
k92: cmp al,'='
mov dx,5
mov ravno,dx
jmp k26

k24:; vvod ravno
mov ah,08h
int 21h

cmp al,'='
jne k24
mov dx,5
mov ravno,dx


k26: ; vyvod ravno

mov dl,al
mov ah,02h
int 21h


mov ah,4ch
int 21h
end start

[Polos]

в инете куча калькуляторов есть с комментами даже.
сегодня вечером скину.

[Enver]

спасибо, буду ждать

[Polos]

Не сегодня. До воскресения потерпите? Или даже до понедельника.

[Enver]

можно до воскресенья, мне срочно надо... к понедельнику.

[Polos]

Спорим я знаю, где ты учишься?))))

[Enver]

и где по твоему я учусь??