; 定义数据段
　　　　　data 　　segment
　　　　　　　　　 number 　　dw 　　1669H
　　　　　　　　　 one 　　　 db 　　0
　　　　　data 　　ends
　　　; 定义代码段
　　　　　code 　　segment
　　　　　　　　　 assume 　　cs:code, ds:data
　　　　　start:
　　　　　　　　　 mov 　　　 ax,data
　　　　　　　　　 mov 　　　 ds,ax 　　　　; 把数据段段地址送ds
　　　　　　　　　 mov 　　　 ax,number 　　; 把number送ax
　　　　　compa: 　cmp 　　　 ax,0 　　　　 ; (ax)=0？
　　　　　　　　　 jz 　　　　finish 　　　 ; 为零则退出
　　　　　　　　　 shl 　　　 ax,1 　　　　 ; 把ax左移1位
　　　　　　　　　 jnc 　　　 compa 　　　　; cf为0则跳转
　　　　　　　　　 inc 　　　 one 　　　　　; cf为1则one加1
　　　　　　　　　 jmp 　　　 compa 　　　　; 循环
　　　　　finish:　mov 　　　 ax,4c00h
　　　　　　　　　 int 　　　 21h 　　　　　; 返回DOS
　　　　　code 　　ends
　　　　　　　　　 end 　　　 start