RSC — различия между версиями

 {Flags - переменная, содержащее соответственное значение}   

 CPUSize:= (Flags AND $7FF) shl (((Flags shr 11) AND $F) + 8); //расчет размера System Memory Segment

 GPUSize:= ((Flags shr 15) AND $7FF) shl (((Flags shr 26) AND $F)+8); //расчет размера Graphics Memory Segment

 function getCompactSize(size: longword): word; //вспомогательная функция

 var

  i: word;

 begin

  Assert(size mod 256 = 0); //не забудьте про проверку кратности на 256

  size := size shr 8; 

  i := 0;

  while (size mod 2 = 0) and (size >= 32) and (i < 15) do begin

    i := i + 1;

    size := size shr 1;

 end;

 result := ((i and $F) shl 11) or (size and $7FF);

 end;

 function getFlags(sysSegSize, gpuSegSize: longword): longword; //основная функция

 begin

  result := (getCompactSize(sysSegSize) and $7FFF)

         or (getCompactSize(gpuSegSize) and $7FFF) shl 15

         or 3 shl 30;

 end;