chacha-s390.S (13354B)
1/* SPDX-License-Identifier: GPL-2.0 */ 2/* 3 * Original implementation written by Andy Polyakov, @dot-asm. 4 * This is an adaptation of the original code for kernel use. 5 * 6 * Copyright (C) 2006-2019 CRYPTOGAMS by <appro@openssl.org>. All Rights Reserved. 7 */ 8 9#include <linux/linkage.h> 10#include <asm/nospec-insn.h> 11#include <asm/vx-insn.h> 12 13#define SP %r15 14#define FRAME (16 * 8 + 4 * 8) 15 16.data 17.align 32 18 19.Lsigma: 20.long 0x61707865,0x3320646e,0x79622d32,0x6b206574 # endian-neutral 21.long 1,0,0,0 22.long 2,0,0,0 23.long 3,0,0,0 24.long 0x03020100,0x07060504,0x0b0a0908,0x0f0e0d0c # byte swap 25 26.long 0,1,2,3 27.long 0x61707865,0x61707865,0x61707865,0x61707865 # smashed sigma 28.long 0x3320646e,0x3320646e,0x3320646e,0x3320646e 29.long 0x79622d32,0x79622d32,0x79622d32,0x79622d32 30.long 0x6b206574,0x6b206574,0x6b206574,0x6b206574 31 32.previous 33 34 GEN_BR_THUNK %r14 35 36.text 37 38############################################################################# 39# void chacha20_vx_4x(u8 *out, counst u8 *inp, size_t len, 40# counst u32 *key, const u32 *counter) 41 42#define OUT %r2 43#define INP %r3 44#define LEN %r4 45#define KEY %r5 46#define COUNTER %r6 47 48#define BEPERM %v31 49#define CTR %v26 50 51#define K0 %v16 52#define K1 %v17 53#define K2 %v18 54#define K3 %v19 55 56#define XA0 %v0 57#define XA1 %v1 58#define XA2 %v2 59#define XA3 %v3 60 61#define XB0 %v4 62#define XB1 %v5 63#define XB2 %v6 64#define XB3 %v7 65 66#define XC0 %v8 67#define XC1 %v9 68#define XC2 %v10 69#define XC3 %v11 70 71#define XD0 %v12 72#define XD1 %v13 73#define XD2 %v14 74#define XD3 %v15 75 76#define XT0 %v27 77#define XT1 %v28 78#define XT2 %v29 79#define XT3 %v30 80 81ENTRY(chacha20_vx_4x) 82 stmg %r6,%r7,6*8(SP) 83 84 larl %r7,.Lsigma 85 lhi %r0,10 86 lhi %r1,0 87 88 VL K0,0,,%r7 # load sigma 89 VL K1,0,,KEY # load key 90 VL K2,16,,KEY 91 VL K3,0,,COUNTER # load counter 92 93 VL BEPERM,0x40,,%r7 94 VL CTR,0x50,,%r7 95 96 VLM XA0,XA3,0x60,%r7,4 # load [smashed] sigma 97 98 VREPF XB0,K1,0 # smash the key 99 VREPF XB1,K1,1 100 VREPF XB2,K1,2 101 VREPF XB3,K1,3 102 103 VREPF XD0,K3,0 104 VREPF XD1,K3,1 105 VREPF XD2,K3,2 106 VREPF XD3,K3,3 107 VAF XD0,XD0,CTR 108 109 VREPF XC0,K2,0 110 VREPF XC1,K2,1 111 VREPF XC2,K2,2 112 VREPF XC3,K2,3 113 114.Loop_4x: 115 VAF XA0,XA0,XB0 116 VX XD0,XD0,XA0 117 VERLLF XD0,XD0,16 118 119 VAF XA1,XA1,XB1 120 VX XD1,XD1,XA1 121 VERLLF XD1,XD1,16 122 123 VAF XA2,XA2,XB2 124 VX XD2,XD2,XA2 125 VERLLF XD2,XD2,16 126 127 VAF XA3,XA3,XB3 128 VX XD3,XD3,XA3 129 VERLLF XD3,XD3,16 130 131 VAF XC0,XC0,XD0 132 VX XB0,XB0,XC0 133 VERLLF XB0,XB0,12 134 135 VAF XC1,XC1,XD1 136 VX XB1,XB1,XC1 137 VERLLF XB1,XB1,12 138 139 VAF XC2,XC2,XD2 140 VX XB2,XB2,XC2 141 VERLLF XB2,XB2,12 142 143 VAF XC3,XC3,XD3 144 VX XB3,XB3,XC3 145 VERLLF XB3,XB3,12 146 147 VAF XA0,XA0,XB0 148 VX XD0,XD0,XA0 149 VERLLF XD0,XD0,8 150 151 VAF XA1,XA1,XB1 152 VX XD1,XD1,XA1 153 VERLLF XD1,XD1,8 154 155 VAF XA2,XA2,XB2 156 VX XD2,XD2,XA2 157 VERLLF XD2,XD2,8 158 159 VAF XA3,XA3,XB3 160 VX XD3,XD3,XA3 161 VERLLF XD3,XD3,8 162 163 VAF XC0,XC0,XD0 164 VX XB0,XB0,XC0 165 VERLLF XB0,XB0,7 166 167 VAF XC1,XC1,XD1 168 VX XB1,XB1,XC1 169 VERLLF XB1,XB1,7 170 171 VAF XC2,XC2,XD2 172 VX XB2,XB2,XC2 173 VERLLF XB2,XB2,7 174 175 VAF XC3,XC3,XD3 176 VX XB3,XB3,XC3 177 VERLLF XB3,XB3,7 178 179 VAF XA0,XA0,XB1 180 VX XD3,XD3,XA0 181 VERLLF XD3,XD3,16 182 183 VAF XA1,XA1,XB2 184 VX XD0,XD0,XA1 185 VERLLF XD0,XD0,16 186 187 VAF XA2,XA2,XB3 188 VX XD1,XD1,XA2 189 VERLLF XD1,XD1,16 190 191 VAF XA3,XA3,XB0 192 VX XD2,XD2,XA3 193 VERLLF XD2,XD2,16 194 195 VAF XC2,XC2,XD3 196 VX XB1,XB1,XC2 197 VERLLF XB1,XB1,12 198 199 VAF XC3,XC3,XD0 200 VX XB2,XB2,XC3 201 VERLLF XB2,XB2,12 202 203 VAF XC0,XC0,XD1 204 VX XB3,XB3,XC0 205 VERLLF XB3,XB3,12 206 207 VAF XC1,XC1,XD2 208 VX XB0,XB0,XC1 209 VERLLF XB0,XB0,12 210 211 VAF XA0,XA0,XB1 212 VX XD3,XD3,XA0 213 VERLLF XD3,XD3,8 214 215 VAF XA1,XA1,XB2 216 VX XD0,XD0,XA1 217 VERLLF XD0,XD0,8 218 219 VAF XA2,XA2,XB3 220 VX XD1,XD1,XA2 221 VERLLF XD1,XD1,8 222 223 VAF XA3,XA3,XB0 224 VX XD2,XD2,XA3 225 VERLLF XD2,XD2,8 226 227 VAF XC2,XC2,XD3 228 VX XB1,XB1,XC2 229 VERLLF XB1,XB1,7 230 231 VAF XC3,XC3,XD0 232 VX XB2,XB2,XC3 233 VERLLF XB2,XB2,7 234 235 VAF XC0,XC0,XD1 236 VX XB3,XB3,XC0 237 VERLLF XB3,XB3,7 238 239 VAF XC1,XC1,XD2 240 VX XB0,XB0,XC1 241 VERLLF XB0,XB0,7 242 brct %r0,.Loop_4x 243 244 VAF XD0,XD0,CTR 245 246 VMRHF XT0,XA0,XA1 # transpose data 247 VMRHF XT1,XA2,XA3 248 VMRLF XT2,XA0,XA1 249 VMRLF XT3,XA2,XA3 250 VPDI XA0,XT0,XT1,0b0000 251 VPDI XA1,XT0,XT1,0b0101 252 VPDI XA2,XT2,XT3,0b0000 253 VPDI XA3,XT2,XT3,0b0101 254 255 VMRHF XT0,XB0,XB1 256 VMRHF XT1,XB2,XB3 257 VMRLF XT2,XB0,XB1 258 VMRLF XT3,XB2,XB3 259 VPDI XB0,XT0,XT1,0b0000 260 VPDI XB1,XT0,XT1,0b0101 261 VPDI XB2,XT2,XT3,0b0000 262 VPDI XB3,XT2,XT3,0b0101 263 264 VMRHF XT0,XC0,XC1 265 VMRHF XT1,XC2,XC3 266 VMRLF XT2,XC0,XC1 267 VMRLF XT3,XC2,XC3 268 VPDI XC0,XT0,XT1,0b0000 269 VPDI XC1,XT0,XT1,0b0101 270 VPDI XC2,XT2,XT3,0b0000 271 VPDI XC3,XT2,XT3,0b0101 272 273 VMRHF XT0,XD0,XD1 274 VMRHF XT1,XD2,XD3 275 VMRLF XT2,XD0,XD1 276 VMRLF XT3,XD2,XD3 277 VPDI XD0,XT0,XT1,0b0000 278 VPDI XD1,XT0,XT1,0b0101 279 VPDI XD2,XT2,XT3,0b0000 280 VPDI XD3,XT2,XT3,0b0101 281 282 VAF XA0,XA0,K0 283 VAF XB0,XB0,K1 284 VAF XC0,XC0,K2 285 VAF XD0,XD0,K3 286 287 VPERM XA0,XA0,XA0,BEPERM 288 VPERM XB0,XB0,XB0,BEPERM 289 VPERM XC0,XC0,XC0,BEPERM 290 VPERM XD0,XD0,XD0,BEPERM 291 292 VLM XT0,XT3,0,INP,0 293 294 VX XT0,XT0,XA0 295 VX XT1,XT1,XB0 296 VX XT2,XT2,XC0 297 VX XT3,XT3,XD0 298 299 VSTM XT0,XT3,0,OUT,0 300 301 la INP,0x40(INP) 302 la OUT,0x40(OUT) 303 aghi LEN,-0x40 304 305 VAF XA0,XA1,K0 306 VAF XB0,XB1,K1 307 VAF XC0,XC1,K2 308 VAF XD0,XD1,K3 309 310 VPERM XA0,XA0,XA0,BEPERM 311 VPERM XB0,XB0,XB0,BEPERM 312 VPERM XC0,XC0,XC0,BEPERM 313 VPERM XD0,XD0,XD0,BEPERM 314 315 clgfi LEN,0x40 316 jl .Ltail_4x 317 318 VLM XT0,XT3,0,INP,0 319 320 VX XT0,XT0,XA0 321 VX XT1,XT1,XB0 322 VX XT2,XT2,XC0 323 VX XT3,XT3,XD0 324 325 VSTM XT0,XT3,0,OUT,0 326 327 la INP,0x40(INP) 328 la OUT,0x40(OUT) 329 aghi LEN,-0x40 330 je .Ldone_4x 331 332 VAF XA0,XA2,K0 333 VAF XB0,XB2,K1 334 VAF XC0,XC2,K2 335 VAF XD0,XD2,K3 336 337 VPERM XA0,XA0,XA0,BEPERM 338 VPERM XB0,XB0,XB0,BEPERM 339 VPERM XC0,XC0,XC0,BEPERM 340 VPERM XD0,XD0,XD0,BEPERM 341 342 clgfi LEN,0x40 343 jl .Ltail_4x 344 345 VLM XT0,XT3,0,INP,0 346 347 VX XT0,XT0,XA0 348 VX XT1,XT1,XB0 349 VX XT2,XT2,XC0 350 VX XT3,XT3,XD0 351 352 VSTM XT0,XT3,0,OUT,0 353 354 la INP,0x40(INP) 355 la OUT,0x40(OUT) 356 aghi LEN,-0x40 357 je .Ldone_4x 358 359 VAF XA0,XA3,K0 360 VAF XB0,XB3,K1 361 VAF XC0,XC3,K2 362 VAF XD0,XD3,K3 363 364 VPERM XA0,XA0,XA0,BEPERM 365 VPERM XB0,XB0,XB0,BEPERM 366 VPERM XC0,XC0,XC0,BEPERM 367 VPERM XD0,XD0,XD0,BEPERM 368 369 clgfi LEN,0x40 370 jl .Ltail_4x 371 372 VLM XT0,XT3,0,INP,0 373 374 VX XT0,XT0,XA0 375 VX XT1,XT1,XB0 376 VX XT2,XT2,XC0 377 VX XT3,XT3,XD0 378 379 VSTM XT0,XT3,0,OUT,0 380 381.Ldone_4x: 382 lmg %r6,%r7,6*8(SP) 383 BR_EX %r14 384 385.Ltail_4x: 386 VLR XT0,XC0 387 VLR XT1,XD0 388 389 VST XA0,8*8+0x00,,SP 390 VST XB0,8*8+0x10,,SP 391 VST XT0,8*8+0x20,,SP 392 VST XT1,8*8+0x30,,SP 393 394 lghi %r1,0 395 396.Loop_tail_4x: 397 llgc %r5,0(%r1,INP) 398 llgc %r6,8*8(%r1,SP) 399 xr %r6,%r5 400 stc %r6,0(%r1,OUT) 401 la %r1,1(%r1) 402 brct LEN,.Loop_tail_4x 403 404 lmg %r6,%r7,6*8(SP) 405 BR_EX %r14 406ENDPROC(chacha20_vx_4x) 407 408#undef OUT 409#undef INP 410#undef LEN 411#undef KEY 412#undef COUNTER 413 414#undef BEPERM 415 416#undef K0 417#undef K1 418#undef K2 419#undef K3 420 421 422############################################################################# 423# void chacha20_vx(u8 *out, counst u8 *inp, size_t len, 424# counst u32 *key, const u32 *counter) 425 426#define OUT %r2 427#define INP %r3 428#define LEN %r4 429#define KEY %r5 430#define COUNTER %r6 431 432#define BEPERM %v31 433 434#define K0 %v27 435#define K1 %v24 436#define K2 %v25 437#define K3 %v26 438 439#define A0 %v0 440#define B0 %v1 441#define C0 %v2 442#define D0 %v3 443 444#define A1 %v4 445#define B1 %v5 446#define C1 %v6 447#define D1 %v7 448 449#define A2 %v8 450#define B2 %v9 451#define C2 %v10 452#define D2 %v11 453 454#define A3 %v12 455#define B3 %v13 456#define C3 %v14 457#define D3 %v15 458 459#define A4 %v16 460#define B4 %v17 461#define C4 %v18 462#define D4 %v19 463 464#define A5 %v20 465#define B5 %v21 466#define C5 %v22 467#define D5 %v23 468 469#define T0 %v27 470#define T1 %v28 471#define T2 %v29 472#define T3 %v30 473 474ENTRY(chacha20_vx) 475 clgfi LEN,256 476 jle chacha20_vx_4x 477 stmg %r6,%r7,6*8(SP) 478 479 lghi %r1,-FRAME 480 lgr %r0,SP 481 la SP,0(%r1,SP) 482 stg %r0,0(SP) # back-chain 483 484 larl %r7,.Lsigma 485 lhi %r0,10 486 487 VLM K1,K2,0,KEY,0 # load key 488 VL K3,0,,COUNTER # load counter 489 490 VLM K0,BEPERM,0,%r7,4 # load sigma, increments, ... 491 492.Loop_outer_vx: 493 VLR A0,K0 494 VLR B0,K1 495 VLR A1,K0 496 VLR B1,K1 497 VLR A2,K0 498 VLR B2,K1 499 VLR A3,K0 500 VLR B3,K1 501 VLR A4,K0 502 VLR B4,K1 503 VLR A5,K0 504 VLR B5,K1 505 506 VLR D0,K3 507 VAF D1,K3,T1 # K[3]+1 508 VAF D2,K3,T2 # K[3]+2 509 VAF D3,K3,T3 # K[3]+3 510 VAF D4,D2,T2 # K[3]+4 511 VAF D5,D2,T3 # K[3]+5 512 513 VLR C0,K2 514 VLR C1,K2 515 VLR C2,K2 516 VLR C3,K2 517 VLR C4,K2 518 VLR C5,K2 519 520 VLR T1,D1 521 VLR T2,D2 522 VLR T3,D3 523 524.Loop_vx: 525 VAF A0,A0,B0 526 VAF A1,A1,B1 527 VAF A2,A2,B2 528 VAF A3,A3,B3 529 VAF A4,A4,B4 530 VAF A5,A5,B5 531 VX D0,D0,A0 532 VX D1,D1,A1 533 VX D2,D2,A2 534 VX D3,D3,A3 535 VX D4,D4,A4 536 VX D5,D5,A5 537 VERLLF D0,D0,16 538 VERLLF D1,D1,16 539 VERLLF D2,D2,16 540 VERLLF D3,D3,16 541 VERLLF D4,D4,16 542 VERLLF D5,D5,16 543 544 VAF C0,C0,D0 545 VAF C1,C1,D1 546 VAF C2,C2,D2 547 VAF C3,C3,D3 548 VAF C4,C4,D4 549 VAF C5,C5,D5 550 VX B0,B0,C0 551 VX B1,B1,C1 552 VX B2,B2,C2 553 VX B3,B3,C3 554 VX B4,B4,C4 555 VX B5,B5,C5 556 VERLLF B0,B0,12 557 VERLLF B1,B1,12 558 VERLLF B2,B2,12 559 VERLLF B3,B3,12 560 VERLLF B4,B4,12 561 VERLLF B5,B5,12 562 563 VAF A0,A0,B0 564 VAF A1,A1,B1 565 VAF A2,A2,B2 566 VAF A3,A3,B3 567 VAF A4,A4,B4 568 VAF A5,A5,B5 569 VX D0,D0,A0 570 VX D1,D1,A1 571 VX D2,D2,A2 572 VX D3,D3,A3 573 VX D4,D4,A4 574 VX D5,D5,A5 575 VERLLF D0,D0,8 576 VERLLF D1,D1,8 577 VERLLF D2,D2,8 578 VERLLF D3,D3,8 579 VERLLF D4,D4,8 580 VERLLF D5,D5,8 581 582 VAF C0,C0,D0 583 VAF C1,C1,D1 584 VAF C2,C2,D2 585 VAF C3,C3,D3 586 VAF C4,C4,D4 587 VAF C5,C5,D5 588 VX B0,B0,C0 589 VX B1,B1,C1 590 VX B2,B2,C2 591 VX B3,B3,C3 592 VX B4,B4,C4 593 VX B5,B5,C5 594 VERLLF B0,B0,7 595 VERLLF B1,B1,7 596 VERLLF B2,B2,7 597 VERLLF B3,B3,7 598 VERLLF B4,B4,7 599 VERLLF B5,B5,7 600 601 VSLDB C0,C0,C0,8 602 VSLDB C1,C1,C1,8 603 VSLDB C2,C2,C2,8 604 VSLDB C3,C3,C3,8 605 VSLDB C4,C4,C4,8 606 VSLDB C5,C5,C5,8 607 VSLDB B0,B0,B0,4 608 VSLDB B1,B1,B1,4 609 VSLDB B2,B2,B2,4 610 VSLDB B3,B3,B3,4 611 VSLDB B4,B4,B4,4 612 VSLDB B5,B5,B5,4 613 VSLDB D0,D0,D0,12 614 VSLDB D1,D1,D1,12 615 VSLDB D2,D2,D2,12 616 VSLDB D3,D3,D3,12 617 VSLDB D4,D4,D4,12 618 VSLDB D5,D5,D5,12 619 620 VAF A0,A0,B0 621 VAF A1,A1,B1 622 VAF A2,A2,B2 623 VAF A3,A3,B3 624 VAF A4,A4,B4 625 VAF A5,A5,B5 626 VX D0,D0,A0 627 VX D1,D1,A1 628 VX D2,D2,A2 629 VX D3,D3,A3 630 VX D4,D4,A4 631 VX D5,D5,A5 632 VERLLF D0,D0,16 633 VERLLF D1,D1,16 634 VERLLF D2,D2,16 635 VERLLF D3,D3,16 636 VERLLF D4,D4,16 637 VERLLF D5,D5,16 638 639 VAF C0,C0,D0 640 VAF C1,C1,D1 641 VAF C2,C2,D2 642 VAF C3,C3,D3 643 VAF C4,C4,D4 644 VAF C5,C5,D5 645 VX B0,B0,C0 646 VX B1,B1,C1 647 VX B2,B2,C2 648 VX B3,B3,C3 649 VX B4,B4,C4 650 VX B5,B5,C5 651 VERLLF B0,B0,12 652 VERLLF B1,B1,12 653 VERLLF B2,B2,12 654 VERLLF B3,B3,12 655 VERLLF B4,B4,12 656 VERLLF B5,B5,12 657 658 VAF A0,A0,B0 659 VAF A1,A1,B1 660 VAF A2,A2,B2 661 VAF A3,A3,B3 662 VAF A4,A4,B4 663 VAF A5,A5,B5 664 VX D0,D0,A0 665 VX D1,D1,A1 666 VX D2,D2,A2 667 VX D3,D3,A3 668 VX D4,D4,A4 669 VX D5,D5,A5 670 VERLLF D0,D0,8 671 VERLLF D1,D1,8 672 VERLLF D2,D2,8 673 VERLLF D3,D3,8 674 VERLLF D4,D4,8 675 VERLLF D5,D5,8 676 677 VAF C0,C0,D0 678 VAF C1,C1,D1 679 VAF C2,C2,D2 680 VAF C3,C3,D3 681 VAF C4,C4,D4 682 VAF C5,C5,D5 683 VX B0,B0,C0 684 VX B1,B1,C1 685 VX B2,B2,C2 686 VX B3,B3,C3 687 VX B4,B4,C4 688 VX B5,B5,C5 689 VERLLF B0,B0,7 690 VERLLF B1,B1,7 691 VERLLF B2,B2,7 692 VERLLF B3,B3,7 693 VERLLF B4,B4,7 694 VERLLF B5,B5,7 695 696 VSLDB C0,C0,C0,8 697 VSLDB C1,C1,C1,8 698 VSLDB C2,C2,C2,8 699 VSLDB C3,C3,C3,8 700 VSLDB C4,C4,C4,8 701 VSLDB C5,C5,C5,8 702 VSLDB B0,B0,B0,12 703 VSLDB B1,B1,B1,12 704 VSLDB B2,B2,B2,12 705 VSLDB B3,B3,B3,12 706 VSLDB B4,B4,B4,12 707 VSLDB B5,B5,B5,12 708 VSLDB D0,D0,D0,4 709 VSLDB D1,D1,D1,4 710 VSLDB D2,D2,D2,4 711 VSLDB D3,D3,D3,4 712 VSLDB D4,D4,D4,4 713 VSLDB D5,D5,D5,4 714 brct %r0,.Loop_vx 715 716 VAF A0,A0,K0 717 VAF B0,B0,K1 718 VAF C0,C0,K2 719 VAF D0,D0,K3 720 VAF A1,A1,K0 721 VAF D1,D1,T1 # +K[3]+1 722 723 VPERM A0,A0,A0,BEPERM 724 VPERM B0,B0,B0,BEPERM 725 VPERM C0,C0,C0,BEPERM 726 VPERM D0,D0,D0,BEPERM 727 728 clgfi LEN,0x40 729 jl .Ltail_vx 730 731 VAF D2,D2,T2 # +K[3]+2 732 VAF D3,D3,T3 # +K[3]+3 733 VLM T0,T3,0,INP,0 734 735 VX A0,A0,T0 736 VX B0,B0,T1 737 VX C0,C0,T2 738 VX D0,D0,T3 739 740 VLM K0,T3,0,%r7,4 # re-load sigma and increments 741 742 VSTM A0,D0,0,OUT,0 743 744 la INP,0x40(INP) 745 la OUT,0x40(OUT) 746 aghi LEN,-0x40 747 je .Ldone_vx 748 749 VAF B1,B1,K1 750 VAF C1,C1,K2 751 752 VPERM A0,A1,A1,BEPERM 753 VPERM B0,B1,B1,BEPERM 754 VPERM C0,C1,C1,BEPERM 755 VPERM D0,D1,D1,BEPERM 756 757 clgfi LEN,0x40 758 jl .Ltail_vx 759 760 VLM A1,D1,0,INP,0 761 762 VX A0,A0,A1 763 VX B0,B0,B1 764 VX C0,C0,C1 765 VX D0,D0,D1 766 767 VSTM A0,D0,0,OUT,0 768 769 la INP,0x40(INP) 770 la OUT,0x40(OUT) 771 aghi LEN,-0x40 772 je .Ldone_vx 773 774 VAF A2,A2,K0 775 VAF B2,B2,K1 776 VAF C2,C2,K2 777 778 VPERM A0,A2,A2,BEPERM 779 VPERM B0,B2,B2,BEPERM 780 VPERM C0,C2,C2,BEPERM 781 VPERM D0,D2,D2,BEPERM 782 783 clgfi LEN,0x40 784 jl .Ltail_vx 785 786 VLM A1,D1,0,INP,0 787 788 VX A0,A0,A1 789 VX B0,B0,B1 790 VX C0,C0,C1 791 VX D0,D0,D1 792 793 VSTM A0,D0,0,OUT,0 794 795 la INP,0x40(INP) 796 la OUT,0x40(OUT) 797 aghi LEN,-0x40 798 je .Ldone_vx 799 800 VAF A3,A3,K0 801 VAF B3,B3,K1 802 VAF C3,C3,K2 803 VAF D2,K3,T3 # K[3]+3 804 805 VPERM A0,A3,A3,BEPERM 806 VPERM B0,B3,B3,BEPERM 807 VPERM C0,C3,C3,BEPERM 808 VPERM D0,D3,D3,BEPERM 809 810 clgfi LEN,0x40 811 jl .Ltail_vx 812 813 VAF D3,D2,T1 # K[3]+4 814 VLM A1,D1,0,INP,0 815 816 VX A0,A0,A1 817 VX B0,B0,B1 818 VX C0,C0,C1 819 VX D0,D0,D1 820 821 VSTM A0,D0,0,OUT,0 822 823 la INP,0x40(INP) 824 la OUT,0x40(OUT) 825 aghi LEN,-0x40 826 je .Ldone_vx 827 828 VAF A4,A4,K0 829 VAF B4,B4,K1 830 VAF C4,C4,K2 831 VAF D4,D4,D3 # +K[3]+4 832 VAF D3,D3,T1 # K[3]+5 833 VAF K3,D2,T3 # K[3]+=6 834 835 VPERM A0,A4,A4,BEPERM 836 VPERM B0,B4,B4,BEPERM 837 VPERM C0,C4,C4,BEPERM 838 VPERM D0,D4,D4,BEPERM 839 840 clgfi LEN,0x40 841 jl .Ltail_vx 842 843 VLM A1,D1,0,INP,0 844 845 VX A0,A0,A1 846 VX B0,B0,B1 847 VX C0,C0,C1 848 VX D0,D0,D1 849 850 VSTM A0,D0,0,OUT,0 851 852 la INP,0x40(INP) 853 la OUT,0x40(OUT) 854 aghi LEN,-0x40 855 je .Ldone_vx 856 857 VAF A5,A5,K0 858 VAF B5,B5,K1 859 VAF C5,C5,K2 860 VAF D5,D5,D3 # +K[3]+5 861 862 VPERM A0,A5,A5,BEPERM 863 VPERM B0,B5,B5,BEPERM 864 VPERM C0,C5,C5,BEPERM 865 VPERM D0,D5,D5,BEPERM 866 867 clgfi LEN,0x40 868 jl .Ltail_vx 869 870 VLM A1,D1,0,INP,0 871 872 VX A0,A0,A1 873 VX B0,B0,B1 874 VX C0,C0,C1 875 VX D0,D0,D1 876 877 VSTM A0,D0,0,OUT,0 878 879 la INP,0x40(INP) 880 la OUT,0x40(OUT) 881 lhi %r0,10 882 aghi LEN,-0x40 883 jne .Loop_outer_vx 884 885.Ldone_vx: 886 lmg %r6,%r7,FRAME+6*8(SP) 887 la SP,FRAME(SP) 888 BR_EX %r14 889 890.Ltail_vx: 891 VSTM A0,D0,8*8,SP,3 892 lghi %r1,0 893 894.Loop_tail_vx: 895 llgc %r5,0(%r1,INP) 896 llgc %r6,8*8(%r1,SP) 897 xr %r6,%r5 898 stc %r6,0(%r1,OUT) 899 la %r1,1(%r1) 900 brct LEN,.Loop_tail_vx 901 902 lmg %r6,%r7,FRAME+6*8(SP) 903 la SP,FRAME(SP) 904 BR_EX %r14 905ENDPROC(chacha20_vx) 906 907.previous