On 12/15/2016 4:21 PM, Peter Relson wrote:
After it showed up on a customer's STROBE report, we switched over to
using LPSW instead...
If you're unlucky enough to hit the edge case, you will lose the PER bit
by doing so.
Actually, that's a good point. If we get interrupted after the STOSM and
before the LPSW, and the system decides to turn on/off PER bit, etc. on
the very next dispatch, we would have the wrong value until it was
corrected on the next dispatch.
STOSM PSWMASK,0 Retain the current system mask
MVZ PSWBYTE1,TSOPKF Set Key
OI PSWBYTE1,PSWPROB Problem state
LPSW PSW Switch to TCB key and prob state
Not sure if we would ever care about such a thing, but I moved the STOSM
so the routine now looks as follows. That should reduce the likelihood
of that happening to even nearer zero than it already was...
MVZ PSWBYTE1,TSOPKF Set Key
OI PSWBYTE1,PSWPROB Problem state
STOSM PSWMASK,0 Retain the current system mask
LPSW PSW Switch to TCB key and prob state
Thanks!
--
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
