Pardon my ignorance, but wouldn't:
Macro
&Lab MVC2 &Target,&Source
&Lab MVC &Target.(L'&Source),&Source
MEND
do the same thing without the fuss? Register notation seems to throw
either one off, but seems like that could be taken care of...
Mark Hammack
On Wed, May 16, 2012 at 11:48 AM, John Ehrman <[email protected]> wrote:
> This macro uses the length attribute of the second operand as the length
> value in the MVC:
> Macro
> &Lab MVC2 &Target,&Source
> &Lab CLC 0(0,0),&Source X'D500 0000',S(&Source)
> Org *-6 Back up to first byte of instruction
> LA 0,&Target.(0) X'4100',S(&Target),S(&Source)
> Org *-4 Back up to first byte of instruction
> DC AL1(X'D2',L'&Source-1) First 2 bytes of instruction
> Org *+4 Step to next instruction
> MEnd
>
> Just write
> MVC2 Target,=C'Whatever you like'
>
> John Ehrman
>
