seg_fillchar

   

Declaration:

Procedure seg_fillchar (seg : Word; ofs : Longint; count : Longint; c : char) ;

Description:

Sets a memory area to a specific value.

Parameters:

seg:

selector to memory area

ofs:

offset to memory

count:

number of bytes to set

c:

byte data which is set

Return values: none

Notes: No range check is done in any way.

Errors:

none

See also:

seg_move, seg_fillword, dosmemfillchar, dosmemfillword, dosmemget, dosmemput, dosmemmove

Example

Program svgasel;

uses go32;

var vgasel : Word;
    r : trealregs;

begin
  r.eax := $13; realintr($10, r);
  vgasel := segment_to_descriptor($A000);
  { simply fill the screen memory with color 15 }
  seg_fillchar(vgasel, 0, 64000, #15);
  readln;
 { back to text mode }
  r.eax := $3; 
  realintr($10, r);
end.