2 // Copyright 2009-2016 The OpenSSL Project Authors. All Rights Reserved.
4 // Licensed under the OpenSSL license (the "License"). You may not use
5 // this file except in compliance with the License. You can obtain a copy
6 // in the file LICENSE in the source distribution or at
7 // https://www.openssl.org/source/license.html
9 #include "s390x_arch.h"
11 .globl OPENSSL_s390x_facilities
12 .type OPENSSL_s390x_facilities,@function
14 OPENSSL_s390x_facilities:
16 larl %r4,OPENSSL_s390xcap_P
18 stg %r0,S390X_STFLE+8(%r4) # wipe capability vectors
19 stg %r0,S390X_STFLE+16(%r4)
20 stg %r0,S390X_STFLE+24(%r4)
21 stg %r0,S390X_KIMD(%r4)
22 stg %r0,S390X_KIMD+8(%r4)
23 stg %r0,S390X_KLMD(%r4)
24 stg %r0,S390X_KLMD+8(%r4)
26 stg %r0,S390X_KM+8(%r4)
27 stg %r0,S390X_KMC(%r4)
28 stg %r0,S390X_KMC+8(%r4)
29 stg %r0,S390X_KMAC(%r4)
30 stg %r0,S390X_KMAC+8(%r4)
31 stg %r0,S390X_KMCTR(%r4)
32 stg %r0,S390X_KMCTR+8(%r4)
33 stg %r0,S390X_KMO(%r4)
34 stg %r0,S390X_KMO+8(%r4)
35 stg %r0,S390X_KMF(%r4)
36 stg %r0,S390X_KMF+8(%r4)
37 stg %r0,S390X_PRNO(%r4)
38 stg %r0,S390X_PRNO+8(%r4)
39 stg %r0,S390X_KMA(%r4)
40 stg %r0,S390X_KMA+8(%r4)
42 .long 0xb2b04000 # stfle 0(%r4)
45 .long 0xb2b04000 # stfle 0(%r4)
48 .long 0xb2b04000 # stfle 0(%r4)
50 lmg %r2,%r3,S390X_STFLE(%r4)
51 tmhl %r2,0x4000 # check for message-security-assist
54 lghi %r0,S390X_QUERY # query kimd capabilities
55 la %r1,S390X_KIMD(%r4)
56 .long 0xb93e0002 # kimd %r0,%r2
58 lghi %r0,S390X_QUERY # query klmd capabilities
59 la %r1,S390X_KLMD(%r4)
60 .long 0xb93f0002 # klmd %r0,%r2
62 lghi %r0,S390X_QUERY # query km capability vector
64 .long 0xb92e0042 # km %r4,%r2
66 lghi %r0,S390X_QUERY # query kmc capability vector
68 .long 0xb92f0042 # kmc %r4,%r2
70 lghi %r0,S390X_QUERY # query kmac capability vector
71 la %r1,S390X_KMAC(%r4)
72 .long 0xb91e0042 # kmac %r4,%r2
74 tmhh %r3,0x0004 # check for message-security-assist-4
77 lghi %r0,S390X_QUERY # query kmctr capability vector
78 la %r1,S390X_KMCTR(%r4)
79 .long 0xb92d2042 # kmctr %r4,%r2,%r2
81 lghi %r0,S390X_QUERY # query kmo capability vector
83 .long 0xb92b0042 # kmo %r4,%r2
85 lghi %r0,S390X_QUERY # query kmf capability vector
87 .long 0xb92a0042 # kmf %r4,%r2
89 tml %r2,0x40 # check for message-security-assist-5
92 lghi %r0,S390X_QUERY # query prno capability vector
93 la %r1,S390X_PRNO(%r4)
94 .long 0xb93c0042 # prno %r4,%r2
96 lg %r2,S390X_STFLE+16(%r4)
97 tmhl %r2,0x2000 # check for message-security-assist-8
100 lghi %r0,S390X_QUERY # query kma capability vector
101 la %r1,S390X_KMA(%r4)
102 .long 0xb9294022 # kma %r2,%r4,%r2
106 .size OPENSSL_s390x_facilities,.-OPENSSL_s390x_facilities
109 .type OPENSSL_rdtsc,@function
115 .size OPENSSL_rdtsc,.-OPENSSL_rdtsc
117 .globl OPENSSL_atomic_add
118 .type OPENSSL_atomic_add,@function
126 lgfr %r2,%r0 # OpenSSL expects the new value
128 .size OPENSSL_atomic_add,.-OPENSSL_atomic_add
130 .globl OPENSSL_wipe_cpu
131 .type OPENSSL_wipe_cpu,@function
148 .size OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
150 .globl OPENSSL_cleanse
151 .type OPENSSL_cleanse,@function
154 #if !defined(__s390x__) && !defined(__s390x)
176 .Loop: stg %r0,0(%r2)
183 .size OPENSSL_cleanse,.-OPENSSL_cleanse
186 .type CRYPTO_memcmp,@function
189 #if !defined(__s390x__) && !defined(__s390x)
210 .size CRYPTO_memcmp,.-CRYPTO_memcmp
212 .globl OPENSSL_instrument_bus
213 .type OPENSSL_instrument_bus,@function
215 OPENSSL_instrument_bus:
218 .size OPENSSL_instrument_bus,.-OPENSSL_instrument_bus
220 .globl OPENSSL_instrument_bus2
221 .type OPENSSL_instrument_bus2,@function
223 OPENSSL_instrument_bus2:
226 .size OPENSSL_instrument_bus2,.-OPENSSL_instrument_bus2
228 .globl OPENSSL_vx_probe
229 .type OPENSSL_vx_probe,@function
232 .word 0xe700,0x0000,0x0044 # vzero %v0
234 .size OPENSSL_vx_probe,.-OPENSSL_vx_probe
237 brasl %r14,OPENSSL_cpuid_setup