Category : Pascal Source Code
Archive   : QK3KER.ZIP
Filename : QK3HEX.PAS

(* ******************************************************************** *)
(* ExeHex - Dump a EXE file into a HEX file. *)
(* Author - Victor Lee , Queen's University, Kingston, Ontario, CANADA *)
(* Network id - VIC at QUCDN *)
(* Date - 1986 Feb 12 *)
(* - 1988 April 28 *)
(* Note : See HexExe to convert HEX file into EXE file. *)
(* ******************************************************************** *)
Program ExeHex ;
type blocks = array [1..128] of char ;
S2 = string[2] ;
var
i : byte ;
ExeName,HexName : string[14] ;
FN : string[8] ;
abyte : byte ;
Afile : file of byte ;
Bfile : Text ;
count,Rcount : integer ;
label exit ;

function hex(num:byte) : S2;
var digit :byte ;
hex1 : char ;
begin (* hex *)
digit := num and $0F ;
if digit > 9 then digit := digit + 7 ;
hex1 := chr($30 + digit) ;
digit := (num and $F0) div $10 ;
if digit > 9 then digit := digit + 7 ;
hex := concat(chr($30+digit),hex1);
end;


Begin (* hex Dump *)
Writeln('Enter Name of EXE File to Dump into HEX file ');
Readln(FN);
ExeName := FN + '.EXE' ;
HexName := FN + '.HEX' ;
Assign (Afile,ExeName);
Assign (Bfile,HexName);
Reset(Afile);
Rewrite(Bfile);
count := 0 ;
Rcount := 0 ;
Writeln('Converting File: ',ExeName,' file size =',FileSize(Afile));
Write(' 32 bytes make a 64 byte Record . Record count = ');
While True Do
Begin (* write a line *)
For i := 1 to $20 do
Begin (* dump file *)
if Eof(Afile) then goto exit;
read(Afile,abyte);
count := count + 1 ;
(* write(hex(abyte)); *)
write(Bfile,hex(abyte));
End;
Writeln(Bfile);
Rcount := Rcount + 1 ;
Write(RCount ,' ');
End ; (* write a line *)
exit :
Close(Bfile) ;
Writeln('Number of 64 byte records =',Rcount +1);
Writeln('New file ',HexName,' created. File size is ',count*2);
End. (* hex Dump *)