.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