Re: MOVEA -> EVAL

["Joep Beckeringh" <joep@xxxxxxxxxxxxxxxxxxx>]

> D src       s         65535a   based(pSrc)
> D tgt       s         65535a   based(pTgt)
> D srcLen    s            10i 0
> D tgtLen    s            10i 0
>  /free
>         pSrc = %addr(arr1) + %size(arr1) * (n - 1)
>         pTgt = %addr(arr2) + %size(arr2) * (m - 1)
>         srcLen = %size(arr1) * (%elem(arr1) - n + 1)
>         %subst(tgt : 1 : srcLen) = %subst(src : 1 : srcLen) // no padding
>
>         tgtLen = %size(arr1) * (%elem(arr1) - n + 1)
>         %subst(tgt : 1 : tgtLen) = %subst(tgt : 1 : srcLen) // padding
>
> Barbara Morris

Ha! Typical sloppy C-programmer style!  Using signed integers for lengths;
tsk!!

Joep Beckeringh




+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---