binaryshadow, я понимаю что не читать статьи до

binaryshadow, я понимаю что не читать статьи до конца это круто. Но уж исходники то можно было посмотреть... А вы статейку дочитайте уж до конца, сделайте милость.

Type
   cpucode = record
      formatver1 : dword;     { Номер версии формата 1 }
      cpuid1     : byte;
      cpuid2     : byte;
      cpuid3     : byte;
      cpuid4     : byte;
      year       : word;      { Год в формaте BCD }
      day        : byte;      { День в формaте BCD }
      Month      : byte;      { Месяц в формате BCD }
      _cpuid     : word;      { CPUID процессора }
      reserved1  : word;      { Не используется - заполнено нулями }
      _crc       : dword;     { Возможно контрольная сумма }
      formatver2 : dword;     { Номер версии формата 2 }
      pkg        : dword;     { PKG (Package) процессора }
      fsize2     : dword;     { Размер микрокода без заголовка }
                              { если равно нулю, то fsize=2000 }
      reserved3  : array[1..16] of byte;
                          { Не используется - заполнено нулями }
                          { в "новом" формате используется,    }
                          { формат не ясен                     }
      microcode  : array[$31..$400] of byte;
   end;                   { Блоки кратны 1024 байт(ам)         }