1// Copyright 2019 The Go Authors. All rights reserved.
2// Use of this source code is governed by a BSD-style
3// license that can be found in the LICENSE file.
4
5// +build !gccgo
6
7#include "textflag.h"
8
9// func stfle() facilityList
10TEXT ·stfle(SB), NOSPLIT|NOFRAME, $0-32
11	MOVD $ret+0(FP), R1
12	MOVD $3, R0          // last doubleword index to store
13	XC   $32, (R1), (R1) // clear 4 doublewords (32 bytes)
14	WORD $0xb2b01000     // store facility list extended (STFLE)
15	RET
16
17// func kmQuery() queryResult
18TEXT ·kmQuery(SB), NOSPLIT|NOFRAME, $0-16
19	MOVD $0, R0         // set function code to 0 (KM-Query)
20	MOVD $ret+0(FP), R1 // address of 16-byte return value
21	WORD $0xB92E0024    // cipher message (KM)
22	RET
23
24// func kmcQuery() queryResult
25TEXT ·kmcQuery(SB), NOSPLIT|NOFRAME, $0-16
26	MOVD $0, R0         // set function code to 0 (KMC-Query)
27	MOVD $ret+0(FP), R1 // address of 16-byte return value
28	WORD $0xB92F0024    // cipher message with chaining (KMC)
29	RET
30
31// func kmctrQuery() queryResult
32TEXT ·kmctrQuery(SB), NOSPLIT|NOFRAME, $0-16
33	MOVD $0, R0         // set function code to 0 (KMCTR-Query)
34	MOVD $ret+0(FP), R1 // address of 16-byte return value
35	WORD $0xB92D4024    // cipher message with counter (KMCTR)
36	RET
37
38// func kmaQuery() queryResult
39TEXT ·kmaQuery(SB), NOSPLIT|NOFRAME, $0-16
40	MOVD $0, R0         // set function code to 0 (KMA-Query)
41	MOVD $ret+0(FP), R1 // address of 16-byte return value
42	WORD $0xb9296024    // cipher message with authentication (KMA)
43	RET
44
45// func kimdQuery() queryResult
46TEXT ·kimdQuery(SB), NOSPLIT|NOFRAME, $0-16
47	MOVD $0, R0         // set function code to 0 (KIMD-Query)
48	MOVD $ret+0(FP), R1 // address of 16-byte return value
49	WORD $0xB93E0024    // compute intermediate message digest (KIMD)
50	RET
51
52// func klmdQuery() queryResult
53TEXT ·klmdQuery(SB), NOSPLIT|NOFRAME, $0-16
54	MOVD $0, R0         // set function code to 0 (KLMD-Query)
55	MOVD $ret+0(FP), R1 // address of 16-byte return value
56	WORD $0xB93F0024    // compute last message digest (KLMD)
57	RET
58