xref: /openbmc/qemu/tests/tcg/s390x/lra.S (revision 00f9ef8f)
1    .org 0x200                         /* lowcore padding */
2    .globl _start
3_start:
4    lgrl %r1,initial_r1
5    lra %r1,0(%r1)
6    cgrl %r1,expected_r1
7    jne 1f
8    lpswe success_psw
91:
10    lpswe failure_psw
11    .align 8
12initial_r1:
13    .quad 0x8765432112345678
14expected_r1:
15    .quad 0x8765432180000038           /* ASCE type exception */
16success_psw:
17    .quad 0x2000000000000,0xfff        /* see is_special_wait_psw() */
18failure_psw:
19    .quad 0x2000000000000,0            /* disabled wait */
20