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
