DEFINITION MODULE Global ;

(* MC64 module table: data window base, procedure table address and
   flag byte for every loaded module index 0..99. *)

EXPORT QUALIFIED MaxModules, InitModuleTable, GetModuleBase, SetModuleBase,
  GetModuleProcs, SetModuleProcs, GetModuleFlag, SetModuleFlag,
  GetCurrentModule, SetCurrentModule, FindModuleByBase ;

CONST MaxModules = 101 ;

PROCEDURE InitModuleTable ;
PROCEDURE GetModuleBase (m: CARDINAL) : LONGCARD ;
PROCEDURE SetModuleBase (m: CARDINAL; base: LONGCARD) ;
PROCEDURE GetModuleProcs (m: CARDINAL) : LONGCARD ;
PROCEDURE SetModuleProcs (m: CARDINAL; procs: LONGCARD) ;
PROCEDURE GetModuleFlag (m: CARDINAL) : CARDINAL ;
PROCEDURE SetModuleFlag (m: CARDINAL; f: CARDINAL) ;
PROCEDURE GetCurrentModule () : CARDINAL ;
PROCEDURE SetCurrentModule (m: CARDINAL) ;
PROCEDURE FindModuleByBase (base: LONGCARD) : CARDINAL ;

END Global.