;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
