Delphi & Pascal (česká wiki)
{ 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