Вывод числа в двоичном виде

CODESG          SEGMENT
                ASSUME CS:CODESG, DS:CODESG, SS:CODESG, ES:CODESG
                ORG     100H    ;Начало в конце PSP
BEGIN:       
        
MAIN            PROC
        ;------------------------------------Тело программы------------------------------
 mov ax, word ptr number ; пишем число в ах
 
 
    mov bx,ax
        mov cx,80
ob1:
        shl bx,1
        jc ob2
        
        mov dl,'0'
        jmp ob3
        
ob2:
        mov dl,'1'
ob3:
        mov ah,2
        int 21h
        loop ob1  
 
 mov ah,01
 int 21h ; выводим на экран
 ret 
 
        ;-----------------------------Определение данных-------------------------------
        number dt 0123fffh
        res dw 0,'$'
    A     DB 10,13,'$'
MAIN            ENDP
CODESG          ENDS
                END BEGIN

.model tiny
.code
.startup
 
    mov cx,5        ; 10 байт / 2 = 5
    mov si,offset number    ; DS:SI = number
next_dw:
    lodsw           ; AX = 2 байта из number
    mov bx,ax       ; BX = AX
    push cx         ; сохраним счетчик количества двойных слов
        mov cx, 16              ; счетчик для 16 бит в двойном слове
        mov ah, 2h              ; функция int21 - печать символа из DL
                                        
lup:    rcl bx, 1               ; крутим влево и смотрим CF
        mov dl, 30h             ; ascii = number + '0'
        adc dl, 0               ; и прибавляем с CF ascii=30h+0 или 30h+1
        int 21h                 ; вызываем int 21h, ah = 2h
        loop lup                ; крутим 16 раз
 
    pop cx          ; восстанавливаем счетчик двойных слов
    loop next_dw        ; повторяем пять раз
 
    int 20h         ; выход
 
number dt 0000123fffffffffffffeh ; число
 
end

; Author: Kornienko Bohdan
; составить программу (для 16-ти разрядного процессора), реализующую 
; следующее заданее:
; программа преобразования двузначного шестнадцатиричного числа 
; в символьном виде в двоичное предстваление 
; ввод: с клавиатуры вводится шестнадцатиричное число из двух цифр 
; используюя функцию DOS - 07h, int 21h
; выход: результат преобразования выводится на экран, используюя
; функцию DOS - int 29h (выводит символ из al)
 
.model      small           ; модель памяти, используемая для ЕХЕ
.stack      100h            ; сегмент стека размером в 256 байт
.data
    intro   db 'Enter number: $' ; сообщение приветствия
    nline   db 10, 13, '$'  ; перевод каретки на новую строку
    num     db 2 dup(?)     ; массив с двумя числами
    crash   db 10, 13, 'Input error $' ; сообщение об ошибке
.code
 
newline macro
    lea dx, nline           ; перводим курсор на новую строку
    mov ah, 9
    int 21h
endm
 
; процедура проверяет, является ли символ в регистре al принадлжеащим
; диапазону букв и цифр, пренадлежащих 16-ричному представлению чисел
; и переводит ASCII код в цифру
check proc
    cmp al,'f'              ; вместо f будет подставлен ASCII код: 066h
    ja  errcatch            ; если код больше 066h то перейти к концу процедуры
    cmp al,'a'              ; вместо a будет подставлен ASCII код: 061h
    jae isschar             ; если код больше либо равно 061h то символ
                            ; выполняем переход на метку перевода кода в число
    
    cmp al, 'F'
    ja  errcatch
    cmp al, 'A'
    jae isuchar
 
    cmp al, '9'
    ja  errcatch
    cmp al, '0'
    jae isnum
    
    isnum:                  ; вычитание числа из кода символа, 
        sub al, 30h         ; для представления числа в программе, как число
        jmp ok
        
    isschar:
        sub al, 57h
        jmp ok
        
    isuchar:
        sub al, 37h
        jmp ok
 
    errcatch:               ; аварийное прекращение программы
        newline             ; новая строка
        lea dx, crash       ; сообщение об ошибке
        mov ah, 9
        int 21h
        jmp exit            ; перейти к метке окончания программы
    ok:                     ; процедура выполнена успешно
    ret
check endp
 
start:  
    mov ax, @data           ; сегментный адрес
    mov ds, ax              ; помещается в DS
    
    mov dx, offset intro    ; попещение приветствия в область данных
    mov ah, 9
    int 21h                 ; функция DOS "вывод строки"
    
    mov ah, 7               ; считать символ в al
    int 21h                 ; выполнение прерывания
    call check              ; проверка правильности ввода
    mov num, al             ; помещаем введенный символ в num
 
    mov ah, 7               ; считать символ в al
    int 21h                 ; выполнение прерывания
    call check              ; проверка правильности ввода
    mov num+2, al           ; помещаем введенный символ в num+2 (второй элемент массива)
    
    newline                 ; перходим на новую строку
    mov bh, num             ; Помещение первого числа в bh
    mov bl, num+2           ; помещение второго числа в bl
    shl bl, 4               ; смещение содержимого bl на 4 бита влево
                            ; это дает возможность разместить число в регистре рядом 
                            ; с первым введнным числом
    shr bx, 4               ; смещение всего содержимого регистр bx
                            ; после чего, число будет полность в регистре bl
 
    mov cx, 8               ; количество итераций сдвига
    mov ah, 2               ; ф-ция вывода симпола на экран
cnv:                        ; метка выполнение первода числа
    shl bl, 1               ; сдвиг содержимого регистра bl влево через флаг переноса
    mov dl,'0'              ; помещение ASCII-кода цифры 0 в регистр dl
    adc dl, 0               ; прибавление к ASCII-коду нуля с учетом флага переноса
    int 21h                 ; выполнение прерывания: вывод символа
    loop cnv                ; продолжение цикла - переход по метке
    
    newline                 ; перводим курсор на новую строку
    
    mov ah, 1               ; Ожидание нажатия клавиши пользователем
    int 21h
 
exit:
    mov ax, 4C00h           ; аналог: mov al, 4ch
    int 21h                 ; функция DOS "завершить программу"
end start