Биты

[Leshiy1]

Здравствуйте всем.
Задача такая: выделить в 16-битной последовательности четыре группы бит
три группы по 5 бит и одна из 1 бита.
Число у меня такое: 1010101111100000
Надо выделить как: 10101 01111 10000 0

Первая группа 10101
Вторая группа 01111
Третья группа 10000
Четвертая группа: 0

.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 - это точка входа в программу

Помогите переделать программный код