ARM.Runtime.Mod 223 B

123456789101112
  1. MODULE Runtime;
  2. VAR
  3. kernelModule-: ARRAY 32 OF ADDRESS;
  4. modules-: LONGINT;
  5. PROCEDURE InsertModule*(a: ADDRESS): BOOLEAN;
  6. BEGIN
  7. kernelModule[modules] := a;
  8. INC(modules);
  9. RETURN TRUE
  10. END InsertModule;
  11. END Runtime.