f383b2f770
Add a small test to prevent regressions. Tested-by: Thomas Huth <thuth@redhat.com> Signed-off-by: Ilya Leoshkevich <iii@linux.ibm.com> Message-Id: <20230724082032.66864-12-iii@linux.ibm.com> Signed-off-by: Thomas Huth <thuth@redhat.com>
33 lines
766 B
ArmAsm
33 lines
766 B
ArmAsm
.org 0x8e
|
|
program_interruption_code:
|
|
.org 0x1d0 /* program new PSW */
|
|
.quad 0,pgm
|
|
.org 0x200 /* lowcore padding */
|
|
.globl _start
|
|
_start:
|
|
lgrl %r0,op1
|
|
icm %r0,10,op2
|
|
cg %r0,exp
|
|
jne failure
|
|
lgrl %r1,bad_addr
|
|
icm %r0,0,0(%r1)
|
|
failure:
|
|
lpswe failure_psw
|
|
pgm:
|
|
chhsi program_interruption_code,5 /* addressing exception? */
|
|
jne failure
|
|
lpswe success_psw
|
|
.align 8
|
|
op1:
|
|
.quad 0x1234567887654321
|
|
op2:
|
|
.quad 0x0011223344556677
|
|
exp:
|
|
.quad 0x1234567800651121
|
|
bad_addr:
|
|
.quad 0xffffffff00000000
|
|
success_psw:
|
|
.quad 0x2000000000000,0xfff /* see is_special_wait_psw() */
|
|
failure_psw:
|
|
.quad 0x2000000000000,0 /* disabled wait */
|