Вставка 0 или 1 в любой бит байта со сдвигом влево

lvvod:
 
lea ecx, text              
push ecx                       
call dword ptr [printf]         
add esp,4                        
 
xor ecx,ecx
lea ebx, chis
push ebx                    
lea ecx, cel
push ecx                         
call dword ptr [scanf]       
add esp,8                      
cmp eax ,1                      
jne l20                      
cmp chis,255                   
ja l20                        
 
lea ebx, sm
push ebx                      
lea ecx, cel           
push ecx                      
call dword ptr [scanf]         
add esp,8                      
cmp sm,8
ja l20                         
 
lea ebx, znach
push ebx                              
lea ecx, cel
push ecx                            
call dword ptr [scanf]              
add esp,8                           
cmp znach,1                           
je l210
cmp znach,0                           
je l210
jmp l20                              
 
l210:
mov eax,chis                           
rcl al,1                       
mov ecx,8                             
sub ecx,sm                             
shr al,cl                               
mov edx,chis
mov ebx,ecx             
mov ecx,sm              
shl dl,cl                               
mov ecx,ebx
l1:
rcl dl,1
rcl al,1
loop l1
 
mov ecx,sm
cmp znach,0
je l2
jne l3
l2:
btr al,cl               
jmp l4                 
l3:
bts al,cl              
 
l4:
mov dl,al
xor eax,eax                 
mov al,dl
push eax                    
lea ecx, cel                
push ecx                   
call dword ptr [printf]     
add esp,8                   
jmp l21                    
 
l20:
lea ecx, sory              
push ecx                    
call dword ptr [printf]     
add esp,4                   
xor ecx,ecx
 
l21:
call dword ptr [getch]      
}

mov BL,AL
and BL,11110000b
shr AL,1
bts AL,3;здесь бит устанавливаем
or AL,BL