Category : Files from Magazines
Archive   : PJ55.ZIP
Filename : EQUATES.PAS

{ A short program used to generate values used by DEMO.PAS
by John J. Newlin, Page 28, Volume 5.5, Programmer's Journal

EQUATES.PAS
Copyright 1987 by John J. Newlin, 4060-228 Rosenda Court, San
Diego, CA 92122
}
(* Program to derive values to be coded into
KERNEL.ASM as equates. *)

{$I demo.var}

function hex(n : integer) : str4;
var h : array[0..$F] of char;
begin
h := '0123456789ABCDEF';
hex := h[hi(n) div 16]+h[hi(n) mod 16]+h[lo(n) div 16]+h[lo(n) mod 16];
end;

begin
writeln('activate equ ',hex(ofs(activate)),'H');
writeln('demo_main equ ',hex(ofs(demo_main)),'H');
writeln('emm_handle equ ',hex(ofs(emm_handle)),'H');
writeln('loaded_in_emm equ ',hex(ofs(loaded_in_emm)),'H');
end.