Assembler - язык неограниченных возможностей

         

Встроенный ассемблер в Pascal


function get_seed:longint var seed:longint begin asm push es mov ax,0040h mov es,ax mov ax,es:[006Ch] mov seed,ax pop es end; get_seed:=seed; end;



Содержание раздела