ALP to display quotient and remainder

-
ASSUME CS:CODE,DS:DATA
DATA SEGMENT
STR1 DB 0AH,"ENTER NUMBER:$"
STR2 DB 0AH,"QUOTIENT IS $"
STR3 DB 0AH,"REMAINDER IS $"
DIVIDEND DB ?
DIVISOR DB ?
DATA ENDS
CODE SEGMENT
START:
MOV AX,DATA
MOV DS,AX

LEA DX,STR1
MOV AH,09H
INT 21H
MOV AH,01H
INT 21H
SUB AL,30H
MOV DIVIDEND,AL

LEA DX,STR1
MOV AH,09H
INT 21H
MOV AH,01H
INT 21H
SUB AL,30H
MOV DIVISOR,AL

MOV AX,00H
MOV AL,DIVIDEND
MOV BL,DIVISOR
DIV BL
MOV DIVIDEND,AL ;placing quotient in divident
MOV DIVISOR,AH ;placing remainder in divisor

LEA DX,STR2
MOV AH,09H
INT 21H
MOV AH,00H
MOV AL,DIVIDEND
ADD AL,30H
MOV DX,AX
MOV AH,02H
INT 21H

LEA DX,STR3
MOV AH,09H
INT 21H

MOV AH,00H
MOV AL,DIVISOR
ADD AL,30H
MOV DX,AX
MOV AH,02H
INT 21H

MOV AH,4CH
INT 21H
CODE ENDS
END START

Comments

Post a Comment

Popular posts from this blog

ALP to demonstrate shift operations

-
ASSUME CS:CODE,DS:DATA DATA SEGMENT A Dw 54H DATA ENDS CODE SEGMENT START:  MOV AX,DATA  MOV DS,AX  ;add ax,00h instruction is clear auxiliary flag   add ax,00h  MOV AX,A  SHL AX,1  add ax,00h  MOV AX,A  SAL AX,1  add ax,00h  MOV AX,A  SHR AX,1  add ax,00h  MOV AX,A  SAR AX,1  MOV AH,4CH  INT 21H CODE ENDS END START
Read more

ALP to transfer a block of data from one location to another

-
Image
ASSUME CS:CODE,DS:DATA DATA SEGMENT DATA1 DB 01H,02H,03H,04H DATA2 DB ? DATA ENDS CODE SEGMENT START: MOV AX,DATA MOV DS,AX MOV ES,AX  MOV CX,04H  LEA SI,DATA1  LEA DI,DATA2  L:  MOV AL,[SI]  MOV [DI],AL  INC SI  INC DI  LOOP L ;HERE WE SHOULD CHECK RESULT IN DEBUG MODE OR DISPLAY DATA2 ITEMS MOV AH,4CH  INT 21H CODE ENDS END START OUTPUT:
Read more

Fibonacci series to display first 5 terms

-
assume cs:code,ds:data data segment str1 db "First 5 number's of Fibonacci series are : 1$" data ends code segment start: mov ax,data mov ds,ax mov al,00h mov bl,01h mov ch,00h mov cl,04h LEA DX,STR1 MOV AH,09H INT 21H l: add al,bl;c=a+b mov dl,al ;c add dl,30h mov ah,02h int 21h sub dl,30h mov al,bl;a=b mov bl,dl;b=c loop l mov ah,4ch int 21h code ends end start
Read more