Simpler still: Just code the AHI instruction with a negated argument. Keven
> On Dec 20, 2021, at 13:57, Alan Atkinson <[email protected]> wrote: > > Which is just what we did - but turned it onto a macro. > > MACRO > &NAME SHI &R,&I SUBTRACT HALFWORD IMMEDIATE > &NAME AHI &R,-(&I) > MEXIT > MEND > > On 12/20/21, 1:06 PM, "IBM Mainframe Assembler List on behalf of Ed Jaffe" > <[email protected] on behalf of [email protected]> > wrote: > > > EXTERNAL > > > ====================================================================== >> On 12/20/2021 10:03 AM, [email protected] wrote: >> &LABEL AHI &A,(&B)*-1 > > Or you could simply use: > > &LABEL AHI &A,-(&B) > > -- > Phoenix Software International > Edward E. Jaffe > 831 Parkview Drive North > El Segundo, CA 90245 > https://www.phoenixsoftware.com/ > > > > -------------------------------------------------------------------------------- > This e-mail message, including any attachments, appended messages and the > information contained therein, is for the sole use of the intended > recipient(s). If you are not an intended recipient or have otherwise > received this email message in error, any use, dissemination, distribution, > review, storage or copying of this e-mail message and the information > contained therein is strictly prohibited. If you are not an intended > recipient, please contact the sender by reply e-mail and destroy all copies > of this email message and do not otherwise utilize or retain this email > message or any or all of the information contained therein. Although this > email message and any attachments or appended messages are believed to be > free of any virus or other defect that might affect any computer system > into > which it is received and opened, it is the responsibility of the recipient > to ensure that it is virus free and no responsibility is accepted by the > sender for any loss or damage arising in any way from its opening or use. >
