.MODEL small
.STACK 100h
.DATA
    inputBuffer DB 30
    inputLength DB ?
    inputData DB 30 DUP('$')
 
    promptMessage DB 'Enter your name: $'
 
.CODE
    PrintAndRead PROC
        MOV AH, 09h
        INT 21h
 
        MOV AH, 0Ah
        INT 21h
        RET
    PrintAndRead ENDP
 
    MAIN PROC
        MOV AX, @DATA
        MOV DS, AX
 
        MOV DX, OFFSET promptMessage
        MOV BX, OFFSET inputBuffer
        CALL PrintAndRead
 
        MOV AH, 4Ch
        INT 21h
    MAIN ENDP
END MAIN