IMPLEMENTATION MODULE DirtyHandler;
(*
        Title:          Dirty Handler.

    NOTE : This module is implemented in assembler (in src.DirtyHandl)        

*)

FROM SYSTEM IMPORT ADDRESS;
FROM String IMPORT CopyLC;
FROM Handler IMPORT UsersEnvironment,UsersEnvironmentPTR, TypeCode,
                    UserEventHandler, ConditionHandlerType;
                                           
PROCEDURE Version( VAR String : ARRAY OF CHAR ) ;
BEGIN
   CopyLC( "DirtyHandler ~~ 0.01/11  08 Oct 84 15:32:34" , String ) ;
END Version ;

PROCEDURE Initialise();
BEGIN
END Initialise;

PROCEDURE Signal();
BEGIN
END Signal;

PROCEDURE CurrentMod():CARDINAL;
BEGIN
END CurrentMod;

PROCEDURE MakeClosure( VAR Closure:UsersEnvironment):BOOLEAN;
BEGIN
END MakeClosure;

PROCEDURE LongJump( Closure:UsersEnvironmentPTR );
BEGIN
END LongJump;

PROCEDURE SystemSignal( Error : INTEGER; NumberOfDoubles : CARDINAL );
BEGIN
END SystemSignal;

PROCEDURE CallEventProc(Proc      : UserEventHandler;
                        P1        : INTEGER;
                        P2        : INTEGER;
                        P3        : INTEGER;
                        P4        : INTEGER;
                        VAR Env   : UsersEnvironment);
BEGIN
END CallEventProc;

PROCEDURE CallConditionProc(Proc     : ConditionHandlerType;
                            Type     : TypeCode;
                            Param    : INTEGER;
                            VAR Env1 : UsersEnvironment;
                            VAR Env2 : UsersEnvironment):INTEGER;
BEGIN
END CallConditionProc;



END DirtyHandler.