DEFINITION MODULE VStorage;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/vstorage.dev   1.4   30 Dec 1990 18:06:24   coleb  $
 *
 *)


FROM SYSTEM IMPORT ADDRESS;

TYPE
  MemHandle;
  AvailProc = PROCEDURE(): LONGINT;
  AvailTestProc = PROCEDURE( CARDINAL ): BOOLEAN;
  AllocProc = PROCEDURE( VAR MemHandle, CARDINAL)
      : BOOLEAN;
  DeallocProc = PROCEDURE( MemHandle, CARDINAL);
  LockProc = PROCEDURE( MemHandle): ADDRESS;
  UnLockProc = PROCEDURE( MemHandle);
  AccessProc = PROCEDURE( MemHandle, CARDINAL,
      ADDRESS, CARDINAL);

VAR
  AvailMem : AvailProc;
  IsAvailable : AvailTestProc;
  AllocMem : AllocProc;
  DeallocMem : DeallocProc;
  LockMem : LockProc;
  UnLockMem : UnLockProc;
  ReadMem, WriteMem: AccessProc;
  InEms: PROCEDURE( MemHandle ): BOOLEAN;
  UsingEms: PROCEDURE(): BOOLEAN;
  DosAlloc, DosDealloc : PROCEDURE( VAR ADDRESS,
      CARDINAL );
  DosAvail : PROCEDURE( CARDINAL ): BOOLEAN;

  PROCEDURE NilHandle( VAR TheHandle: MemHandle );

  PROCEDURE SameHandle( handle1, handle2:
      MemHandle ): BOOLEAN;

  PROCEDURE Init();

END VStorage.