Color To Rgb Опции

[Altair]

ДАНО.
VESA режим. (ДОС)

Как получить по номеру цвета компоненты R, G, B ?


В GraphiX'e есть

Function GETRGBColor(f:longint):longint;
converts the current color-layout (f) into the 8:8:8-RGB-color
  bits 0..7  - blue
  bits 8..15 - green
  bits 16..23 - red
  bits 24..31 - not used

Как подобную процедуру в VESA реализовать?

( номера цветов в graphix'e и здесь несовпадают.... поэтому исходникGETRGBCOlor смотреть бесполезно)

[Altair]

Решение подсказал Volvo.
Я взял модуль VESA в виде именно юнита паскалевского, и там была точно такая функция.