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

esiiraneng

عضو جدید
سلام

اگه کسی زیر برنامه ماشین حساب رو داره لطف کنه بزاره تا همه فیض ببریم

با تشکر
 

nn4e

عضو جدید
بفرمايين

;---------------data segment------------
dat segment
x dw 8888h
y dw 4444h
z dd 0
s1 db 'enter oprand(+,-,*,/):','$'
s2 db 'error input', '$'
s3 db 'prss a key to exit...' , '$'


ends
;-------------stack segment-------------
stk segment
dw 20 dup(?)
ends
;-------------cod segment---------
cod segment
assume cs:cod,ds:dat,ss:stk
main proc far
mov ax,dat
mov ds, ax
;---------progeramm----------

start:
call clrscr
lea dx, s1
call showstr
mov ah,1
int 21h
cmp al,'+'
jz sum
cmp al,'-'
jz subb
cmp al,'*'
jz mult
cmp al,'/'
jz divv
jmp error
sum:mov ax,x
add ax,y
mov z,ax
jmp ext
subb: mov ax,x
sub ax, y
mov z,ax
jmp ext
mult:
mov ax,x
mul y
mov z,ax
mov z+2,dx
jmp ext
divv:
mov ax,x
mov dx,0
div y
mov z,ax
jmp ext
error:
lea dx,s2
call showstr
jmp start
ext:
lea dx,s3
call showstr
mov ah,1
int 21h



;------------return os----------
mov ah,4ch
int 21h
endp
showstr proc near
mov ah,9
int 21h
ret
endp

clrscr proc near
mov cx,0
mov dx,184fh
mov bh,0fh
mov al,0
mov ah,6
int 10h
ret
endp


ends
end main
 

Similar threads

بالا