Equation: z=(a+b)*(c+d)
Program:
.model small
.data
eq1 db "equation is:z=(a+b)*(c+d)$"
a1 db 10d,"Enter the value of a:$"
b1 db 10d,"Enter the value of b:$"
c1 db 10d,"Enter the value of c:$"
d1 db 10d,"Enter the value of d:$"
z1 db 10d,"Value of z is:$"
p1 db ?
z db ?
.code
mov ax,@data
mov ds,ax
mov ah,09h
mov dx,offset eq1
int 21h
mov ah,09h
mov dx,offset a1
int 21h
mov ah,01h
int 21h
sub al,30h
mov bl,al
mov ah,09h
mov dx,offset b1
int 21h
mov ah,01h
int 21h
sub al,30h
mov cl,al
CALL addition
mov p1,bl
mov ah,09h
mov dx,offset c1
int 21h
mov ah,01h
int 21h
sub al,30h
mov bl,al
mov ah,09h
mov dx,offset d1
int 21h
mov ah,01h
int 21h
sub al,30h
mov cl,al
CALL addition
mov ah,09h
mov dx,offset z1
int 21h
MUL p1
AAM
mov ch,ah
mov cl,al
mov dl,ch
add dl,48
mov ah,2
int 21h
mov dl,cl
add dl,48
mov ah,2
int 21h
mov ah,4ch
int 21h
addition PROC
ADD bl,cl
mov al,bl
RET
addition ENDP
end
.data
eq1 db "equation is:z=(a+b)*(c+d)$"
a1 db 10d,"Enter the value of a:$"
b1 db 10d,"Enter the value of b:$"
c1 db 10d,"Enter the value of c:$"
d1 db 10d,"Enter the value of d:$"
z1 db 10d,"Value of z is:$"
p1 db ?
z db ?
.code
mov ax,@data
mov ds,ax
mov ah,09h
mov dx,offset eq1
int 21h
mov ah,09h
mov dx,offset a1
int 21h
mov ah,01h
int 21h
sub al,30h
mov bl,al
mov ah,09h
mov dx,offset b1
int 21h
mov ah,01h
int 21h
sub al,30h
mov cl,al
CALL addition
mov p1,bl
mov ah,09h
mov dx,offset c1
int 21h
mov ah,01h
int 21h
sub al,30h
mov bl,al
mov ah,09h
mov dx,offset d1
int 21h
mov ah,01h
int 21h
sub al,30h
mov cl,al
CALL addition
mov ah,09h
mov dx,offset z1
int 21h
MUL p1
AAM
mov ch,ah
mov cl,al
mov dl,ch
add dl,48
mov ah,2
int 21h
mov dl,cl
add dl,48
mov ah,2
int 21h
mov ah,4ch
int 21h
addition PROC
ADD bl,cl
mov al,bl
RET
addition ENDP
end
Output:
Download Tasm or Turbo Assembler here
Comments
Post a Comment