Oppolzer - Informatik / Blog

Way cool, this motivated me to bring up my hercules machine once again, but ...

at least with the very old ASSEMBLER XF, the second solution doesn't work:

assemble testz

ASSEMBLER (XF) DONE
TES00060        6          DC    AL.1(&AMBIT),AL.31(STAGE2)
TES00060        7+         DC    AL.1(1),AL.31(STAGE2)
IFO204 RELOCATABLE EXPRESSION IN A- OR Y-TYPE ADDRESS CONSTANT WITH BIT
LENGTH S
PECIFICATION NOT ALLOWED
NUMBER OF STATEMENTS FLAGGED IN THIS ASSEMBLY =     1
Ready(00008); T=0.02/0.07 03:40:03

The SETB solution is very elegant, I will try to build the A-constant from this
SETB value; I now have:

         LCLB  &AMBIT
         LCLC  &ZSYS
&ZSYS    SETC  '370'
&AMBIT   SETB  ('&ZSYS' EQ '370')
NEWIO    DC    X'000C0000'  MACHINE CHECK ENABLED + EC
         DC    AL.1(&AMBIT),AL.31(STAGE2)
STAGE2   DS    0F
         END

maybe the solution with the B'...' constant will work ...

Later,
kind regards

Bernd




Am 31.12.2014 um 02:04 schrieb G.P.:
[hercules-os380]:
> How about doing it the easy way:
>
>          LCLB  &AMBIT
>          LCLC  &ZSYS
> &AMBIT   SETB  ('&ZSYS' EQ '370')
>
> NEWIO    DC    B'&AMBIT.0000000,00001100,00000000,00000000'
>
> or with an address:
>
> NEWIO    DC    AL.1(&AMBIT),AL.31(STAGE2)
>
>
> G.P.
>
>