home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / HEXTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-13  |  538 b   |  26 lines
  1. {
  2.   Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc.
  3.  
  4.   HEXTEST.PAS
  5.   Accessing Turbo Assembler functions from Turbo Pascal.
  6.  
  7.   From the Turbo Assembler Users Guide - Interfacing Turbo Assembler
  8.                                          with Turbo Pascal
  9. }
  10.  
  11. program HexTest;
  12. var
  13.   num : word;
  14.  
  15. {$F+}
  16.  
  17. function HexStr (var num; byteCount : byte) : string; external;
  18.  
  19. {$L HEXSTR.OBJ}
  20.  
  21. {$F-}
  22. begin
  23.   num := $face;
  24.   Writeln('The Converted Hex String is "',HexStr(num,sizeof(num)),'"');
  25. end.
  26.