; Programa Ejemplo
Fin_Mensaje EQU '$'
CR          EQU 13
LF          EQU 10
Nueve       EQU 9
;
;Segmento de Pila
;
STACK_SEG SEGMENT STACK
          DW 256 DUP(?)
STACK_TOP EQU THIS WORD
STACK_SEG ENDS
;
;Segmento de Datos
;
DATA_SEG SEGMENT
Mensaje_1 DB CR
          DB 7 DUP(0AH)
          DB 24 DUP(' ')
          DB 35 DUP('')
          DB CR
          DB LF
          DB 24 DUP(' ')
          DB ''
          DB ' '
          DB ''
          DB 29 DUP('')
          DB ''
          DB ' '
          DB ''
          DB CR
          DB LF
          DB 24 DUP(' ')
          DB ''
          DB ' '
          DB ''
          DB ' '
          DB ''
          DB 25 DUP('')
          DB ''
          DB ' '
          DB ''
          DB ' '
          DB ''
          DB CR
          DB LF
          DB 24 DUP(' ')
          DB ''
          DB ' '
          DB ''
          DB ' '
          DB ''
          DB "   U.A.M. AZCAPOTZALCO   "
          DB ''
          DB ' '
          DB ''
          DB ' '
          DB ''
          DB CR
          DB LF
          DB Fin_Mensaje
Mensaje_2 DB 24 DUP(' ')
          DB ''
          DB ' '
          DB ''
          DB ' '
          DB ''
          DB "LUIS MANUEL VEGA CARDENAS"
          DB ''
          DB ' '
          DB ''
          DB ' '
          DB ''
          DB CR
          DB LF
          DB 24 DUP(' ')
          DB ''
          DB ' '
          DB ''
          DB ' '
          DB ''
          DB 25 DUP('')
          DB ''
          DB ' '
          DB ''
          DB ' '
          DB ''
          DB CR
          DB LF
          DB 24 DUP(' ')
          DB ''
          DB ' '
          DB ''
          DB 29 DUP('')
          DB ''
          DB ' '
          DB ''
          DB CR
          DB LF
          DB 24 dup(' ')
          DB 35 DUP('')
          DB Fin_Mensaje

DATA_SEG ENDS
;
;Segmento de Codigo
;
CODE_SEG SEGMENT
ASSUME CS:CODE_SEG
ASSUME DS:DATA_SEG
ASSUME SS:STACK_SEG
   MAIN PROC FAR
   MOV SP,OFFSET STACK_TOP
   MOV AX,DATA_SEG
   MOV DS,AX
   MOV DX,OFFSET Mensaje_1
   CALL DISPLAY
   MOV DX,OFFSET Mensaje_2
   CALL DISPLAY
   MOV AH,4CH
   INT 21H
   MAIN ENDP
        DISPLAY PROC NEAR
                MOV AH,Nueve
                INT 21H
                RET
        DISPLAY ENDP
CODE_SEG ENDS
END MAIN
