home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV2N6.ZIP / UAETEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-12-16  |  643 b   |  31 lines
  1.  
  2. {$IFDEF Windows}
  3. uses WinCrt; {to allow WriteLn under Windows}
  4. {$ENDIF}
  5.  
  6. const
  7.   Digits : array[0..$F] of Char = '0123456789ABCDEF';
  8.  
  9.   function HexW(W : Word) : string;
  10.     {-Return hex string for word}
  11.   begin
  12.     HexW[0] := #4;
  13.     HexW[1] := Digits[hi(W) shr 4];
  14.     HexW[2] := Digits[hi(W) and $F];
  15.     HexW[3] := Digits[lo(W) shr 4];
  16.     HexW[4] := Digits[lo(W) and $F];
  17.   end;
  18.  
  19.   function HexPtr(P : Pointer) : string;
  20.     {-Return hex string for pointer}
  21.   begin
  22.     HexPtr := HexW(Seg(P^))+':'+HexW(Ofs(P^));
  23.   end;
  24.  
  25. const
  26.   GraphicsRam = Ptr($A000, $0000);
  27.  
  28. begin
  29.   WriteLn(HexPtr(GraphicsRam));
  30. end.
  31.