Bit16_T

[Leshiy1]

Здравствуйте всем задача такая: В заданной 16-битной двоичной последовательности выделены 4 группы бит 3 группы по 5 бит и одна из одного бита. Как

16 разрядная последоватнльность
xххххххххххххххx
----- ***** ..... ?
1гр. 2гр. 3гр. 4

Переставить 5-битные группы: 3 2 1 4

Вот программа которая выделяет группы как
? ----- ***** »»»»»
4 1гр. 2гр. 3 гр.

х=1 01010 11111 00000 (обрабатываемое число в двоичной системе)

и переставляет её как

х=1 01010 00000 11111
__4 1гр. 3гр. 2гр.

.286
Data    segment
x             dw      0ABE0h ; исх. число
str01       db      16 dup(?),13,10,'$' ;
maska     dw      ?
Data    ends
Stack_ segment stack
	dw 100 dup(?)
Stack_ ends
Code Segment 
       Assume  cs:Code,ds:Data,ss:Stack_
BitCh  proc   near
       pusha
       lea        si,str01
       mov      ax,x
       mov      maska,8000h
       mov      cx,16
cycl:   test     ax,maska
       jz          is0
       mov     Byte Ptr[si],'1'
       jmp      mm
is0:   mov    Byte Ptr[si],'0'
mm:    inc    si
       shr        maska,1
       loop     cyc
       popa
       ret
BitCh  Endp
Write   proc   near
        pusha
        lea       dx,str01   ; адр. матрицы в si
        mov    ah,9h        ; строки матрицы
        int       21h           ; на экран
        popa
        ret
Write   endp
Bit16_z proc   far    ; головная программа    
push    ds                   ; стандартная 
xor      ax,ax                ; инициализация 
push     ax                   ; ассемблерной
mov      ax,data           ; программы
mov      ds,ax      
call       BitCh
call       Write
mov      ax,x       ; x -> ax,dx
mov      dx,ax
and       ax,1Fh     ; выделили 3 гр. -> ax
mov      cl,5
shl        ax,cl         ; преместили ее на место 2 гр. -> ax
shr       dx,cl         ; преместили 2гр. на место 3 гр. -> dx
and      dx,1Fh     ; выделили 2 гр. -> dx
or        ax,dx         ; объединили 3 гр. и 2 гр. вместе -> ax
and    x,0FC00h   ; выделили 1 гр. вместе с 15р.(4гр.)-> x
or        x,ax     ; объед. 4гр., 1 гр., 3 гр. и 2 гр. вместе -> x
call      BitCh
call      Write
ret
Bit16_z endp
Code    ends
end     Bit16_z    ; Bit16_z - это точка входа в программу

Помогите выделить группы как сказано выше и переставить в нужную последовательность байты