MtUtils, только модуль.## Код:
```
PROCEDURE [code] GetrADDR(): INTEGER
      08BH, 045H, 004H; (* mov eax,[ebp+4] *)
   
   PROCEDURE CallerMod* (OUT mod: ARRAY OF CHAR);
      VAR ad: INTEGER;
            m: Kernel.Module;
   BEGIN
      ad := GetrADDR();
      m := Kernel.modList;
      WHILE ~ ((m.code <= ad) & (ad < m.code + m.csize)) DO
         m := m.next;
         ASSERT(m # Kernel.modList, 100)
      END;
      mod := m.name$
   END CallerMod;
```
