[COAL] Division using two input numbers

MPASM 24

[COAL] Division using two input numbers Guest on 11th December 2020 12:05:53 PM

.model small
.stack 100h
.data
str1 db 10,13,'Quotient=','$'
str2 db 'Reminder=$'
str3 db 'Enter divident: $'
str4 db 'Enter divisor: $'
divident db ?
divisor db ?
.code
main proc
mov ax,@data
mov ds,ax
;; show prompt
lea dx,str3
mov ah,9
int 21h
;; take first input
mov ah,1
int 21h
sub al,48
mov ah,0
mov bx,ax
call newline
lea dx,str4
mov ah,9
int 21h
;; take second input
mov ah,1
int 21h
sub al,48
mov cl,al
mov ax,bx ;; divident
mov bl,cl ; divisor
div bl
mov ch,ah
mov cl,al
call newline
lea dx,str2
mov ah,9
int 21h
mov dl,ch
add dl,48
mov ah,2
int 21h
lea dx,str1
mov ah,9
int 21h
mov dl,cl
add dl,48
mov ah,2
int 21h
mov ah,4ch
int 21h
main endp
newline proc
mov dl,10
mov ah,2
int 21h
mov dl,13
mov ah,2
int 21h
ret
newline endp
end main

Recent Pastes

Advanced Ethical[...]

Raw Paste

.model small
    .stack 100h
    .data
    str1 db 10,13,'Quotient=','$'
    str2 db 'Reminder=$'  
    str3 db 'Enter divident: $'
    str4 db 'Enter divisor: $'
    divident db ?
    divisor db ?
    .code
main proc
    mov ax,@data
    mov ds,ax
    ;; show prompt
    lea dx,str3
    mov ah,9
    int 21h
    ;; take first input
    mov ah,1
    int 21h
    sub al,48
    mov ah,0
    mov bx,ax

call newline
    lea dx,str4
    mov ah,9
    int 21h
    ;; take second input
    mov ah,1
    int 21h
    sub al,48
    mov cl,al 
    
    
    mov ax,bx ;; divident
    mov bl,cl  ; divisor
    div bl
    mov ch,ah
    mov cl,al
        call newline
    lea dx,str2
    mov ah,9
    int 21h
   
    mov dl,ch
    add dl,48
    mov ah,2
    int 21h
   
    lea dx,str1
    mov ah,9
    int 21h
   
    mov dl,cl
    add dl,48
    mov ah,2
    int 21h
   
    mov ah,4ch
    int 21h
     
    main endp
    
    newline proc    
   
         mov dl,10
     mov ah,2
     int 21h
     mov dl,13
     mov ah,2
     int 21h
     ret
   
    newline endp
 
    
    
    end main