mov bx,0h
mov bl,curlen

mov bx,0h
mov bx,curlen

.model small
.stack
.data

message db "Enter Name: ","$"

inputLabel label byte
maxlen  db 20
curlen  db ?
inputData db  20 dup(?);

newline db 13,10,"$"

array db "1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","g","h","i","j"

.code

main   proc
      
  ;get address of message
   mov ax, @data
   mov ds,ax
   mov dx, offset message
  
  ;print command
   mov ah,09h
   int 21h

   mov dx,offset inputLabel
   mov ah,0ah
   int 21h

   mov dx,offset newline
   mov ah,09h
   int 21h

   mov bx,0h
   mov bh,curlen

   mov dx,offset array[bx-1]
   mov ah,02h
   int 21h

   mov   ah,4ch
   int   21h


main   endp
end main