program test_cpuload(input,output);

type
   ia8 = array [1..8] of integer;

[external] procedure cpuload(%REF cpu : ia8); external;

var
   cpu : ia8;

begin
   cpuload(cpu);
   writeln('interrupt stack     ',cpu[1]);
   writeln('MP synchronisation  ',cpu[2]);
   writeln('kernel mode         ',cpu[3]);
   writeln('executive mode      ',cpu[4]);
   writeln('supervisor mode     ',cpu[5]);
   writeln('user mode           ',cpu[6]);
   writeln('compatibility mode  ',cpu[7]);
   writeln('idle time           ',cpu[8]);
end.
