home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / Potgo.mod < prev    next >
Encoding:
Text File  |  1992-12-17  |  978 b   |  34 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE Potgo;
  10.  
  11. IMPORT e * := Exec;
  12.  
  13. CONST
  14.   potgoName * = "potgo.resource";
  15.  
  16. VAR
  17.  
  18. (*
  19.  *  You have to put a pointer to the potgo.resource here to use the potgo
  20.  *  procedures:
  21.  *)
  22.  
  23.   base * : e.APTR;
  24.  
  25.  
  26. PROCEDURE AllocPotBits *{base,-  6}(bits{0}  : SET): SET;
  27. PROCEDURE FreePotBits  *{base,- 12}(bits{0}  : SET);
  28. PROCEDURE WritePotgo   *{base,- 18}(word{0}  : SET;
  29.                                     mask{1}  : SET);
  30.  
  31. END Potgo.
  32.  
  33.  
  34.