Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
{ 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