Programa No.3 Hola mundo funcion

CR EQU 13
LF EQU 10


DATOS SEGMENT
    MENSAJE DB CR,LF,'Hola mundo funcion',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