Have a look in opcode.c, JÃŒrgen. That's where the damage is.
dyncrypt has to be loaded to provide the instructions in ESA and Z.
The question was rhetorical. The answer is, Hell no. We the
yammerheads don't want anything near real hardware, so you will have to
suffer--it is our ball.
But do these people contribute to enhancing the quality of Hyperion?
Hell, no!
On 07/01/17 11:19, ***@id.ethz.ch [hercules-390] wrote:
>
>
>>> On 06/01/17 22:57, ''Fish' (David B. Trout)' ***@..._
> <mailto:***@...> [hercules-390] wrote:
>
>>>
>>>
>>>> And what do I load to get the unadulterated 370 back?
>>>
>>> The opposite of "ldmod s37x": rmmod s37x! Duh!
>>>
>>
>
>> ---In hercules-***@yahoogroups.com, <***@...> wrote :
>
>>
>
>> I did not load any modules. And KM does not program check in 370
>> architecture mode, as it should..
>>
>> So what should I have done?
>>
> John
>
> If you are inclined to, you normally find out quickly what's wrong. So
> I'm a bit surprised that this isn't the case here... well, may be you
> were not exactly inclined to .
>
> Anyway: It's clear that dyncrypt must have been loaded when you didn't
> receive the expected program check. Perhaps you might want to issue the
> "lsmod" command at the Hercules console to check? Note, that in Hyperion
> an "ldmod dyncrypt" command is issued automagically after
> initialization, which may be the reason why you had it loaded.
>
> To get a clean S/370 system initially one can easily remove this magic
> from hdl.c or, as I did in TK4- Hercules, introduce a build option (I
> named it OPTION_PRELOAD_DYNCRYPT) to control this Initial loading.
>
> I just gave your KM fc0 test a quick try on TK4- Hercules (used TK4-
> Hercules as an example only, any Hyperion incarnation configured the
> same way will behave the same way; I simply didn't want to build
> Hyperion for that simple test). The result is as expected: KM program
> checks out of the box, works fine once dyncrypt is explicitly loaded and
> program checks again after unloading dyncrypt.
>
> Here an excerpt of the Hercules console log:
>
> 11:33:44 HHC01413I Hercules version 4.00
> 11:33:44 HHC01414I (c) Copyright 1999-2012 by Roger Bowler, Jan Jaeger,
> and others
> 11:33:44 HHC01415I Built on Jun 26 2016 at 22:04:26
> 11:33:44 HHC01416I Build information:
> 11:33:44 HHC01417I Windows (MSVC) build for AMD64
> 11:33:44 HHC01417I Hercules for TK4- (64-bit Windows)
> \
> > most initialization messages skipped
> /
> 11:33:44 HHC01417I Running on HPM9180 Windows-6.1.7601. 7 Enterprise
> Edition 64-bit, Intel(R) x64 LP=4,
> Cores=4, CPUs=1
> \
> > run s/370 variant of John's KM fc0 test
> /
> 11:34:37 HHC01603I script local_scripts\testkm
> 11:34:37 HHC02260I Script 3: begin processing file local_scripts/testkm
> 11:34:37 HHC01603I * KM fc0
> 11:34:37 HHC01603I stopall
> 11:34:38 HHC01603I sysclear
> 11:34:38 HHC02311I sysclear completed
> 11:34:38 HHC01603I archmode s/370
> \
> > Program definition skipped
> /
> 11:34:38 HHC01603I ostailor null
> 11:34:38 HHC01603I restart
> 11:34:38 HHC02228I Key restart pressed
> 11:34:38 HHC00801I Processor CP00: Operation exception code 0001 ilc 4
> 11:34:38 PSW=0008000000000218 INST=B92E0024 KM
> 2,4 cipher_message
> 11:34:38 R:00000000:K:06=00080000 00000200 00000000 00000000
> ................
> 11:34:38 R:00000000:K:06=00080000 00000200 00000000 00000000
> ................
> 11:34:38 GR00=00000000 GR01=00000500 GR02=00000000 GR03=00000000
> 11:34:38 GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
> 11:34:38 GR08=00000000 GR09=00000000 GR10=00000000 GR11=00000000
> 11:34:38 GR12=00000000 GR13=00000000 GR14=00000000 GR15=00000000
> 11:34:38 HHC00809I Processor CP00: disabled wait state 000A0000 0000DEAD
> 11:34:39 HHC01603I * Display parameter block
> 11:34:39 HHC01603I r 500.f
> 11:34:39 HHC02290I R:00000500:K:06=00010203 04050607 08090A0B 0C0D0E0F
> ................
> 11:34:39 HHC01603I * Expected result
> 11:34:39 HHC01603I r 580.f
> 11:34:39 HHC02290I R:00000580:K:06=F0703838 00002828 00000000 00000000
> 0...............
> 11:34:39 HHC02264I Script 3: file local_scripts\testkm processing ended
> \
> > load dyncrypt
> /
> 11:34:52 HHC01603I ldmod dyncrypt
> 11:34:52 HHC01526I HDL: loading module dyncrypt...
> 11:34:52 HHC00150I Crypto module loaded (c) Copyright 2003-2015 by
> Bernard van der Helm
> 11:34:52 HHC00151I Activated facility: Message Security Assist
> 11:34:52 HHC00151I Activated facility: Message Security Assist Extension
> 1, 2, 3 and 4
> 11:34:52 HHC01527I HDL: module dyncrypt loaded
> \
> > run s/370 variant of John's KM fc0 test again, dyncrypt is now loaded
> /
> 11:34:56 HHC01603I script local_scripts\testkm
> 11:34:56 HHC02260I Script 4: begin processing file local_scripts/testkm
> 11:34:56 HHC01603I * KM fc0
> 11:34:56 HHC01603I stopall
> 11:34:58 HHC01603I sysclear
> 11:34:58 HHC02311I sysclear completed
> 11:34:58 HHC01603I archmode s/370
> \
> > Program definition skipped
> /
> 11:34:58 HHC01603I ostailor null
> 11:34:58 HHC01603I restart
> 11:34:58 HHC02228I Key restart pressed
> 11:34:58 HHC00809I Processor CP00: disabled wait state 000A0000 00ABCDEF
> 11:34:59 HHC01603I * Display parameter block
> 11:34:59 HHC01603I r 500.f
> 11:34:59 HHC02290I R:00000500:K:06=F0703838 00002828 00000000 00000000
> 0...............
> 11:34:59 HHC01603I * Expected result
> 11:34:59 HHC01603I r 580.f
> 11:34:59 HHC02290I R:00000580:K:06=F0703838 00002828 00000000 00000000
> 0...............
> 11:34:59 HHC02264I Script 4: file local_scripts\testkm processing ended
> \
> > unload dyncrypt
> /
> 11:35:16 HHC01603I rmmod dyncrypt
> 11:35:16 HHC01528I HDL: unloading module dyncrypt...
> 11:35:16 HHC01529I HDL: module dyncrypt unloaded
> \
> > run s/370 variant of John's KM fc0 test again, dyncrypt no longer loaded
> /
> 11:35:19 HHC01603I script local_scripts\testkm
> 11:35:19 HHC02260I Script 5: begin processing file local_scripts/testkm
> 11:35:19 HHC01603I * KM fc0
> 11:35:19 HHC01603I stopall
> 11:35:20 HHC01603I sysclear
> 11:35:20 HHC02311I sysclear completed
> 11:35:20 HHC01603I archmode s/370
> \
> > Program definition skipped
> /
> 11:35:20 HHC01603I ostailor null
> 11:35:20 HHC01603I restart
> 11:35:20 HHC02228I Key restart pressed
> 11:35:20 HHC00801I Processor CP00: Operation exception code 0001 ilc 4
> 11:35:20 PSW=0008000000000218 INST=B92E0024 KM
> 2,4 cipher_message
> 11:35:20 R:00000000:K:06=00080000 00000200 00000000 00000000
> ................
> 11:35:20 R:00000000:K:06=00080000 00000200 00000000 00000000
> ................
> 11:35:20 GR00=00000000 GR01=00000500 GR02=00000000 GR03=00000000
> 11:35:20 GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
> 11:35:20 GR08=00000000 GR09=00000000 GR10=00000000 GR11=00000000
> 11:35:20 GR12=00000000 GR13=00000000 GR14=00000000 GR15=00000000
> 11:35:20 HHC00809I Processor CP00: disabled wait state 000A0000 0000DEAD
> 11:35:21 HHC01603I * Display parameter block
> 11:35:21 HHC01603I r 500.f
> 11:35:21 HHC02290I R:00000500:K:06=00010203 04050607 08090A0B 0C0D0E0F
> ................
> 11:35:21 HHC01603I * Expected result
> 11:35:21 HHC01603I r 580.f
> 11:35:21 HHC02290I R:00000580:K:06=F0703838 00002828 00000000 00000000
> 0...............
> 11:35:21 HHC02264I Script 5: file local_scripts\testkm processing ended
>
> Cheers
> JÃŒrgen
>
>