Copyright (C) 1994, Digital Equipment Corp. UNSAFE MODULE; IMPORT RT0, RT0u, RTMisc; PROCEDURE RTModule Count (): CARDINAL = BEGIN RETURN RT0u.nModules; END Count; PROCEDUREGet (m: CARDINAL): RT0.ModulePtr = VAR p := RT0u.modules; BEGIN IF (m >= RT0u.nModules) THEN RTMisc.FatalErrorI ("improper module index: ", m); END; p := p + m * ADRSIZE (RT0.ModulePtr); RETURN p^; END Get; BEGIN END RTModule.