4 Uso de constantes para imprimir un mensaje

corrida


codigo

       

import base64
try:


CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
 
DATOS SEGMENT
    TEXTO DB 'EJEMPLO DE USO DE CONSTANTES ', CR,LF,'$'
 
DATOS ENDS
 
PILA SEGMENT STACK
    DB 64 DUP('PILA')
PILA ENDS
 
CODIGO SEGMENT
    ASSUME CS:CODIGO,DS:DATOS,SS:PILA
    INICIO: MOV AX,DATOS
            MOV DS,AX
            MOV DX,OFFSET TEXTO
            MOV AH,IMPRIMIR
            INT DOS
            MOV AX,FIN
            INT DOS
             
        CODIGO ENDS
        END INICIO