(*-------------------------------------------------------------------------*)
(*                                                                         *)
(*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
(*                                                                         *)
(*   © 1992 by Fridtjof Siebert                                            *)
(*                                                                         *)
(*-------------------------------------------------------------------------*)

MODULE RamDrive;

IMPORT e * := Exec;

CONST

  ramDriveName * = "ramdrive.device";


VAR

(*
 *  You have to put a pointer to the ramdrive.device here to use the ramdrive
 *  procedures:
 *)

  base * : e.DevicePtr;



(*--- functions in V34 or higher (distributed as Release 1.3) ---*)
PROCEDURE KillRAD0 *{base,- 42}(): e.STRPTR;
(*--- functions in V36 or higher (distributed as Release 2.0) ---*)
PROCEDURE KillRAD  *{base,- 48}(unit{0} : LONGINT): e.STRPTR;

END RamDrive.