80X86 汇编语言程序设计（杨季文）习题答案 习题3-23

dseg segment
vara db 60h
dseg ends

cseg segment
assume cs:cseg, ds:dseg

start: mov ax, dseg
mov ds, ax
mov al, vara
xor dx, dx
mov cx, 8h
next: mov bx, 0h
rol al, 1h
jnc skip
mov bx, 3h
skip: push cx
dec cl
add cl, cl
shl bx, cl
pop cx
or dx, bx
loop next

mov ah, 4ch
int 21h
cseg ends
end start