Перетворення вмісту довільного однобайтового числа

[student-99]

Доброго дня. Погляньте в чому проблема. Ось умова: Виконати перетворення вмісту довільного однобайтового числа, переміщуючи окремі біти згідно з варіантом . Перевірити коректність переміщень у налагоджувачі на різних даних. Варіант: номери бітів числа: 7,6,,5,4,3,2,1,0; біти після переміщень: 2,3,0,1,6,7,4,5

data segment 
a db 00110101b
res db ?
data Ends
code segment
assume cs:code, ds:data
begin:
 
  mov ax,data
  mov ds,ax
  

  mov ax,0
  mov bl,a
  mov cl,5
  and bl,10000000b
  shr bl,cl
  or al,bl

  mov bl,a
  mov cl,3
 and bl,01000000b
 shr bl,cl
  or al,bl

  mov bl,a
  mov cl,5
  and bl,00100000b
 shr bl,cl
  or al,bl

  mov bl,a
  mov cl,3
  and bl,00010000b
 shr bl,cl
  or al,bl

  mov bl,a
  mov cl,3
  and bl,00001000b
 shl bl,cl
  or al,bl

mov bl,a
  mov cl,5
  and bl,00000100b
 shl bl,cl
  or al,bl

mov bl,a
  mov cl,3
  and bl,00000010b
 shl bl,cl
  or al,bl
  
  
  mov bl,a
  mov cl,5
  and bl,00000001b
 shl bl,cl
  or al,bl

 
 mov ax,4c00h
 int 21h 
  
  
 code ends
end begin

[eymar]

Похоже на КПИ...