INCLUDE YLIB.H
DATA SEGEMNT
MESS1 DB 0DH，0AH，“Inputaunsigneddecimalintegernumberplease：$”
MESS2 DB 0DH，0AH，“Thenumberinbinaryis：$”
DATA ENDS
CODESEGMENT
ASSUME CS：CODE，DS：DATA
START：
MOV AX，DATA
MOV DS，AX
LEA DX，MESS1
CALL READDEC；输入一个无符号整数
MOV BX，AX；转存入BX
LEA DX，MESS2
MOV AH，09H
INT 21H；输出提示信息
MOV CX，16；循环计数器置初值
AGAIN：
SHL BX，1；向左外移一位，进入CF
MOV DL，30H
ADC DL，0；形成一位二进制数字的ASCII代码
MOV AH，2INT21H；输出一个二进制数字
LOOP AGAIN；循环16次
CALL CRLF
MOV AX，4C00H
INT 21H
CODEENDS
END START

上面程序段执行完成后，（BX）=0C02DH

指令“RCR DL，1”执行之后，（DX）=00DCH

指令“RCL DX，CL”执行之后，（DX）=05CCH

指令“SAL DH，1”执行之后，（DX）=00B9H

指令“ROL DX，CL”执行之后，（DX）=05C8H

指令“ROR DX，CL”执行之后，（DX）=2017H

指令“SHL DL，1”执行之后，（DX）=0172H

指令“SHL DX，CL”执行之后，（DX）=05C8H

指令“SAR DX，CL”执行之后，（DX）=0017H

指令“SHR DX，1”执行之后，（DX）=005CH。