Сдвинуть элементы влево на 2 позиции циклически

title   lab4.1 основная программа
stk segment stack
    dw  256 dup(0)
stk ends
data    segment para public 'data'
n   dw  ?
a   dw  100 dup(0)
in_a    db  13,10,'input a:','$'
out_a   db  13,10,'output a:','$'
outn    db  13,10,'n=','$'
outa    db  'ai=','$'
tab db  9,'$'
nl  db  13,10,'$'
data    ends
code    segment
wrstr   macro   str
    mov dx,offset str
    mov ah,9
    int 21h
    endm
    extrn   rdint:far   
    extrn   wrint:far
    extrn   shiftcr:far
    assume  cs:code,ds:data,ss:stk
invect  proc
    wrstr   outn
    call    rdint
    mov n,ax
    mov cx,n
    cmp cx,0
    jle fin_in
    xor si,si
    wrstr   nl
in_ai:  wrstr   outa
    call    rdint
    mov a[si],ax
    wrstr   nl
    inc si
    inc si
    loop    in_ai
fin_in: ret
invect  endp
outvect proc
    mov cx,n
    cmp cx,0
    jle fin_out
    xor si,si
    wrstr   nl
out_ai: mov ax,a[si]
    call    wrint
    wrstr   tab
    inc si
    inc si
    loop    out_ai
fin_out:ret
outvect endp
start:  mov ax,data
    mov ds,ax
    call    invect
    wrstr   in_a
    call    outvect
    push    n
    lea ax,a
    push    ax
    call    shiftcr
    wrstr   out_a
    call    outvect
    mov ah,4ch
    int 21h
code    ends
    end start

    
title   lab4 процедура вычисления
prcode  segment
    extrn   wrint:far
    public  shiftcr
    assume  cs:prcode
shiftcr proc    far
;---сохранить bp и запомнить в нем sp для доступа к параметрам
    push    bp
    mov bp,sp
;---сохранение регистров в стек
    push    ax
    push    bx
    push    cx
    push    si
    push    di
    pushf
;---распределение регистров
n   equ [bp+8]
aai equ di  ;адрес a[i]
alast   equ si  ;значение посл.элемента на четном месте
;---организация доступа к параметрам
    mov aai,[bp+6]
;---подготовка цикла
;---вычисление числа итераций
    mov cx,n
    dec cx
    cmp cx,0
    jle fin ;защита отn<=0
;---запомнить значение последнего элемента с четным номером 
    mov alast,[aai]
;---цикл вычислений
cikl:   
    mov ax,[aai+2]
    mov [aai],ax
    inc aai
    inc aai
    loop    cikl
;---записать значение последнего элемента в первый
    mov [aai],alast
;---восстановление регистров 
fin:
    popf
    pop di
    pop si
    pop cx
    pop bx
    pop ax
    pop bp
    ret 4   ;возврат в программу
shiftcr endp
prcode  ends
    end

mov cx,число сдвигов
lopbig:
push cx
mov di,offset bufcel
mov si,di
dec si
mov cx,размер массива
loopwer:
mov al,[si]
mov [di],al
dec si
dec di
loop loopwer
mov si,offset bufcel
mov di,offset bufer
mov al,[si]
mov [di],al
pop cx
loop lopbig
bufer db размер массива элементов
bufcel db 0