lin ser (mi) r.p

INCLUDE IO.H

CR EQU 0DH
LF EQU 0AH

DATA SEGMENT
X       DW 40 DUP (?)
N       DW (?)
KEY     DW (?)
STRING  DB 40 DUP (?)
I       DW 0001H
FLAG    DB 0002H
PROMPT1 DB 'ENTER THE NUMBER OF ELEMENTS'
        DB CR,LF,0
PROMPT2 DB 'ENTER THE ELEMENTS'
        DB CR,LF,0
PROMPT3 DB 'ENTER THE ELEMENT TO BE SEARCHED'
        DB CR,LF,0
PROMPT4 DB CR,LF,'THE ELEMENT HAS BEEN FOUND IN POSITION'
POS     DB 40 DUP (?)
        DB CR,LF,0
PROMPT5 DB 'THE ELEMENT IS NOT FOUND'
        DB CR,LF,0
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE,DS:DATA

START:  MOV AX,SEG DATA
        MOV DS,AX

PROMPT: OUTPUT PROMPT1
        INPUTS STRING,40
        ATOI STRING
        MOV N,AX

        OUTPUT PROMPT2
        MOV BX,N
        MOV SI,OFFSET X
AGAIN:  INPUTS STRING,40
        ATOI STRING
        MOV [SI],AX
        INC SI
        INC SI
        DEC BX
        JNZ AGAIN

        OUTPUT PROMPT3
        INPUTS STRING,40
        ATOI STRING
        MOV KEY,AX

        XOR CX,CX
        XOR SI,SI
        MOV CX,N
        MOV SI,OFFSET X

CHECK:  MOV AX,[SI]
        MOV DX,KEY
        CMP DX,AX
        JZ FND
        JNZ INCRE

FND:    ITOA POS,I
        OUTPUT PROMPT4
        MOV FLAG,0001H
        MOV AX,0001H
        CMP AX,0001H
        JZ INCRE

INCRE:  INC I
        INC SI
        INC SI
        DEC CX
        JNZ CHECK

        CMP FLAG,0002H
        JZ NFD
        JNZ NXT

NFD:    OUTPUT PROMPT5
NXT:

QUIT:   MOV AL,0
        MOV AH,4CH
        INT 21H

CODE ENDS
END START




OUTPUT:
ENTER THE NUMBER OF ELEMENTS
5
ENTER THE ELEMENTS
4
2
1
2
2
ENTER THE ELEMENT TO BE SEARCHED
2

THE ELEMENT HAS BEEN FOUND IN POSITION     2
THE ELEMENT HAS BEEN FOUND IN POSITION     4
THE ELEMENT HAS BEEN FOUND IN POSITION     5