Home | History | Annotate | Line # | Download | only in alpha
      1  1.1  christos #ifdef __linux__
      2  1.1  christos #include <asm/regdef.h>
      3  1.1  christos #else
      4  1.1  christos #include <asm.h>
      5  1.1  christos #include <regdef.h>
      6  1.1  christos #endif
      7  1.1  christos 
      8  1.1  christos .text
      9  1.1  christos 
     10  1.1  christos .set	noat
     11  1.1  christos .set	noreorder
     12  1.1  christos .globl	gcm_gmult_4bit
     13  1.1  christos .align	4
     14  1.1  christos .ent	gcm_gmult_4bit
     15  1.1  christos gcm_gmult_4bit:
     16  1.1  christos 	.frame	sp,0,ra
     17  1.1  christos 	.prologue 0
     18  1.1  christos 
     19  1.1  christos 	ldq	t11,8(a0)
     20  1.1  christos 	ldq	t10,0(a0)
     21  1.1  christos 
     22  1.1  christos 	bsr	t0,picmeup
     23  1.1  christos 	nop
     24  1.1  christos .align	4
     25  1.1  christos 	extbl	t11,7,a4
     26  1.1  christos 	and	a4,0xf0,a5
     27  1.1  christos 	sll	a4,4,a4
     28  1.1  christos 	and	a4,0xf0,a4
     29  1.1  christos 
     30  1.1  christos 	addq	a4,a1,a4
     31  1.1  christos 	ldq	t9,8(a4)
     32  1.1  christos 	addq	a5,a1,a5
     33  1.1  christos 	ldq	t8,0(a4)
     34  1.1  christos 
     35  1.1  christos 	and	t9,0x0f,t12
     36  1.1  christos 	sll	t8,60,t0
     37  1.1  christos 	lda	v0,6(zero)
     38  1.1  christos 	extbl	t11,6,a4
     39  1.1  christos 
     40  1.1  christos 	ldq	t6,8(a5)
     41  1.1  christos 	s8addq	t12,AT,t12
     42  1.1  christos 	ldq	t5,0(a5)
     43  1.1  christos 	srl	t9,4,t9
     44  1.1  christos 
     45  1.1  christos 	ldq	t7,0(t12)
     46  1.1  christos 	srl	t8,4,t8
     47  1.1  christos 	xor	t0,t9,t9
     48  1.1  christos 	and	a4,0xf0,a5
     49  1.1  christos 
     50  1.1  christos 	xor	t6,t9,t9
     51  1.1  christos 	sll	a4,4,a4
     52  1.1  christos 	xor	t5,t8,t8
     53  1.1  christos 	and	a4,0xf0,a4
     54  1.1  christos 
     55  1.1  christos 	addq	a4,a1,a4
     56  1.1  christos 	ldq	t4,8(a4)
     57  1.1  christos 	addq	a5,a1,a5
     58  1.1  christos 	ldq	t3,0(a4)
     59  1.1  christos 
     60  1.1  christos .Looplo1:
     61  1.1  christos 	and	t9,0x0f,t12
     62  1.1  christos 	sll	t8,60,t0
     63  1.1  christos 	subq	v0,1,v0
     64  1.1  christos 	srl	t9,4,t9
     65  1.1  christos 
     66  1.1  christos 	ldq	t6,8(a5)
     67  1.1  christos 	xor	t7,t8,t8
     68  1.1  christos 	ldq	t5,0(a5)
     69  1.1  christos 	s8addq	t12,AT,t12
     70  1.1  christos 
     71  1.1  christos 	ldq	t7,0(t12)
     72  1.1  christos 	srl	t8,4,t8
     73  1.1  christos 	xor	t0,t9,t9
     74  1.1  christos 	extbl	t11,v0,a4
     75  1.1  christos 
     76  1.1  christos 	and	a4,0xf0,a5
     77  1.1  christos 	xor	t3,t8,t8
     78  1.1  christos 	xor	t4,t9,t9
     79  1.1  christos 	sll	a4,4,a4
     80  1.1  christos 
     81  1.1  christos 
     82  1.1  christos 	and	t9,0x0f,t12
     83  1.1  christos 	sll	t8,60,t0
     84  1.1  christos 	and	a4,0xf0,a4
     85  1.1  christos 	srl	t9,4,t9
     86  1.1  christos 
     87  1.1  christos 	s8addq	t12,AT,t12
     88  1.1  christos 	xor	t7,t8,t8
     89  1.1  christos 	addq	a4,a1,a4
     90  1.1  christos 	addq	a5,a1,a5
     91  1.1  christos 
     92  1.1  christos 	ldq	t7,0(t12)
     93  1.1  christos 	srl	t8,4,t8
     94  1.1  christos 	ldq	t4,8(a4)
     95  1.1  christos 	xor	t0,t9,t9
     96  1.1  christos 
     97  1.1  christos 	xor	t6,t9,t9
     98  1.1  christos 	xor	t5,t8,t8
     99  1.1  christos 	ldq	t3,0(a4)
    100  1.1  christos 	bne	v0,.Looplo1
    101  1.1  christos 
    102  1.1  christos 
    103  1.1  christos 	and	t9,0x0f,t12
    104  1.1  christos 	sll	t8,60,t0
    105  1.1  christos 	lda	v0,7(zero)
    106  1.1  christos 	srl	t9,4,t9
    107  1.1  christos 
    108  1.1  christos 	ldq	t6,8(a5)
    109  1.1  christos 	xor	t7,t8,t8
    110  1.1  christos 	ldq	t5,0(a5)
    111  1.1  christos 	s8addq	t12,AT,t12
    112  1.1  christos 
    113  1.1  christos 	ldq	t7,0(t12)
    114  1.1  christos 	srl	t8,4,t8
    115  1.1  christos 	xor	t0,t9,t9
    116  1.1  christos 	extbl	t10,v0,a4
    117  1.1  christos 
    118  1.1  christos 	and	a4,0xf0,a5
    119  1.1  christos 	xor	t3,t8,t8
    120  1.1  christos 	xor	t4,t9,t9
    121  1.1  christos 	sll	a4,4,a4
    122  1.1  christos 
    123  1.1  christos 	and	t9,0x0f,t12
    124  1.1  christos 	sll	t8,60,t0
    125  1.1  christos 	and	a4,0xf0,a4
    126  1.1  christos 	srl	t9,4,t9
    127  1.1  christos 
    128  1.1  christos 	s8addq	t12,AT,t12
    129  1.1  christos 	xor	t7,t8,t8
    130  1.1  christos 	addq	a4,a1,a4
    131  1.1  christos 	addq	a5,a1,a5
    132  1.1  christos 
    133  1.1  christos 	ldq	t7,0(t12)
    134  1.1  christos 	srl	t8,4,t8
    135  1.1  christos 	ldq	t4,8(a4)
    136  1.1  christos 	xor	t0,t9,t9
    137  1.1  christos 
    138  1.1  christos 	xor	t6,t9,t9
    139  1.1  christos 	xor	t5,t8,t8
    140  1.1  christos 	ldq	t3,0(a4)
    141  1.1  christos 	unop
    142  1.1  christos 
    143  1.1  christos 
    144  1.1  christos .Loophi1:
    145  1.1  christos 	and	t9,0x0f,t12
    146  1.1  christos 	sll	t8,60,t0
    147  1.1  christos 	subq	v0,1,v0
    148  1.1  christos 	srl	t9,4,t9
    149  1.1  christos 
    150  1.1  christos 	ldq	t6,8(a5)
    151  1.1  christos 	xor	t7,t8,t8
    152  1.1  christos 	ldq	t5,0(a5)
    153  1.1  christos 	s8addq	t12,AT,t12
    154  1.1  christos 
    155  1.1  christos 	ldq	t7,0(t12)
    156  1.1  christos 	srl	t8,4,t8
    157  1.1  christos 	xor	t0,t9,t9
    158  1.1  christos 	extbl	t10,v0,a4
    159  1.1  christos 
    160  1.1  christos 	and	a4,0xf0,a5
    161  1.1  christos 	xor	t3,t8,t8
    162  1.1  christos 	xor	t4,t9,t9
    163  1.1  christos 	sll	a4,4,a4
    164  1.1  christos 
    165  1.1  christos 
    166  1.1  christos 	and	t9,0x0f,t12
    167  1.1  christos 	sll	t8,60,t0
    168  1.1  christos 	and	a4,0xf0,a4
    169  1.1  christos 	srl	t9,4,t9
    170  1.1  christos 
    171  1.1  christos 	s8addq	t12,AT,t12
    172  1.1  christos 	xor	t7,t8,t8
    173  1.1  christos 	addq	a4,a1,a4
    174  1.1  christos 	addq	a5,a1,a5
    175  1.1  christos 
    176  1.1  christos 	ldq	t7,0(t12)
    177  1.1  christos 	srl	t8,4,t8
    178  1.1  christos 	ldq	t4,8(a4)
    179  1.1  christos 	xor	t0,t9,t9
    180  1.1  christos 
    181  1.1  christos 	xor	t6,t9,t9
    182  1.1  christos 	xor	t5,t8,t8
    183  1.1  christos 	ldq	t3,0(a4)
    184  1.1  christos 	bne	v0,.Loophi1
    185  1.1  christos 
    186  1.1  christos 
    187  1.1  christos 	and	t9,0x0f,t12
    188  1.1  christos 	sll	t8,60,t0
    189  1.1  christos 	srl	t9,4,t9
    190  1.1  christos 
    191  1.1  christos 	ldq	t6,8(a5)
    192  1.1  christos 	xor	t7,t8,t8
    193  1.1  christos 	ldq	t5,0(a5)
    194  1.1  christos 	s8addq	t12,AT,t12
    195  1.1  christos 
    196  1.1  christos 	ldq	t7,0(t12)
    197  1.1  christos 	srl	t8,4,t8
    198  1.1  christos 	xor	t0,t9,t9
    199  1.1  christos 
    200  1.1  christos 	xor	t4,t9,t9
    201  1.1  christos 	xor	t3,t8,t8
    202  1.1  christos 
    203  1.1  christos 	and	t9,0x0f,t12
    204  1.1  christos 	sll	t8,60,t0
    205  1.1  christos 	srl	t9,4,t9
    206  1.1  christos 
    207  1.1  christos 	s8addq	t12,AT,t12
    208  1.1  christos 	xor	t7,t8,t8
    209  1.1  christos 
    210  1.1  christos 	ldq	t7,0(t12)
    211  1.1  christos 	srl	t8,4,t8
    212  1.1  christos 	xor	t6,t9,t9
    213  1.1  christos 	xor	t5,t8,t8
    214  1.1  christos 	xor	t0,t9,t9
    215  1.1  christos 	xor	t7,t8,t8
    216  1.1  christos 	srl	t9,24,t0	# byte swap
    217  1.1  christos 	srl	t9,8,t1
    218  1.1  christos 
    219  1.1  christos 	sll	t9,8,t2
    220  1.1  christos 	sll	t9,24,t9
    221  1.1  christos 	zapnot	t0,0x11,t0
    222  1.1  christos 	zapnot	t1,0x22,t1
    223  1.1  christos 
    224  1.1  christos 	zapnot	t9,0x88,t9
    225  1.1  christos 	or	t0,t1,t0
    226  1.1  christos 	zapnot	t2,0x44,t2
    227  1.1  christos 
    228  1.1  christos 	or	t9,t0,t9
    229  1.1  christos 	srl	t8,24,t0
    230  1.1  christos 	srl	t8,8,t1
    231  1.1  christos 
    232  1.1  christos 	or	t9,t2,t9
    233  1.1  christos 	sll	t8,8,t2
    234  1.1  christos 	sll	t8,24,t8
    235  1.1  christos 
    236  1.1  christos 	srl	t9,32,t11
    237  1.1  christos 	sll	t9,32,t9
    238  1.1  christos 
    239  1.1  christos 	zapnot	t0,0x11,t0
    240  1.1  christos 	zapnot	t1,0x22,t1
    241  1.1  christos 	or	t9,t11,t11
    242  1.1  christos 
    243  1.1  christos 	zapnot	t8,0x88,t8
    244  1.1  christos 	or	t0,t1,t0
    245  1.1  christos 	zapnot	t2,0x44,t2
    246  1.1  christos 
    247  1.1  christos 	or	t8,t0,t8
    248  1.1  christos 	or	t8,t2,t8
    249  1.1  christos 
    250  1.1  christos 	srl	t8,32,t10
    251  1.1  christos 	sll	t8,32,t8
    252  1.1  christos 
    253  1.1  christos 	or	t8,t10,t10
    254  1.1  christos 	stq	t11,8(a0)
    255  1.1  christos 	stq	t10,0(a0)
    256  1.1  christos 
    257  1.1  christos 	ret	(ra)
    258  1.1  christos .end	gcm_gmult_4bit
    259  1.1  christos .globl	gcm_ghash_4bit
    260  1.1  christos .align	4
    261  1.1  christos .ent	gcm_ghash_4bit
    262  1.1  christos gcm_ghash_4bit:
    263  1.1  christos 	lda	sp,-32(sp)
    264  1.1  christos 	stq	ra,0(sp)
    265  1.1  christos 	stq	s0,8(sp)
    266  1.1  christos 	stq	s1,16(sp)
    267  1.1  christos 	.mask	0x04000600,-32
    268  1.1  christos 	.frame	sp,32,ra
    269  1.1  christos 	.prologue 0
    270  1.1  christos 
    271  1.1  christos 	ldq_u	s0,0(a2)
    272  1.1  christos 	ldq_u	t3,7(a2)
    273  1.1  christos 	ldq_u	s1,8(a2)
    274  1.1  christos 	ldq_u	t4,15(a2)
    275  1.1  christos 	ldq	t10,0(a0)
    276  1.1  christos 	ldq	t11,8(a0)
    277  1.1  christos 
    278  1.1  christos 	bsr	t0,picmeup
    279  1.1  christos 	nop
    280  1.1  christos 
    281  1.1  christos .Louter:
    282  1.1  christos 	extql	s0,a2,s0
    283  1.1  christos 	extqh	t3,a2,t3
    284  1.1  christos 	or	s0,t3,s0
    285  1.1  christos 	lda	a2,16(a2)
    286  1.1  christos 
    287  1.1  christos 	extql	s1,a2,s1
    288  1.1  christos 	extqh	t4,a2,t4
    289  1.1  christos 	or	s1,t4,s1
    290  1.1  christos 	subq	a3,16,a3
    291  1.1  christos 
    292  1.1  christos 	xor	t11,s1,t11
    293  1.1  christos 	xor	t10,s0,t10
    294  1.1  christos .align	4
    295  1.1  christos 	extbl	t11,7,a4
    296  1.1  christos 	and	a4,0xf0,a5
    297  1.1  christos 	sll	a4,4,a4
    298  1.1  christos 	and	a4,0xf0,a4
    299  1.1  christos 
    300  1.1  christos 	addq	a4,a1,a4
    301  1.1  christos 	ldq	t9,8(a4)
    302  1.1  christos 	addq	a5,a1,a5
    303  1.1  christos 	ldq	t8,0(a4)
    304  1.1  christos 
    305  1.1  christos 	and	t9,0x0f,t12
    306  1.1  christos 	sll	t8,60,t0
    307  1.1  christos 	lda	v0,6(zero)
    308  1.1  christos 	extbl	t11,6,a4
    309  1.1  christos 
    310  1.1  christos 	ldq	t6,8(a5)
    311  1.1  christos 	s8addq	t12,AT,t12
    312  1.1  christos 	ldq	t5,0(a5)
    313  1.1  christos 	srl	t9,4,t9
    314  1.1  christos 
    315  1.1  christos 	ldq	t7,0(t12)
    316  1.1  christos 	srl	t8,4,t8
    317  1.1  christos 	xor	t0,t9,t9
    318  1.1  christos 	and	a4,0xf0,a5
    319  1.1  christos 
    320  1.1  christos 	xor	t6,t9,t9
    321  1.1  christos 	sll	a4,4,a4
    322  1.1  christos 	xor	t5,t8,t8
    323  1.1  christos 	and	a4,0xf0,a4
    324  1.1  christos 
    325  1.1  christos 	addq	a4,a1,a4
    326  1.1  christos 	ldq	t4,8(a4)
    327  1.1  christos 	addq	a5,a1,a5
    328  1.1  christos 	ldq	t3,0(a4)
    329  1.1  christos 
    330  1.1  christos .Looplo2:
    331  1.1  christos 	and	t9,0x0f,t12
    332  1.1  christos 	sll	t8,60,t0
    333  1.1  christos 	subq	v0,1,v0
    334  1.1  christos 	srl	t9,4,t9
    335  1.1  christos 
    336  1.1  christos 	ldq	t6,8(a5)
    337  1.1  christos 	xor	t7,t8,t8
    338  1.1  christos 	ldq	t5,0(a5)
    339  1.1  christos 	s8addq	t12,AT,t12
    340  1.1  christos 
    341  1.1  christos 	ldq	t7,0(t12)
    342  1.1  christos 	srl	t8,4,t8
    343  1.1  christos 	xor	t0,t9,t9
    344  1.1  christos 	extbl	t11,v0,a4
    345  1.1  christos 
    346  1.1  christos 	and	a4,0xf0,a5
    347  1.1  christos 	xor	t3,t8,t8
    348  1.1  christos 	xor	t4,t9,t9
    349  1.1  christos 	sll	a4,4,a4
    350  1.1  christos 
    351  1.1  christos 
    352  1.1  christos 	and	t9,0x0f,t12
    353  1.1  christos 	sll	t8,60,t0
    354  1.1  christos 	and	a4,0xf0,a4
    355  1.1  christos 	srl	t9,4,t9
    356  1.1  christos 
    357  1.1  christos 	s8addq	t12,AT,t12
    358  1.1  christos 	xor	t7,t8,t8
    359  1.1  christos 	addq	a4,a1,a4
    360  1.1  christos 	addq	a5,a1,a5
    361  1.1  christos 
    362  1.1  christos 	ldq	t7,0(t12)
    363  1.1  christos 	srl	t8,4,t8
    364  1.1  christos 	ldq	t4,8(a4)
    365  1.1  christos 	xor	t0,t9,t9
    366  1.1  christos 
    367  1.1  christos 	xor	t6,t9,t9
    368  1.1  christos 	xor	t5,t8,t8
    369  1.1  christos 	ldq	t3,0(a4)
    370  1.1  christos 	bne	v0,.Looplo2
    371  1.1  christos 
    372  1.1  christos 
    373  1.1  christos 	and	t9,0x0f,t12
    374  1.1  christos 	sll	t8,60,t0
    375  1.1  christos 	lda	v0,7(zero)
    376  1.1  christos 	srl	t9,4,t9
    377  1.1  christos 
    378  1.1  christos 	ldq	t6,8(a5)
    379  1.1  christos 	xor	t7,t8,t8
    380  1.1  christos 	ldq	t5,0(a5)
    381  1.1  christos 	s8addq	t12,AT,t12
    382  1.1  christos 
    383  1.1  christos 	ldq	t7,0(t12)
    384  1.1  christos 	srl	t8,4,t8
    385  1.1  christos 	xor	t0,t9,t9
    386  1.1  christos 	extbl	t10,v0,a4
    387  1.1  christos 
    388  1.1  christos 	and	a4,0xf0,a5
    389  1.1  christos 	xor	t3,t8,t8
    390  1.1  christos 	xor	t4,t9,t9
    391  1.1  christos 	sll	a4,4,a4
    392  1.1  christos 
    393  1.1  christos 	and	t9,0x0f,t12
    394  1.1  christos 	sll	t8,60,t0
    395  1.1  christos 	and	a4,0xf0,a4
    396  1.1  christos 	srl	t9,4,t9
    397  1.1  christos 
    398  1.1  christos 	s8addq	t12,AT,t12
    399  1.1  christos 	xor	t7,t8,t8
    400  1.1  christos 	addq	a4,a1,a4
    401  1.1  christos 	addq	a5,a1,a5
    402  1.1  christos 
    403  1.1  christos 	ldq	t7,0(t12)
    404  1.1  christos 	srl	t8,4,t8
    405  1.1  christos 	ldq	t4,8(a4)
    406  1.1  christos 	xor	t0,t9,t9
    407  1.1  christos 
    408  1.1  christos 	xor	t6,t9,t9
    409  1.1  christos 	xor	t5,t8,t8
    410  1.1  christos 	ldq	t3,0(a4)
    411  1.1  christos 	unop
    412  1.1  christos 
    413  1.1  christos 
    414  1.1  christos .Loophi2:
    415  1.1  christos 	and	t9,0x0f,t12
    416  1.1  christos 	sll	t8,60,t0
    417  1.1  christos 	subq	v0,1,v0
    418  1.1  christos 	srl	t9,4,t9
    419  1.1  christos 
    420  1.1  christos 	ldq	t6,8(a5)
    421  1.1  christos 	xor	t7,t8,t8
    422  1.1  christos 	ldq	t5,0(a5)
    423  1.1  christos 	s8addq	t12,AT,t12
    424  1.1  christos 
    425  1.1  christos 	ldq	t7,0(t12)
    426  1.1  christos 	srl	t8,4,t8
    427  1.1  christos 	xor	t0,t9,t9
    428  1.1  christos 	extbl	t10,v0,a4
    429  1.1  christos 
    430  1.1  christos 	and	a4,0xf0,a5
    431  1.1  christos 	xor	t3,t8,t8
    432  1.1  christos 	xor	t4,t9,t9
    433  1.1  christos 	sll	a4,4,a4
    434  1.1  christos 
    435  1.1  christos 
    436  1.1  christos 	and	t9,0x0f,t12
    437  1.1  christos 	sll	t8,60,t0
    438  1.1  christos 	and	a4,0xf0,a4
    439  1.1  christos 	srl	t9,4,t9
    440  1.1  christos 
    441  1.1  christos 	s8addq	t12,AT,t12
    442  1.1  christos 	xor	t7,t8,t8
    443  1.1  christos 	addq	a4,a1,a4
    444  1.1  christos 	addq	a5,a1,a5
    445  1.1  christos 
    446  1.1  christos 	ldq	t7,0(t12)
    447  1.1  christos 	srl	t8,4,t8
    448  1.1  christos 	ldq	t4,8(a4)
    449  1.1  christos 	xor	t0,t9,t9
    450  1.1  christos 
    451  1.1  christos 	xor	t6,t9,t9
    452  1.1  christos 	xor	t5,t8,t8
    453  1.1  christos 	ldq	t3,0(a4)
    454  1.1  christos 	bne	v0,.Loophi2
    455  1.1  christos 
    456  1.1  christos 
    457  1.1  christos 	and	t9,0x0f,t12
    458  1.1  christos 	sll	t8,60,t0
    459  1.1  christos 	srl	t9,4,t9
    460  1.1  christos 
    461  1.1  christos 	ldq	t6,8(a5)
    462  1.1  christos 	xor	t7,t8,t8
    463  1.1  christos 	ldq	t5,0(a5)
    464  1.1  christos 	s8addq	t12,AT,t12
    465  1.1  christos 
    466  1.1  christos 	ldq	t7,0(t12)
    467  1.1  christos 	srl	t8,4,t8
    468  1.1  christos 	xor	t0,t9,t9
    469  1.1  christos 
    470  1.1  christos 	xor	t4,t9,t9
    471  1.1  christos 	xor	t3,t8,t8
    472  1.1  christos 
    473  1.1  christos 	and	t9,0x0f,t12
    474  1.1  christos 	sll	t8,60,t0
    475  1.1  christos 	srl	t9,4,t9
    476  1.1  christos 
    477  1.1  christos 	s8addq	t12,AT,t12
    478  1.1  christos 	xor	t7,t8,t8
    479  1.1  christos 
    480  1.1  christos 	ldq	t7,0(t12)
    481  1.1  christos 	srl	t8,4,t8
    482  1.1  christos 	xor	t6,t9,t9
    483  1.1  christos 	xor	t5,t8,t8
    484  1.1  christos 	xor	t0,t9,t9
    485  1.1  christos 	xor	t7,t8,t8
    486  1.1  christos 	srl	t9,24,t0	# byte swap
    487  1.1  christos 	srl	t9,8,t1
    488  1.1  christos 
    489  1.1  christos 	sll	t9,8,t2
    490  1.1  christos 	sll	t9,24,t9
    491  1.1  christos 	zapnot	t0,0x11,t0
    492  1.1  christos 	zapnot	t1,0x22,t1
    493  1.1  christos 
    494  1.1  christos 	zapnot	t9,0x88,t9
    495  1.1  christos 	or	t0,t1,t0
    496  1.1  christos 	zapnot	t2,0x44,t2
    497  1.1  christos 
    498  1.1  christos 	or	t9,t0,t9
    499  1.1  christos 	srl	t8,24,t0
    500  1.1  christos 	srl	t8,8,t1
    501  1.1  christos 
    502  1.1  christos 	or	t9,t2,t9
    503  1.1  christos 	sll	t8,8,t2
    504  1.1  christos 	sll	t8,24,t8
    505  1.1  christos 
    506  1.1  christos 	srl	t9,32,t11
    507  1.1  christos 	sll	t9,32,t9
    508  1.1  christos 	beq	a3,.Ldone
    509  1.1  christos 
    510  1.1  christos 	zapnot	t0,0x11,t0
    511  1.1  christos 	zapnot	t1,0x22,t1
    512  1.1  christos 	or	t9,t11,t11
    513  1.1  christos 	ldq_u	s0,0(a2)
    514  1.1  christos 
    515  1.1  christos 	zapnot	t8,0x88,t8
    516  1.1  christos 	or	t0,t1,t0
    517  1.1  christos 	zapnot	t2,0x44,t2
    518  1.1  christos 	ldq_u	t3,7(a2)
    519  1.1  christos 
    520  1.1  christos 	or	t8,t0,t8
    521  1.1  christos 	or	t8,t2,t8
    522  1.1  christos 	ldq_u	s1,8(a2)
    523  1.1  christos 	ldq_u	t4,15(a2)
    524  1.1  christos 
    525  1.1  christos 	srl	t8,32,t10
    526  1.1  christos 	sll	t8,32,t8
    527  1.1  christos 
    528  1.1  christos 	or	t8,t10,t10
    529  1.1  christos 	br	zero,.Louter
    530  1.1  christos 
    531  1.1  christos .Ldone:
    532  1.1  christos 	zapnot	t0,0x11,t0
    533  1.1  christos 	zapnot	t1,0x22,t1
    534  1.1  christos 	or	t9,t11,t11
    535  1.1  christos 
    536  1.1  christos 	zapnot	t8,0x88,t8
    537  1.1  christos 	or	t0,t1,t0
    538  1.1  christos 	zapnot	t2,0x44,t2
    539  1.1  christos 
    540  1.1  christos 	or	t8,t0,t8
    541  1.1  christos 	or	t8,t2,t8
    542  1.1  christos 
    543  1.1  christos 	srl	t8,32,t10
    544  1.1  christos 	sll	t8,32,t8
    545  1.1  christos 
    546  1.1  christos 	or	t8,t10,t10
    547  1.1  christos 
    548  1.1  christos 	stq	t11,8(a0)
    549  1.1  christos 	stq	t10,0(a0)
    550  1.1  christos 
    551  1.1  christos 	.set	noreorder
    552  1.1  christos 	/*ldq	ra,0(sp)*/
    553  1.1  christos 	ldq	s0,8(sp)
    554  1.1  christos 	ldq	s1,16(sp)
    555  1.1  christos 	lda	sp,32(sp)
    556  1.1  christos 	ret	(ra)
    557  1.1  christos .end	gcm_ghash_4bit
    558  1.1  christos 
    559  1.1  christos .align	4
    560  1.1  christos .ent	picmeup
    561  1.1  christos picmeup:
    562  1.1  christos 	.frame	sp,0,t0
    563  1.1  christos 	.prologue 0
    564  1.1  christos 	br	AT,.Lpic
    565  1.1  christos .Lpic:	lda	AT,12(AT)
    566  1.1  christos 	ret	(t0)
    567  1.1  christos .end	picmeup
    568  1.1  christos 	nop
    569  1.1  christos rem_4bit:
    570  1.1  christos 	.long	0,0x0000<<16, 0,0x1C20<<16, 0,0x3840<<16, 0,0x2460<<16
    571  1.1  christos 	.long	0,0x7080<<16, 0,0x6CA0<<16, 0,0x48C0<<16, 0,0x54E0<<16
    572  1.1  christos 	.long	0,0xE100<<16, 0,0xFD20<<16, 0,0xD940<<16, 0,0xC560<<16
    573  1.1  christos 	.long	0,0x9180<<16, 0,0x8DA0<<16, 0,0xA9C0<<16, 0,0xB5E0<<16
    574  1.1  christos .ascii	"GHASH for Alpha, CRYPTOGAMS by <appro (at) openssl.org>"
    575  1.1  christos .align	4
    576  1.1  christos 
    577