3 push(@INC,"perlasm","../../perlasm");
7 &asm_init($ARGV[0],"rc5-586.pl");
10 $RC5_32_OFF=($RC5_MAX_ROUNDS+2)*4;
19 &RC5_32_encrypt("RC5_32_encrypt",1);
20 &RC5_32_encrypt("RC5_32_decrypt",0);
21 &cbc("RC5_32_cbc_encrypt","RC5_32_encrypt","RC5_32_decrypt",0,4,5,3,-1,-1);
28 &function_begin_B($name,"");
35 &mov($tmp4,&wparam(0));
38 &comment("Load the 2 words");
39 &mov($A,&DWP(0,$tmp4,"",0));
40 &mov($B,&DWP(4,$tmp4,"",0));
43 &mov($r, &DWP(0,$S,"",0));
49 &add($A, &DWP(4+0,$S,"",0));
50 &add($B, &DWP(4+4,$S,"",0));
52 for ($i=0; $i<$RC5_MAX_ROUNDS; $i++)
55 &mov($tmp1, &DWP(12+$i*8,$S,"",0));
57 &rotl($A, &LB("ecx"));
61 &mov($tmp1, &DWP(16+$i*8,$S,"",0));
63 &rotl($B, &LB("ecx"));
65 if (($i == 7) || ($i == 11))
68 &je(&label("rc5_exit"));
75 &je(&label("rc5_dec_12"));
77 &je(&label("rc5_dec_8"));
78 for ($i=$RC5_MAX_ROUNDS; $i > 0; $i--)
80 &set_label("rc5_dec_$i") if ($i == 12) || ($i == 8);
81 &mov($tmp1, &DWP($i*8+8,$S,"",0));
84 &rotr($B, &LB("ecx"));
87 &mov($tmp1, &DWP($i*8+4,$S,"",0));
90 &rotr($A, &LB("ecx"));
93 &sub($B, &DWP(4+4,$S,"",0));
94 &sub($A, &DWP(4+0,$S,"",0));
97 &set_label("rc5_exit");
98 &mov(&DWP(0,$tmp4,"",0),$A);
99 &mov(&DWP(4,$tmp4,"",0),$B);
106 &function_end_B($name);