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//go:build gc
6// +build gc
7
8#include "textflag.h"
9
10// func stfle() facilityList
11TEXT ·stfle(SB), NOSPLIT|NOFRAME, $0-32
12	MOVD $ret+0(FP), R1
13	MOVD $3, R0          // last doubleword index to store
14	XC   $32, (R1), (R1) // clear 4 doublewords (32 bytes)
15	WORD $0xb2b01000     // store facility list extended (STFLE)
16	RET
17
18// func kmQuery() queryResult
19TEXT ·kmQuery(SB), NOSPLIT|NOFRAME, $0-16
20	MOVD $0, R0         // set function code to 0 (KM-Query)
21	MOVD $ret+0(FP), R1 // address of 16-byte return value
22	WORD $0xB92E0024    // cipher message (KM)
23	RET
24
25// func kmcQuery() queryResult
26TEXT ·kmcQuery(SB), NOSPLIT|NOFRAME, $0-16
27	MOVD $0, R0         // set function code to 0 (KMC-Query)
28	MOVD $ret+0(FP), R1 // address of 16-byte return value
29	WORD $0xB92F0024    // cipher message with chaining (KMC)
30	RET
31
32// func kmctrQuery() queryResult
33TEXT ·kmctrQuery(SB), NOSPLIT|NOFRAME, $0-16
34	MOVD $0, R0         // set function code to 0 (KMCTR-Query)
35	MOVD $ret+0(FP), R1 // address of 16-byte return value
36	WORD $0xB92D4024    // cipher message with counter (KMCTR)
37	RET
38
39// func kmaQuery() queryResult
40TEXT ·kmaQuery(SB), NOSPLIT|NOFRAME, $0-16
41	MOVD $0, R0         // set function code to 0 (KMA-Query)
42	MOVD $ret+0(FP), R1 // address of 16-byte return value
43	WORD $0xb9296024    // cipher message with authentication (KMA)
44	RET
45
46// func kimdQuery() queryResult
47TEXT ·kimdQuery(SB), NOSPLIT|NOFRAME, $0-16
48	MOVD $0, R0         // set function code to 0 (KIMD-Query)
49	MOVD $ret+0(FP), R1 // address of 16-byte return value
50	WORD $0xB93E0024    // compute intermediate message digest (KIMD)
51	RET
52
53// func klmdQuery() queryResult
54TEXT ·klmdQuery(SB), NOSPLIT|NOFRAME, $0-16
55	MOVD $0, R0         // set function code to 0 (KLMD-Query)
56	MOVD $ret+0(FP), R1 // address of 16-byte return value
57	WORD $0xB93F0024    // compute last message digest (KLMD)
58	RET
59