On 12/27/2013 3:31 PM, zMan wrote:
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?? ? (Pretend that was a monospace font if it isn't in your client!)
Assuming you really want to know if you were called in a non-privileged key (8-15):
IPK TMLL R2,X'0080' Non-privileged key? JNZ label Branch if yes -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 http://www.phoenixsoftware.com/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
