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

    {
    WILLIAM MCBRINE

    > I am looking For a Procedure to clear a screen in mode $13.  Writing
    > black pixels to each position isn't quite fast enough!

    This assumes that color 0 is black.
    }

    Procedure clearmode13; Assembler;
    Asm
      cld
      mov ax, $A000
      mov es, ax
      xor di, di
      xor ah, ah
      mov cx, 32000
      rep stosw
    end;

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