Переставить местами соседние элементы массива с четными и нечетными индексами - Assembler

ORG 100h
JMP start
 
mess0   DB  13,10,'Create array: $'
mess1   DB  13,10,'Result......: $'
buff    DB  80,0,80 DUP(0)
 
start:
   MOV   AH,9              ;
   MOV   DX,mess0          ;
   INT   21h               ;
   MOV   AH,0Ah            ; сохраняем массив
   MOV   DX,buff           ;
   INT   21h               ;
   MOV   AH,9              ;
   MOV   DX,mess1          ;
   INT   21h               ;
 
   XOR   CX,CX             ;
   MOV   CL,[buff+1]       ; длина массива в CX
   SHR   CL,1              ; читать будем словами, поэтому CX/2
   MOV   SI,buff+2         ; адрес массива
print:
   LODSW                   ; берём 2 байта из SI в AX
   PUSH  AX                ; запомним их в стеке
   XCHG  AH,AL             ; переставим байты местами
   INT   29h               ; выводим AH на экран
   POP   AX                ;
   INT   29h               ; теперь АL..
   LOOP  print             ;
 
exit:
   XOR   AX,AX             ; выход!
   INT   16h
   INT   20h