programa 10 (15) Valor Area de Datos

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
BELL EQU 07H

DATOS SEGMENT
ENCABEZADO  DB 13,10,13,TAB,TAB,"======================================"
                    DB 13,10,13,TAB,TAB,"       PROGRAMA QUE IMPRIME UN VALOR BINARIO"
                DB 13,10,13,TAB,TAB,"=======================================",13,10,"$"
    VALOR_ASCII DB '21314151', "$"    
DATOS ENDS

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

CODIGO SEGMENT
    EJ9 PROC NEAR
    ASSUME CS:CODIGO,DS:DATOS,SS:PILA
   
   MOV AX,DATOS
   MOV DS,AX
 
   LEA DX, ENCABEZADO
   CALL ESCRIBE
 
   LEA DX, VALOR_ASCII
   CALL ESCRIBE
 
   CALL SALIR
 
   EJ9 ENDP
 
   ESCRIBE PROC NEAR
   MOV AH,9
   INT 21H
   RET
   ESCRIBE ENDP
 
   SALIR PROC NEAR
   MOV AX, FIN
   INT DOS
   RET
   SALIR ENDP
 
CODIGO ENDS
END EJ9