44 lines
1.1 KiB
ArmAsm
44 lines
1.1 KiB
ArmAsm
|
/*
|
||
|
|
* Test early exception recognition using EXRL + SSM.
|
||
|
|
*
|
||
|
|
* 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:
|
||
|
|
exrl %r0,ssm
|
||
|
|
expected_pswa:
|
||
|
|
j failure
|
||
|
|
ssm:
|
||
|
|
ssm ssm_op
|
||
|
|
|
||
|
|
pgm:
|
||
|
|
chhsi program_interruption_code,0x6 /* specification exception? */
|
||
|
|
jne failure
|
||
|
|
cli ilc,6 /* ilc for EXRL? */
|
||
|
|
jne failure
|
||
|
|
clc program_old_psw(16),expected_old_psw /* correct old PSW? */
|
||
|
|
jne failure
|
||
|
|
lpswe success_psw
|
||
|
|
failure:
|
||
|
|
lpswe failure_psw
|
||
|
|
|
||
|
|
ssm_op:
|
||
|
|
.byte 0x08 /* bit 4 set */
|
||
|
|
.align 8
|
||
|
|
expected_old_psw:
|
||
|
|
.quad 0x0800000180000000,expected_pswa /* bit 2 set */
|
||
|
|
success_psw:
|
||
|
|
.quad 0x2000000000000,0xfff /* see is_special_wait_psw() */
|
||
|
|
failure_psw:
|
||
|
|
.quad 0x2000000000000,0 /* disabled wait */
|