home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / oberon-a-1.4ß.lha / Oberon-A / source / amiga / Potgo.mod < prev    next >
Text File  |  1994-08-08  |  2KB  |  83 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: Potgo.mod $
  4.   Description: Interface to potgo.resource
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.2 $
  8.       $Author: fjc $
  9.         $Date: 1994/08/08 00:44:55 $
  10.  
  11.   $VER: potgo.h 36.0 (13.4.90)
  12.   $VER: potgo_protos.h 36.3 (7.11.90)
  13.   Includes Release 40.15
  14.  
  15.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  16.       All Rights Reserved
  17.  
  18.   Oberon-A interface Copyright © 1994, Frank Copeland.
  19.   This file is part of the Oberon-A Interface.
  20.   See Oberon-A.doc for conditions of use and distribution.
  21.  
  22. ***************************************************************************)
  23.  
  24. MODULE Potgo;
  25.  
  26. (*
  27. ** $C- CaseChk       $I- IndexChk  $L+ LongAdr   $N- NilChk
  28. ** $P- PortableCode  $R- RangeChk  $S- StackChk  $T- TypeChk
  29. ** $V- OvflChk       $Z- ZeroVars
  30. *)
  31.  
  32. IMPORT E := Exec;
  33.  
  34.  
  35. CONST
  36.  
  37.   name * = "potgo.resource";
  38.  
  39.  
  40. (*-- Resource Base variable --------------------------------------------*)
  41.  
  42. TYPE
  43.  
  44.   PotgoBasePtr * = CPOINTER TO PotgoBase;
  45.   PotgoBase * = RECORD END;
  46.  
  47. VAR
  48.  
  49.   base * : PotgoBasePtr;
  50.  
  51.  
  52. (*-- Resource Functions ------------------------------------------------*)
  53.  
  54.  
  55. LIBCALL (base : PotgoBasePtr) AllocPotBits*
  56.   ( bits [0] : E.WSET ) : E.WSET;
  57.   -6;
  58. LIBCALL (base : PotgoBasePtr) FreePotBits*
  59.   ( bits [0] : E.WSET );
  60.   -12;
  61. LIBCALL (base : PotgoBasePtr) WritePotgo*
  62.   ( word [0] : E.WSET;
  63.     mask [1] : E.WSET );
  64.   -18;
  65.  
  66.  
  67. (*-- Resource Base variable --------------------------------------------*)
  68. (* $L- Address globals through A4 *)
  69.  
  70.  
  71. (*-----------------------------------*)
  72. PROCEDURE OpenResource * ();
  73.  
  74. BEGIN (* OpenResource *)
  75.   IF base = NIL THEN
  76.     base := E.base.OpenResource (name);
  77.     IF base = NIL THEN HALT (100) END;
  78.   END;
  79. END OpenResource;
  80.  
  81.  
  82. END Potgo.
  83.