home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / useful / dev / obero / oberon-a / source / amiga / ramdrive.mod < prev    next >
Encoding:
Text File  |  1994-08-08  |  1.4 KB  |  63 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: RamDrive.mod $
  4.   Description: Interface to ramdrive.device
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.2 $
  8.       $Author: fjc $
  9.         $Date: 1994/08/08 00:45:47 $
  10.  
  11.   $VER: ramdrive_protos.h 36.3 (7.11.90)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A interface Copyright © 1994, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. ***************************************************************************)
  22.  
  23. MODULE RamDrive;
  24.  
  25. (*
  26. ** $C- CaseChk       $I- IndexChk  $L+ LongAdr   $N- NilChk
  27. ** $P- PortableCode  $R- RangeChk  $S- StackChk  $T- TypeChk
  28. ** $V- OvflChk       $Z- ZeroVars
  29. *)
  30.  
  31. IMPORT SYS := SYSTEM, E := Exec;
  32.  
  33.  
  34. (*-- RamDrive Base variable --------------------------------------------*)
  35.  
  36. TYPE
  37.  
  38.   RamDriveBasePtr * = CPOINTER TO RamDriveBase;
  39.   RamDriveBase * = RECORD (E.Device) END;
  40.  
  41. CONST
  42.  
  43.   name * = "ramdrive.device";
  44.  
  45.  
  46. (*-- Device Functions ---------------------------------------------------*)
  47.  
  48.  
  49. (*--- functions in V34 or higher (Release 1.3) ---*)
  50.  
  51. LIBCALL (base : RamDriveBasePtr) KillRAD0* ()
  52.   : E.STRPTR;
  53.   -42;
  54.  
  55. (*--- functions in V36 or higher (Release 2.0) ---*)
  56.  
  57. LIBCALL (base : RamDriveBasePtr) KillRAD*
  58.   ( unit [0] : LONGINT )
  59.   : E.STRPTR;
  60.   -48;
  61.  
  62. END RamDrive.
  63.