DEFINITION MODULE P2Init;

FROM MCBase IMPORT Idptr;

EXPORT QUALIFIED
      MarkInitBlock, ReleaseInitBlock, EnterInitModule,
      ToInitModule, InitModules, MustInit, Initrange,
      ResetModuleInit;

CONST initmax = 20;
TYPE Initrange = [0..initmax];

PROCEDURE MarkInitBlock;
PROCEDURE ReleaseInitBlock;
PROCEDURE EnterInitModule(ip : Idptr; VAR initix : Initrange); 
PROCEDURE ToInitModule(initix : Initrange); 
PROCEDURE InitModules;
PROCEDURE MustInit() : BOOLEAN; 
PROCEDURE ResetModuleInit;

END P2Init .
