用masm611编辑器，编写一个程序，记录某个字存储单元数据中的１的个数，以十进制形式显示结果

用masm611编辑器，编写一个程序，记录某个字存储单元数据中的１的个数，以十进制形式显示结果

datas segment
num dw 1010011000111001B
msg db 'num of 1s:$'
datas ends

codes segment
assume cs:codes,ds:datas
start:
mov ax, datas
mov ds, ax
mov bx, num
xor cx, cx
next:
shl bx, 1
jz ok
jc ones
jmp next
ones:
inc cx
jmp next
ok:
jnc next2
inc cx
next2:
mov ah, 9
lea dx, msg
int 21h
mov ax, cx
call show
mov ax, 4c00h
int 21h

show:
mov cx, 10
cmp ax, 0
jle done
div cl
push ax
xor ah, ah
call show
pop dx
mov dl, dh
or dl, 30h
mov ah, 2
int 21h
done:
ret
codes ends
end start