PROGRAMA NO.10 BINARIO

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,13,"$"
    VALOR_ASCII DB '21314151',"$"
DATOS ENDS

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

CODIGO SEGMENT
    ASCI PROC NEAR
    ASSUME CS:CODIGO,DS:DATOS,SS:PILA
    MOV AX,DATOS
    MOV DS,AX
    LEA DX, ENCABEZADO
    CALL ESCRIBE
    CALL SALIR
   
    ASCI ENDP

    ESCRIBE PROC
    MOV AH,9
    INT 21H
    RET
    ESCRIBE ENDP
   
    SALIR PROC NEAR
    MOV AX,FIN
    INT DOS
    RET
SALIR ENDS
CODIGO ENDS
END ASCI