44 @K=("A6","B6","A7","B7");
136 ||	LDW	*$KPA++[2],$K[0]		; 1st round key
137 ||	LDW	*$KPB++[2],$K[1]
142 ||	LDW	*$KPA++[2],$K[2]
143 ||	LDW	*$KPB++[2],$K[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]
191 ||	LDW	*$KPA++[2],$K[0]		; next round key
192 ||	LDW	*$KPB++[2],$K[1]
197 ||	LDW	*$KPA++[2],$K[2]
198 ||	LDW	*$KPB++[2],$K[3]
255 	XOR	$K[0],$Te0[0],$Te0[0]		; s[0]
256 ||	XOR	$K[1],$Te0[1],$Te0[1]		; s[1]
265 	XOR	$K[2],$Te0[2],$Te0[2]		; s[2]
266 ||	XOR	$K[3],$Te0[3],$Te0[3]		; s[3]
281 	XOR	$K[0],$Te1[1],$Te1[1]		; s[0]
282 ||	XOR	$K[1],$Te1[2],$Te1[2]		; s[1]
291 	XOR	$K[2],$Te1[3],$Te1[3]		; s[2]
292 ||	XOR	$K[3],$Te1[0],$Te1[0]		; s[3]
348 ||	LDW	*$KPA++[2],$K[0]		; 1st round key
349 ||	LDW	*$KPB++[2],$K[1]
354 ||	LDW	*$KPA++[2],$K[2]
355 ||	LDW	*$KPB++[2],$K[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]
403 ||	LDW	*$KPA++[2],$K[0]		; next round key
404 ||	LDW	*$KPB++[2],$K[1]
409 ||	LDW	*$KPA++[2],$K[2]
410 ||	LDW	*$KPB++[2],$K[3]
467 	XOR	$K[0],$Td0[0],$Td0[0]		; s[0]
468 ||	XOR	$K[1],$Td0[1],$Td0[1]		; s[1]
477 	XOR	$K[2],$Td0[2],$Td0[2]		; s[2]
478 ||	XOR	$K[3],$Td0[3],$Td0[3]		; s[3]
493 	XOR	$K[0],$Td1[3],$Td1[3]		; s[0]
494 ||	XOR	$K[1],$Td1[0],$Td1[0]		; s[1]
503 	XOR	$K[2],$Td1[1],$Td1[1]		; s[2]
504 ||	XOR	$K[3],$Td1[2],$Td1[2]		; s[3]
516 my @K=(@K,@s);			# extended key
581 	MV	A9,$K[0]
582 ||	MV	A8,$K[1]
584 ||	MV	B8,$K[3]
586 	MV	A8,$K[0]
587 ||	MV	A9,$K[1]
589 ||	MV	B9,$K[3]
601 ||	MV	$Te4[2],$K[2]
602 ||	EXTU	$K[3],EXT1,24,$Te4[0]
604 ||	MV	$K[3],A0
605 ||	EXTU	$K[3],EXT2,24,$Te4[1]
608 ||	EXTU	$K[3],EXT0,24,$Te4[3]
617 	STW	$K[0],*$KPA++[2]
618 ||	STW	$K[1],*$KPB++[2]
619 	STW	$K[2],*$KPA++[2]
620 ||	STW	$K[3],*$KPB++[2]
622 	XOR	A31,$K[0],$K[0]			; ^=rcon[i]
632 	XOR	$Te4[3],$K[0],$Te4[0]		; K[0]
633 	XOR	$Te4[0],$K[1],$K[1]		; K[1]
634 	MV	$Te4[0],$K[0]
635 ||	XOR	$K[1],$K[2],$Te4[2]		; K[2]
636 	XOR	$Te4[2],$K[3],$K[3]		; K[3]
640 	MV	$Te4[2],$K[2]
641 ||	STW	$K[0],*$KPA++[2]
642 ||	STW	$K[1],*$KPB++[2]
643 	STW	$K[2],*$KPA++[2]
644 ||	STW	$K[3],*$KPB++[2]
652 	MV	A9,$K[0]
653 ||	MV	A8,$K[1]
654 ||	MV	B9,$K[2]
655 ||	MV	B8,$K[3]
657 ||	MV	B16,$K[5]
659 	MV	A8,$K[0]
660 ||	MV	A9,$K[1]
661 ||	MV	B8,$K[2]
662 ||	MV	B9,$K[3]
664 ||	MV	B17,$K[5]
674 ||	MV	$Te4[2],$K[4]
675 ||	EXTU	$K[5],EXT1,24,$Te4[0]
677 ||	MV	$K[5],A0
678 ||	EXTU	$K[5],EXT2,24,$Te4[1]
681 ||	EXTU	$K[5],EXT0,24,$Te4[3]
690 	STW	$K[0],*$KPA++[2]
691 ||	STW	$K[1],*$KPB++[2]
692 	STW	$K[2],*$KPA++[2]
693 ||	STW	$K[3],*$KPB++[2]
694 	STW	$K[4],*$KPA++[2]
695 ||	STW	$K[5],*$KPB++[2]
697 	XOR	A31,$K[0],$K[0]			; ^=rcon[i]
708 ||	XOR	$Te4[3],$K[0],$Te4[0]		; K[0]
709 	XOR	$Te4[0],$K[1],$K[1]		; K[1]
710 	MV	$Te4[0],$K[0]
711 ||	XOR	$K[1],$K[2],$Te4[2]		; K[2]
712 	XOR	$Te4[2],$K[3],$K[3]		; K[3]
713 	MV	$Te4[2],$K[2]
714 ||	XOR	$K[3],$K[4],$Te4[2]		; K[4]
715 	XOR	$Te4[2],$K[5],$K[5]		; K[5]
718 	STW	$K[0],*$KPA++[2]
719 ||	STW	$K[1],*$KPB++[2]
720 	STW	$K[2],*$KPA++[2]
721 ||	STW	$K[3],*$KPB++[2]
729 	MV	A9,$K[0]
730 ||	MV	A8,$K[1]
731 ||	MV	B9,$K[2]
732 ||	MV	B8,$K[3]
733 	MV	B17,$K[4]
734 ||	MV	B16,$K[5]
736 ||	MV	B18,$K[7]
738 	MV	A8,$K[0]
739 ||	MV	A9,$K[1]
740 ||	MV	B8,$K[2]
741 ||	MV	B9,$K[3]
742 	MV	B16,$K[4]
743 ||	MV	B17,$K[5]
745 ||	MV	B19,$K[7]
755 ||	MV	$Te4[2],$K[6]
756 ||	EXTU	$K[7],EXT1,24,$Te4[0]
758 ||	MV	$K[7],A0
759 ||	EXTU	$K[7],EXT2,24,$Te4[1]
762 ||	EXTU	$K[7],EXT0,24,$Te4[3]
771 	STW	$K[0],*$KPA++[2]
772 ||	STW	$K[1],*$KPB++[2]
773 	STW	$K[2],*$KPA++[2]
774 ||	STW	$K[3],*$KPB++[2]
775 	STW	$K[4],*$KPA++[2]
776 ||	STW	$K[5],*$KPB++[2]
777 	STW	$K[6],*$KPA++[2]
778 ||	STW	$K[7],*$KPB++[2]
779 ||	XOR	A31,$K[0],$K[0]			; ^=rcon[i]
791 	XOR	$Te4[3],$K[0],$Te4[0]		; K[0]
792 	XOR	$Te4[0],$K[1],$K[1]		; K[1]
793 	MV	$Te4[0],$K[0]
794 ||	XOR	$K[1],$K[2],$Te4[2]		; K[2]
795 	XOR	$Te4[2],$K[3],$K[3]		; K[3]
797 	MV	$Te4[2],$K[2]
798 || [B0]	EXTU	$K[3],EXT0,24,$Te4[0]
801 ||	MV	$K[3],A0
802 ||	EXTU	$K[3],EXT1,24,$Te4[1]
805 ||	EXTU	$K[3],EXT3,24,$Te4[3]
825 	XOR	$Te4[3],$K[4],$Te4[0]		; K[4]
826 	XOR	$Te4[0],$K[5],$K[5]		; K[5]
827 	MV	$Te4[0],$K[4]
828 ||	XOR	$K[5],$K[6],$Te4[2]		; K[6]
829 	XOR	$Te4[2],$K[7],$K[7]		; K[7]
833 	STW	$K[0],*$KPA++[2]
834 ||	STW	$K[1],*$KPB++[2]
835 	STW	$K[2],*$KPA++[2]
836 ||	STW	$K[3],*$KPB++[2]
888 	LDW	*${KPA}[0],$K[0]
889 ||	LDW	*${KPB}[1],$K[1]
891 	LDW	*${KPA}[2],$K[2]
892 ||	LDW	*${KPB}[3],$K[3]
900 	GMPY4	$K[0],A24,$Kx9[0]		; ·0x09
901 ||	GMPY4	$K[1],A24,$Kx9[1]
904 	GMPY4	$K[2],A24,$Kx9[2]
905 ||	GMPY4	$K[3],A24,$Kx9[3]
909 	GMPY4	$K[0],B24,$KxB[0]		; ·0x0B
910 ||	GMPY4	$K[1],B24,$KxB[1]
911 	GMPY4	$K[2],B24,$KxB[2]
912 ||	GMPY4	$K[3],B24,$KxB[3]
916 	GMPY4	$K[0],A25,$KxD[0]		; ·0x0D
917 ||	GMPY4	$K[1],A25,$KxD[1]
920 ||	MV	$K[0],$s[0]			; this or DINT
921 ||	MV	$K[1],$s[1]
922 || [B0]	LDW	*${KPA}[4],$K[0]
923 || [B0]	LDW	*${KPB}[5],$K[1]
924 	GMPY4	$K[2],A25,$KxD[2]
925 ||	GMPY4	$K[3],A25,$KxD[3]
928 ||	MV	$K[2],$s[2]
929 ||	MV	$K[3],$s[3]
930 || [B0]	LDW	*${KPA}[6],$K[2]
931 || [B0]	LDW	*${KPB}[7],$K[3]
953 || [B0]	GMPY4	$K[0],A24,$Kx9[0]		; ·0x09
954 || [B0]	GMPY4	$K[1],A24,$Kx9[1]
958 || [B0]	GMPY4	$K[2],A24,$Kx9[2]
959 || [B0]	GMPY4	$K[3],A24,$Kx9[3]
964 || [B0]	GMPY4	$K[0],B24,$KxB[0]		; ·0x0B
965 || [B0]	GMPY4	$K[1],B24,$KxB[1]
968 || [B0]	GMPY4	$K[2],B24,$KxB[2]
969 || [B0]	GMPY4	$K[3],B24,$KxB[3]

Last Index update Fri Nov 29 22:08:30 UTC 2024

Dedicated to & Maintained by Room-11