mi 4 r.p (Working)

INCLUDE IO.H

CR EQU 0DH
LF EQU 0AH

DATA SEGMENT
N       DW (?)
X       DW 40 DUP (?)
I       DW 0001H
TEMP    DW (?)
STRING  DB 40 DUP (?)
PROMPT1 DB 'ENTER THE NUMBER OF ELEMENTS IN THE ARRAY:'
        DB CR,LF,0
PROMPT2 DB 'ENTER THE ELEMENTS:'
        DB CR,LF,0
RES     DB 'THE SORTED ARRAY IS :'
        DB CR,LF,0
ARR     DB ' '
SARR    DB 40 DUP (?)
        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

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

        MOV BX,N
        MOV CX,N
        SUB CX,0001H

OUTER:
        SUB BX,I
        MOV SI,OFFSET X
        MOV DI,SI
        INC DI
        INC DI

INNER:
        MOV AX,[SI]
        MOV DX,[DI]
        CMP AX,DX

        JS SWAP
        JG INCRE

SWAP:   MOV AX,[SI]
        MOV DX,[DI]
        MOV [SI],DX
        MOV [DI],AX


INCRE:
        INC SI
        INC SI
        INC DI
        INC DI
        DEC BX
        JNZ INNER

        MOV BX,N
        INC I
        DEC CX
        JNZ OUTER

        MOV SI,OFFSET X
        MOV CX,N
        OUTPUT RES
AGAIN1: ITOA SARR,[SI]
        OUTPUT ARR
        INC SI
        INC SI
        DEC CX
        JNZ AGAIN1

QUIT:   MOV AL,0
        MOV AH,4CH
        INT 21H
CODE ENDS
END START

output:
ENTER THE NUMBER OF ELEMENTS IN THE ARRAY:
5
ENTER THE ELEMENTS:
13
42
98
2
15
THE SORTED ARRAY IS :
     98     42     15     13      2