TEST fixed:
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
AIF ('&ACTION' NE 'TEST').JTST
J &TBTIX.T
&TBTIX.X TM 0(1),0
&TBTIX.T DS 0H
.JTST ANOP
AIF ('&ACTION' NE 'FLIP').JFLP
&TBTIX.X XI 0(1),0
.JFLP ANOP
AIF ('&ACTION' NE 'ON').JON
&TBTIX.X OI 0(1),0
.JON ANOP
AIF ('&ACTION' NE 'OFF').JOFF
&TBTIX.X NI 0(1),0
.JOFF ANOP
AGO .MEXIT
.ERROR1 ANOP
MNOTE 8,'*** ACTION PARAMETER INVALID'
AGO .MEXIT
.MEXIT ANOP
MEND
