перевод чисел из hex в bin. ASM.

[crashmanx]

Объясните пожалуйста как работает эта программа на ассемблере.
Или предложите какой-нибудь другой вариант программы

.286 
.model small
.stack 100h
.code
start:  mov bx,0Fh 
        mov ah,2
        mov cx,16
a:      mov dl,0
        rcl bx,1      
        adc dl,30h
        int 21h
        loop a
        xor ah,ah
        int 16h
        mov ah,4ch    
        int 21h	 
        end start