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

    {
    RAPHAEL VANNEY

    *You mean displaying Text While in Graphics mode :-) ?

    > Yup. Already got a suggestion on using 640x480 With 8x8 font, so if
    > you have any other one please do tell.. ttyl...

    Sure. Just call the BIOS routines to display Characters With a "standard"
    look. By standard look, I mean they look like they were Characters in
    Text mode.

    Okay, here is the basic Procedure to display a String (Works in any Text/
    Graphics mode) :
    }

    Procedure BIOSWrite(Str : String; Color : Byte); Assembler;
    Asm
      les  di, Str
      mov  cl, es:[di]     { cl = longueur chane }
      inc  di              { es:di pointe sur 1er caractre }
      xor  ch, ch          { cx = longueur chane }
      mov  bl, Color       { bl:=coul }
      jcxz @ExitBW         { sortie si Length(s)=0 }
     @BoucleBW:
      mov  ah, 0eh         { sortie TTY }
      mov  al, es:[di]     { al=caractre  afficher }
      int  10h             { et hop }
      inc  di              { caractre suivant }
      loop @BoucleBW
     @ExitBW:
    end ;

    {
    I'm not sure how to manage the background color in Graphics mode ; maybe
    you should experiment With values in "coul", there could be a magic bit
    to keep actual background color.
    }

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