  PROCEDURE [INLINE] fip#move
    (    source_p: ^cell;
         destination_p: ^cell;
         length: 0 .. 7fffffff(16));

?? PUSH (LISTEXT := ON) ??

{Copy SOURCE(1,LENGTH) to DESTINATION(1,LENGTH)
{
{NOTES
{. like I#MOVE, except no test for LENGTH > 0.
{. use FIP#MOVE_SHORT when you know LENGTH <= 255.

    VAR
      str1_p: ^string (65535),
      str2_p: ^string (65535);

?? PUSH (CHKRNG := OFF, CHKSUB := OFF) ??
    str1_p := source_p;
    str2_p := destination_p;
    str2_p^ (1, length) := str1_p^ (1, length);
    #SPOIL (str2_p^);
?? POP ??

  PROCEND fip#move;
?? POP ??
