DEFINITION MODULE M2RM;
(*$ LargeVars:=FALSE NameChk:=FALSE LongAlign:=FALSE *)
FROM M2DM IMPORT
 Ident,ObjPtr;

VAR
 ModNo:INTEGER; (*current module number*)
 ModList:ObjPtr; (*list of loaded modules*)

PROCEDURE InitRef;

PROCEDURE InRef(impid: Ident; VAR hdr:ObjPtr; VAR adr:LONGINT;
                VAR pno:INTEGER);

PROCEDURE OpenRef(id: Ident; def:BOOLEAN);
PROCEDURE CloseRef(adr:LONGINT; pno:INTEGER; save:BOOLEAN);

PROCEDURE OutUnit(unit:ObjPtr);
PROCEDURE WriteRefPoint;

END M2RM.
