home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / MathResource.mod < prev    next >
Encoding:
Text File  |  1992-12-17  |  1.6 KB  |  53 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE MathResource;   (* $Implementation- *)
  10.  
  11. IMPORT e * := Exec;
  12.  
  13. TYPE
  14.  
  15. (*
  16. *       The 'Init' entries are only used if the corresponding
  17. *       bit is set in the Flags field.
  18. *
  19. *       So if you are just a 68881, you do not need the Init stuff
  20. *       just make sure you have cleared the Flags field.
  21. *
  22. *       This should allow us to add Extended Precision later.
  23. *
  24. *       For Init users, if you need to be called whenever a task
  25. *       opens this library for use, you need to change the appropriate
  26. *       entries in MathIEEELibrary.
  27. *)
  28.  
  29.   MathIEEEResourcePtr * = UNTRACED POINTER TO MathIEEEResource;
  30.   MathIEEEResource * = STRUCT (node * : e.Node)
  31.     flags * : SET;
  32.     baseAddr * : e.APTR; (* ptr to 881 if exists *)
  33.     dblBasInit * : e.PROC;
  34.     dblTransInit * : e.PROC;
  35.     sglBasInit * : e.PROC;
  36.     sglTransInit * : e.PROC;
  37.     extBasInit * : e.PROC;
  38.     extTransInit * : e.PROC;
  39.   END;
  40.  
  41. CONST
  42.  
  43. (* definations for MathIEEEResource_FLAGS *)
  44.   dblBas     * = 0;
  45.   dblTrans   * = 1;
  46.   sglBas     * = 2;
  47.   sglTrans   * = 3;
  48.   extBas     * = 4;
  49.   extTrans   * = 5;
  50.  
  51. END MathResource.
  52.  
  53.