Find module and proc by addr

Asm.Mod

MODULE TestModules;

IMPORT SYSTEM, Log := StdLog, Kernel;

	CONST adr = 43711E10H;

PROCEDURE Do*;
	VAR m : Kernel.Module;addr : INTEGER;
BEGIN
	m := Kernel.modList; 
	
	WHILE m # NIL DO
		IF (m.refcnt >= 0) & (m.code <= adr) & ((m.code + m.csize) > adr)THEN
			Log.String(LONG(m.name) + " 0x"); 
			Log.IntForm(m.code, Log.hexadecimal, 9, '0', Log.showBase); Log.Ln;
			Log.String(" offset ");Log.IntForm(adr - m.code, Log.hexadecimal, 9, '0', Log.showBase);
      (*todo Kernel.GetRefFrameDo*)
			Log.Ln;
		END;
		m := m.next;
		
	END;

END Do;

END TestModules.
TestModules.Do

Kernel.SearchProcVar