Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:заочникиОС / Лабораторные работы / TASM / EXAMPLES / USRGUIDE / HEX
.PAS { Turbo Assembler example. Copyright (c) 1993 By Borland International, Inc. }
{ Use with hex.asm }
program HexTest;
var
num : Word;
function HexStr (var num; byteCount : Byte) : string; far; external;
{$L HEX.OBJ}
begin
num := $face;
Writeln('The Converted Hex String is"',HexStr(num,sizeof(num)),'"');
end.
{ Use with hex.asm }
program HexTest;
var
num : Word;
function HexStr (var num; byteCount : Byte) : string; far; external;
{$L HEX.OBJ}
begin
num := $face;
Writeln('The Converted Hex String is"',HexStr(num,sizeof(num)),'"');
end.
Соседние файлы в папке USRGUIDE