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

   P DW ?
   Q DW ?

.CODE
   MAIN PROC
     MOV AX, @DATA
     MOV DS, AX
     XOR AX, AX

     CALL INDEC
     MOV P, AX

     PRINTN
     XOR AX, AX
     CALL INDEC
     MOV BX, AX

     LP1:
     MOV CX, DX
     XOR AX, AX
     XOR DX, DX
     MOV AX,P

     DIV BX
     PUSH DX
     MOV BX, DX


     CMP DX, 0
     JNE LP1


     ;POP CX
     ;POP BX
     MOV AX, CX

     PRINTN
     CALL OUTDEC


     MOV AH, 4CH
     INT 21H
  MAIN ENDP

  INDEC PROC
     MOV AH,1
     INT 21H
     MOV TEMP,AL

    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
      MOV TEMP,AL

      CMP TEMP, 13
      JNE L1

      MOV AX,SUM
      RET
   INDEC ENDP

   OUTDEC PROC
     MOV OUTPUT,AX
     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


END MAIN