tests/tcg/s390x/clm.S

   1     .org 0x8e
   2 program_interruption_code:
   3     .org 0x1d0                         /* program new PSW */
   4     .quad 0,pgm
   5     .org 0x200                         /* lowcore padding */
   6     .globl _start
   7 _start:
   8     lgrl %r0,op1
   9     clm %r0,6,op2
  10     jle failure
  11     lgrl %r1,bad_addr
  12     clm %r0,0,0(%r1)
  13 failure:
  14     lpswe failure_psw
  15 pgm:
  16     chhsi program_interruption_code,5  /* addressing exception? */
  17     jne failure
  18     lpswe success_psw
  19     .align 8
  20 op1:
  21     .quad 0x1234567887654321
  22 op2:
  23     .quad 0x3456789abcdef012
  24 bad_addr:
  25     .quad 0xffffffff00000000
  26 success_psw:
  27     .quad 0x2000000000000,0xfff        /* see is_special_wait_psw() */
  28 failure_psw:
  29     .quad 0x2000000000000,0            /* disabled wait */