Programa 3 (4) Hola Mundo Con Procedimiento

CR EQU 13 ; Constante CR (Retorno de carro) En decimal o
LF EQU 10 ; Constante LF (Salto de l?nea) en hex es igual

DATOS SEGMENT ; Inicio del segmento de datos
     MENSAJE1 DB CR,LF,'HOLA MUNDO! (CON PROCEDIMIENTO)',CR,LF ,'$'
DATOS ENDS ; Fin del segmento de datos

PILA SEGMENT STACK ; Inicio del segmento de pila
     DB 64 DUP('PILA') ; Inicializaci?n de la pila
PILA ENDS ; Fin del segmento de pila

CODIGO SEGMENT ; Inicio del segmento de c?digo
    EJ3 PROC FAR ; Inicio procedimiento EJ3
ASSUME CS:CODIGO,DS:DATOS,SS:PILA ; Asignar segmentos

    MOV AX,DATOS ; AX=Direcci?n del segmento de datos
    MOV DS,AX ; DS=AX. Indicar el segmento de datos
    LEA DX,MENSAJE1 ; DS:DX = direcci?n de MENSAJE
    CALL ESCRIBE ; Llamar al procedimiento ESCRIBE
    MOV AX,4C00H ; Funci?n para terminar el programa
    INT 21H ; y volver al DOS
EJ3 ENDP ; Fin del procedimiento EJ3

ESCRIBE PROC
MOV AH,9
INT 21H
RET
ESCRIBE ENDP

CODIGO ENDS ; Fin del segmento c?digo

END EJ3