7893e42d5d
Signed-off-by: Philippe Mathieu-Daudé <philmd@linaro.org> Message-ID: <20231004090629.37473-6-philmd@linaro.org> Signed-off-by: Paolo Bonzini <pbonzini@redhat.com>
41 lines
1.0 KiB
ArmAsm
41 lines
1.0 KiB
ArmAsm
/*
|
|
* 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 */
|