(**************************************************************************

     $RCSfile: RamDrive.mod $
  Description: Interface to ramdrive.device

   Created by: fjc (Frank Copeland)
    $Revision: 3.2 $
      $Author: fjc $
        $Date: 1994/08/08 00:45:47 $

  $VER: ramdrive_protos.h 36.3 (7.11.90)
  Includes Release 40.15

  (C) Copyright 1985-1993 Commodore-Amiga, Inc.
      All Rights Reserved

  Oberon-A interface Copyright © 1994, Frank Copeland.
  This file is part of the Oberon-A Interface.
  See Oberon-A.doc for conditions of use and distribution.

***************************************************************************)

MODULE RamDrive;

(*
** $C- CaseChk       $I- IndexChk  $L+ LongAdr   $N- NilChk
** $P- PortableCode  $R- RangeChk  $S- StackChk  $T- TypeChk
** $V- OvflChk       $Z- ZeroVars
*)

IMPORT SYS := SYSTEM, E := Exec;


(*-- RamDrive Base variable --------------------------------------------*)

TYPE

  RamDriveBasePtr * = CPOINTER TO RamDriveBase;
  RamDriveBase * = RECORD (E.Device) END;

CONST

  name * = "ramdrive.device";


(*-- Device Functions ---------------------------------------------------*)


(*--- functions in V34 or higher (Release 1.3) ---*)

LIBCALL (base : RamDriveBasePtr) KillRAD0* ()
  : E.STRPTR;
  -42;

(*--- functions in V36 or higher (Release 2.0) ---*)

LIBCALL (base : RamDriveBasePtr) KillRAD*
  ( unit [0] : LONGINT )
  : E.STRPTR;
  -48;

END RamDrive.