xref: /openbmc/qemu/tests/tcg/s390x/stpq.S (revision 8a64609e)
1    .org 0x200                         /* lowcore padding */
2    .globl _start
3_start:
4    lgrl %r0,value
5    lgrl %r1,value+8
6    stpq %r0,stored_value
7    clc stored_value(16),value
8    jne failure
9    lpswe success_psw
10failure:
11    lpswe failure_psw
12    .align 16
13value:
14    .quad 0x1234567887654321, 0x8765432112345678
15stored_value:
16    .quad 0, 0
17success_psw:
18    .quad 0x2000000000000,0xfff        /* see is_special_wait_psw() */
19failure_psw:
20    .quad 0x2000000000000,0            /* disabled wait */
21