Assembly Summation of n

.MODEL SMALL
.STACK 100H
.CODE
.DATA

B DB ?
NUM DW 50 DUP(?)


MAIN PROC
    INCLUDE 'EMU8086.INC'
     DEFINE_SCAN_NUM
     DEFINE_PRINT_NUM
     DEFINE_PRINT_NUM_UNS

    MOV AX,@DATA
    MOV DS,AX

    MOV AX,0
    PRINTN 'INPUT Nth NUMBER '
    CALL SCAN_NUM
    MOV DX,1
    MOV DI,0


    INPUT:
        MOV NUM[DI], DI    ;INSERT INTO ARRAY
        INC DI
        ADD BX, DI
        CMP CX, DI
        JNE INPUT



      MOV AX, BX
     CALL PRINT_NUM



    END MAIN