;Borland C++ ;Aufruf: bcc -O -r -Z -G -S -c schleife.c _Schleife proc near push bp mov bp,sp push si xor si,si jmp short @1@98 @1@50: mov bx,si shl bx,1 mov ax,word ptr DGROUP:_Text[bx] mov bx,si shl bx,1 mov word ptr DGROUP:_Feld1[bx],ax mov bx,si shl bx,1 mov ax,word ptr DGROUP:_Text[bx] mov bx,si shl bx,1 mov word ptr DGROUP:_Feld2[bx],ax inc si @1@98: cmp si,1000 jl short @1@50 pop si pop bp ret _Schleife endp