Monsa

на языке ассемблер, только можно как можно проще а то преподаватель не поверит что это я решил, заранее огромное спасибо

Дан массив из 10 байт. Подсчитать количество байт, в которых сброшены 6 и 4 биты.


Дан массив из 7 байт. Посчитать количество единиц во всех разрядах, крат-ных шести: 6, 12, …, 54.


Дан массив из 9 байт. Рассматривая его, как массив из 72 бит, посчитать количество нулей в окружении единиц. Конец последовательности рассматривать как ноль.


Дан массив из 8 байт, рассматривая его как массив из 64 бит, посчитать количество нулей во всех разрядах, кратных семи: 7, 14, …, 63.



примерно вот по этому листингу:

data segment
NB db 04h, 07h, 14h, 23h, 04h,38h, 3Fh, 2Ah0Dh, 34h
data ends
code segment
assume cs: code. ds:data
START: mov ax, data
mov ds, ax ; Загрузить сегментный адрес данных
lea bx, NB ; bx-текущий адрес массива NB
mov cx, 10 ; cx-счетчик числа интераций
BEG: mov al, [bx] ; считать очередной байт массива
test al, 1b ; установлен ли бит 0?
jz BITOCLR ; нет, бит 0 сброшен
; бит 0 установлен
test al, 0ffh ; четное число единиц?
jp OK ; да, больше ничего делать не надо
or al, 80h ; нечетное дополнить до четного?
jmp short OK
; бит 0 сброшен
BITOCLR: test al, 0ffh ; четное число единиц?
jnp OK ; нет, больше ничего делать не нужно
or al,80h ; нечетное, дополнить до нечетного
OK: mov [bx], al ; записать измененный байт массива
loop BEG
QUIT: mov ax, 4c00h ; Код завершения 0
Int 21h ; Выход в DOS
code ends
end START