"IBM Mainframe Assembler List" <[email protected]> wrote on
08/15/2023 03:09:13 PM:
> The technique has been described extensively by
> the late Dr. John Ehrman. I think it was a Share presentation.
Thanks for that. I put these comments in all three macros.
MACRO
&LABEL TF &FLAG TEST FLAG BIT(s)
.* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
.* This is a simple macro to make it easier to accurately manipulate *
.* a bit flag definition just by the equated bit mask name -- i.e., *
.* without having to know the name of the actual flag byte or the *
.* flag byte even having a name at all. *
.* *
.* As presented by the late Dr. John Ehrman of IBM at SHARE. *
.* *
.* The idea is, you can have a definition similar to the following. *
.* The actual flag byte does not need a name but you can specify one *
.* if you want it to show up in the cross-reference. The equated *
.* bit masks take on the location of the flag byte and the length of *
.* the equated bit mask is set to the bit mask, itself. *
.* *
.* FLAG1 EQU *,B'00000001' *
.* FLAG2 EQU *,B'00000010' *
.* FLAG3 EQU *,B'00000100' *
.* FLAG4 EQU *,B'00001000' *
.* FLAG5 EQU *,B'00010000' *
.* FLAG6 EQU *,B'00100000' *
.* FLAG7 EQU *,B'01000000' *
.* FLAG8 EQU *,B'10000000' *
.* DS BL1 FLAG BYTE *
.* *
.* NOTE: See also the SF macro and the CF macro. *
.* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
&LABEL TM &FLAG,L'&FLAG TEST FLAG BIT(s)
MEND
Sincerely,
Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300
Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331
*********************************************************************************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.
*********************************************************************************************
