Q1: Addition of two numbers
stacksg segment 'stack'
dw 32 dup(0)
stacksg ends
datasg segment 'data'
fno dW 250
sno dW 125
res dW ?
datasg ends
codesg segment 'code'
assumE ss: stacksg, ds: datasg, cs: codesg
MOV AX, OFFSET DATASG
MOV DS, AX
MOV AX, OFFSET FNO
ADD AX, SNO
MOV RES, AX
MOV AX,4C00H
INT 21H
CODESG ENDS
END
Q2:
;PROGRAM TO print welcome messages
data segment
MSG1 db 'WELCOME TO ASSEMBLY LANGUAGE PROGRAMMING',13,10,'$'
MSG2 DB 'AT INSDOC DELHI',13,10,'$'
data ends
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
MOV AX,DATA
MOV DS,AX
LEA DX, MSG1 ;PRINT MESSAGE1
MOV AX,0900H
INT 21H
LEA DX, MSG2 ;PRINT MESSAGE1
MOV AX,0900H
INT 21H
MOV AX,4C00H ;EXIT TO DOS
INT 21H
CODE ENDS
END
Q3: Program to find out whether given number is odd or even
data segment
num dw 24h
lf equ 10
cr equ 13
;crlf db cr,lf,'$'
evenmsg db 'Number is even..',cr,lf,'$'
oddmsg db 'Number is odd..',cr,lf,'$'
data ends
code segment
assume ds:data, cs:code
start: mov ax,data
mov ds,ax
mov ax,num
mov bh,02h
div bh
cmp ah,00h
jne oddnum
mov dx, offset evenmsg
mov ah,09h
int 21h
mov ax,4c00h
int 21h
oddnum:
mov dx, offset oddmsg
mov ah,09h
int 21h
mov ax,4c00h
int 21h
code ends
end start
question
; This program compares two strings and
; print message if two strings are not equal
data segment
password db 'failsafe'
deststr db 'feelsafe'
message db 'strings are equal'
data ends
code segment
assume cs:code,ds:data,es:data
mov ax, data
mov ds,ax
mov es,ax
lea si,password
lea di,deststr
mov cx,08 ;load counter with string lenght
cld ;clear direction flag
repe cmpsb ;compare two strings byte by byte
jne notequal
mov ah,09
mov dx, offset message
int 21h
notequal: mov ax,4c00h
int 21h
code ends
end
Program : This program compares two strings and
; print message if two strings are not equal
data segment
password db 'failsafe'
deststr db 'feelsafe'
message db 'strings are equal'
data ends
code segment
assume cs:code,ds:data,es:data
mov ax, data
mov ds,ax
mov es,ax
lea si,password
lea di,deststr
mov cx,08 ;load counter with string lenght
cld ;clear direction flag
repe cmpsb ;compare two strings byte by byte
jne notequal
mov ah,09
mov dx, offset message
int 21h
notequal:mov ax,4c00h
int 21h
code ends
end
Program: largest of five numbers
data segment
numbers db 30h,35h,32h,31h,33h
largest db 00h,13,10,00h
data ends
code segment
assume ds:data,cs:code
mov ax,data
mov ds,ax
mov cx,05
mov si,offset numbers
lea di,largest
mov al,[si]
mov byte ptr [di],al
c20:
mov al,[si]
cmp al,largest
jg replaceval
inc si
loop c20
jmp printit
replaceval:
mov byte ptr [di],al
inc si
jmp c20
printit:
mov ah,09h
mov dx, offset largest
int 21h
exit_to_dos:
mov ax,4c00h
int 21h
code ends
end
;PROGRAM TO REVERSE THE STRING
data segment
str1 db 'INSDOC DELHI',13,10,'$'
str2 db 12 dup (' '),13,10,'$'
MSG1 DB 'YOU HAVE ENTERED : ','$'
MSG2 DB '...AND ITS REVERSE IS: ','$'
data ends
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
MOV AX,DATA
MOV DS,AX
MAIN PROC
CALL REVERSEDATA
CALL PRINTIT
MOV AX,4C00H
INT 21H
MAIN ENDP
REVERSEDATA PROC
CLD
LEA SI,STR1
LEA DI,STR2+11 ;LOAD ADDRESS OF THE LAST CHARACTER
MOV CX,12
B20:
LODSB ;AL <- FIRST CHARACTR OF THE STRING
MOV [DI],AL ;MOVES FIRST CHARACTER OF STR1
;AS A LAST CHARACTER OF STR2
DEC DI
LOOP B20 ;IF COUNTER IS NOT ZERO THEN LOOP
;ELSE
RET ;RETURN
REVERSEDATA ENDP
PRINTIT PROC
;********** CODE FOR CLEAR WHOLE SCREEN ******
MOV AX,0600H ;SCROLL FULL SCREEN FUNCTION
MOV BH,07 ;BACKGROUND WHITE ON BLACK
MOV CX,0000 ;UPPER LEFT (ROW:00 AND COLUMN:00) CORNER
MOV DX,184FH ;TO LOWER LEFT CORNER (ROW:24, COLUMN:79)
INT 10H ; CALL INTERRUTP OF BIOS
;********** NOW SET CURSOR POSITION **********
MOV AH,02H ; FUNCTION 02 OF BIOS INTERRUPT IS FOR
; SETTING THE CURSOR
MOV BH,00 ;PAGE NO:0 (DEFAULT VALUE)
MOV DX,0000H ;ROW : 00, COLUMN:00
INT 10H ; BIOS INTERRUPT
;*********** HERE LETS PRINT THE MESSAGES******
LEA DX, MSG1 ;PRINT MESSAGE1
MOV AX,0900H
INT 21H
LEA DX, STR1 ;PRINT REVERSE
MOV AX,0900H
INT 21H
LEA DX, MSG2 ;PRINT MESSAGE2
MOV AX,0900H
INT 21H
LEA DX, STR2 ;PRINT REVERSE STRING
MOV AX,0900H
INT 21H
RET
PRINTIT ENDP
CODE ENDS
END
Que: Takes two multi digit number as input from keyboard and add it
STACK SEGMENT
DW 32 DUP(0)
STACK ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
MOV AX,DATA
MOV DS,AX
;;****** INPUT FIRST NUMBER*******
MOV AH,09H
MOV DX,OFFSET PROMPT1
INT 21H
MOV AH,0AH
MOV DX, OFFSET BUFFER
INT 21H
;;***** STORE THE ACCEPTED VALUE TO THE VARIABLE ASC1
LEA SI, BUFFER+2
LEA DI, ASC1
MOV CX,0400H
L1: MOVSB
INC SI
INC DI
LOOP L1
;;****** INPUT SECOND NUMBER*******
MOV AH,09H
MOV DX,OFFSET PROMPT2
INT 21H
MOV AH,0AH
MOV DX, OFFSET BUFFER
INT 21H
;;***** STORE THE ACCEPTED VALUE TO THE VARIABLE ASC2
LEA SI, BUFFER+2
LEA DI, ASC2
MOV CX, 0500H ;;IN SECOND BYTE OF THE BUFFER ACTUAL LENGH
IS STORED
REP MOVSB
;;******** PERFORM ASCII ADDITION******
CLC ;CLEAR CARRY
LEA SI,ASC1+4 ;or MOV SI,OFFSET ASC1+4 SINCE OFFSET
STARTS WITH 0
LEA DI,ASC2+4 ;or MOV DI,OFFSET ASC2+4
LEA BX,ASCSUM+5 ;LOAD ADDRESS OF LAST DIGIT OF ASCSUM IN
BX
MOV CX,05 ; SET COUNTER TO 5 SINCE THERE ARE 5
DIGITS
A20:
MOV AH,00 ; HIGHER BITS ARE LOADED WITH ZEROS AND
MOV AL,[SI] ; LOWER BITS WITH DIGIT OF FIRST NUMBER
ADC AL,[DI] ; ADD ONE DIGIT OF FISRT NUMBER
; WITH ONE DIGIT OF SECOND NUMBER ALONG WITH
CARRY
AAA ;ADJUST ASCII NUMBER ie. SUM
MOV [BX],AL ;NOW STORE THIS DIGIT TO THE LOCATION INDICATED
BY BX
DEC SI ; DECREMENT SI SO THAT NEXT DIGIT ADDITION WILL
BE PERFORMED
DEC DI
DEC BX
LOOP A20 ; PERFORM LOOP 5 TIMES
MOV [BX],AH ;FINALLY STORE LAST CARRY GENERATED, IN THE
RESULT
LEA BX,ASCSUM+5 ;START FORM LAST DIGIT AGAIN
MOV CX,06 ;SINCE THERE ARE TOTLA SIX DIGITS IN THE RESULT
A30: ; THIS WILL INSERT "3" SO AS TO MAKE IT ASCII
OR BYTE PTR[BX],30H
DEC BX
LOOP A30
;********** CODE FOR CLEAR WHOLE SCREEN ******
MOV AX,0600H ;SCROLL FULL SCREEN FUNCTION
MOV BH,07 ;BACKGROUND WHITE ON BLACK
MOV CX,0000 ;UPPER LEFT (ROW:00 AND COLUMN:00) CORNER
MOV DX,184FH ;TO LOWER LEFT CORNER (ROW:24, COLUMN:79)
INT 10H ; CALL INTERRUTP OF BIOS
;********** NOW SET CURSOR POSITION **********
MOV AH,02H ; FUNCTION 02 OF BIOS INTERRUPT IS FOR
; SETTING THE CURSOR
MOV BH,00 ;PAGE NO:0 (DEFAULT VALUE)
MOV DX,0000H ;ROW : 00, COLUMN:00
INT 10H ; BIOS INTERRUPT
MOV AX,0900H
LEA DX,ASCSUM
INT 21H
MOV AX,4C00H
INT 21H
CODE ENDS
DATA SEGMENT
prompt1 db 13,10,'Enter the first Number: ','$'
prompt2 db 13,10,'Enter the second Number: ','$'
ASC1 DB '00000'
ASC2 DB '00000'
ASCSUM DB '0000000',13,10,'$'
buffer db 6
db 00
db 5 dup(0),'$'
DATA ENDS
END
que:;convert ascii to bcd and add
;; program uses procedure
data segment
asc1 db '057836'
asc2 db '069427'
bcd1 db '000'
bcd2 db '000'
bcdsum db '00000000',13,10,'$'
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
MOV AX,DATA
MOV DS,AX
main proc near
LEA SI, ASC1+4 ;initialize for ascii
LEA DI, BCD1+2
CALL ASC2BCD
LEA SI,ASC2+4
LEA DI, BCD2+2
CALL ASC2BCD
CALL ADDBCD
MOV AX,0900H
MOV DX, OFFSET BCDSUM
INT 21H
MOV AX,4C00H
INT 21H
MAIN ENDP
ASC2BCD PROC
MOV CL,04 ;SHIFT FACTOR
MOV DX,3 ;NO OF WORDS TO CONVERT
B20: MOV AX,[SI]
XCHG AH,AL
SHL AL,CL
SHL AX,CL
MOV [DI],AH
DEC SI
DEC DI
DEC DX
JNZ B20
RET
ASC2BCD ENDP
ADDBCD PROC
XOR AH,AH ;CLEAR AH
LEA SI,BCD1+2 ;INITIALIZE
LEA DI,BCD2+2 ; BCD ADDRESSES
LEA BX,BCDSUM+3
MOV CX,03 ;3-BYTE FIELDS
CLC
ADD20:
MOV AL,[SI] ;GET BCD1 (or LOADSB)
ADC AL,[DI] ;ADD BCD2
DAA ;DECIMAL ADJUST
MOV [BX],AL ; STORE IN BCDSUM
DEC SI
DEC DI
DEC BX
LOOP ADD20 ; LOOP 3 TIMES (AS THERE ARE 3 IN CX)
RET
ADDBCD ENDP
CODE ENDS ; CODE SEGMENT ENDS HERE
END ;PROGRAM ENDS
