Oppolzer - Informatik / Blog


Blog-Hauptseite      Neuester Artikel      Älterer Artikel      Neuerer Artikel      Älterer gleiche Kategorie      Neuerer gleiche Kategorie

Hercules - (Variables) Setzen des linken Bits einer A-Konstante

Subject:

Re: [hercules-os380] Digest Number 1095

From:

Bernd Oppolzer <bernd.oppolzer@T-ONLINE.DE>

Reply-To:

Date:

2014.12.30 16:50:00


The &s before &BITPREF in SETA were missing in the first try ...

Am 30.12.2014 um 16:48 schrieb Bernd Oppolzer:
> &BITPREF SETA  0
>          AIF   ('&ZSYS' EQ 'S370').BIT24A
> &BITPREF SETA  X'80000000'
> .BIT24A  ANOP
> NEWIO    DC    X'000C0000'  machine check enabled + EC
>          DC    A(&BITPREF+STAGE2)
>
> Kind regards
>
> Bernd
>
>
> Am 30.12.2014 um 15:29 schrieb K.V.:
>> I wonder if it would be possible to simplify this:
>>
>> NEWIO    DC    X'000C0000'  machine check enabled + EC
>>          AIF   ('&ZSYS' EQ 'S370').MOD24B
>>          DC    A(X'80000000'+STAGE2)
>>          AGO   .MOD31B
>> .MOD24B  ANOP
>>          DC    A(STAGE2)
>> .MOD31B  ANOP
>>
>> by having a variable set to either X'00000000'
>> or X'80000000'.
>>
>> Something like:
>>
>> AIF   ('&ZSYS' EQ 'S370').BIT24A
>> BITPREF EQU X'80000000'
>> AGO .BIT24B
>> BITPREF EQU X'00000000'
>> .BIT24B
>>
>> NEWIO    DC    X'000C0000'  machine check enabled + EC
>>          DC    A(&BITPREF+STAGE2)
>>
>> Would that work?
>>
>> Thanks. P.
>>
>>

Blog-Hauptseite      Neuester Artikel      Älterer Artikel      Neuerer Artikel      Älterer gleiche Kategorie      Neuerer gleiche Kategorie