Programa 4 (5) Hola Mudo Sin 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

; DECLARACION DEL SEGMENTO DE DATOS

DATOS SEGMENT ; Inicio del segmento de datos
    LINEA1 DB CR,LF,'MANUEL ******* ********',CR,LF,'$'
    LINEA2 DB 'PROGRAMA 2',CR,LF,'$'
    LINEA3 DB 'SISTEMAS COMPUTACIONALES',CR,LF,'$'
    LINEA4 DB 'INSTITUTO TECNOLOGICO DE MATAMOROS',CR,LF,'$'
DATOS ENDS ; Fin del segmento de datos

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

; DECLARACION DEL SEGMENTO DE CODIGO

CODIGO SEGMENT ; Inicio del segmento de c?digo
EJ2 PROC FAR ; Inicio procedimiento p1_hola
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,LINEA1 ; DS:DX = direcci?n de MENSAJE
    CALL ESCRIBE ; Llamar al procedimiento ESCRIBE
    LEA DX,LINEA2 ; DS:DX = direcci?n de LINEA2
    CALL ESCRIBE ; Llamar al procedimiento ESCRIBE
    LEA DX,LINEA3 ; DS:DX = direcci?n de LINEA3
    CALL ESCRIBE ; Llamar al procedimiento ESCRIBE
    LEA DX,LINEA4 ; DS:DX = direcci?n de LINEA4
    CALL ESCRIBE ; Llamar al procedimiento ESCRIBE
    MOV AX,4C00H ; Funci?n para terminar el programa
    INT 21H ; y volver al DOS
EJ2 ENDP ; Fin del procedimiento p1_hola

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

CODIGO ENDS ; Fin del segmento c?digo

END EJ2 ; Empezar a ejecutar el procedimiento p1_hola