{ 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 ClearPage
 
%$Buffer arg
 
  XOR  EAX, EAX
  MOV  AX,  [BP+%$Buffer]
  MOV  ES,  AX
  XOR  EDI, EDI
  XOR  EAX, EAX
  MOV  CX,  16000
@cyklus:
  STOSD
  LOOP  @cyklus
 
endproc