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!)
--
zMan -- "I've got a mainframe and I'm not afraid to use it"
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
