Thanks Lizette
> -----Original Message----- > From: IBM Mainframe Assembler List [mailto:ASSEMBLER- > [email protected]] On Behalf Of [email protected] > Sent: Wednesday, August 06, 2014 6:15 AM > To: [email protected] > Subject: Re: WAVV2010 Presentation > > I believe this is the URL > http://www.wavv.org/wavv2010/presentations/WAVV%202010%20Keyf.pdf > > ---------- Original Message ---------- > From: Lizette Koehler <[email protected]> > To: [email protected] > Subject: Re: WAVV2010 Presentation > Date: Wed, 6 Aug 2014 05:57:03 -0700 > > Could you provide a link to the presentation? > > Lizette > > > > -----Original Message----- > > From: IBM Mainframe Assembler List [mailto:ASSEMBLER- > > [email protected]] On Behalf Of [email protected] > > Sent: Wednesday, August 06, 2014 5:49 AM > > To: [email protected] > > Subject: WAVV2010 Presentation > > > > I discovered a presentation from 2010 > > WAVV 2010 > > KEY15 vs KEY0 > > Author unknown > > > > This presentation provided some source code which I found intresting. > > MODESET KEY=ZERO Switch To Key 0 > 00009000 > > > > MODESET MODE=SUP Switch To Supervisor State > 00010000 > > > > STCTL R3,R3,WORK Control Register 3 > 00020000 > > > > OC WORK(2),=X'0003' Allow Key E and F > 00030001 > > > > LCTL R3,R3,WORK Control Register 3 > 00040100 > > > > MODESET KEY=NZERO Return To User Key > 00040202 > > > > MODESET MODE=PROB Return to Problem State > 00040300 > > > > ORG *-32 > 00040400 > > > > DC X'00000008' > 00040500 > > > > ORG > 00040600 > > > > * > 00040700 > > > > > > My understanding is that this snipet of code allows the caller to add > > PSW > Key E and > > F to there PSWKey list. > > . > > Now I have no actual need for code like this but I did find it > interesting. > > . > > Does anyone use this technique ? > > . > > Does anyone have a routine like this that is coded differently ? > > . > > Any code sharing would be appreciated . > > Just curious > > . > > Paul D'Angelo > > > >=
