Improved version with TEST and FLIP options:
MACRO
TBIT &ACTION,&ARRAY,&BIT
LCLC &TBTIX
&TBTIX SETC 'TBT'.'&SYSNDX'
LR 14,&BIT
SRDL 14,3
SRL 15,29
LAY 1,&ARRAY.(14)
AIF ('&ACTION' EQ 'TEST').ACON
AIF ('&ACTION' EQ 'FLIP').ACON
AIF ('&ACTION' EQ 'ON').ACON
AIF ('&ACTION' EQ 'OFF').ACOFF
AGO .ERROR1
.ACON ANOP
LLILL 14,X'0080'
AGO .EXEC
.ACOFF ANOP
LLILL 14,X'FF7F'
AGO .EXEC
.EXEC ANOP
SRL 14,0(15)
EXRL 14,&TBTIX.X
&TBTIX.X DS 0H
AIF ('&ACTION' NE 'TEST').JTST
TM 0(1),0
.JTST ANOP
AIF ('&ACTION' NE 'FLIP').JFLP
XI 0(1),0
.JFLP ANOP
AIF ('&ACTION' NE 'ON').JON
OI 0(1),0
.JON ANOP
AIF ('&ACTION' NE 'OFF').JOFF
NI 0(1),0
.JOFF ANOP
AGO .MEXIT
.ERROR1 ANOP
MNOTE 8,'*** ACTION PARAMETER INVALID'
AGO .MEXIT
.MEXIT ANOP
MEND
