Циклический сдвиг массива

sseg segment stack 'stack'use16
     dw 256 dup(?)
sseg ends
 
.386
 
data segment use16
array   db 1,3,4,5,3,4
data ends
 
Cseg    segment use16
        assume  cs:Cseg,ds:data
start:  
    mov ax,data
    mov ds,ax
    mov fs,ax
    
    mov bx,offset array
    mov cx,6        ; длина
 
    call print_mas
    call Sdvig 
    call print_mas
 
    mov    ah,4ch      
    int    21h
    
Sdvig proc
    push ax cx              ; сохранить AX
        
    [COLOR="Red"];shld array,fs:[bx],5 <- в этом месте ошибка Как правильно вызвать эту операцию?[/COLOR]
    
    pop cx  ax          ; восстановить AX
    ret             ; вернуться в вызывающую программу
Sdvig endp
 
print_mas proc ; вывод массива
    push ax             ; сохранить AX
    mov si,0            ;индекс начального элемента в cx
    mov cx,6
go:             ;цикл инициализации
    mov al,array[si]
    add al,30h 
    mov dl,al
    mov ah,2h 
    int 21h 
    
    mov ah,2h 
    mov dl,' '
    int 21h  
    
    inc si      ;продвижение к следующему элементу массива
    loop    go  ;повторить цикл
                    ; помощью функции DOS
    pop ax              ; восстановить AX
    ret      ; вернуться в вызывающую программу
print_mas endp
 
Cseg    ends
end    start

    xor    ebx,ebx
    push   ds
    pup    fs
    mov    ecx,17 ; размер массива AB в байтах
    shr    ecx,5    ; сдвигаем словами на 5 битов
    pushf            ; сохраним флаги
  loop0:
    mov    ax,Word Ptr fs:AB[ebx]
    mov    dx,Word Ptr fs:AB[ebx+2]
    shrd   ax,dx,5
    mov    Word Ptr fs:AB[ebx],ax
    inc    ebx       ; чтобы не испортить флаги
    inc    ebx
    loop   loop0
    popf
    jnc    M
    shr    byte Ptr fs:AB[ebx],5  ; если число байтов нечетное
  M:

   xor    ebx,ebx
    push   ds
    pup    fs
    mov    ecx,17 ; размер массива AB в байтах
    shr    ecx,1    ; сдвигаем словами 
    pushf            ; сохраним флаги
  loop0:
    mov    ax,Word Ptr fs:AB[ebx]
    mov    dx,Word Ptr fs:AB[ebx+2]
    shrd   ax,dx,5  ;на 5 битов
    mov    Word Ptr fs:AB[ebx],ax
    inc    ebx       ; чтобы не испортить флаги
    inc    ebx
    loop   loop0
    popf
    jnc    M
    shr    byte Ptr fs:AB[ebx],5  ; если число байтов нечетное
  M:

        mov ax, word ptr fs:array[bx]
    mov dx, word ptr fs:array[bx+2]
    shrd ax,dx,5
    mov word ptr fs:array[bx],ax