Primes till input asm

INCLUDE "EMU8086.INC"
.MODEL SMALL
.STACK 100H
.DATA
   SUM DW 0
   TEMP DB ?
   INPUT DW ?
   OUTPUT DW ?
   CURRENT DW 1
   DIVISOR DW ?

.CODE

  INDEC PROC              ;FOR DECIMAL INPUT (STRING DIGITS TO DECIMAL)
    MOV AH,1
    INT 21H

    L1:
      SUB AL,48
      XOR AH,AH
      MOV INPUT, AX

      MOV AX,SUM
      MOV BX,10
      MUL BX
      ADD AX,INPUT
      MOV SUM, AX

      MOV AH,1
      INT 21H

      CMP AL, 13
      JNE L1

    RET
  INDEC ENDP

  OUTDEC PROC               ;FOR DECIMAL OUTPUT (FORM INTEGER TO STRING)
    MOV AX,OUTPUT
    MOV BP,SP

    L2:
    XOR AX,AX
    XOR DX,DX

    MOV AX,OUTPUT
    MOV BX,10
    DIV BX
    MOV OUTPUT,AX

    ADD DX,48
    PUSH DX

    CMP OUTPUT,0
    JNE L2

    RE:
    POP DX
    MOV AH,2
    INT 21H

    CMP SP,BP
    JNE RE

    RET
  OUTDEC ENDP

  MAIN PROC
     MOV AX, @DATA
     MOV DS, AX

     CALL INDEC
     PRINTN

     LOOP1:
       INC CURRENT
       MOV AX,CURRENT
       CMP AX,SUM
       JG EXIT
       MOV AX,1
       MOV DIVISOR,AX
       LOOP2:
         INC DIVISOR
         MOV AX,CURRENT
         MOV BX,DIVISOR
         CMP BX,AX
         JE PRINT
         XOR DX,DX
         DIV BX
         CMP DX,0
         JE LOOP1
         JMP LOOP2
       PRINT:
         MOV AX,CURRENT
         MOV OUTPUT,AX
         CALL OUTDEC
         PRINT " "
         JMP LOOP1

     EXIT:
     MOV AH, 4CH
     INT 21H
  ENDP MAIN

END MAIN