|##########|
|#MAGIC   #|BIJLBFLF
|#PROJECT #|"IMPORTALL"
|#PATHS   #|"StdProject"
|#FLAGS   #|xx-x-x--x-----x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE MathIEEEResource;
(* $A- *)
FROM System IMPORT PROC;
FROM Exec   IMPORT Node;

TYPE
  MathIEEEResourceFlags    = (dblbas,dbltrans,sglbas,sgltrans,extbas,
                              exttrans,makeMeWord = 15);
  MathIEEEResourceFlagSet  = SET OF MathIEEEResourceFlags;

  MathIEEEResourcePtr      = POINTER TO MathIEEEResource;
  MathIEEEResource         = RECORD OF Node;
                               flags        : MathIEEEResourceFlagSet;
                               baseAddr     : ANYPTR;
                               dblBasInit,
                               dblTransInit,
                               sglBasInit,
                               sglTransInit,
                               extBasInit,
                               extTransInit : PROC
                             END;

VAR
  MathBase  : MathIEEEResourcePtr;

GROUP
  All  = MathIEEEResourceFlags,MathIEEEResourceFlagSet,MathIEEEResource,
         MathIEEEResourcePtr,MathBase;

END MathIEEEResource.
