Помогите, пожалуйста, разработать программу подсчета количества двоичных нулей в двухбайтовой переменной на ассемблере.

Question

.MODEL SMALL

.STACK 100h

.DATA

;dvuhbaitovaya dw 65530

buf1 db 17, 00, 17 dup ('$')

entr db 10,13,'$'

.CODE

START:

xor ax, ax

mov ax, @DATA

mov ds, ax

;mov ah, 0ah

;mov dx, offset buf1

;int 21h

mov ax, 65

mov cx, 16

xor dx,dx

op:

shl ax, 1

jc equals

dec cx

cmp cx,0

je exit

jmp op

equals:

inc dx

dec cx

cmp cx,0

jnc op

exit:

mov ax, 15

sub ax, dx

mov bl,10

div bl

add ah, 30h

add al, 30h

mov dl,al

mov bl,ah

mov ah, 02h

int 21h

mov dl,bl

int 21h

mov ah,4ch

int 21h

end start

end

Вероника Зайнутдинова · Accepted Answer

.model small 
.stack 100h 
 
.data 
Var dw 65530 ; Переменная, в которой требуется посчитать нули 
 
.code 
Start: 
 mov ax, @data 
 mov ds, ax 
 mov cx, 16 
 xor ax, ax 
 mov si, Var 
 not si 
Repeat: 
 rcr si, 1 
 adc ax, 0 
 loop Repeat 
 mov dl, 10 
 div dl 
 or ax, 3030h 
 int 29h 
 xchg al, ah 
 int 29h 
 mov ah, 8 
 int 21h 
 mov ax, 4C00h 
 int 21h 
 end Start