Programa 10: Muestra numero binario (Código Personalizado)

Programa que muestra un numero binario

Codigo principal:

CR EQU 13      ;Declaro retorno de carro
LF EQU 10      ;Declaro salto de linea
IMPRIMIR EQU 9 ;Declaro leer dato
FIN EQU 4C00H  ;Declaro interrupcion exit
DOS EQU 21H    ;Declaro interrupcion 21h
TAB EQU 09H    ;Declaro interrupcion 09h
BELL EQU 07H   ;Declaro interrupcion 07h

DATOS SEGMENT       ;Declaro variables 
    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 "0101010110","$"
DATOS ENDS

PILA SEGMENT STACK    ;Declaro la pila
    DB 64 DUP("0")
PILA ENDS
    
    include "C:\Users\Manuel\Desktop\LibreriaPer2.inc" 
    ;La ruta donde se encuentra el archivo .inc

CODIGO ENDS
END ASCI

Codigo de libreria:

CODIGO SEGMENT
    ASCI PROC NEAR    ;Declaro procedimiento
    ASSUME CS:CODIGO, DS:DATOS, SS:PILA
    MOV AX,DATOS
    MOV DS,AX
    LEA DX,ENCABEZADO  ;Llamo al lector de texto
    CALL ESCRIBE       ;Llamo a la impresion de texto
    
    LEA DX, VALOR_ASCII
    CALL ESCRIBE
    CALL SALIR         ;Llama a la funcion salir
    
    ASCI ENDP          ;Termina procedimiento

ESCRIBE PROC
    MOV AH,9           ;Lee caracter sin imprimir nada en pantalla
    INT 21H
    RET
    ESCRIBE ENDP
    
    SALIR PROC NEAR    ;Procedimiento salir
    MOV AX,FIN
    INT DOS            ;Ejecuto el servicio
    RET

Imagen de resultado: