Ray Mansell provided this tidier version:

>So then this simpler variation ought to work:
>
>         Macro
>&Lab     MVC2  &Target,&Source
>&Lab     MVC   &Target(0),&Source  X'D200',S(&Target),S(&Source)
>         Org   *-5                 Back up to length field
>         DC    AL1(L'&Source-1)    Overlay source length (-1)
>         Org   *+4                 Step to next instruction
>         MEnd

Thanks!
John Ehrman

Reply via email to