Массив из 0 и 1 преобразовать в число в двоичной системе счисления - Assembler

Формулировка задачи:

Дан массив С[16] состоящий из 0 и 1. Составить число следующим образом – i-тый бит равен i-тому элементу массива. Не могу разобраться, как составить такое число. Как реализовать?

Решение задачи: «Массив из 0 и 1 преобразовать в число в двоичной системе счисления»

Листинг программы

; fasm-code
; Собирает BIN из массива
;-------------------------
org   100h
jmp   start
 
array   db  0,1,1,1,0,1,0,0    ; массив (макс.16, если используешь 16-бит регистры)
len     =   $ - array          ; его длина
 
start:  mov   si,array     ; адрес массива
        mov   dx,len       ; длина в DX (счётчик цикла)
        mov   cx,dx        ; он же - смещение бита для SHL
        dec   cx           ;     ..-1 (отсчёт с нуля)
        xor   bx,bx        ; здесь будет результат
 
cycle:  lodsb              ; в AL - очередной байт из массива
        shl   ax,cl        ; сдвигаем его влево(L) на нужную позицию (получили маску в АХ)
        or    bx,ax        ; взводим бит в результате (если он не ноль)
        dec   cl           ; уменьшаем указатель позиции!!!
        dec   dx           ; весь массив прочитали???
        jnz   cycle        ; если нет - продолжить..
 
        xor   ah,ah        ; ждём клаву..
        int   16h          ;
        ret                ; на выход!

Объяснение кода листинга программы

Собирает BIN из массива - код преобразует двоичный массив в число в двоичной системе счисления.
org 100h - начало выполнения кода, выполняет инициализацию сегмента данных.
jmp start - переход к метке start, которая является точкой входа в программу.
array db 0,1,1,1,0,1,0,0 - определение массива, в котором содержится двоичное представление числа. В данном случае массив состоит из 8 элементов, где 0 обозначает единицу, а 1 - ноль.
len = $ - array - вычисление длины массива.
start: mov si,array - в регистр SI записывается адрес начала массива.
mov dx,len - в регистр DX записывается длина массива.
mov cx,dx - в регистр CX записывается длина массива, что также является смещением бита для операции сдвига.
dec cx - уменьшение значения регистра CX на единицу, что позволяет перейти к следующему биту при сдвиге.
xor bx,bx - инициализация регистра BX, который будет использоваться для хранения результата.
cycle: lodsb - загрузка очередного байта из массива в регистр AL.
shl ax,cl - сдвиг содержимого регистра AX влево на значение в регистре CL. Это позволяет получить маску для текущего бита.
or bx,ax - установка бита в регистре BX, если он не равен нулю.
dec cl - уменьшение значения регистра CL на единицу, что позволяет перейти к следующему биту при сдвиге.
dec dx - уменьшение значения регистра DX на единицу, что позволяет проверить, весь ли массив был прочитан.
jnz cycle - если текущий бит не равен нулю, то выполнение цикла продолжается.
xor ah,ah - ожидание нажатия клавиши.
int 16h - вызов прерывания, которое позволяет программе взаимодействовать с клавиатурой.
ret - выход из программы.