{ BLOK.ASM                                        Copyright (c) Martin Kolecek }
{ Author: Martin Kolecek                                                       }
{ Datum: 01.05.2011                                      http://www.trsek.com  }

[SECTION ._TEXT]
%define PASCAL
%include "c16.mac"

proc FlipPage

%$BufferTo arg
%$BufferFrom arg

  PUSH DS
  XOR  EAX, EAX
  MOV  AX,  [BP+%$BufferTo]
  MOV  ES,  AX
  XOR  EDI, EDI
  MOV  AX,  [BP+%$BufferFrom]
  MOV  DS,  AX
  XOR  ESI, ESI

  MOV CX, 16000
@cyklus:
  MOVSD
  LOOP @cyklus
  POP DS

endproc