4 0, 1, 2, 3, 4, 5, 6, 7,
5 8, 9,10,11,12,13,14,15,
6 16,17,18,19,20,21,22,23,
7 24,25,26,27,28,29,30,31
10 32,33,34,35,36,37,38,39,
11 40,41,42,43,44,45,46,47,
12 48,49,50,51,52,53,54,55,
13 56,57,58,59,60,61,62,63
20 local(*a,*b,*t,$n,$m)=@_;
32 local(*a,*t,$n,$m)=@_;
45 local(*a,*t,$n,$m)=@_;
48 for ($i=0; $i<16; $i++)
59 for ($i=0; $i<16; $i++)
69 print "---\n"; &printit(@R);
70 &PERM_OP(*R,*L,*T,4,0x0f0f0f0f);
71 print "---\n"; &printit(@R);
72 &HPERM_OP2(*L,*T,-2,0xcccc0000);
73 &HPERM_OP2(*R,*T,-2,0xcccc0000);
74 print "---\n"; &printit(@R);
75 &PERM_OP(*R,*L,*T,1,0x55555555);
76 print "---\n"; &printit(@R);
77 &PERM_OP(*L,*R,*T,8,0x00ff00ff);
78 print "---\n"; &printit(@R);
79 &PERM_OP(*R,*L,*T,1,0x55555555);
80 print "---\n"; &printit(@R);
84 ==============================
85 63 55 47 39 31 23 15 7
86 62 54 46 38 30 22 14 6
87 61 53 45 37 29 21 13 5
88 60 52 44 36 -- -- -- --
91 58 50 42 34 26 18 10 2
92 59 51 43 35 27 19 11 3
93 28 20 12 4 -- -- -- --
96 @A=&and(*R,0x000000ff);
98 @B=&and(*R,0x0000ff00);
99 @C=&and(*R,0x00ff0000);
101 @D=&and(*L,0xf0000000);
106 @L=&and(*L,0x0fffffff);