/*
 * Common system code for specification exception testing.
 *
 * SPDX-License-Identifier: GPL-2.0-or-later
 */
    .section .head
    .org 0x8d
ilc:
    .org 0x8e
program_interruption_code:
    .org 0x150
program_old_psw:
    .org 0x1D0                         /* program new PSW */
    .quad 0x180000000,pgm              /* 64-bit mode */
    .org 0x200                         /* lowcore padding */

    .globl _start
_start:
    lpswe test_psw

pgm:
    chhsi program_interruption_code,0x6          /* PGM_SPECIFICATION? */
    jne failure
    lg %r0,expected_old_psw+8                    /* ilc adjustment */
    llgc %r1,ilc
    agr %r0,%r1
    stg %r0,expected_old_psw+8
    clc expected_old_psw(16),program_old_psw     /* correct location? */
    jne failure
    lpswe success_psw
failure:
    lpswe failure_psw

    .align 8
test_psw:
    .quad 0x180000000,test             /* 64-bit mode */
success_psw:
    .quad 0x2000180000000,0xfff        /* see is_special_wait_psw() */
failure_psw:
    .quad 0x2000180000000,0            /* disabled wait */