
  PROCEDURE [INLINE] i#move (source: ^cell;
        dest: ^cell;
        length: 0 .. 7fffffff(16));

    VAR
      str1: ^string (65535),
      str2: ^string (65535);

?? PUSH (CHKRNG := OFF, CHKSUB := OFF) ??
    IF length <> 0 THEN
      str1 := source;
      str2 := dest;
      str2^ (1, length) := str1^ (1, length);
      #SPOIL (str2^);
    IFEND;
?? POP ??
  PROCEND i#move;
