a1465c8b5b
Add several small tests that check the PSW modification instructions: * lpsw.S checks whether LPSW works correctly in the "happy" case. * lpswe-early.S checks whether early exceptions are recognized and whether the correct ILC and old PSW are stored when they happen. * ssm-early.S, stosm-early.S and exrl-ssm-early.S check the special handling of SSM and STOSM with respect to early exceptions. Signed-off-by: Ilya Leoshkevich <iii@linux.ibm.com> Message-Id: <20230315020408.384766-4-iii@linux.ibm.com> Signed-off-by: Thomas Huth <thuth@redhat.com>
39 lines
961 B
ArmAsm
39 lines
961 B
ArmAsm
/*
|
|
* Test early exception recognition using LPSWE.
|
|
*
|
|
* SPDX-License-Identifier: GPL-2.0-or-later
|
|
*/
|
|
.org 0x8d
|
|
ilc:
|
|
.org 0x8e
|
|
program_interruption_code:
|
|
.org 0x150
|
|
program_old_psw:
|
|
.org 0x1D0 /* program new PSW */
|
|
.quad 0,pgm
|
|
.org 0x200 /* lowcore padding */
|
|
|
|
.globl _start
|
|
_start:
|
|
lpswe bad_psw
|
|
j failure
|
|
|
|
pgm:
|
|
chhsi program_interruption_code,0x6 /* specification exception? */
|
|
jne failure
|
|
cli ilc,0 /* ilc zero? */
|
|
jne failure
|
|
clc program_old_psw(16),bad_psw /* correct old PSW? */
|
|
jne failure
|
|
lpswe success_psw
|
|
failure:
|
|
lpswe failure_psw
|
|
|
|
.align 8
|
|
bad_psw:
|
|
.quad 0x8000000000000000,0xfedcba9876543210 /* bit 0 set */
|
|
success_psw:
|
|
.quad 0x2000000000000,0xfff /* see is_special_wait_psw() */
|
|
failure_psw:
|
|
.quad 0x2000000000000,0 /* disabled wait */
|