4. Uso de funciones.

import base64
try:



CR EQU 13
LF EQU 10

DATOS SEGMENT
    MENSAJE DB CR,LF,'HOLA MUNDO  ', CR,LF,'$'

DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP('PILA')
PILA ENDS

CODIGO SEGMENT
    HMF PROC FAR
    ASSUME CS:CODIGO,DS:DATOS,SS:PILA
    MOV AX,DATOS
    MOV DS,AX
    LEA DX,MENSAJE
     
    CALL ESCRIBE
    MOV AX,4C00H
    INT 21H
     
    HMF ENDP
     
    ESCRIBE PROC
            MOV AH,9
            INT 21H
            RET
            ESCRIBE ENDP
             
        CODIGO ENDS
        END HMF