a114a92aafc3c9315559ded7de4ef3bde3460200
[openssl.git] / crypto / des / asm / des_enc.m4
1 !  des_enc.m4
2 !  des_enc.S  (generated from des_enc.m4)
3 !
4 !  UltraSPARC assembler version of the LibDES/SSLeay/OpenSSL des_enc.c file.
5 !
6 !  Version 1.0. 32-bit version.
7 !
8 !  June 8, 2000.
9 !
10 !  Version 2.0. 32/64-bit, PIC-ification, blended CPU adaptation
11 !               by Andy Polyakov.
12 !
13 !  January 1, 2003.
14 !
15 !  Assembler version: Copyright Svend Olaf Mikkelsen.
16 !
17 !  Original C code: Copyright Eric A. Young.
18 !
19 !  This code can be freely used by LibDES/SSLeay/OpenSSL users.
20 !
21 !  The LibDES/SSLeay/OpenSSL copyright notices must be respected.
22 !
23 !  This version can be redistributed.
24 !
25 !  To expand the m4 macros: m4 -B 8192 des_enc.m4 > des_enc.S
26 !
27 !  Global registers 1 to 5 are used. This is the same as done by the
28 !  cc compiler. The UltraSPARC load/store little endian feature is used.
29 !
30 !  Instruction grouping often refers to one CPU cycle.
31 !
32 !  Assemble through gcc: gcc -c -mcpu=ultrasparc -o des_enc.o des_enc.S
33 !
34 !  Assemble through cc:  cc -c -xarch=v8plusa -o des_enc.o des_enc.S
35 !
36 !  Performance improvement according to './apps/openssl speed des'
37 !
38 !       32-bit build:
39 !               23%  faster than cc-5.2 -xarch=v8plus -xO5
40 !               115% faster than gcc-3.2.1 -m32 -mcpu=ultrasparc -O5
41 !       64-bit build:
42 !               50%  faster than cc-5.2 -xarch=v9 -xO5
43 !               100% faster than gcc-3.2.1 -m64 -mcpu=ultrasparc -O5
44 !
45
46 .ident "des_enc.m4 2.1"
47 .file  "des_enc-sparc.S"
48
49 #if defined(__SUNPRO_C) && defined(__sparcv9)
50 # define ABI64  /* They've said -xarch=v9 at command line */
51 #elif defined(__GNUC__) && defined(__arch64__)
52 # define ABI64  /* They've said -m64 at command line */
53 #endif
54
55 #ifdef ABI64
56   .register     %g2,#scratch
57   .register     %g3,#scratch
58 # define        FRAME   -192
59 # define        BIAS    2047
60 # define        LDPTR   ldx
61 # define        STPTR   stx
62 # define        ARG0    128
63 # define        ARGSZ   8
64 # ifndef OPENSSL_SYSNAME_ULTRASPARC
65 # define OPENSSL_SYSNAME_ULTRASPARC
66 # endif
67 #else
68 # define        FRAME   -96
69 # define        BIAS    0
70 # define        LDPTR   ld
71 # define        STPTR   st
72 # define        ARG0    68
73 # define        ARGSZ   4
74 #endif
75
76 #define LOOPS 7
77
78 #define global0 %g0
79 #define global1 %g1
80 #define global2 %g2
81 #define global3 %g3
82 #define global4 %g4
83 #define global5 %g5
84
85 #define local0 %l0
86 #define local1 %l1
87 #define local2 %l2
88 #define local3 %l3
89 #define local4 %l4
90 #define local5 %l5
91 #define local7 %l6
92 #define local6 %l7
93
94 #define in0 %i0
95 #define in1 %i1
96 #define in2 %i2
97 #define in3 %i3
98 #define in4 %i4
99 #define in5 %i5
100 #define in6 %i6
101 #define in7 %i7
102
103 #define out0 %o0
104 #define out1 %o1
105 #define out2 %o2
106 #define out3 %o3
107 #define out4 %o4
108 #define out5 %o5
109 #define out6 %o6
110 #define out7 %o7
111
112 #define stub stb
113
114 changequote({,})
115
116
117 ! Macro definitions:
118
119
120 ! {ip_macro}
121 !
122 ! The logic used in initial and final permutations is the same as in
123 ! the C code. The permutations are done with a clever shift, xor, and
124 ! technique.
125 !
126 ! The macro also loads address sbox 1 to 5 to global 1 to 5, address
127 ! sbox 6 to local6, and addres sbox 8 to out3.
128 !
129 ! Rotates the halfs 3 left to bring the sbox bits in convenient positions.
130 !
131 ! Loads key first round from address in parameter 5 to out0, out1.
132 !
133 ! After the the original LibDES initial permutation, the resulting left
134 ! is in the variable initially used for right and vice versa. The macro
135 ! implements the possibility to keep the halfs in the original registers.
136 !
137 ! parameter 1  left
138 ! parameter 2  right
139 ! parameter 3  result left (modify in first round)
140 ! parameter 4  result right (use in first round)
141 ! parameter 5  key address
142 ! parameter 6  1/2 for include encryption/decryption
143 ! parameter 7  1 for move in1 to in3
144 ! parameter 8  1 for move in3 to in4, 2 for move in4 to in3
145 ! parameter 9  1 for load ks3 and ks2 to in4 and in3
146
147 define(ip_macro, {
148
149 ! {ip_macro}
150 ! $1 $2 $4 $3 $5 $6 $7 $8 $9
151
152         ld      [out2+256], local1
153         srl     $2, 4, local4
154
155         xor     local4, $1, local4
156         ifelse($7,1,{mov in1, in3},{nop})
157
158         ld      [out2+260], local2
159         and     local4, local1, local4
160         ifelse($8,1,{mov in3, in4},{})
161         ifelse($8,2,{mov in4, in3},{})
162
163         ld      [out2+280], out4          ! loop counter
164         sll     local4, 4, local1
165         xor     $1, local4, $1
166
167         ld      [out2+264], local3
168         srl     $1, 16, local4
169         xor     $2, local1, $2
170
171         ifelse($9,1,{LDPTR      KS3, in4},{})
172         xor     local4, $2, local4
173         nop     !sethi  %hi(DES_SPtrans), global1 ! sbox addr
174
175         ifelse($9,1,{LDPTR      KS2, in3},{})
176         and     local4, local2, local4
177         nop     !or     global1, %lo(DES_SPtrans), global1   ! sbox addr
178
179         sll     local4, 16, local1
180         xor     $2, local4, $2
181
182         srl     $2, 2, local4
183         xor     $1, local1, $1
184
185         sethi   %hi(16711680), local5
186         xor     local4, $1, local4
187
188         and     local4, local3, local4
189         or      local5, 255, local5
190
191         sll     local4, 2, local2
192         xor     $1, local4, $1
193
194         srl     $1, 8, local4
195         xor     $2, local2, $2
196
197         xor     local4, $2, local4
198         add     global1, 768, global4
199
200         and     local4, local5, local4
201         add     global1, 1024, global5
202
203         ld      [out2+272], local7
204         sll     local4, 8, local1
205         xor     $2, local4, $2
206
207         srl     $2, 1, local4
208         xor     $1, local1, $1
209
210         ld      [$5], out0                ! key 7531
211         xor     local4, $1, local4
212         add     global1, 256, global2
213
214         ld      [$5+4], out1              ! key 8642
215         and     local4, local7, local4
216         add     global1, 512, global3
217
218         sll     local4, 1, local1
219         xor     $1, local4, $1
220
221         sll     $1, 3, local3
222         xor     $2, local1, $2
223
224         sll     $2, 3, local2
225         add     global1, 1280, local6     ! address sbox 8
226
227         srl     $1, 29, local4
228         add     global1, 1792, out3       ! address sbox 8
229
230         srl     $2, 29, local1
231         or      local4, local3, $4
232
233         or      local2, local1, $3
234
235         ifelse($6, 1, {
236
237                 ld      [out2+284], local5     ! 0x0000FC00 used in the rounds
238                 or      local2, local1, $3
239                 xor     $4, out0, local1
240
241                 call .des_enc.1
242                 and     local1, 252, local1
243
244         },{})
245
246         ifelse($6, 2, {
247
248                 ld      [out2+284], local5     ! 0x0000FC00 used in the rounds
249                 or      local2, local1, $3
250                 xor     $4, out0, local1
251
252                 call .des_dec.1
253                 and     local1, 252, local1
254
255         },{})
256 })
257
258
259 ! {rounds_macro}
260 !
261 ! The logic used in the DES rounds is the same as in the C code,
262 ! except that calculations for sbox 1 and sbox 5 begin before
263 ! the previous round is finished.
264 !
265 ! In each round one half (work) is modified based on key and the
266 ! other half (use).
267 !
268 ! In this version we do two rounds in a loop repeated 7 times
269 ! and two rounds seperately.
270 !
271 ! One half has the bits for the sboxes in the following positions:
272 !
273 !       777777xx555555xx333333xx111111xx
274 !
275 !       88xx666666xx444444xx222222xx8888
276 !
277 ! The bits for each sbox are xor-ed with the key bits for that box.
278 ! The above xx bits are cleared, and the result used for lookup in
279 ! the sbox table. Each sbox entry contains the 4 output bits permuted
280 ! into 32 bits according to the P permutation.
281 !
282 ! In the description of DES, left and right are switched after
283 ! each round, except after last round. In this code the original
284 ! left and right are kept in the same register in all rounds, meaning
285 ! that after the 16 rounds the result for right is in the register
286 ! originally used for left.
287 !
288 ! parameter 1  first work (left in first round)
289 ! parameter 2  first use (right in first round)
290 ! parameter 3  enc/dec  1/-1
291 ! parameter 4  loop label
292 ! parameter 5  key address register
293 ! parameter 6  optional address for key next encryption/decryption
294 ! parameter 7  not empty for include retl
295 !
296 ! also compares in2 to 8
297
298 define(rounds_macro, {
299
300 ! {rounds_macro}
301 ! $1 $2 $3 $4 $5 $6 $7 $8 $9
302
303         xor     $2, out0, local1
304
305         ld      [out2+284], local5        ! 0x0000FC00
306         ba      $4
307         and     local1, 252, local1
308
309         .align 32
310
311 $4:
312         ! local6 is address sbox 6
313         ! out3   is address sbox 8
314         ! out4   is loop counter
315
316         ld      [global1+local1], local1
317         xor     $2, out1, out1            ! 8642
318         xor     $2, out0, out0            ! 7531
319         ! fmovs %f0, %f0                  ! fxor used for alignment
320
321         srl     out1, 4, local0           ! rotate 4 right
322         and     out0, local5, local3      ! 3
323         ! fmovs %f0, %f0
324
325         ld      [$5+$3*8], local7         ! key 7531 next round
326         srl     local3, 8, local3         ! 3
327         and     local0, 252, local2       ! 2
328         ! fmovs %f0, %f0
329
330         ld      [global3+local3],local3   ! 3
331         sll     out1, 28, out1            ! rotate
332         xor     $1, local1, $1            ! 1 finished, local1 now sbox 7
333
334         ld      [global2+local2], local2  ! 2 
335         srl     out0, 24, local1          ! 7
336         or      out1, local0, out1        ! rotate
337
338         ldub    [out2+local1], local1     ! 7 (and 0xFC)
339         srl     out1, 24, local0          ! 8
340         and     out1, local5, local4      ! 4
341
342         ldub    [out2+local0], local0     ! 8 (and 0xFC)
343         srl     local4, 8, local4         ! 4
344         xor     $1, local2, $1            ! 2 finished local2 now sbox 6
345
346         ld      [global4+local4],local4   ! 4
347         srl     out1, 16, local2          ! 6
348         xor     $1, local3, $1            ! 3 finished local3 now sbox 5
349
350         ld      [out3+local0],local0      ! 8
351         and     local2, 252, local2       ! 6
352         add     global1, 1536, local5     ! address sbox 7
353
354         ld      [local6+local2], local2   ! 6
355         srl     out0, 16, local3          ! 5
356         xor     $1, local4, $1            ! 4 finished
357
358         ld      [local5+local1],local1    ! 7
359         and     local3, 252, local3       ! 5
360         xor     $1, local0, $1            ! 8 finished
361
362         ld      [global5+local3],local3   ! 5
363         xor     $1, local2, $1            ! 6 finished
364         subcc   out4, 1, out4
365
366         ld      [$5+$3*8+4], out0         ! key 8642 next round
367         xor     $1, local7, local2        ! sbox 5 next round
368         xor     $1, local1, $1            ! 7 finished
369
370         srl     local2, 16, local2        ! sbox 5 next round
371         xor     $1, local3, $1            ! 5 finished
372
373         ld      [$5+$3*16+4], out1        ! key 8642 next round again
374         and     local2, 252, local2       ! sbox5 next round
375 ! next round
376         xor     $1, local7, local7        ! 7531
377
378         ld      [global5+local2], local2  ! 5
379         srl     local7, 24, local3        ! 7
380         xor     $1, out0, out0            ! 8642
381
382         ldub    [out2+local3], local3     ! 7 (and 0xFC)
383         srl     out0, 4, local0           ! rotate 4 right
384         and     local7, 252, local1       ! 1
385
386         sll     out0, 28, out0            ! rotate
387         xor     $2, local2, $2            ! 5 finished local2 used
388
389         srl     local0, 8, local4         ! 4
390         and     local0, 252, local2       ! 2
391         ld      [local5+local3], local3   ! 7
392
393         srl     local0, 16, local5        ! 6
394         or      out0, local0, out0        ! rotate
395         ld      [global2+local2], local2  ! 2
396
397         srl     out0, 24, local0
398         ld      [$5+$3*16], out0          ! key 7531 next round
399         and     local4, 252, local4       ! 4
400
401         and     local5, 252, local5       ! 6
402         ld      [global4+local4], local4  ! 4
403         xor     $2, local3, $2            ! 7 finished local3 used
404
405         and     local0, 252, local0       ! 8
406         ld      [local6+local5], local5   ! 6
407         xor     $2, local2, $2            ! 2 finished local2 now sbox 3
408
409         srl     local7, 8, local2         ! 3 start
410         ld      [out3+local0], local0     ! 8
411         xor     $2, local4, $2            ! 4 finished
412
413         and     local2, 252, local2       ! 3
414         ld      [global1+local1], local1  ! 1
415         xor     $2, local5, $2            ! 6 finished local5 used
416
417         ld      [global3+local2], local2  ! 3
418         xor     $2, local0, $2            ! 8 finished
419         add     $5, $3*16, $5             ! enc add 8, dec add -8 to key pointer
420
421         ld      [out2+284], local5        ! 0x0000FC00
422         xor     $2, out0, local4          ! sbox 1 next round
423         xor     $2, local1, $2            ! 1 finished
424
425         xor     $2, local2, $2            ! 3 finished
426 #ifdef OPENSSL_SYSNAME_ULTRASPARC
427         bne,pt  %icc, $4
428 #else
429         bne     $4
430 #endif
431         and     local4, 252, local1       ! sbox 1 next round
432
433 ! two rounds more:
434
435         ld      [global1+local1], local1
436         xor     $2, out1, out1
437         xor     $2, out0, out0
438
439         srl     out1, 4, local0           ! rotate
440         and     out0, local5, local3
441
442         ld      [$5+$3*8], local7         ! key 7531
443         srl     local3, 8, local3
444         and     local0, 252, local2
445
446         ld      [global3+local3],local3
447         sll     out1, 28, out1            ! rotate
448         xor     $1, local1, $1            ! 1 finished, local1 now sbox 7
449
450         ld      [global2+local2], local2
451         srl     out0, 24, local1
452         or      out1, local0, out1        ! rotate
453
454         ldub    [out2+local1], local1
455         srl     out1, 24, local0
456         and     out1, local5, local4
457
458         ldub    [out2+local0], local0
459         srl     local4, 8, local4
460         xor     $1, local2, $1            ! 2 finished local2 now sbox 6
461
462         ld      [global4+local4],local4
463         srl     out1, 16, local2
464         xor     $1, local3, $1            ! 3 finished local3 now sbox 5
465
466         ld      [out3+local0],local0
467         and     local2, 252, local2
468         add     global1, 1536, local5     ! address sbox 7
469
470         ld      [local6+local2], local2
471         srl     out0, 16, local3
472         xor     $1, local4, $1            ! 4 finished
473
474         ld      [local5+local1],local1
475         and     local3, 252, local3
476         xor     $1, local0, $1
477
478         ld      [global5+local3],local3
479         xor     $1, local2, $1            ! 6 finished
480         cmp     in2, 8
481
482         ifelse($6,{}, {}, {ld   [out2+280], out4})  ! loop counter
483         xor     $1, local7, local2        ! sbox 5 next round
484         xor     $1, local1, $1            ! 7 finished
485
486         ld      [$5+$3*8+4], out0
487         srl     local2, 16, local2        ! sbox 5 next round
488         xor     $1, local3, $1            ! 5 finished
489
490         and     local2, 252, local2
491 ! next round (two rounds more)
492         xor     $1, local7, local7        ! 7531
493
494         ld      [global5+local2], local2
495         srl     local7, 24, local3
496         xor     $1, out0, out0            ! 8642
497
498         ldub    [out2+local3], local3
499         srl     out0, 4, local0           ! rotate
500         and     local7, 252, local1
501
502         sll     out0, 28, out0            ! rotate
503         xor     $2, local2, $2            ! 5 finished local2 used
504
505         srl     local0, 8, local4
506         and     local0, 252, local2
507         ld      [local5+local3], local3
508
509         srl     local0, 16, local5
510         or      out0, local0, out0        ! rotate
511         ld      [global2+local2], local2
512
513         srl     out0, 24, local0
514         ifelse($6,{}, {}, {ld   [$6], out0})   ! key next encryption/decryption
515         and     local4, 252, local4
516
517         and     local5, 252, local5
518         ld      [global4+local4], local4
519         xor     $2, local3, $2            ! 7 finished local3 used
520
521         and     local0, 252, local0
522         ld      [local6+local5], local5
523         xor     $2, local2, $2            ! 2 finished local2 now sbox 3
524
525         srl     local7, 8, local2         ! 3 start
526         ld      [out3+local0], local0
527         xor     $2, local4, $2
528
529         and     local2, 252, local2
530         ld      [global1+local1], local1
531         xor     $2, local5, $2            ! 6 finished local5 used
532
533         ld      [global3+local2], local2
534         srl     $1, 3, local3
535         xor     $2, local0, $2
536
537         ifelse($6,{}, {}, {ld   [$6+4], out1}) ! key next encryption/decryption
538         sll     $1, 29, local4
539         xor     $2, local1, $2
540
541         ifelse($7,{}, {}, {retl})
542         xor     $2, local2, $2
543 })
544
545
546 ! {fp_macro}
547 !
548 !  parameter 1   right (original left)
549 !  parameter 2   left (original right)
550 !  parameter 3   1 for optional store to [in0]
551 !  parameter 4   1 for load input/output address to local5/7
552 !
553 !  The final permutation logic switches the halfes, meaning that
554 !  left and right ends up the the registers originally used.
555
556 define(fp_macro, {
557
558 ! {fp_macro}
559 ! $1 $2 $3 $4 $5 $6 $7 $8 $9
560
561         ! initially undo the rotate 3 left done after initial permutation
562         ! original left is received shifted 3 right and 29 left in local3/4
563
564         sll     $2, 29, local1
565         or      local3, local4, $1
566
567         srl     $2, 3, $2
568         sethi   %hi(0x55555555), local2
569
570         or      $2, local1, $2
571         or      local2, %lo(0x55555555), local2
572
573         srl     $2, 1, local3
574         sethi   %hi(0x00ff00ff), local1
575         xor     local3, $1, local3
576         or      local1, %lo(0x00ff00ff), local1
577         and     local3, local2, local3
578         sethi   %hi(0x33333333), local4
579         sll     local3, 1, local2
580
581         xor     $1, local3, $1
582
583         srl     $1, 8, local3
584         xor     $2, local2, $2
585         xor     local3, $2, local3
586         or      local4, %lo(0x33333333), local4
587         and     local3, local1, local3
588         sethi   %hi(0x0000ffff), local1
589         sll     local3, 8, local2
590
591         xor     $2, local3, $2
592
593         srl     $2, 2, local3
594         xor     $1, local2, $1
595         xor     local3, $1, local3
596         or      local1, %lo(0x0000ffff), local1
597         and     local3, local4, local3
598         sethi   %hi(0x0f0f0f0f), local4
599         sll     local3, 2, local2
600
601         ifelse($4,1, {LDPTR INPUT, local5})
602         xor     $1, local3, $1
603
604         ifelse($4,1, {LDPTR OUTPUT, local7})
605         srl     $1, 16, local3
606         xor     $2, local2, $2
607         xor     local3, $2, local3
608         or      local4, %lo(0x0f0f0f0f), local4
609         and     local3, local1, local3
610         sll     local3, 16, local2
611
612         xor     $2, local3, local1
613
614         srl     local1, 4, local3
615         xor     $1, local2, $1
616         xor     local3, $1, local3
617         and     local3, local4, local3
618         sll     local3, 4, local2
619
620         xor     $1, local3, $1
621
622         ! optional store:
623
624         ifelse($3,1, {st $1, [in0]})
625
626         xor     local1, local2, $2
627
628         ifelse($3,1, {st $2, [in0+4]})
629
630 })
631
632
633 ! {fp_ip_macro}
634 !
635 ! Does initial permutation for next block mixed with
636 ! final permutation for current block.
637 !
638 ! parameter 1   original left
639 ! parameter 2   original right
640 ! parameter 3   left ip
641 ! parameter 4   right ip
642 ! parameter 5   1: load ks1/ks2 to in3/in4, add 120 to in4
643 !                2: mov in4 to in3
644 !
645 ! also adds -8 to length in2 and loads loop counter to out4
646
647 define(fp_ip_macro, {
648
649 ! {fp_ip_macro}
650 ! $1 $2 $3 $4 $5 $6 $7 $8 $9
651
652         define({temp1},{out4})
653         define({temp2},{local3})
654
655         define({ip1},{local1})
656         define({ip2},{local2})
657         define({ip4},{local4})
658         define({ip5},{local5})
659
660         ! $1 in local3, local4
661
662         ld      [out2+256], ip1
663         sll     out5, 29, temp1
664         or      local3, local4, $1
665
666         srl     out5, 3, $2
667         ifelse($5,2,{mov in4, in3})
668
669         ld      [out2+272], ip5
670         srl     $4, 4, local0
671         or      $2, temp1, $2
672
673         srl     $2, 1, temp1
674         xor     temp1, $1, temp1
675
676         and     temp1, ip5, temp1
677         xor     local0, $3, local0
678
679         sll     temp1, 1, temp2
680         xor     $1, temp1, $1
681
682         and     local0, ip1, local0
683         add     in2, -8, in2
684
685         sll     local0, 4, local7
686         xor     $3, local0, $3
687
688         ld      [out2+268], ip4
689         srl     $1, 8, temp1
690         xor     $2, temp2, $2
691         ld      [out2+260], ip2
692         srl     $3, 16, local0
693         xor     $4, local7, $4
694         xor     temp1, $2, temp1
695         xor     local0, $4, local0
696         and     temp1, ip4, temp1
697         and     local0, ip2, local0
698         sll     temp1, 8, temp2
699         xor     $2, temp1, $2
700         sll     local0, 16, local7
701         xor     $4, local0, $4
702
703         srl     $2, 2, temp1
704         xor     $1, temp2, $1
705
706         ld      [out2+264], temp2         ! ip3
707         srl     $4, 2, local0
708         xor     $3, local7, $3
709         xor     temp1, $1, temp1
710         xor     local0, $3, local0
711         and     temp1, temp2, temp1
712         and     local0, temp2, local0
713         sll     temp1, 2, temp2
714         xor     $1, temp1, $1
715         sll     local0, 2, local7
716         xor     $3, local0, $3
717
718         srl     $1, 16, temp1
719         xor     $2, temp2, $2
720         srl     $3, 8, local0
721         xor     $4, local7, $4
722         xor     temp1, $2, temp1
723         xor     local0, $4, local0
724         and     temp1, ip2, temp1
725         and     local0, ip4, local0
726         sll     temp1, 16, temp2
727         xor     $2, temp1, local4
728         sll     local0, 8, local7
729         xor     $4, local0, $4
730
731         srl     $4, 1, local0
732         xor     $3, local7, $3
733
734         srl     local4, 4, temp1
735         xor     local0, $3, local0
736
737         xor     $1, temp2, $1
738         and     local0, ip5, local0
739
740         sll     local0, 1, local7
741         xor     temp1, $1, temp1
742
743         xor     $3, local0, $3
744         xor     $4, local7, $4
745
746         sll     $3, 3, local5
747         and     temp1, ip1, temp1
748
749         sll     temp1, 4, temp2
750         xor     $1, temp1, $1
751
752         ifelse($5,1,{LDPTR      KS2, in4})
753         sll     $4, 3, local2
754         xor     local4, temp2, $2
755
756         ! reload since used as temporar:
757
758         ld      [out2+280], out4          ! loop counter
759
760         srl     $3, 29, local0
761         ifelse($5,1,{add in4, 120, in4})
762
763         ifelse($5,1,{LDPTR      KS1, in3})
764         srl     $4, 29, local7
765
766         or      local0, local5, $4
767         or      local2, local7, $3
768
769 })
770
771
772
773 ! {load_little_endian}
774 !
775 ! parameter 1  address
776 ! parameter 2  destination left
777 ! parameter 3  destination right
778 ! parameter 4  temporar
779 ! parameter 5  label
780
781 define(load_little_endian, {
782
783 ! {load_little_endian}
784 ! $1 $2 $3 $4 $5 $6 $7 $8 $9
785
786         ! first in memory to rightmost in register
787
788 #ifdef OPENSSL_SYSNAME_ULTRASPARC
789         andcc   $1, 3, global0
790         bne,pn  %icc, $5
791         nop
792
793         lda     [$1] 0x88, $2
794         add     $1, 4, $4
795
796         ba,pt   %icc, $5a
797         lda     [$4] 0x88, $3
798 #endif
799
800 $5:
801         ldub    [$1+3], $2
802
803         ldub    [$1+2], $4
804         sll     $2, 8, $2
805         or      $2, $4, $2
806
807         ldub    [$1+1], $4
808         sll     $2, 8, $2
809         or      $2, $4, $2
810
811         ldub    [$1+0], $4
812         sll     $2, 8, $2
813         or      $2, $4, $2
814
815
816         ldub    [$1+3+4], $3
817
818         ldub    [$1+2+4], $4
819         sll     $3, 8, $3
820         or      $3, $4, $3
821
822         ldub    [$1+1+4], $4
823         sll     $3, 8, $3
824         or      $3, $4, $3
825
826         ldub    [$1+0+4], $4
827         sll     $3, 8, $3
828         or      $3, $4, $3
829 $5a:
830
831 })
832
833
834 ! {load_little_endian_inc}
835 !
836 ! parameter 1  address
837 ! parameter 2  destination left
838 ! parameter 3  destination right
839 ! parameter 4  temporar
840 ! parameter 4  label
841 !
842 ! adds 8 to address
843
844 define(load_little_endian_inc, {
845
846 ! {load_little_endian_inc}
847 ! $1 $2 $3 $4 $5 $6 $7 $8 $9
848
849         ! first in memory to rightmost in register
850
851 #ifdef OPENSSL_SYSNAME_ULTRASPARC
852         andcc   $1, 3, global0
853         bne,pn  %icc, $5
854         nop
855
856         lda     [$1] 0x88, $2
857         add     $1, 4, $1
858
859         lda     [$1] 0x88, $3
860         ba,pt   %icc, $5a
861         add     $1, 4, $1
862 #endif
863
864 $5:
865         ldub    [$1+3], $2
866
867         ldub    [$1+2], $4
868         sll     $2, 8, $2
869         or      $2, $4, $2
870
871         ldub    [$1+1], $4
872         sll     $2, 8, $2
873         or      $2, $4, $2
874
875         ldub    [$1+0], $4
876         sll     $2, 8, $2
877         or      $2, $4, $2
878
879         ldub    [$1+3+4], $3
880         add     $1, 8, $1
881
882         ldub    [$1+2+4-8], $4
883         sll     $3, 8, $3
884         or      $3, $4, $3
885
886         ldub    [$1+1+4-8], $4
887         sll     $3, 8, $3
888         or      $3, $4, $3
889
890         ldub    [$1+0+4-8], $4
891         sll     $3, 8, $3
892         or      $3, $4, $3
893 $5a:
894
895 })
896
897
898 ! {load_n_bytes}
899 !
900 ! Loads 1 to 7 bytes little endian
901 ! Remaining bytes are zeroed.
902 !
903 ! parameter 1  address
904 ! parameter 2  length
905 ! parameter 3  destination register left
906 ! parameter 4  destination register right
907 ! parameter 5  temp
908 ! parameter 6  temp2
909 ! parameter 7  label
910 ! parameter 8  return label
911
912 define(load_n_bytes, {
913
914 ! {load_n_bytes}
915 ! $1 $2 $5 $6 $7 $8 $7 $8 $9
916
917 $7.0:   call    .+8
918         sll     $2, 2, $6
919
920         add     %o7,$7.jmp.table-$7.0,$5
921
922         add     $5, $6, $5
923         mov     0, $4
924
925         ld      [$5], $5
926
927         jmp     %o7+$5
928         mov     0, $3
929
930 $7.7:
931         ldub    [$1+6], $5
932         sll     $5, 16, $5
933         or      $3, $5, $3
934 $7.6:
935         ldub    [$1+5], $5
936         sll     $5, 8, $5
937         or      $3, $5, $3
938 $7.5:
939         ldub    [$1+4], $5
940         or      $3, $5, $3
941 $7.4:
942         ldub    [$1+3], $5
943         sll     $5, 24, $5
944         or      $4, $5, $4
945 $7.3:
946         ldub    [$1+2], $5
947         sll     $5, 16, $5
948         or      $4, $5, $4
949 $7.2:
950         ldub    [$1+1], $5
951         sll     $5, 8, $5
952         or      $4, $5, $4
953 $7.1:
954         ldub    [$1+0], $5
955         ba      $8
956         or      $4, $5, $4
957
958         .align 4
959
960 $7.jmp.table:
961         .word   0
962         .word   $7.1-$7.0
963         .word   $7.2-$7.0
964         .word   $7.3-$7.0
965         .word   $7.4-$7.0
966         .word   $7.5-$7.0
967         .word   $7.6-$7.0
968         .word   $7.7-$7.0
969 })
970
971
972 ! {store_little_endian}
973 !
974 ! parameter 1  address
975 ! parameter 2  source left
976 ! parameter 3  source right
977 ! parameter 4  temporar
978
979 define(store_little_endian, {
980
981 ! {store_little_endian}
982 ! $1 $2 $3 $4 $5 $6 $7 $8 $9
983
984         ! rightmost in register to first in memory
985
986 #ifdef OPENSSL_SYSNAME_ULTRASPARC
987         andcc   $1, 3, global0
988         bne,pn  %icc, $5
989         nop
990
991         sta     $2, [$1] 0x88
992         add     $1, 4, $4
993
994         ba,pt   %icc, $5a
995         sta     $3, [$4] 0x88
996 #endif
997
998 $5:
999         and     $2, 255, $4
1000         stub    $4, [$1+0]
1001
1002         srl     $2, 8, $4
1003         and     $4, 255, $4
1004         stub    $4, [$1+1]
1005
1006         srl     $2, 16, $4
1007         and     $4, 255, $4
1008         stub    $4, [$1+2]
1009
1010         srl     $2, 24, $4
1011         stub    $4, [$1+3]
1012
1013
1014         and     $3, 255, $4
1015         stub    $4, [$1+0+4]
1016
1017         srl     $3, 8, $4
1018         and     $4, 255, $4
1019         stub    $4, [$1+1+4]
1020
1021         srl     $3, 16, $4
1022         and     $4, 255, $4
1023         stub    $4, [$1+2+4]
1024
1025         srl     $3, 24, $4
1026         stub    $4, [$1+3+4]
1027
1028 $5a:
1029
1030 })
1031
1032
1033 ! {store_n_bytes}
1034 !
1035 ! Stores 1 to 7 bytes little endian
1036 !
1037 ! parameter 1  address
1038 ! parameter 2  length
1039 ! parameter 3  source register left
1040 ! parameter 4  source register right
1041 ! parameter 5  temp
1042 ! parameter 6  temp2
1043 ! parameter 7  label
1044 ! parameter 8  return label
1045
1046 define(store_n_bytes, {
1047
1048 ! {store_n_bytes}
1049 ! $1 $2 $5 $6 $7 $8 $7 $8 $9
1050
1051 $7.0:   call    .+8
1052         sll     $2, 2, $6
1053
1054         add     %o7,$7.jmp.table-$7.0,$5
1055
1056         add     $5, $6, $5
1057
1058         ld      [$5], $5
1059
1060         jmp     %o7+$5
1061         nop
1062
1063 $7.7:
1064         srl     $3, 16, $5
1065         and     $5, 0xff, $5
1066         stub    $5, [$1+6]
1067 $7.6:
1068         srl     $3, 8, $5
1069         and     $5, 0xff, $5
1070         stub    $5, [$1+5]
1071 $7.5:
1072         and     $3, 0xff, $5
1073         stub    $5, [$1+4]
1074 $7.4:
1075         srl     $4, 24, $5
1076         stub    $5, [$1+3]
1077 $7.3:
1078         srl     $4, 16, $5
1079         and     $5, 0xff, $5
1080         stub    $5, [$1+2]
1081 $7.2:
1082         srl     $4, 8, $5
1083         and     $5, 0xff, $5
1084         stub    $5, [$1+1]
1085 $7.1:
1086         and     $4, 0xff, $5
1087
1088
1089         ba      $8
1090         stub    $5, [$1]
1091
1092         .align 4
1093
1094 $7.jmp.table:
1095
1096         .word   0
1097         .word   $7.1-$7.0
1098         .word   $7.2-$7.0
1099         .word   $7.3-$7.0
1100         .word   $7.4-$7.0
1101         .word   $7.5-$7.0
1102         .word   $7.6-$7.0
1103         .word   $7.7-$7.0
1104 })
1105
1106
1107 define(testvalue,{1})
1108
1109 define(register_init, {
1110
1111 ! For test purposes:
1112
1113         sethi   %hi(testvalue), local0
1114         or      local0, %lo(testvalue), local0
1115
1116         ifelse($1,{},{}, {mov   local0, $1})
1117         ifelse($2,{},{}, {mov   local0, $2})
1118         ifelse($3,{},{}, {mov   local0, $3})
1119         ifelse($4,{},{}, {mov   local0, $4})
1120         ifelse($5,{},{}, {mov   local0, $5})
1121         ifelse($6,{},{}, {mov   local0, $6})
1122         ifelse($7,{},{}, {mov   local0, $7})
1123         ifelse($8,{},{}, {mov   local0, $8})
1124
1125         mov     local0, local1
1126         mov     local0, local2
1127         mov     local0, local3
1128         mov     local0, local4
1129         mov     local0, local5
1130         mov     local0, local7
1131         mov     local0, local6
1132         mov     local0, out0
1133         mov     local0, out1
1134         mov     local0, out2
1135         mov     local0, out3
1136         mov     local0, out4
1137         mov     local0, out5
1138         mov     local0, global1
1139         mov     local0, global2
1140         mov     local0, global3
1141         mov     local0, global4
1142         mov     local0, global5
1143
1144 })
1145
1146 .section        ".text"
1147
1148         .align 32
1149
1150 .des_enc:
1151
1152         ! key address in3
1153         ! loads key next encryption/decryption first round from [in4]
1154
1155         rounds_macro(in5, out5, 1, .des_enc.1, in3, in4, retl)
1156
1157
1158         .align 32
1159
1160 .des_dec:
1161
1162         ! implemented with out5 as first parameter to avoid
1163         ! register exchange in ede modes
1164
1165         ! key address in4
1166         ! loads key next encryption/decryption first round from [in3]
1167
1168         rounds_macro(out5, in5, -1, .des_dec.1, in4, in3, retl)
1169
1170
1171
1172 ! void DES_encrypt1(data, ks, enc)
1173 ! *******************************
1174
1175         .align 32
1176         .global DES_encrypt1
1177         .type    DES_encrypt1,#function
1178
1179 DES_encrypt1:
1180
1181         save    %sp, FRAME, %sp
1182
1183         call    .PIC.me.up
1184         mov     .PIC.me.up-(.-4),out0
1185
1186         ld      [in0], in5                ! left
1187         cmp     in2, 0                    ! enc
1188
1189 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1190         be,pn   %icc, .encrypt.dec        ! enc/dec
1191 #else
1192         be      .encrypt.dec
1193 #endif
1194         ld      [in0+4], out5             ! right
1195
1196         ! parameter 6  1/2 for include encryption/decryption
1197         ! parameter 7  1 for move in1 to in3
1198         ! parameter 8  1 for move in3 to in4, 2 for move in4 to in3
1199
1200         ip_macro(in5, out5, in5, out5, in3, 0, 1, 1)
1201
1202         rounds_macro(in5, out5, 1, .des_encrypt1.1, in3, in4) ! in4 not used
1203
1204         fp_macro(in5, out5, 1)            ! 1 for store to [in0]
1205
1206         ret
1207         restore
1208
1209 .encrypt.dec:
1210
1211         add     in1, 120, in3             ! use last subkey for first round
1212
1213         ! parameter 6  1/2 for include encryption/decryption
1214         ! parameter 7  1 for move in1 to in3
1215         ! parameter 8  1 for move in3 to in4, 2 for move in4 to in3
1216
1217         ip_macro(in5, out5, out5, in5, in4, 2, 0, 1) ! include dec,  ks in4
1218
1219         fp_macro(out5, in5, 1)            ! 1 for store to [in0]
1220
1221         ret
1222         restore
1223
1224 .DES_encrypt1.end:
1225         .size    DES_encrypt1,.DES_encrypt1.end-DES_encrypt1
1226
1227
1228 ! void DES_encrypt2(data, ks, enc)
1229 !*********************************
1230
1231         ! encrypts/decrypts without initial/final permutation
1232
1233         .align 32
1234         .global DES_encrypt2
1235         .type    DES_encrypt2,#function
1236
1237 DES_encrypt2:
1238
1239         save    %sp, FRAME, %sp
1240
1241         call    .PIC.me.up
1242         mov     .PIC.me.up-(.-4),out0
1243
1244         ! Set sbox address 1 to 6 and rotate halfs 3 left
1245         ! Errors caught by destest? Yes. Still? *NO*
1246
1247         !sethi  %hi(DES_SPtrans), global1 ! address sbox 1
1248
1249         !or     global1, %lo(DES_SPtrans), global1  ! sbox 1
1250
1251         add     global1, 256, global2     ! sbox 2
1252         add     global1, 512, global3     ! sbox 3
1253
1254         ld      [in0], out5               ! right
1255         add     global1, 768, global4     ! sbox 4
1256         add     global1, 1024, global5    ! sbox 5
1257
1258         ld      [in0+4], in5              ! left
1259         add     global1, 1280, local6     ! sbox 6
1260         add     global1, 1792, out3       ! sbox 8
1261
1262         ! rotate
1263
1264         sll     in5, 3, local5
1265         mov     in1, in3                  ! key address to in3
1266
1267         sll     out5, 3, local7
1268         srl     in5, 29, in5
1269
1270         srl     out5, 29, out5
1271         add     in5, local5, in5
1272
1273         add     out5, local7, out5
1274         cmp     in2, 0
1275
1276         ! we use our own stackframe
1277
1278 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1279         be,pn   %icc, .encrypt2.dec       ! decryption
1280 #else
1281         be      .encrypt2.dec
1282 #endif
1283         STPTR   in0, [%sp+BIAS+ARG0+0*ARGSZ]
1284
1285         ld      [in3], out0               ! key 7531 first round
1286         mov     LOOPS, out4               ! loop counter
1287
1288         ld      [in3+4], out1             ! key 8642 first round
1289         sethi   %hi(0x0000FC00), local5
1290
1291         call .des_enc
1292         mov     in3, in4
1293
1294         ! rotate
1295         sll     in5, 29, in0
1296         srl     in5, 3, in5
1297         sll     out5, 29, in1
1298         add     in5, in0, in5
1299         srl     out5, 3, out5
1300         LDPTR   [%sp+BIAS+ARG0+0*ARGSZ], in0
1301         add     out5, in1, out5
1302         st      in5, [in0]
1303         st      out5, [in0+4]
1304
1305         ret
1306         restore
1307
1308
1309 .encrypt2.dec:
1310
1311         add in3, 120, in4
1312
1313         ld      [in4], out0               ! key 7531 first round
1314         mov     LOOPS, out4               ! loop counter
1315
1316         ld      [in4+4], out1             ! key 8642 first round
1317         sethi   %hi(0x0000FC00), local5
1318
1319         mov     in5, local1               ! left expected in out5
1320         mov     out5, in5
1321
1322         call .des_dec
1323         mov     local1, out5
1324
1325 .encrypt2.finish:
1326
1327         ! rotate
1328         sll     in5, 29, in0
1329         srl     in5, 3, in5
1330         sll     out5, 29, in1
1331         add     in5, in0, in5
1332         srl     out5, 3, out5
1333         LDPTR   [%sp+BIAS+ARG0+0*ARGSZ], in0
1334         add     out5, in1, out5
1335         st      out5, [in0]
1336         st      in5, [in0+4]
1337
1338         ret
1339         restore
1340
1341 .DES_encrypt2.end:
1342         .size    DES_encrypt2, .DES_encrypt2.end-DES_encrypt2
1343
1344
1345 ! void DES_encrypt3(data, ks1, ks2, ks3)
1346 ! **************************************
1347
1348         .align 32
1349         .global DES_encrypt3
1350         .type    DES_encrypt3,#function
1351
1352 DES_encrypt3:
1353
1354         save    %sp, FRAME, %sp
1355         
1356         call    .PIC.me.up
1357         mov     .PIC.me.up-(.-4),out0
1358
1359         ld      [in0], in5                ! left
1360         add     in2, 120, in4             ! ks2
1361
1362         ld      [in0+4], out5             ! right
1363         mov     in3, in2                  ! save ks3
1364
1365         ! parameter 6  1/2 for include encryption/decryption
1366         ! parameter 7  1 for mov in1 to in3
1367         ! parameter 8  1 for mov in3 to in4
1368         ! parameter 9  1 for load ks3 and ks2 to in4 and in3
1369
1370         ip_macro(in5, out5, in5, out5, in3, 1, 1, 0, 0)
1371
1372         call    .des_dec
1373         mov     in2, in3                  ! preload ks3
1374
1375         call    .des_enc
1376         nop
1377
1378         fp_macro(in5, out5, 1)
1379
1380         ret
1381         restore
1382
1383 .DES_encrypt3.end:
1384         .size    DES_encrypt3,.DES_encrypt3.end-DES_encrypt3
1385
1386
1387 ! void DES_decrypt3(data, ks1, ks2, ks3)
1388 ! **************************************
1389
1390         .align 32
1391         .global DES_decrypt3
1392         .type    DES_decrypt3,#function
1393
1394 DES_decrypt3:
1395
1396         save    %sp, FRAME, %sp
1397         
1398         call    .PIC.me.up
1399         mov     .PIC.me.up-(.-4),out0
1400
1401         ld      [in0], in5                ! left
1402         add     in3, 120, in4             ! ks3
1403
1404         ld      [in0+4], out5             ! right
1405         mov     in2, in3                  ! ks2
1406
1407         ! parameter 6  1/2 for include encryption/decryption
1408         ! parameter 7  1 for mov in1 to in3
1409         ! parameter 8  1 for mov in3 to in4
1410         ! parameter 9  1 for load ks3 and ks2 to in4 and in3
1411
1412         ip_macro(in5, out5, out5, in5, in4, 2, 0, 0, 0)
1413
1414         call    .des_enc
1415         add     in1, 120, in4             ! preload ks1
1416
1417         call    .des_dec
1418         nop
1419
1420         fp_macro(out5, in5, 1)
1421
1422         ret
1423         restore
1424
1425 .DES_decrypt3.end:
1426         .size    DES_decrypt3,.DES_decrypt3.end-DES_decrypt3
1427
1428 ! input:        out0    offset between .PIC.me.up and caller
1429 ! output:       out0    pointer to .PIC.me.up
1430 !               out2    pointer to .des_and
1431 !               global1 pointer to DES_SPtrans
1432         .align  32
1433 .PIC.me.up:
1434         add     out0,%o7,out0                   ! pointer to .PIC.me.up
1435         sethi   %hi(.des_and-.PIC.me.up),out2
1436         or      out2,%lo(.des_and-.PIC.me.up),out2
1437         add     out0,out2,out2
1438         retl
1439         add     out2,.PIC.DES_SPtrans-.des_and,global1
1440
1441 ! void DES_ncbc_encrypt(input, output, length, schedule, ivec, enc)
1442 ! *****************************************************************
1443
1444
1445         .align 32
1446         .global DES_ncbc_encrypt
1447         .type    DES_ncbc_encrypt,#function
1448
1449 DES_ncbc_encrypt:
1450
1451         save    %sp, FRAME, %sp
1452         
1453         define({INPUT},  { [%sp+BIAS+ARG0+0*ARGSZ] })
1454         define({OUTPUT}, { [%sp+BIAS+ARG0+1*ARGSZ] })
1455         define({IVEC},   { [%sp+BIAS+ARG0+4*ARGSZ] })
1456
1457         call    .PIC.me.up
1458         mov     .PIC.me.up-(.-4),out0
1459
1460         cmp     in5, 0                    ! enc   
1461
1462 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1463         be,pn   %icc, .ncbc.dec
1464 #else
1465         be      .ncbc.dec
1466 #endif
1467         STPTR   in4, IVEC
1468
1469         ! addr  left  right  temp  label
1470         load_little_endian(in4, in5, out5, local3, .LLE1)  ! iv
1471
1472         addcc   in2, -8, in2              ! bytes missing when first block done
1473
1474 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1475         bl,pn   %icc, .ncbc.enc.seven.or.less
1476 #else
1477         bl      .ncbc.enc.seven.or.less
1478 #endif
1479         mov     in3, in4                  ! schedule
1480
1481 .ncbc.enc.next.block:
1482
1483         load_little_endian(in0, out4, global4, local3, .LLE2)  ! block
1484
1485 .ncbc.enc.next.block_1:
1486
1487         xor     in5, out4, in5            ! iv xor
1488         xor     out5, global4, out5       ! iv xor
1489
1490         ! parameter 8  1 for move in3 to in4, 2 for move in4 to in3
1491         ip_macro(in5, out5, in5, out5, in3, 0, 0, 2)
1492
1493 .ncbc.enc.next.block_2:
1494
1495 !//     call .des_enc                     ! compares in2 to 8
1496 !       rounds inlined for alignment purposes
1497
1498         add     global1, 768, global4     ! address sbox 4 since register used below
1499
1500         rounds_macro(in5, out5, 1, .ncbc.enc.1, in3, in4) ! include encryption  ks in3
1501
1502 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1503         bl,pn   %icc, .ncbc.enc.next.block_fp
1504 #else
1505         bl      .ncbc.enc.next.block_fp
1506 #endif
1507         add     in0, 8, in0               ! input address
1508
1509         ! If 8 or more bytes are to be encrypted after this block,
1510         ! we combine final permutation for this block with initial
1511         ! permutation for next block. Load next block:
1512
1513         load_little_endian(in0, global3, global4, local5, .LLE12)
1514
1515         !  parameter 1   original left
1516         !  parameter 2   original right
1517         !  parameter 3   left ip
1518         !  parameter 4   right ip
1519         !  parameter 5   1: load ks1/ks2 to in3/in4, add 120 to in4
1520         !                2: mov in4 to in3
1521         !
1522         ! also adds -8 to length in2 and loads loop counter to out4
1523
1524         fp_ip_macro(out0, out1, global3, global4, 2)
1525
1526         store_little_endian(in1, out0, out1, local3, .SLE10)  ! block
1527
1528         ld      [in3], out0               ! key 7531 first round next block
1529         mov     in5, local1
1530         xor     global3, out5, in5        ! iv xor next block
1531
1532         ld      [in3+4], out1             ! key 8642
1533         add     global1, 512, global3     ! address sbox 3 since register used
1534         xor     global4, local1, out5     ! iv xor next block
1535
1536         ba      .ncbc.enc.next.block_2
1537         add     in1, 8, in1               ! output adress
1538
1539 .ncbc.enc.next.block_fp:
1540
1541         fp_macro(in5, out5)
1542
1543         store_little_endian(in1, in5, out5, local3, .SLE1)  ! block
1544
1545         addcc   in2, -8, in2              ! bytes missing when next block done
1546
1547 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1548         bpos,pt %icc, .ncbc.enc.next.block  ! also jumps if 0
1549 #else
1550         bpos    .ncbc.enc.next.block
1551 #endif
1552         add     in1, 8, in1
1553
1554 .ncbc.enc.seven.or.less:
1555
1556         cmp     in2, -8
1557
1558 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1559         ble,pt  %icc, .ncbc.enc.finish
1560 #else
1561         ble     .ncbc.enc.finish
1562 #endif
1563         nop
1564
1565         add     in2, 8, local1            ! bytes to load
1566
1567         ! addr, length, dest left, dest right, temp, temp2, label, ret label
1568         load_n_bytes(in0, local1, global4, out4, local2, local3, .LNB1, .ncbc.enc.next.block_1)
1569
1570         ! Loads 1 to 7 bytes little endian to global4, out4
1571
1572
1573 .ncbc.enc.finish:
1574
1575         LDPTR   IVEC, local4
1576         store_little_endian(local4, in5, out5, local5, .SLE2)  ! ivec
1577
1578         ret
1579         restore
1580
1581
1582 .ncbc.dec:
1583
1584         STPTR   in0, INPUT
1585         cmp     in2, 0                    ! length
1586         add     in3, 120, in3
1587
1588         LDPTR   IVEC, local7              ! ivec
1589 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1590         ble,pn  %icc, .ncbc.dec.finish
1591 #else
1592         ble     .ncbc.dec.finish
1593 #endif
1594         mov     in3, in4                  ! schedule
1595
1596         STPTR   in1, OUTPUT
1597         mov     in0, local5               ! input
1598
1599         load_little_endian(local7, in0, in1, local3, .LLE3)   ! ivec
1600
1601 .ncbc.dec.next.block:
1602
1603         load_little_endian(local5, in5, out5, local3, .LLE4)  ! block
1604
1605         ! parameter 6  1/2 for include encryption/decryption
1606         ! parameter 7  1 for mov in1 to in3
1607         ! parameter 8  1 for mov in3 to in4
1608
1609         ip_macro(in5, out5, out5, in5, in4, 2, 0, 1) ! include decryprion  ks in4
1610
1611         fp_macro(out5, in5, 0, 1) ! 1 for input and output address to local5/7
1612
1613         ! in2 is bytes left to be stored
1614         ! in2 is compared to 8 in the rounds
1615
1616         xor     out5, in0, out4           ! iv xor
1617 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1618         bl,pn   %icc, .ncbc.dec.seven.or.less
1619 #else
1620         bl      .ncbc.dec.seven.or.less
1621 #endif
1622         xor     in5, in1, global4         ! iv xor
1623
1624         ! Load ivec next block now, since input and output address might be the same.
1625
1626         load_little_endian_inc(local5, in0, in1, local3, .LLE5)  ! iv
1627
1628         store_little_endian(local7, out4, global4, local3, .SLE3)
1629
1630         STPTR   local5, INPUT
1631         add     local7, 8, local7
1632         addcc   in2, -8, in2
1633
1634 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1635         bg,pt   %icc, .ncbc.dec.next.block
1636 #else
1637         bg      .ncbc.dec.next.block
1638 #endif
1639         STPTR   local7, OUTPUT
1640
1641
1642 .ncbc.dec.store.iv:
1643
1644         LDPTR   IVEC, local4              ! ivec
1645         store_little_endian(local4, in0, in1, local5, .SLE4)
1646
1647 .ncbc.dec.finish:
1648
1649         ret
1650         restore
1651
1652 .ncbc.dec.seven.or.less:
1653
1654         load_little_endian_inc(local5, in0, in1, local3, .LLE13)     ! ivec
1655
1656         store_n_bytes(local7, in2, global4, out4, local3, local4, .SNB1, .ncbc.dec.store.iv)
1657
1658
1659 .DES_ncbc_encrypt.end:
1660         .size    DES_ncbc_encrypt, .DES_ncbc_encrypt.end-DES_ncbc_encrypt
1661
1662
1663 ! void DES_ede3_cbc_encrypt(input, output, lenght, ks1, ks2, ks3, ivec, enc)
1664 ! **************************************************************************
1665
1666
1667         .align 32
1668         .global DES_ede3_cbc_encrypt
1669         .type    DES_ede3_cbc_encrypt,#function
1670
1671 DES_ede3_cbc_encrypt:
1672
1673         save    %sp, FRAME, %sp
1674
1675         define({KS1}, { [%sp+BIAS+ARG0+3*ARGSZ] })
1676         define({KS2}, { [%sp+BIAS+ARG0+4*ARGSZ] })
1677         define({KS3}, { [%sp+BIAS+ARG0+5*ARGSZ] })
1678
1679         call    .PIC.me.up
1680         mov     .PIC.me.up-(.-4),out0
1681
1682         LDPTR   [%fp+BIAS+ARG0+7*ARGSZ], local3          ! enc
1683         LDPTR   [%fp+BIAS+ARG0+6*ARGSZ], local4          ! ivec
1684         cmp     local3, 0                 ! enc
1685
1686 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1687         be,pn   %icc, .ede3.dec
1688 #else
1689         be      .ede3.dec
1690 #endif
1691         STPTR   in4, KS2
1692
1693         STPTR   in5, KS3
1694
1695         load_little_endian(local4, in5, out5, local3, .LLE6)  ! ivec
1696
1697         addcc   in2, -8, in2              ! bytes missing after next block
1698
1699 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1700         bl,pn   %icc,  .ede3.enc.seven.or.less
1701 #else
1702         bl      .ede3.enc.seven.or.less
1703 #endif
1704         STPTR   in3, KS1
1705
1706 .ede3.enc.next.block:
1707
1708         load_little_endian(in0, out4, global4, local3, .LLE7)
1709
1710 .ede3.enc.next.block_1:
1711
1712         LDPTR   KS2, in4
1713         xor     in5, out4, in5            ! iv xor
1714         xor     out5, global4, out5       ! iv xor
1715
1716         LDPTR   KS1, in3
1717         add     in4, 120, in4             ! for decryption we use last subkey first
1718         nop
1719
1720         ip_macro(in5, out5, in5, out5, in3)
1721
1722 .ede3.enc.next.block_2:
1723
1724         call .des_enc                     ! ks1 in3
1725         nop
1726
1727         call .des_dec                     ! ks2 in4
1728         LDPTR   KS3, in3
1729
1730         call .des_enc                     ! ks3 in3  compares in2 to 8
1731         nop
1732
1733 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1734         bl,pn   %icc, .ede3.enc.next.block_fp
1735 #else
1736         bl      .ede3.enc.next.block_fp
1737 #endif
1738         add     in0, 8, in0
1739
1740         ! If 8 or more bytes are to be encrypted after this block,
1741         ! we combine final permutation for this block with initial
1742         ! permutation for next block. Load next block:
1743
1744         load_little_endian(in0, global3, global4, local5, .LLE11)
1745
1746         !  parameter 1   original left
1747         !  parameter 2   original right
1748         !  parameter 3   left ip
1749         !  parameter 4   right ip
1750         !  parameter 5   1: load ks1/ks2 to in3/in4, add 120 to in4
1751         !                2: mov in4 to in3
1752         !
1753         ! also adds -8 to length in2 and loads loop counter to out4
1754
1755         fp_ip_macro(out0, out1, global3, global4, 1)
1756
1757         store_little_endian(in1, out0, out1, local3, .SLE9)  ! block
1758
1759         mov     in5, local1
1760         xor     global3, out5, in5        ! iv xor next block
1761
1762         ld      [in3], out0               ! key 7531
1763         add     global1, 512, global3     ! address sbox 3
1764         xor     global4, local1, out5     ! iv xor next block
1765
1766         ld      [in3+4], out1             ! key 8642
1767         add     global1, 768, global4     ! address sbox 4
1768         ba      .ede3.enc.next.block_2
1769         add     in1, 8, in1
1770
1771 .ede3.enc.next.block_fp:
1772
1773         fp_macro(in5, out5)
1774
1775         store_little_endian(in1, in5, out5, local3, .SLE5)  ! block
1776
1777         addcc   in2, -8, in2              ! bytes missing when next block done
1778
1779 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1780         bpos,pt %icc, .ede3.enc.next.block
1781 #else
1782         bpos    .ede3.enc.next.block
1783 #endif
1784         add     in1, 8, in1
1785
1786 .ede3.enc.seven.or.less:
1787
1788         cmp     in2, -8
1789
1790 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1791         ble,pt  %icc, .ede3.enc.finish
1792 #else
1793         ble     .ede3.enc.finish
1794 #endif
1795         nop
1796
1797         add     in2, 8, local1            ! bytes to load
1798
1799         ! addr, length, dest left, dest right, temp, temp2, label, ret label
1800         load_n_bytes(in0, local1, global4, out4, local2, local3, .LNB2, .ede3.enc.next.block_1)
1801
1802 .ede3.enc.finish:
1803
1804         LDPTR   [%fp+BIAS+ARG0+6*ARGSZ], local4          ! ivec
1805         store_little_endian(local4, in5, out5, local5, .SLE6)  ! ivec
1806
1807         ret
1808         restore
1809
1810 .ede3.dec:
1811
1812         STPTR   in0, INPUT
1813         add     in5, 120, in5
1814
1815         STPTR   in1, OUTPUT
1816         mov     in0, local5
1817         add     in3, 120, in3
1818
1819         STPTR   in3, KS1
1820         cmp     in2, 0
1821
1822 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1823         ble     %icc, .ede3.dec.finish
1824 #else
1825         ble     .ede3.dec.finish
1826 #endif
1827         STPTR   in5, KS3
1828
1829         LDPTR   [%fp+BIAS+ARG0+6*ARGSZ], local7          ! iv
1830         load_little_endian(local7, in0, in1, local3, .LLE8)
1831
1832 .ede3.dec.next.block:
1833
1834         load_little_endian(local5, in5, out5, local3, .LLE9)
1835
1836         ! parameter 6  1/2 for include encryption/decryption
1837         ! parameter 7  1 for mov in1 to in3
1838         ! parameter 8  1 for mov in3 to in4
1839         ! parameter 9  1 for load ks3 and ks2 to in4 and in3
1840
1841         ip_macro(in5, out5, out5, in5, in4, 2, 0, 0, 1) ! inc .des_dec ks3 in4
1842
1843         call .des_enc                     ! ks2 in3
1844         LDPTR   KS1, in4
1845
1846         call .des_dec                     ! ks1 in4
1847         nop
1848
1849         fp_macro(out5, in5, 0, 1)   ! 1 for input and output address local5/7
1850
1851         ! in2 is bytes left to be stored
1852         ! in2 is compared to 8 in the rounds
1853
1854         xor     out5, in0, out4
1855 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1856         bl,pn   %icc, .ede3.dec.seven.or.less
1857 #else
1858         bl      .ede3.dec.seven.or.less
1859 #endif
1860         xor     in5, in1, global4
1861
1862         load_little_endian_inc(local5, in0, in1, local3, .LLE10)   ! iv next block
1863
1864         store_little_endian(local7, out4, global4, local3, .SLE7)  ! block
1865
1866         STPTR   local5, INPUT
1867         addcc   in2, -8, in2
1868         add     local7, 8, local7
1869
1870 #ifdef OPENSSL_SYSNAME_ULTRASPARC
1871         bg,pt   %icc, .ede3.dec.next.block
1872 #else
1873         bg      .ede3.dec.next.block
1874 #endif
1875         STPTR   local7, OUTPUT
1876
1877 .ede3.dec.store.iv:
1878
1879         LDPTR   [%fp+BIAS+ARG0+6*ARGSZ], local4          ! ivec
1880         store_little_endian(local4, in0, in1, local5, .SLE8)  ! ivec
1881
1882 .ede3.dec.finish:
1883
1884         ret
1885         restore
1886
1887 .ede3.dec.seven.or.less:
1888
1889         load_little_endian_inc(local5, in0, in1, local3, .LLE14)     ! iv
1890
1891         store_n_bytes(local7, in2, global4, out4, local3, local4, .SNB2, .ede3.dec.store.iv)
1892
1893
1894 .DES_ede3_cbc_encrypt.end:
1895         .size    DES_ede3_cbc_encrypt,.DES_ede3_cbc_encrypt.end-DES_ede3_cbc_encrypt
1896
1897         .align  256
1898         .type    .des_and,#object
1899         .size    .des_and,284
1900
1901 .des_and:
1902
1903 ! This table is used for AND 0xFC when it is known that register
1904 ! bits 8-31 are zero. Makes it possible to do three arithmetic
1905 ! operations in one cycle.
1906
1907         .byte  0, 0, 0, 0, 4, 4, 4, 4
1908         .byte  8, 8, 8, 8, 12, 12, 12, 12
1909         .byte  16, 16, 16, 16, 20, 20, 20, 20
1910         .byte  24, 24, 24, 24, 28, 28, 28, 28
1911         .byte  32, 32, 32, 32, 36, 36, 36, 36
1912         .byte  40, 40, 40, 40, 44, 44, 44, 44
1913         .byte  48, 48, 48, 48, 52, 52, 52, 52
1914         .byte  56, 56, 56, 56, 60, 60, 60, 60
1915         .byte  64, 64, 64, 64, 68, 68, 68, 68
1916         .byte  72, 72, 72, 72, 76, 76, 76, 76
1917         .byte  80, 80, 80, 80, 84, 84, 84, 84
1918         .byte  88, 88, 88, 88, 92, 92, 92, 92
1919         .byte  96, 96, 96, 96, 100, 100, 100, 100
1920         .byte  104, 104, 104, 104, 108, 108, 108, 108
1921         .byte  112, 112, 112, 112, 116, 116, 116, 116
1922         .byte  120, 120, 120, 120, 124, 124, 124, 124
1923         .byte  128, 128, 128, 128, 132, 132, 132, 132
1924         .byte  136, 136, 136, 136, 140, 140, 140, 140
1925         .byte  144, 144, 144, 144, 148, 148, 148, 148
1926         .byte  152, 152, 152, 152, 156, 156, 156, 156
1927         .byte  160, 160, 160, 160, 164, 164, 164, 164
1928         .byte  168, 168, 168, 168, 172, 172, 172, 172
1929         .byte  176, 176, 176, 176, 180, 180, 180, 180
1930         .byte  184, 184, 184, 184, 188, 188, 188, 188
1931         .byte  192, 192, 192, 192, 196, 196, 196, 196
1932         .byte  200, 200, 200, 200, 204, 204, 204, 204
1933         .byte  208, 208, 208, 208, 212, 212, 212, 212
1934         .byte  216, 216, 216, 216, 220, 220, 220, 220
1935         .byte  224, 224, 224, 224, 228, 228, 228, 228
1936         .byte  232, 232, 232, 232, 236, 236, 236, 236
1937         .byte  240, 240, 240, 240, 244, 244, 244, 244
1938         .byte  248, 248, 248, 248, 252, 252, 252, 252
1939
1940         ! 5 numbers for initil/final permutation
1941
1942         .word   0x0f0f0f0f                ! offset 256
1943         .word   0x0000ffff                ! 260
1944         .word   0x33333333                ! 264
1945         .word   0x00ff00ff                ! 268
1946         .word   0x55555555                ! 272
1947
1948         .word   0                         ! 276
1949         .word   LOOPS                     ! 280
1950         .word   0x0000FC00                ! 284
1951
1952         .global DES_SPtrans
1953         .type   DES_SPtrans,#object
1954         .size   DES_SPtrans,2048
1955 .align  64
1956 DES_SPtrans:
1957 .PIC.DES_SPtrans:
1958         ! nibble 0
1959         .word   0x02080800, 0x00080000, 0x02000002, 0x02080802
1960         .word   0x02000000, 0x00080802, 0x00080002, 0x02000002
1961         .word   0x00080802, 0x02080800, 0x02080000, 0x00000802
1962         .word   0x02000802, 0x02000000, 0x00000000, 0x00080002
1963         .word   0x00080000, 0x00000002, 0x02000800, 0x00080800
1964         .word   0x02080802, 0x02080000, 0x00000802, 0x02000800
1965         .word   0x00000002, 0x00000800, 0x00080800, 0x02080002
1966         .word   0x00000800, 0x02000802, 0x02080002, 0x00000000
1967         .word   0x00000000, 0x02080802, 0x02000800, 0x00080002
1968         .word   0x02080800, 0x00080000, 0x00000802, 0x02000800
1969         .word   0x02080002, 0x00000800, 0x00080800, 0x02000002
1970         .word   0x00080802, 0x00000002, 0x02000002, 0x02080000
1971         .word   0x02080802, 0x00080800, 0x02080000, 0x02000802
1972         .word   0x02000000, 0x00000802, 0x00080002, 0x00000000
1973         .word   0x00080000, 0x02000000, 0x02000802, 0x02080800
1974         .word   0x00000002, 0x02080002, 0x00000800, 0x00080802
1975         ! nibble 1
1976         .word   0x40108010, 0x00000000, 0x00108000, 0x40100000
1977         .word   0x40000010, 0x00008010, 0x40008000, 0x00108000
1978         .word   0x00008000, 0x40100010, 0x00000010, 0x40008000
1979         .word   0x00100010, 0x40108000, 0x40100000, 0x00000010
1980         .word   0x00100000, 0x40008010, 0x40100010, 0x00008000
1981         .word   0x00108010, 0x40000000, 0x00000000, 0x00100010
1982         .word   0x40008010, 0x00108010, 0x40108000, 0x40000010
1983         .word   0x40000000, 0x00100000, 0x00008010, 0x40108010
1984         .word   0x00100010, 0x40108000, 0x40008000, 0x00108010
1985         .word   0x40108010, 0x00100010, 0x40000010, 0x00000000
1986         .word   0x40000000, 0x00008010, 0x00100000, 0x40100010
1987         .word   0x00008000, 0x40000000, 0x00108010, 0x40008010
1988         .word   0x40108000, 0x00008000, 0x00000000, 0x40000010
1989         .word   0x00000010, 0x40108010, 0x00108000, 0x40100000
1990         .word   0x40100010, 0x00100000, 0x00008010, 0x40008000
1991         .word   0x40008010, 0x00000010, 0x40100000, 0x00108000
1992         ! nibble 2
1993         .word   0x04000001, 0x04040100, 0x00000100, 0x04000101
1994         .word   0x00040001, 0x04000000, 0x04000101, 0x00040100
1995         .word   0x04000100, 0x00040000, 0x04040000, 0x00000001
1996         .word   0x04040101, 0x00000101, 0x00000001, 0x04040001
1997         .word   0x00000000, 0x00040001, 0x04040100, 0x00000100
1998         .word   0x00000101, 0x04040101, 0x00040000, 0x04000001
1999         .word   0x04040001, 0x04000100, 0x00040101, 0x04040000
2000         .word   0x00040100, 0x00000000, 0x04000000, 0x00040101
2001         .word   0x04040100, 0x00000100, 0x00000001, 0x00040000
2002         .word   0x00000101, 0x00040001, 0x04040000, 0x04000101
2003         .word   0x00000000, 0x04040100, 0x00040100, 0x04040001
2004         .word   0x00040001, 0x04000000, 0x04040101, 0x00000001
2005         .word   0x00040101, 0x04000001, 0x04000000, 0x04040101
2006         .word   0x00040000, 0x04000100, 0x04000101, 0x00040100
2007         .word   0x04000100, 0x00000000, 0x04040001, 0x00000101
2008         .word   0x04000001, 0x00040101, 0x00000100, 0x04040000
2009         ! nibble 3
2010         .word   0x00401008, 0x10001000, 0x00000008, 0x10401008
2011         .word   0x00000000, 0x10400000, 0x10001008, 0x00400008
2012         .word   0x10401000, 0x10000008, 0x10000000, 0x00001008
2013         .word   0x10000008, 0x00401008, 0x00400000, 0x10000000
2014         .word   0x10400008, 0x00401000, 0x00001000, 0x00000008
2015         .word   0x00401000, 0x10001008, 0x10400000, 0x00001000
2016         .word   0x00001008, 0x00000000, 0x00400008, 0x10401000
2017         .word   0x10001000, 0x10400008, 0x10401008, 0x00400000
2018         .word   0x10400008, 0x00001008, 0x00400000, 0x10000008
2019         .word   0x00401000, 0x10001000, 0x00000008, 0x10400000
2020         .word   0x10001008, 0x00000000, 0x00001000, 0x00400008
2021         .word   0x00000000, 0x10400008, 0x10401000, 0x00001000
2022         .word   0x10000000, 0x10401008, 0x00401008, 0x00400000
2023         .word   0x10401008, 0x00000008, 0x10001000, 0x00401008
2024         .word   0x00400008, 0x00401000, 0x10400000, 0x10001008
2025         .word   0x00001008, 0x10000000, 0x10000008, 0x10401000
2026         ! nibble 4
2027         .word   0x08000000, 0x00010000, 0x00000400, 0x08010420
2028         .word   0x08010020, 0x08000400, 0x00010420, 0x08010000
2029         .word   0x00010000, 0x00000020, 0x08000020, 0x00010400
2030         .word   0x08000420, 0x08010020, 0x08010400, 0x00000000
2031         .word   0x00010400, 0x08000000, 0x00010020, 0x00000420
2032         .word   0x08000400, 0x00010420, 0x00000000, 0x08000020
2033         .word   0x00000020, 0x08000420, 0x08010420, 0x00010020
2034         .word   0x08010000, 0x00000400, 0x00000420, 0x08010400
2035         .word   0x08010400, 0x08000420, 0x00010020, 0x08010000
2036         .word   0x00010000, 0x00000020, 0x08000020, 0x08000400
2037         .word   0x08000000, 0x00010400, 0x08010420, 0x00000000
2038         .word   0x00010420, 0x08000000, 0x00000400, 0x00010020
2039         .word   0x08000420, 0x00000400, 0x00000000, 0x08010420
2040         .word   0x08010020, 0x08010400, 0x00000420, 0x00010000
2041         .word   0x00010400, 0x08010020, 0x08000400, 0x00000420
2042         .word   0x00000020, 0x00010420, 0x08010000, 0x08000020
2043         ! nibble 5
2044         .word   0x80000040, 0x00200040, 0x00000000, 0x80202000
2045         .word   0x00200040, 0x00002000, 0x80002040, 0x00200000
2046         .word   0x00002040, 0x80202040, 0x00202000, 0x80000000
2047         .word   0x80002000, 0x80000040, 0x80200000, 0x00202040
2048         .word   0x00200000, 0x80002040, 0x80200040, 0x00000000
2049         .word   0x00002000, 0x00000040, 0x80202000, 0x80200040
2050         .word   0x80202040, 0x80200000, 0x80000000, 0x00002040
2051         .word   0x00000040, 0x00202000, 0x00202040, 0x80002000
2052         .word   0x00002040, 0x80000000, 0x80002000, 0x00202040
2053         .word   0x80202000, 0x00200040, 0x00000000, 0x80002000
2054         .word   0x80000000, 0x00002000, 0x80200040, 0x00200000
2055         .word   0x00200040, 0x80202040, 0x00202000, 0x00000040
2056         .word   0x80202040, 0x00202000, 0x00200000, 0x80002040
2057         .word   0x80000040, 0x80200000, 0x00202040, 0x00000000
2058         .word   0x00002000, 0x80000040, 0x80002040, 0x80202000
2059         .word   0x80200000, 0x00002040, 0x00000040, 0x80200040
2060         ! nibble 6
2061         .word   0x00004000, 0x00000200, 0x01000200, 0x01000004
2062         .word   0x01004204, 0x00004004, 0x00004200, 0x00000000
2063         .word   0x01000000, 0x01000204, 0x00000204, 0x01004000
2064         .word   0x00000004, 0x01004200, 0x01004000, 0x00000204
2065         .word   0x01000204, 0x00004000, 0x00004004, 0x01004204
2066         .word   0x00000000, 0x01000200, 0x01000004, 0x00004200
2067         .word   0x01004004, 0x00004204, 0x01004200, 0x00000004
2068         .word   0x00004204, 0x01004004, 0x00000200, 0x01000000
2069         .word   0x00004204, 0x01004000, 0x01004004, 0x00000204
2070         .word   0x00004000, 0x00000200, 0x01000000, 0x01004004
2071         .word   0x01000204, 0x00004204, 0x00004200, 0x00000000
2072         .word   0x00000200, 0x01000004, 0x00000004, 0x01000200
2073         .word   0x00000000, 0x01000204, 0x01000200, 0x00004200
2074         .word   0x00000204, 0x00004000, 0x01004204, 0x01000000
2075         .word   0x01004200, 0x00000004, 0x00004004, 0x01004204
2076         .word   0x01000004, 0x01004200, 0x01004000, 0x00004004
2077         ! nibble 7
2078         .word   0x20800080, 0x20820000, 0x00020080, 0x00000000
2079         .word   0x20020000, 0x00800080, 0x20800000, 0x20820080
2080         .word   0x00000080, 0x20000000, 0x00820000, 0x00020080
2081         .word   0x00820080, 0x20020080, 0x20000080, 0x20800000
2082         .word   0x00020000, 0x00820080, 0x00800080, 0x20020000
2083         .word   0x20820080, 0x20000080, 0x00000000, 0x00820000
2084         .word   0x20000000, 0x00800000, 0x20020080, 0x20800080
2085         .word   0x00800000, 0x00020000, 0x20820000, 0x00000080
2086         .word   0x00800000, 0x00020000, 0x20000080, 0x20820080
2087         .word   0x00020080, 0x20000000, 0x00000000, 0x00820000
2088         .word   0x20800080, 0x20020080, 0x20020000, 0x00800080
2089         .word   0x20820000, 0x00000080, 0x00800080, 0x20020000
2090         .word   0x20820080, 0x00800000, 0x20800000, 0x20000080
2091         .word   0x00820000, 0x00020080, 0x20020080, 0x20800000
2092         .word   0x00000080, 0x20820000, 0x00820080, 0x00000000
2093         .word   0x20000000, 0x20800080, 0x00020000, 0x00820080
2094