以二进制显示输入的数字~~很菜的问题~

[KID_coder]

DATAS SEGMENT
    ;此处输入数据段代码  
    _WEL DB 'input a number:','$'
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX
    ;此处输入代码段代码
    
    MOV DX,OFFSET _WEL
    MOV AH,09H      ;提示输入
    INT 21H
    
    MOV AH,07H       ;输入
    INT 21H
    
    SUB AL,30H
    MOV CX,8         
AGAIN : 
    XOR DL,DL
    SHL AL,1          ;调试了，al左移~但好像cf没有改变
   
    ADC DL,30H        ;dl始终是0
    MOV AH,02H
    INT 21H
    LOOP AGAIN
    
    
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START

不明白~无论输入什么数字，结果都是8个0

[cnzdgs]

调用int 21h会改变AL的值.

PUSH AX
MOV AH,02H
INT 21H
POP AX

[paullbm]

1).在MOV CX,8之前加入
mov bl,al
2).将SHL AL,1 改为
shl bl,1

OK！