{ Procedury wykorzystujące instrukcje 386 }
{ Autor: Cezary Cerekwicki }

{ Przepisuje 64000 bajtów z podanego segmentu do pamięci ekranu }
Procedure ShowScreen (Segment : Word); assembler;
asm
        push ds
        mov  ax,0A000h
        mov  es,ax
        mov  ds,[Segment]
        xor  si,si
        xor  di,di
        mov  cx,64000/4
        cld
        db   $F3,$66,$A5  {rep movsd}
        pop  ds
end;

{ Wypełnia zerami 64000 bajtów z podanego segmentu }
Procedure Clear (Segment : Word); assembler;
asm
        mov  es,[Segment]
        db   $66,$33,$C0  {xor eax,eax}
        xor  di,di
        mov  cx,64000/4
        cld
        db   $F3,$66,$AB  {rep stosd}
end;

Stronę opracował Michał Szulowski