[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]

    {
    > Hi I am looking For some help on use 2 monitors at the same time... 1
    > is mono and the other is vga.  I would like to just post a certain
    > screen on the mono and leave the vga like normal..

    VGA Text mode memory begins at $b800, VGA Graphics memory at $A000, and
    MDA/Herc memory begins at $b000.  If you plan on running Text and Text,
    try something like this:
    }
    Type
      WhichMonitor = (MDA, VGA);

    Procedure ChangeCel (Row, Column, Foreground, Background, Character : Byte;
                         Which : WhichMonitor);
    Var
      Point : Word;
    begin
      If Which = MDA then
        Point := $b000
      else
        Point := $b800;
      MemW[Point : (Row - 1) * 160 + Col * 2] :=
                   (Foreground + Background * 16) * 256 + Character;
      end;
    {
    Of course, there are more optimized ways to do this, but this should
    portray the basic concept.  Herc Graphics and VGA Graphics would be
    done in much the same manner, but I don't have an Herc With my VGA to
    check it.
    }

[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]