-
Notifications
You must be signed in to change notification settings - Fork 392
/
omrgetdsa.s
71 lines (68 loc) · 2.13 KB
/
omrgetdsa.s
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
***********************************************************************
* Copyright (c) 1991, 2010 IBM Corp. and others
*
* This program and the accompanying materials are made available
* under the terms of the Eclipse Public License 2.0 which
* accompanies this distribution and is available at
* https://www.eclipse.org/legal/epl-2.0/ or the
* Apache License, Version 2.0 which accompanies this distribution
* and is available at https://www.apache.org/licenses/LICENSE-2.0.
*
* This Source Code may also be made available under the following
* Secondary Licenses when the conditions for such availability set
* forth in the Eclipse Public License, v. 2.0 are satisfied: GNU
* General Public License, version 2 with the GNU Classpath
* Exception [1] and GNU General Public License, version 2 with the
* OpenJDK Assembly Exception [2].
*
* [1] https://www.gnu.org/software/classpath/license.html
* [2] http://openjdk.java.net/legal/assembly-exception.html
*
* SPDX-License-Identifier: EPL-2.0 OR Apache-2.0 OR
* GPL-2.0 WITH Classpath-exception-2.0 OR
* LicenseRef-GPL-2.0 WITH Assembly-exception
***********************************************************************
TITLE 'omrgetdsa.s'
r0 EQU 0
fp0 EQU 0
r1 EQU 1
fp1 EQU 1
r2 EQU 2
fp2 EQU 2
r3 EQU 3
fp3 EQU 3
r4 EQU 4
fp4 EQU 4
r5 EQU 5
fp5 EQU 5
r6 EQU 6
fp6 EQU 6
r7 EQU 7
fp7 EQU 7
r8 EQU 8
fp8 EQU 8
r9 EQU 9
fp9 EQU 9
r10 EQU 10
fp10 EQU 10
r11 EQU 11
fp11 EQU 11
r12 EQU 12
fp12 EQU 12
r13 EQU 13
fp13 EQU 13
r14 EQU 14
fp14 EQU 14
r15 EQU 15
fp15 EQU 15
AIF ('&SYSPARM' EQ 'BIT64').JMP1
GETDSA EDCXPRLG DSASIZE=0,BASEREG=NONE
LR R3,R4 move DSA into return code
EDCXEPLG
AGO .JMP2
.JMP1 ANOP
GETDSA CELQPRLG DSASIZE=0,BASEREG=NONE
LGR R3,R4 move DSA into return code
CELQEPLG
.JMP2 ANOP
END