ok if PoOps is the target
-----Mensagem original----- De: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU> Em nome de Seymour J Metz Enviada em: sexta-feira, 23 de outubro de 2020 09:04 Para: ASSEMBLER-LIST@LISTSERV.UGA.EDU Assunto: Re: Reversed string macro No. From PoOps: "The second-operand address designates the rightmost byte of the second operand.". -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Assembler List [ASSEMBLER-LIST@LISTSERV.UGA.EDU] on behalf of João Reginato [jb.regin...@gmail.com] Sent: Friday, October 23, 2020 12:34 AM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: Reversed string macro Better could be &LABEL DC C'&OSTR' Em qui, 22 de out de 2020 18:08, Steve Smith <sasd...@gmail.com> escreveu: > Submitted for your consideration... > > MACRO > &LABEL #REVSTR &STR > &ISTR SETC DEQUOTE('&STR') > &L SETA DCLEN('&ISTR') > .* > &A SETA &L > .LOOP AIF (&A LT 1).DONE > &OSTR SETC '&OSTR'.'&ISTR'(&A,1) > &A SETA &A-1 > AGO .LOOP > .* > .DONE ANOP > DC C'&OSTR' > &LABEL EQU *-1,&L > MEND > > E.G.: > > 3161 * > 3162 #TAG #REVSTR 'IKJTCB' > 3163+ DC C'BCTJKI' > 3164+#TAG EQU *-1,6 > 3165 #DOG #REVSTR 'The quick brown fox jumped over the lazy dog.' > 3166+ DC C'.god yzal eht revo depmuj xof nworb kciuq ehT' > 3167+#DOG EQU *-1,45 > > -- > sas >