Programa #4 "Conjunto de lineas en pantalla con procedimientos".

CR EQU 13 LF EQU 10 DATOS SEGMENT     LINEA1 DB CR,LF,"OZIEL ALEXIS SANCHEZ MARTINEZ",CR,LF,"$"     LINEA2 DB "TECNOLOGICO DE MATAMOROS",CR,LF,"$"     LINEA3 DB "ING. SISTEMAS COMPUTACIONALES",CR,LF,"$"     LINEA4 DB "EN RELACION ",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