8.3.1. Встроенный ассемблер в 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;