Programa Práctica

 CR EQU 13
 LF EQU 10

 DATOS SEGMENT
     LINEA1 DB CR,LF,'Lara Salazar LUis Fernando',CR,LF,'$'
     LINEA2 DB 'Lenguajes de interfaz',CR,LF,'$'
     LINEA3 DB 'Ing. sistemas',CR,LF,'$'
     LINEA4 DB 'ITM',CR,LF,'$'

 DATOS ENDS

 PILA SEGMENT STACK
 DB 64 DUP('PILA')
 PILA ENDS
 CODIGO SEGMENT
 p5_iden2 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
 p5_iden2 ENDP
 ESCRIBE PROC
 MOV AH,9
 INT 21H
 RET
 ESCRIBE ENDP
 CODIGO ENDS
 END p5_iden2