aes/asm/aes-c64xplus.pl

45 @s=("A8","B8","A9","B9");
124 	MV	A9,$s[0]
125 ||	MV	A8,$s[1]
126 ||	MV	B9,$s[2]
127 ||	MV	B8,$s[3]
129 	MV	A8,$s[0]
130 ||	MV	A9,$s[1]
131 ||	MV	B8,$s[2]
132 ||	MV	B9,$s[3]
134 	XOR	$Te0[0],$s[0],$s[0]
135 ||	XOR	$Te0[1],$s[1],$s[1]
145 	EXTU	$s[1],EXT1,24,$Te1[1]
146 ||	EXTU	$s[0],EXT3,24,$Te3[0]
149 ||	XOR	$s[2],$Te0[2],$s[2]		; modulo-scheduled
150 ||	XOR	$s[3],$Te0[3],$s[3]		; modulo-scheduled
151 ||	EXTU	$s[1],EXT3,24,$Te3[1]
152 ||	EXTU	$s[0],EXT1,24,$Te1[0]
155 ||	EXTU	$s[2],EXT2,24,$Te2[2]
156 ||	EXTU	$s[3],EXT2,24,$Te2[3]
159 ||	EXTU	$s[3],EXT3,24,$Te3[3]
160 ||	EXTU	$s[2],EXT1,24,$Te1[2]
163 ||	EXTU	$s[0],EXT2,24,$Te2[0]
164 ||	EXTU	$s[1],EXT2,24,$Te2[1]
167 ||	EXTU	$s[3],EXT1,24,$Te1[3]
168 ||	EXTU	$s[2],EXT3,24,$Te3[2]
173 ||	EXTU	$s[0],EXT0,24,$Te0[0]
174 ||	EXTU	$s[1],EXT0,24,$Te0[1]
179 ||	EXTU	$s[2],EXT0,24,$Te0[2]
180 ||	EXTU	$s[3],EXT0,24,$Te0[3]
185 ||	XOR	$K[0],$Te3[0],$s[0]
186 ||	XOR	$K[1],$Te1[1],$s[1]
189 ||	XOR	$K[2],$Te1[0],$s[2]
190 ||	XOR	$K[3],$Te3[1],$s[3]
195 ||	XOR	$s[0],$Te2[2],$s[0]
196 ||	XOR	$s[1],$Te2[3],$s[1]
201 ||	XOR	$s[0],$Te1[2],$s[0]
202 ||	XOR	$s[1],$Te3[3],$s[1]
203 	XOR	$s[2],$Te2[0],$s[2]
204 ||	XOR	$s[3],$Te2[1],$s[3]
205 ||	XOR	$s[0],$Te0[0],$s[0]
206 ||	XOR	$s[1],$Te0[1],$s[1]
208 ||	XOR.L	$s[2],$Te3[2],$s[2]
209 ||	XOR.L	$s[3],$Te1[3],$s[3]
213 ||	EXTU	$s[1],EXT1,24,$Te1[1]
214 ||	EXTU	$s[0],EXT3,24,$Te3[0]
217 ||	XOR	$s[2],$Te0[2],$s[2]		; modulo-scheduled
218 ||	XOR	$s[3],$Te0[3],$s[3]		; modulo-scheduled
219 ||	EXTU	$s[0],EXT0,24,$Te0[0]
220 ||	EXTU	$s[1],EXT0,24,$Te0[1]
223 ||	EXTU	$s[3],EXT3,24,$Te3[3]
224 ||	EXTU	$s[2],EXT1,24,$Te1[2]
227 ||	EXTU	$s[2],EXT2,24,$Te2[2]
228 ||	EXTU	$s[3],EXT2,24,$Te2[3]
231 ||	EXTU	$s[1],EXT3,24,$Te3[1]
232 ||	EXTU	$s[0],EXT1,24,$Te1[0]
235 ||	EXTU	$s[3],EXT1,24,$Te1[3]
236 ||	EXTU	$s[2],EXT3,24,$Te3[2]
239 ||	EXTU	$s[2],EXT0,24,$Te0[2]
240 ||	EXTU	$s[3],EXT0,24,$Te0[3]
243 ||	EXTU	$s[0],EXT2,24,$Te2[0]
244 ||	EXTU	$s[1],EXT2,24,$Te2[1]
336 	MV	A9,$s[0]
337 ||	MV	A8,$s[1]
338 ||	MV	B9,$s[2]
339 ||	MV	B8,$s[3]
341 	MV	A8,$s[0]
342 ||	MV	A9,$s[1]
343 ||	MV	B8,$s[2]
344 ||	MV	B9,$s[3]
346 	XOR	$Td0[0],$s[0],$s[0]
347 ||	XOR	$Td0[1],$s[1],$s[1]
357 	EXTU	$s[1],EXT3,24,$Td3[1]
358 ||	EXTU	$s[0],EXT1,24,$Td1[0]
361 ||	XOR	$s[2],$Td0[2],$s[2]		; modulo-scheduled
362 ||	XOR	$s[3],$Td0[3],$s[3]		; modulo-scheduled
363 ||	EXTU	$s[1],EXT1,24,$Td1[1]
364 ||	EXTU	$s[0],EXT3,24,$Td3[0]
367 ||	EXTU	$s[2],EXT2,24,$Td2[2]
368 ||	EXTU	$s[3],EXT2,24,$Td2[3]
371 ||	EXTU	$s[3],EXT1,24,$Td1[3]
372 ||	EXTU	$s[2],EXT3,24,$Td3[2]
375 ||	EXTU	$s[0],EXT2,24,$Td2[0]
376 ||	EXTU	$s[1],EXT2,24,$Td2[1]
379 ||	EXTU	$s[3],EXT3,24,$Td3[3]
380 ||	EXTU	$s[2],EXT1,24,$Td1[2]
385 ||	EXTU	$s[0],EXT0,24,$Td0[0]
386 ||	EXTU	$s[1],EXT0,24,$Td0[1]
391 ||	EXTU	$s[2],EXT0,24,$Td0[2]
392 ||	EXTU	$s[3],EXT0,24,$Td0[3]
397 ||	XOR	$K[0],$Td1[0],$s[0]
398 ||	XOR	$K[1],$Td3[1],$s[1]
401 ||	XOR	$K[2],$Td3[0],$s[2]
402 ||	XOR	$K[3],$Td1[1],$s[3]
407 ||	XOR	$s[0],$Td2[2],$s[0]
408 ||	XOR	$s[1],$Td2[3],$s[1]
413 ||	XOR	$s[0],$Td3[2],$s[0]
414 ||	XOR	$s[1],$Td1[3],$s[1]
415 	XOR	$s[2],$Td2[0],$s[2]
416 ||	XOR	$s[3],$Td2[1],$s[3]
417 ||	XOR	$s[0],$Td0[0],$s[0]
418 ||	XOR	$s[1],$Td0[1],$s[1]
420 ||	XOR.L	$s[2],$Td1[2],$s[2]
421 ||	XOR.L	$s[3],$Td3[3],$s[3]
425 ||	EXTU	$s[1],EXT3,24,$Td3[1]
426 ||	EXTU	$s[0],EXT1,24,$Td1[0]
429 ||	XOR	$s[2],$Td0[2],$s[2]		; modulo-scheduled
430 ||	XOR	$s[3],$Td0[3],$s[3]		; modulo-scheduled
431 ||	EXTU	$s[0],EXT0,24,$Td0[0]
432 ||	EXTU	$s[1],EXT0,24,$Td0[1]
435 ||	EXTU	$s[2],EXT2,24,$Td2[2]
436 ||	EXTU	$s[3],EXT2,24,$Td2[3]
439 ||	EXTU	$s[3],EXT1,24,$Td1[3]
440 ||	EXTU	$s[2],EXT3,24,$Td3[2]
443 ||	EXTU	$s[1],EXT1,24,$Td1[1]
444 ||	EXTU	$s[0],EXT3,24,$Td3[0]
447 ||	EXTU	$s[0],EXT2,24,$Td2[0]
448 ||	EXTU	$s[1],EXT2,24,$Td2[1]
451 ||	EXTU	$s[3],EXT3,24,$Td3[3]
452 ||	EXTU	$s[2],EXT1,24,$Td1[2]
455 ||	EXTU	$s[2],EXT0,24,$Td0[2]
456 ||	EXTU	$s[3],EXT0,24,$Td0[3]
516 my @K=(@K,@s);			# extended key
920 ||	MV	$K[0],$s[0]			; this or DINT
921 ||	MV	$K[1],$s[1]
928 ||	MV	$K[2],$s[2]
929 ||	MV	$K[3],$s[3]
933 	GMPY4	$s[0],B25,$KxE[0]		; ·0x0E
934 ||	GMPY4	$s[1],B25,$KxE[1]
937 	GMPY4	$s[2],B25,$KxE[2]
938 ||	GMPY4	$s[3],B25,$KxE[3]