MODULE Memory; (* SJ *)

(* Memory is written in assembler *)

IMPORT SYSTEM;

PROCEDURE Copy* ( Source,Dest : SYSTEM.PTR; Length : LONGINT );

(* copies memory at Source with length Length to Dest. Minimum speed is
   necessary if Source or Dest is odd and the other isn't. Otherwise
   copying is done with about 1 MByte per second on an ST.
*)

PROCEDURE Fill* ( Dest : SYSTEM.PTR; Length,Filler : LONGINT );

(* fills memory at Dest with length Length with Filler. Speed is about
   1MByte per second. If bytes should be filled, repeat the byte four
   times in Filler (for example 20202020H for spaces).
*)

END Memory.