cseg.pas

  {CSeg.PAS}
 
  { Пример программы для функций CSeg, DSeg, SSeg, SPtr, Ofs и Seg }
 
  Uses WinCrt;
 
  Var I : Integer;
 
  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;
 
  Begin
 Write('Текущий сегмент кода : $');
 WriteHexWord(CSeg);
 WriteLn;
 Write('Сегмент данных : $');
 WriteHexWord(DSeg);
 WriteLn;
 Write('Сегмент стека $');
 WriteHexWord(SSeg);
 WriteLn;
 Write('Указатель на стек : $');
 WriteHexWord(SPtr);
 WriteLn;
 Write('Переменная I по смещению : $');
 WriteHexWord(Ofs(I));
 Write(' в сегменте : $');
 WriteHexWord(Seg(I));
End.