Nedávno jsem si začal hrát s textovým módem 03h a všechno šlo dokud jsem nenarazil na paletu. Tak jsem si přečetl články na jednom skvělém časopisu int21h :), ale tam nic o paletě nebylo. Zkoušel jsem stejný postup jako v MCGA:
port[$3c8]:=i; port[$3c9]:=r; port[$3c9]:=g; port[$3c9]:=b;ale to fungovalo jen pro barvy 0 až 5.
procedure SetColor(i,r,g,b:byte); var j:byte; begin if (i<=7) then begin if (i=6) then j:=20 else j:=i; end else j:=i+48; port[$3c8]:=j; port[$3c9]:=r; port[$3c9]:=g; port[$3c9]:=b; end;Úplně to samé je pro čtení. Jen index musíte zapsat na port 03c7h a pak z 03c9h číst.