SPtr: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
(Vytvorená stránka „Vrací aktuální hodnotu registru SP. ;Deklarace function SPtr: Word; ;Režim :Windows, Reálný, Chráněný ;Poznámky :Vrací offset ukazatele vrcholu zásobník...“)
 
m (1 revízia: Unit System)
(Žádný rozdíl)

Verze z 5. 10. 2012, 17:49

Vrací aktuální hodnotu registru SP.

Deklarace
function SPtr: Word;
Režim
Windows, Reálný, Chráněný
Poznámky
Vrací offset ukazatele vrcholu zásobníku v zásobníkovém segmentu.
Viz také
Sseg


Vzorový příklad

{CSeg.PAS}
{Vzorový příklad funkce CSeg, DSeg, SSeg, SPtr, Ofs a Seg.}
{ Pro Windows: }
{ uses WinCrt; }
procedure WriteHexWord(w: Word);
const
  hexChars: array [0..$F] of Char =
    '0123456789ABCDEF';
begin
  Write(hexChars[Hi(w) shr 4],
        hexChars[Hi(w) and $F],
        hexChars[Lo(w) shr 4],
        hexChars[Lo(w) and $F]);
end;
var
  i: Integer;
begin
  Write('Aktuální kódový segment je $');
  WriteHexWord(CSeg); Writeln;
  Write('Globální datový segment je $');
  WriteHexWord(DSeg); Writeln;
  Write('Segment zásobníku je $');
  WriteHexWord(SSeg); Writeln;
  Write('Ukazatel zásobníku je na $');
  WriteHexWord(SPtr); Writeln;
  Write('i je na ofsetu $');
  WriteHexWord(Ofs(i));
  Write(' v segmentu $');
  WriteHexWord(Seg(i));
end.