***********************************************************************
* Copyright IBM Corp. and others 1991
*
* 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] https://openjdk.org/legal/assembly-exception.html
*
* SPDX-License-Identifier: EPL-2.0 OR Apache-2.0 OR
* GPL-2.0-only WITH Classpath-exception-2.0 OR
* GPL-2.0-only WITH OpenJDK-assembly-exception-1.0
***********************************************************************

         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
