.model small
.stack
.data
   s   db   10 dup('$')
   dem    db   1
   tam   db   ?
.code
   begin:
      mov ax,@data
      mov ds,ax
      
      mov  di,offset s
   lap:
      mov ah,1
      int 21h
      mov tam,al
      sub tam,20h
      mov cl,tam
      mov [di],cl
      inc  di
      inc dem
      cmp dem,3
      jbe  lap
      mov ah,9
      lea  dx,s
      int 21h

      mov ah,4ch
      int 21h
   end begin