Programa 4 -Conjunto de lineas de pantalla con procedimiento-

CR EQU 13
LF EQU 10

DATOS SEGMENT
              LINEA1 DB CR, LF, 'Armando Hernandez Leal' ,CR, LF, '$'
              LINEA2 DB 'Tecnologico de Matamoros' ,CR, LF, '$'
              LINEA3 DB 'Ing Sistemas compuntacionales' ,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 END P
     
            ESCRIBE PROC
            MOV AH, 9
            INT 21H
            RET
            ESCRIBE END P

CODIGO ENDS
END LN