stack    segment stack   ;堆栈段
         db 256 dup(0)
         top label word
stack    ends


code     segment         ;代码段
         assume cs:code,ss:stack
         
         main proc far
         
         mov ax,stack 
         mov ss,ax
         mov ax,offset top
         mov sp,ax
         
         ;xor al,al
         ;xor bl,bl
         ;xor cl,cl
         ;xor dl,dl
         
         ;mov al,2 
         ;mov bl,4
         ;add al,bl
         mov al,00000110b
         
         mov cl,8
 L:      rol al,1
         mov bl,al
         and bl,00000001b
         add bl,30h
         mov dl,bl
         mov ah,02h    
         int 21h  
        
         loop L
         
         mov ah,4ch
         int 21h
         ret
         main endp
         code ends
         end main
 
al循环左移8次,照理不应该输出8个0