sha/asm/sha512-ia64.pl

152 { .mib;	add	r8=0*$SZ,ctx
159 { .mmi;	$LDW	A_=[r8],4*$SZ
165 { .mmi;	$LDW	E_=[r8]
173 { .mii;	and	r8=7,input
175 	cmp.eq	p9,p0=1,r8	}
176 { .mmi;	cmp.eq	p10,p0=2,r8
177 	cmp.eq	p11,p0=3,r8
178 	cmp.eq	p12,p0=4,r8	}
179 { .mmi;	cmp.eq	p13,p0=5,r8
180 	cmp.eq	p14,p0=6,r8
181 	cmp.eq	p15,p0=7,r8	};;
199 { .mib;	mov	r8=0
205 { .mmi;	add	r8=1*$SZ,input
209 	$LDW	X[14]=[r8],4*$SZ
215 	$LDW	X[10]=[r8],4*$SZ
221 	$LDW	X[ 6]=[r8],4*$SZ
227 	$LDW	X[ 2]=[r8],4*$SZ
231 { .mib;	mov	r8=0
239 	$LDW	X[10]=[r8],4*$SZ
245 	$LDW	X[ 6]=[r8],4*$SZ
251 	$LDW	X[ 2]=[r8],4*$SZ
266 { .mib;	mov	r8=0
271 	$LDW	X[10]=[r8],4*$SZ
277 	$LDW	X[ 6]=[r8],4*$SZ
283 	$LDW	X[ 2]=[r8],4*$SZ
299 { .mib;	mov	r8=0
307 	$LDW	X[ 6]=[r8],4*$SZ
313 	$LDW	X[ 2]=[r8],4*$SZ
330 { .mib;	mov	r8=0
335 	$LDW	X[ 6]=[r8],4*$SZ
341 	$LDW	X[ 2]=[r8],4*$SZ
359 { .mib;	mov	r8=0
367 	$LDW	X[ 2]=[r8],4*$SZ
386 { .mib;	mov	r8=0
391 	$LDW	X[ 2]=[r8],4*$SZ
411 { .mib;	mov	r8=0
434 { .mib;	mov	r8=0
440 		add	A=A,r8			// H+=Sigma(0) from the past
443 		andcm	r8=G,E
448 { .mmi;		xor	T1=T1,r8		// T1=((e & f) ^ (~e & g))
449 		and	r8=B,C		    };;
454 { .mmi;		add	A=A,r8			// H+=Sigma(0) from the past
467 		andcm	r8=G,E
473 		xor	T1=T1,r8		// T1=((e & f) ^ (~e & g))
475 { .mmi;		and	r8=B,C
485 		xor	T2=T2,r8		// T2=((a & b) ^ (a & c) ^ (b & c))
486 		_rotr	r8=$t0,$Sigma0[0]   }	// ROTR(a,28)
490 		xor	r8=r8,r9
492 { .mmi;		xor	r8=r8,r9		// Sigma0(a)
508 		add	A=A,r8			// H+=Sigma0(a) from the past
509 		_rotr	r8=X[15-1],$sigma0[0] }	// ROTR(s0,1)
519 		xor	r9=r8,r9
522 		and	r8=A,C
535 { .mmi;		xor	T2=T2,r8
536 		shrp	r8=E,$t1,32+$Sigma1[1]}	// ROTR(e,18)
545 		xor	T2=T2,r8	    };;
547 		_rotr	r8=$t1,$Sigma1[1]   }	// ROTR(e,18)
552 { .mib;		xor	r9=r9,r8
553 		_rotr	r8=$t1,$Sigma1[2]   }	// ROTR(e,41)
556 { .mmi;		xor	r9=r9,r8		// Sigma1(e)
558 		_rotr	r8=$t0,$Sigma0[0]   };;	// ROTR(a,28)
563 		xor	r8=r8,r9
567 { .mib;		xor	r8=r8,r9		// Sigma0(a)
572 { .mmi;	add	A=A,r8			};;	// H+=Sigma0(a) from the past
586 { .mib;	add	r8=0*$SZ,ctx
590 { .mmi;	$STW	[r8]=A_,4*$SZ
596 { .mmb;	$STW	[r8]=E_