stack segment stack 'stack'
      dw 32 dup(?)
stack ends

data segment 
     Nbuf db 3,0,3 dup(?)
     OutBuf db 6 dup(?),'$'
data ends

code segment 
begin proc far
      assume ss:stack,cs:code,ds:data
      push ds
      sub ax,ax
      push ax
      mov ax,data
      mov ds,ax

      mov dx,offset Nbuf
      mov ah,10
      int 21H

      mov cl,Nbuf[1]
      mov al,Nbuf[2]
      sub al,30H
      CMP cl,1
      JZ NEXT
      mov dl,10
      mul dl
      mov bl,Nbuf[3]
      sub bl,30H
      add al,bl
NEXT:           
      CALL far ptr MySum
      mov SI,offset Outbuf + 5
      mov dx,0
      mov bx,10
AGAIN:      
      div bx
      add dl,30H
      mov [SI],dl
      mov dx,0
      DEC SI
      CMP ax,0
      JZ MYEND
      JMP AGAIN
MYEND:
      mov dx,SI
      INC dx
      mov ah,9
      int 21H

      ret
begin   endp
code ends

AddCode segment
      assume cs:AddCode
Mysum proc Far
      push bx
      mov bl,al
      mov bh,0      
      mov ah,0
      mul bl
      add ax,bx 
      pop bx
      ret
Mysum endp
AddCode ends
      end begin