Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!asuvax!ncar!elroy.jpl.nasa.gov!swrinde!zaphod.mps.ohio-state.edu!think.com!yale.edu!cmcl2!adm!news
From: STANKULI%UWF.BITNET@cunyvm.cuny.edu ( stan kulikowski ii)
Newsgroups: comp.lang.pascal
Subject: setting foreground text colors
Message-ID: <27270@adm.brl.mil>
Date: 21 Jun 91 18:48:40 GMT
Sender: news@adm.brl.mil
Lines: 28


  i have been playing with the rom bios routines in my ps/2 .  the following
procedure uses the video services to change the background color.

           procedure SET_BACKGROUND (COLOR : integer);
           begin
              CLEAR (REGISTER);          (* Sets them all to 0 *)
              REGISTER.ah := $10;
              REGISTER.bh := COLOR;
              intr ($10,REGISTER);
           end; (* SET_BACKGROUND procedure *)

  when i call this the background switches to the right color (0-15) leaving
the text chars displayed in whatever color they were in.

  what i have not figured out is how to set the foreground color of the chars
to whatever i want.  i have been using R.T. Stevens (1989) Graphics Programming
in C as my reference, but to no avail.

  does anyone have a tp procedure which sets the foreground color to whatever
color you want for subsequent writelns?  i can do this when ansi.sys is
installed with the escape codes to the screen, but i would like to handle
this from the rom bios video services if i can.
                                               stan
    .                  stankuli@UWF.bitnet
   ===
   | |     close your eyes, my darling, or three of them at least
   ---                                          -- old venusian lullaby