Level 2 Cache

[Razor]

Delphi-Quellcode:

 Function CacheInfo(CacheID : Byte): Word; 
    Begin
      Case CacheID Of
        $39, $3B,
        $41, $79 : Result := 128;

        $3C, $42,
        $7A, $82 : Result := 256;

        $43, $7B,
        $83, $86 : Result := 512;

        $44, $7C,
        $84, $87 : Result := 1024;

        $85, $45 : Result := 2048;

        $49: Result:=4096;
      Else
        Result := 0;
      End;
    End;

now it will detect even my cpu's cache