8086 solutions

• count and display the words
  
  
• move a line of text
  
  
• multiplication table of five numbers stored in memory
  
  
• read, separate the words and display at center with attributes.
  
  
• Program to get a string input, count no of vowels and display message 'even vowels' on the screen if the count is even otherwise diesplay 'odd vowels'.(2065 Chaitra Regular / back)
  
  
• Program to sort ten 16-bit data stored in a table and display the numbers as decimal numbers in the screen.(2060 jestha/b)
  
  
• To read a string and display separate words of the string at column 5 of each new line of a clear screen with green background and magenta foreground.(internal assement)
  
  
• To read a string and separate the words from the string.Display each word at the center of each line of a clear screen with blue background and cyan foreground.(2062 bhadra)
  
  
• To Find the largest number among 10 numbers stored as ARR.(2060 chaitra)
  
  
• To read a string convert the small case letters to upper case and display the converted string in next line. (2060 bhadra )
  
  
• To generate multiplication table of five numbers stored in memory as array, store the result and display in following format.(2064 shrawan /b)
  
  

5 10 15 20 25 30 35 40 45 50
3 6 9 12 15 18 21 24 27 30
... ... ... ...

• To read a string, count the number of lowercase characters, uppercase characters, digits and other characters present in the string and display in the following format in a clear screen-
  Entered String- We have to pay 13% VAT.
  Uppercase Characters- 4
  Lowercase Characters- 10
  Digits- 2
  Others- 7sd
  
  
  
  • By diadem59
    
  • By tihor
    
  • By Formatted
    

8085 solutions

• add ten 16-bit BCD numbers and store 24-bit result
  
• find the smallest number among ten numbers
  
• Transfer ten data, whose D5 and D0 is 0 and 1 else store 00h
  
• add the sequence 1 2 3 4 ... ... upto 100 steps and display the result in hexadecimal format.
  
• add all the elements of table which are between 50 and 150 only. Display the result as the decimal value.
  

Program to sort ten 16-bit data stored in a table and display the numbers as decimal numbers in the screen.(2060 jestha /b)

Code:


.model small
.stack 100h
.data
    tbl dw 1010,1320,1015,2345,2103,1008,1001,1012,2013,2113
   
.code
main proc far
        mov ax,@data
        mov ds,ax
        mov si,0
        mov cx,09
    up: mov di,si
        add di,2
    re: mov ax,tbl[si]
        cmp ax,tbl[di]
        jl sk
        mov bx,tbl[di]
        mov tbl[di],ax
        mov tbl[si],bx
    sk: add di,2
        cmp di,18
        jl re   
        add si,2
        loop up
   
        mov bx,10
        mov cx,0
        mov si,0
    ag: mov ax,tbl[si]
    dv: mov dx,0
        div bx
        add dx,30h
        push dx
        inc cx
        cmp ax,0
        ja dv
   
        mov ah,02h
    dp: pop dx
        int 21h
        loop dp
        mov dl,' '
        int 21h
        add si,2
        cmp si,20
        jl ag
        mov ax,4c00h
        int 21h
    main endp
end main


Write an assembly language program for 8086 to
read a string and display separate words of the string at column 5 of
each new line of a clear screen with green background and magenta
foreground.

Code:


setc macro row
mov ah,02h
mov dl,05
mov dh,row
mov bh,0
int 10h
endm

.model small
.stack 100h
.data
    max db 99
    usr db ?
    input db 99 dup('$'),'$'
    prompt db 'enter a string','$'
    newline db 13,10,'$'
    row db 0

.code
    main proc far
            mov ax,@data
            mov ds,ax
            mov ah,09h
            lea dx,prompt
            int 21h
            lea dx,newline
            int 21h
            mov ah,0ah
            lea dx,max
            int 21h
            mov ax,0600h
            mov cx,0
            mov dx,184fh
            mov bh,25h
            int 10h
            mov si,0
            mov cl,usr
            mov ch,0
        ab: mov bl,0
        up: cmp input[si],' '
            je sk
            inc bl
            inc si
            loop up
        sk: setc row
            inc row
            mov di,si
            mov bh,0
            sub di,bx
            mov ah,02h
        re: mov dl,input[di]
            int 21h
            inc di
            dec bx
            jnz re
            inc si
            dec cx
            cmp input[si],'$'
            jne ab
            mov ax,4c00h
            int 21h
        main endp
    end main


To read a string and separate the words from the string.Display each word at the center of each line of a clear screen with blue background and cyan foreground.

Code:


setcolumn macro
    mov ah,02h
    mov bh,0
    int 10h
    inc dh
endm

prompt macro message
  lea dx,message
  mov ah,09h
  int 21h
endm

.model small
.stack 64h
.data
    max db 30
    usr db ?
    input db 30 dup('$'),'$'
    msg db 'enter a string','$'
    newline db 13,10,'$'
.code
main proc far
        mov ax,@data
        mov ds,ax
        prompt msg
        prompt newline
        mov ah,0ah
        lea dx,max
        int 21h
        mov ax,0600h
        mov cx,0000h
        mov dx,184fh
        mov bh,13h
        int 10h
        mov si,0
        mov cl,usr
        mov ch,0
        mov dh,12
    ag: mov dl,0
    up: cmp input[si],' '
        je sk
        cmp input[si],'$'
        je sk
        inc dl
        inc si
        loop up
    sk: dec cx
        mov bl,dl
        shr dl,1
        neg dl
        add dl,40
        setcolumn
        mov di,0
        mov di,si
        mov bh,0
        sub di,bx
    dp: mov dl,input[di]
        mov ah,02h
        int 21h
        inc di
        dec bx
        jnz dp
        inc si
        cmp input[si],'$'
        jne ag
        mov ax,4c00h
        int 21h
   
main endp
end main


To Find the largest number among 10 numbers stored as ARR.

Code:


.model small
.stack 100h
.data
    arr db 2h,20,20,10,20,40,255,248,30,50
    temp db 4 dup(?)
.code 
main proc far
    mov ax,@data
    mov ds,ax
    mov cx,09
    mov si,0
    mov al,arr[si]
    inc si
    up:cmp al,arr[si]
    jae skip
    mov al,arr[si]
    skip:inc si
    loop up
    mov di,0
    mov dl,10
    re:mov ah,0
    div dl
    add ah,30h
    mov temp[di],ah
    inc di
    cmp al,0
    ja re
    disp:dec di
    mov dl,temp[di]
    mov ah,02h
    int 21h
    cmp di,0
    ja disp
    mov ax,4c00h
    int 21h
    main endp
end main


To read a string convert the small case letters to upper case and display the converted string in next line.

Code:


.model small
.stack 64h
.data
    max_char db 50
    usr db ?
    input db 50 dup(?)
    newline db 13,10,'$'
    prompt db 'Enter a string','$'
.code
main proc far
    mov ax,@data
    mov ds,ax
    mov ah,09h
    lea dx,prompt
    int 21h
    lea dx,newline
    int 21h
    mov ah,0ah
    lea dx,max_char
    int 21h
    mov cl,usr
    mov ch,0
    mov si,0
    up:cmp input[si],'a'
    jb skip
    cmp input[si],'z'
    ja skip
    xor input[si],20h
    skip:inc si
    loop up
    mov input[si],'$'
    lea dx,newline
    mov ah,09h
    int 21h
    lea dx,input
    int 21h
    mov ax,4c00h
    int 21h
    main endp
end main


To generate multiplication table of five
numbers stored in memory as array, store the result and display in
following format.
5 10 15 20 25 30 35 40 45 50
3 6 9 12 15 18 21 24 27 30
... ... ... ...

Code:


.model small
.stack 100h
.data
    arr db 2,5,8,40,100
    tbl dw 50 dup(?)
    temp db 4 dup(?)
    newline db 13,10,'$'
    multiplier db 1
.code 
main proc far
    mov ax,@data
    mov ds,ax
    mov bl,10
    mov si,0
    mov cx,5
    mov di,si                   
    re:mov ah,0
    mov al,arr[si]
    mul multiplier
    mov tbl[di],ax
    push di
    mov di,0
    mov bh,0
    again:div bl
    add ah,30h
    mov temp[di],ah
    inc di
    inc bh
    cmp al,0
    mov ah,0
    ja again
    dec di
    back:mov dl,temp[di]
    mov ah,02h
    int 21h
    dec di
    dec bh
    jnz back
    mov dl,' '
    int 21h
    pop di
    add di,2
    inc multiplier
    cmp multiplier,10
    jle re 
    mov multiplier,1
    lea dx,newline
    mov ah,09h
    int 21h
    inc si
    loop re
    mov ax,4c00h
    int 21h
    main endp

    end main


Write an assembly language program for 8086 to
read a string, count the number of lowercase characters, uppercase
characters, digits and other characters present in the string and
display in the following format in a clear screen-

Entered String- We have to pay 13% VAT.
Uppercase Characters- 4
Lowercase Characters- 10
Digits- 2
Others- 7

Code:


.MODEL SMALL
.STACK 100H
.DATA
    MAX DB 99
    USR DB ?
    INPUT DB 99 DUP('$'),'$'
    PROMPT1 DB 'ENTER A STRING',13,10,'$'
    PROMPT2 DB 13,10,'ENTERED STRING-','$'
    PROMPT3 DB 13,10,'UPPERCASE CHARACTERS-','$'
    PROMPT4 DB 13,10,'LOWERCASE CHARACTERS-','$'
    PROMPT5 DB 13,10,'DIGITS-','$'
    PROMPT6 DB 13,10,'OTHERS-','$'
    TEMP DB 2 DUP(?)
    UPPER DB 0,0,'$'
    LOWER DB 0,0,'$'
    DIGIT DB 0,0,'$'
    OTHER DB 0,0,'$'
.CODE
    MAIN PROC FAR
        MOV AX,@DATA
        MOV DS,AX
        LEA DX,PROMPT1
        CALL DISPLAY
        LEA DX,MAX
        CALL STRINGINPUT
        CALL COUNT
        LEA SI,UPPER
        CALL CONVERT
        LEA SI,LOWER
        CALL CONVERT
        LEA SI,DIGIT
        CALL CONVERT
        LEA SI,OTHER
        CALL CONVERT
        CALL CLEARSCREEN
        CALL MESSAGE       
        MOV AX,4C00H
        INT 21H
    MAIN ENDP

DISPLAY PROC NEAR
        MOV AH,09H
        INT 21H
        RET
DISPLAY ENDP 

STRINGINPUT PROC NEAR
        MOV AH,0AH
        INT 21H
        RET
STRINGINPUT ENDP 

CLEARSCREEN PROC NEAR
        MOV AX,0602H
        MOV CX,0000H
        MOV DX,184FH
        INT 10H 
        INT 10H 
        RET
CLEARSCREEN ENDP

COUNT PROC NEAR
        MOV CH,0
        MOV CL,USR
        LEA SI,INPUT
        UP:MOV DL,[SI]
          CMP DL,'0'
          JB DOWN1
          CMP DL,'9'
          JA DOWN1
          ADD DIGIT,1
          JMP BELOW
        DOWN1:CMP DL,'A'
            JB DOWN2
            CMP DL,'Z'
            JA DOWN2
            ADD UPPER,1
            JMP BELOW
        DOWN2:CMP DL,'a'
            JB DOWN3
            CMP DL,'z'
            JA DOWN3
            ADD LOWER,1
            JMP BELOW
        DOWN3:ADD OTHER,1
        BELOW:INC SI
            LOOP UP
            RET
COUNT ENDP

MESSAGE PROC NEAR 
        LEA DX,PROMPT2
        CALL DISPLAY 
        LEA DX,INPUT
        CALL DISPLAY
        LEA DX,PROMPT3
        CALL DISPLAY
        LEA DX,UPPER
        CALL DISPLAY 
        LEA DX,PROMPT4
        CALL DISPLAY
        LEA DX,LOWER
        CALL DISPLAY
        LEA DX,PROMPT5
        CALL DISPLAY
        LEA DX,DIGIT
        CALL DISPLAY
        LEA DX,PROMPT6
        CALL DISPLAY
        LEA DX,OTHER
        CALL DISPLAY
        RET
MESSAGE ENDP 

CONVERT PROC NEAR
  MOV DI,0
        MOV BL,0
        MOV AH,00
        MOV AL,[SI]
        MOV CX,10
        AG:MOV AH,0
        DIV CL
        ADD AH,30H
        ADD BL,1 
        MOV TEMP[DI],AH
        INC DI
        CMP AL,0
        JA AG 
        MOV CH,0
        MOV CL,BL
        DEC DI
        RE:MOV AH,TEMP[DI]
        MOV [SI],AH
        DEC DI
        ADD SI,1
        LOOP RE
    RET
        CONVERT ENDP 

END MAIN


Thnx Broda

Program to get a string input, count no of
vowels and display message 'even vowels' on the screen if the count is
even otherwise diesplay 'odd vowels'.(2065 Chaitra Regular / back)

Code:

.model small
.stack 64h
.data
    max db 99
    usr db ?
    input db 99 dup('$'),'$'
    prompt db 'Enter a string',13,10,'$' 
    message1 db 13,10,'Even Vowels','$'
    message2 db 13,10,'Odd Vowels','$'
    vowels db 'AEIOUaeiou','$'
   
.code

    main proc far
       
        mov ax,@data
        mov ds,ax
        mov ah,09h
        lea dx,prompt
        int 21h
       
        mov ah,0ah
        lea dx,max
        int 21h
       
        mov si,0
        mov di,si
        mov ch,0
        mov cl,usr
        mov dl,0          ;counter for vowels
 
    up: mov dh,0ah        ;AEIOUaeiou (1-10)
        mov bh,input[si]
    ck: cmp bh,vowels[di]
        jne sk
        inc dl
        jmp dn
    sk: inc di
        dec dh
        jnz ck
    dn: inc si
        mov di,0
        loop up 
       
        mov al,dl
        mov ah,09h
        lea dx,message1
        shr al,1   
        jnc ev
        lea dx,message2
    ev: int 21h
         
        mov ax,4c00h
        int 21h
  main endp
end main