MACRO
&N       SWITST  &OPCODE,&A
.* Macro to ease Conversion from NOP/B-switches to proper flags
.*   expected coding:
.*  1-  NAME    NOP  LABEL   (can also be a B to LABEL)
.*  2-  an OI/NI against NAME+1 is also expected
.*  3-  in the very first lines of the code a
.*      CODE LOCTR  is expected -
.*      the location of the DEFS LOCTR can be anywhere later (at end)
&N       CLI     &N._S,1
         JE      &A
         AIF     ('&OPCODE' EQ 'NOP').NOP
         AIF     ('&OPCODE' EQ 'B').B
         MNOTE   12,'SWITCH IS NEITHER NOP NOR B'
         MEXIT
.NOP     ANOP
DEFS     LOCTR
&N._S    DC      X'00'
CODE     LOCTR
         MEXIT
.B       ANOP
DEFS     LOCTR
&N._S    DC      X'01'
CODE     LOCTR
         MEND
         MACRO
&N       SWISET  &A,&B  should be a 1 or a 0
.*   This is the counterpart to SWITST
.*   adapt it to your likes because...
.*    might even consider a SWISET and SWIREST
&N       MVI     &A._S,&B
         MEND