03c8h 03c9h работа с палитрой через порты, у кого нить есть инфа Опции

[Shadow]

привет
---------------
у кого нибудь есть инфа работы с палитрой
через порты
---------------
просто нужно нет у меня в справочнике

[Dark]

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Procedure GetPal(ColorNo : Byte; Var R,G,B : Byte);
  { This reads the values of the Red, Green and Blue values of a certain
    color and returns them to you. }
Begin
   Port[$3c7] := ColorNo;
   R := Port[$3c9];
   G := Port[$3c9];
   B := Port[$3c9];
End;

Сообщение отредактировано: volvo - 7.11.2009 0:01

[Dark]

Procedure Pal(ColorNo : Byte; R,G,B : Byte);
  { This sets the Red, Green and Blue values of a certain color }
Begin
   Port[$3c8] := ColorNo;
   Port[$3c9] := R;
   Port[$3c9] := G;
   Port[$3c9] := B;
End;

[Dark]

Вот - погляди по регистрам в прикрепленном файле, там и нетолько это найти можно, но все на буржуйском

[Shadow]

спасибо понятно