8.3.1. Ассемблер, встроенный в Pascal

function get_seed:longint var

seed:longint begin

asm

push es

mov ax,0040h

mov       es.ax t •

mov' ax,es:[006Ch] mov   .    seed,ax

pop es

end;

get_seed:=seed;

end; \

8.3.2. Ассемблер, встроенный в С

int get_seed() int seed; {

_asm {

push es

mov      ax,0040h •

mov       es, ax

mov ax,es:[006Ch]

mov

pop es

};

return(seed);-

};

В данных ситуациях ассемблерная программа может свободно пользоваться переменными из языка высокого уровня, так как они автоматически преобразу­ются в соответствующие выражения типа word ptr [bp + 4].