Курсовая работа: Робота в захищеному режимі мікропроцесора

data_cach[1,1]);

writeln('МП имеет следующие блоки кэш-памяти:');

writeln;

for i:=1 to 4 do

for j:=1 to 4 do

if (i<>1) or (j<>1) then

if data_cach[i,4] and 128=0 then begin

s:='';

if data_cach[i,j]<>0 then begin

case data_cach[i,j] of

1:s:='TLB команд: 4 Кб страницы, 4-напр., 32 входа';

2:s:='TLB команд: 4 Мб стран., полностью ассоц., 2 входа';

3:s:='TLB данных: 4 Кб страницы, 4-напр., 64 входа';

4:s:='TLB данных: 4 Мб страницы, 4-напр., 8 входов';

6:s:='Кэш команд: 8 Кб, 4-напр., строка 32 байта';

8:s:='Кэш команд: 16 Кб, 4-напр., строка 32 байта';

$A:s:='Кэш данных: 8 Кб, 2-напр., строка 32 байта';

$C:s:='Кэш данных: 16 Кб, 4-напр., строка 32 байта';

$22:s:=' Объедин. кэш L3: 512 Кб, 4-напр., строка 64 байта';

$23:s:=' Объедин. кэш L3: 1 Мб, 8-напр., строка 64 байта';

$25:s:=' Объедин. кэш L3: 2 Мб, 8-напр., строка 64 байта';

$29:s:=' Объедин. кэш L3: 4 Мб, 8-напр., строка 64 байта';

$39:s:='Объедин. кэш L2: 128 Кб, 4-напр., строка 64 байта';

$3B:s:='Объедин. кэш L2: 128 Кб, 2-напр., строка 64 байта';

$3C:s:='Объедин. кэш L2: 256 Кб, 4-напр., строка 64 байта';

$40:if cpu_type=6 then s:='Кэш L2: не содержится'

else if cpu_type=$f then s:='Кэш L3: не содержится';

$40:s:='Нет кэша L2 (семейство P6) или L3 (Pentium 4)';

$41:s:='Объедин. кэш: 128 Кб, 4-напр., строка 32 байта';