Datenwechsel von Arraya nach Arrayb mit QBX und Turbo C/ASM funktioniert nicht.

[Peter B. (funkheld)]

Hallo, guten Tag.

Ich möchte bitte 50 Daten umsetzen von Arraya nach Arrayb.
In ASM funktioniert es nicht.

QBX-Hauptprogramm:

DECLARE sub testadr CDECL (byval a%, byval b%,byval c%, byval d%)

rem $dynamic 
DIM Arraya%(2000)
DIM Arrayb%(2000)

FOR x% = 0 TO 50
  Arraya%(x%) = x%
NEXT

FOR x% = 0 TO 50
  Arrayb%(x%) = 0
NEXT
Arrayb%(51) = 777

segia%=varseg(arraya%(0))
ofsia%=varptr(arraya%(0))

segib%=varseg(arrayb%(0))
ofsib%=varptr(arrayb%(0))

call testadr(segia%,ofsia%,segib%,ofsib%)

for a%=0 to 51
  print arrayb%(a%)
next

Mit diesem Programm funktioniert es nicht, es werden nur "0" angezeigt. 
Wo liegt bitte der Fehler:

#include <dos.h>

void far testadr (int v_segment,int ofs,int v_segment1, int ofs1)
{
   int* losa;
   int* losb;
  
   losa=(int*)MK_FP( v_segment,ofs);
   losb=(int*)MK_FP( v_segment1,ofs1);
   
   asm Push DS;          
   asm Push SI; 
  
   asm lds sI,losa ; 
   asm les di,losb ;
   asm mov cx,50;  
 
   gehe:
   asm mov  Ax,[SI];
   asm mov  [di],ax;
   asm Add  SI,2; 
   asm Add  di,2; 
   asm loop gehe;
  
   asm Pop  SI;          
   asm Pop  DS;   
}

Danke.