Lines Matching refs:D
51 my @D = map("%r$_",(8..12));
66 my @D = @D;
85 lg @D[0],$A[0][0]($src)
86 lg @D[1],$A[1][1]($src)
87 lg @D[2],$A[2][2]($src)
88 lg @D[3],$A[3][3]($src)
90 xgr @C[0],@D[0]
94 lgr @D[4],@C[4]
98 xgr @C[1],@D[1]
105 xgr @C[2],@D[2]
112 xgr @C[3],@D[3]
131 (@D[0..4], @C) = (@C[1..4,0], @D);
133 xgr @C[1],@D[1]
134 xgr @C[2],@D[2]
135 xgr @C[3],@D[3]
137 xgr @C[4],@D[4]
139 xgr @C[0],@D[0]
174 xgr @C[0],@D[3]
175 xgr @C[4],@D[2]
177 xgr @C[3],@D[1]
179 xgr @C[1],@D[4]
181 xgr @C[2],@D[0]
215 xgr @C[2],@D[3]
216 xgr @C[3],@D[4]
218 xgr @C[1],@D[2]
220 xgr @C[4],@D[0]
222 xgr @C[0],@D[1]
255 xgr @C[2],@D[1]
256 xgr @C[3],@D[2]
258 xgr @C[1],@D[0]
260 xgr @C[4],@D[3]
262 xgr @C[0],@D[4]
289 xg @D[2],$A[0][2]($src)
290 xg @D[3],$A[1][3]($src)
291 xg @D[1],$A[4][1]($src)
292 xg @D[4],$A[2][4]($src)
294 rllg @D[2],@D[2],$rhotates[0][2]
295 xg @D[0],$A[3][0]($src)
296 rllg @D[3],@D[3],$rhotates[1][3]
298 rllg @D[1],@D[1],$rhotates[4][1]
300 rllg @D[4],@D[4],$rhotates[2][4]
302 @C = @D[2..4,0,1];
313 rllg @D[0],@D[0],$rhotates[3][0]
350 lghi @D[0],-1 # no 'not' instruction :-(
351 lghi @D[1],-1
352 lghi @D[2],-1
353 lghi @D[3],-1
354 lghi @D[4],-1
356 xg @D[0],$A[0][1]($src)
357 xg @D[1],$A[0][2]($src)
358 xg @D[2],$A[1][3]($src)
359 xg @D[3],$A[2][2]($src)
360 xg @D[4],$A[3][2]($src)
362 stmg @D[0],@D[1],$A[0][1]($src)
363 stg @D[2],$A[1][3]($src)
364 stg @D[3],$A[2][2]($src)
365 stg @D[4],$A[3][2]($src)
372 lghi @D[0],-1 # no 'not' instruction :-(
373 lghi @D[1],-1
374 lghi @D[2],-1
375 lghi @D[3],-1
376 lghi @D[4],-1
378 xg @D[0],$A[0][1]($src)
379 xg @D[1],$A[0][2]($src)
380 xg @D[2],$A[1][3]($src)
381 xg @D[3],$A[2][2]($src)
382 xg @D[4],$A[3][2]($src)
384 stmg @D[0],@D[1],$A[0][1]($src)
385 stg @D[2],$A[1][3]($src)
386 stg @D[3],$A[2][2]($src)
387 stg @D[4],$A[3][2]($src)
408 lghi @D[0],-1 # no 'not' instruction :-(
409 lghi @D[1],-1
410 lghi @D[2],-1
411 lghi @D[3],-1
412 lghi @D[4],-1
414 xg @D[0],$A[0][1]($src)
415 xg @D[1],$A[0][2]($src)
416 xg @D[2],$A[1][3]($src)
417 xg @D[3],$A[2][2]($src)
418 xg @D[4],$A[3][2]($src)
420 stmg @D[0],@D[1],$A[0][1]($src)
421 stg @D[2],$A[1][3]($src)
422 stg @D[3],$A[2][2]($src)
423 stg @D[4],$A[3][2]($src)
450 lghi @D[0],-1 # no 'not' instruction :-(
451 lghi @D[1],-1
452 lghi @D[2],-1
453 lghi @D[3],-1
454 lghi @D[4],-1
456 xg @D[0],$A[0][1]($src)
457 xg @D[1],$A[0][2]($src)
458 xg @D[2],$A[1][3]($src)
459 xg @D[3],$A[2][2]($src)
460 xg @D[4],$A[3][2]($src)
462 stmg @D[0],@D[1],$A[0][1]($src)
463 stg @D[2],$A[1][3]($src)
464 stg @D[3],$A[2][2]($src)
465 stg @D[4],$A[3][2]($src)
