rc4/asm/rc4-x86_64.pl

147 my @XX=("%r10","%rsi");
153 	xor	$XX[0],$XX[0]
157 	mov	-8($dat),$XX[0]#b
163 	inc	$XX[0]#b
164 	sub	$XX[0],$TX[1]
166 	movl	($dat,$XX[0],4),$TX[0]#d
172 	lea	1($XX[0]),$XX[1]
179 	movl	$TY#d,($dat,$XX[0],4)
181 	inc	$XX[0]#b
183 	movl	($dat,$XX[0],4),$TX[0]#d
190 	lea	1($XX[0]),$XX[1]
197 	add	\$8,$XX[1]#b
203 	movl	`4*($i==7?-1:$i)`($dat,$XX[1],4),$TX[1]#d
205 	movl	$TY#d,4*$i($dat,$XX[0],4)
209 push(@TX,shift(@TX)); #push(@XX,shift(@XX));	# "rotate" registers
212 	add	\$8,$XX[0]#b
237 	movl	$TY#d,($dat,$XX[0],4)
239 	inc	$XX[0]#b
241 	movl	($dat,$XX[0],4),$TX[0]#d
253 	lea	($dat,$XX[0],4),$XX[1]
260     $code.="	add	\$16,$XX[0]#b\n"		if ($i==15);
269     $code.="	movl	`4*($j+1)`($XX[1]),$TX[1]#d\n"	if ($i<15);
271     $code.="	movl	$TY#d,4*$j($XX[1])\n";
273     $code.="	lea	($dat,$XX[0],4),$XX[1]\n"	if ($i==15);
278     $code.="	movl	($XX[1]),$TX[1]#d\n"		if ($i==15);
315 	movl	$TY#d,($dat,$XX[0],4)
317 	inc	$XX[0]#b
319 	movl	($dat,$XX[0],4),$TX[0]#d
329 	add	\$1,$XX[0]#b
330 	movzb	($dat,$XX[0]),$TX[0]#d
343 	lea	1($XX[0]),$XX[1]
345 	movzb	$XX[1]#b,$XX[1]#d
346 	movzb	($dat,$XX[1]),$TX[1]#d
348 	cmp	$XX[1],$YY
349 	movb	$TY#b,($dat,$XX[0])
357 push(@TX,shift(@TX)); push(@XX,shift(@XX));	# "rotate" registers
362 	lea	1($XX[0]),$XX[1]
364 	movzb	$XX[1]#b,$XX[1]#d
365 	movzb	($dat,$XX[1]),$TX[1]#d
367 	cmp	$XX[1],$YY
368 	movb	$TY#b,($dat,$XX[0])
376 push(@TX,shift(@TX)); push(@XX,shift(@XX));	# "rotate" registers
398 	movb	$TY#b,($dat,$XX[0])
400 	add	\$1,$XX[0]#b
402 	movzb	$XX[0]#b,$XX[0]#d
404 	movzb	($dat,$XX[0]),$TX[0]#d
415 	sub	\$1,$XX[0]#b
416 	movl	$XX[0]#d,-8($dat)