In
<CAFO-8tpGjfigAn8qw8BXXCqpVywcZ94DnXo=yicihgjk5ig...@mail.gmail.com>,
on 12/27/2013
at 06:31 PM, zMan <[email protected]> said:
>Is there a simpler way to see whether we were called in key 8 (not
>that this is that complicated):
> EPSW R14,R0 Extract PSW
> SLL R14,8 Get key bits in left-most nibble
> SRL R14,28 Now isolate in bottom nibble
> CFI R14,8 Are we in key 8??
EPSW R14,R0 Extract PSW
NILH R14,X'00F0' Clear flags, leave key
CLFI R14,X'00800000'
or
CLM R14,4,=x'80'
But why not use IPK?
--
Shmuel (Seymour J.) Metz, SysProg and JOAT
ISO position; see <http://patriot.net/~shmuel/resume/brief.html>
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
