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:48:00


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