Have you tried MVCIN ?
Em qui, 22 de out de 2020 18:08, Steve Smith
escreveu:
Submitted for your consideration...
MACRO
#REVSTR
SETC DEQUOTE('')
SETA DCLEN('')
.*
SETA
.LOOPAIF ( LT 1).DONE
SETC ''.''(,1)
SETA
AGO .LOOP
.*
Better could be
DCC''
Em qui, 22 de out de 2020 18:08, Steve Smith escreveu:
> Submitted for your consideration...
>
> MACRO
>#REVSTR
> SETC DEQUOTE('')
>SETA DCLEN('')
> .*
>SETA
> .LOOPAIF ( LT 1).DONE
> SETC ''.''(,1)
>SETA
>
TIL: In a proportional font, an assembler macro looks like modern poetry.
On Thu, Oct 22, 2020 at 5:08 PM Steve Smith wrote:
> Submitted for your consideration...
>
> MACRO
>#REVSTR
> SETC DEQUOTE('')
>SETA DCLEN('')
> .*
>SETA
> .LOOPAIF ( LT 1).DONE
Submitted for your consideration...
MACRO
#REVSTR
SETC DEQUOTE('')
SETA DCLEN('')
.*
SETA
.LOOPAIF ( LT 1).DONE
SETC ''.''(,1)
SETA
AGO .LOOP
.*
.DONEANOP
DCC''
EQU *-1,
MEND
E.G.:
3161 *
3162 #TAG
I know, I did that macro sequence a long time ago and haven't bothered to
update it, I consider the probability that you want to copy 256 bytes to be
small. But I will revisit the macro now.
-Oprindelig meddelelse-
Fra: IBM Mainframe Assembler List På vegne af
João Reginato
Sendt: 22.
MVC moves up to 256 bytes, not 255
-Mensagem original-
De: IBM Mainframe Assembler List Em nome
de Robin Vowels
Enviada em: quinta-feira, 22 de outubro de 2020 05:03
Para: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Assunto: Re: Conditional MVCL macro?
- Original Message -
From: "Willy
On 2020-10-22, at 02:02:56, Robin Vowels wrote:
>
> You need to test R15 being zero. Subtracting 1 and then doing an EX
> is potentially dangerous.
>
I wonder whether avoiding this hazard was motivation for
CMS MDFS and SFS and early MVS RECFM=V prohibiting empty
records.
-- gil
- Original Message -
From: "Willy Jensen"
Sent: Wednesday, October 21, 2020 12:04 AM
Extract from a larger macro. And no, I was not overly concerned with
performance.
.* r15 : length
.* r14 -> source
