Programa No.4 Conjunto de líneas en pantalla con procedimiento

CR EQU 13
LF EQU 10

DATOS SEGMENT
    LINEA1 DB CR,LF,'Humberto Perez Cruz',CR,LF,'$'
    LINEA2 DB 'Tecnologico de Matamoros',CR,LF,'$'
    LINEA3 DB 'ING. SISTEMAS COMPUTACIONALES',CR,LF,'$'
    LINEA4 DB 'Soltero ;-;',CR,LF,'$'
   
DATOS ENDS

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

CODIGO SEGMENT
   
    LN PROC FAR
   
    ASSUME CS:CODIGO,DS:DATOS,ss:PILA
    MOV AX,DATOS
    MOV DS,AX
    LEA DX,LINEA1
    CALL ESCRIBE
    LEA DX,LINEA2
    CALL ESCRIBE
    LEA DX,LINEA3
    CALL ESCRIBE
    LEA DX,LINEA4
    CALL ESCRIBE
    MOv AX,4C00H
    INT 21H
   
    LN ENDP
   
    ESCRIBE PROC
    MOV AH,9
    INT 21h
    RET
    ESCRIBE ENDP
   
   
CODIGO ENDS
END LN