71 lines
1.2 KiB
Plaintext
Executable File
71 lines
1.2 KiB
Plaintext
Executable File
program WriteParam32;
|
|
|
|
{$IFDEF WINDOWS}
|
|
uses synaser,synautil,synaip,blcksock,dos,crt;
|
|
var
|
|
ser:TBlockSerial;
|
|
TheComPort : string;
|
|
IPAddr : string;
|
|
Socket : TUDPBlockSocket;
|
|
{$ELSE}
|
|
uses dos,crt;
|
|
var TheComPort : word;
|
|
{$ENDIF}
|
|
|
|
{$I SELECTC}
|
|
{$I SELECTIO}
|
|
{I SELECTP}
|
|
{$I SELECTPR}
|
|
{$I INTERFCE}
|
|
|
|
procedure Error(err : integer);
|
|
begin
|
|
writeln(errorrecord[err].errstr);
|
|
halt(2);
|
|
end;
|
|
|
|
|
|
procedure Usage;
|
|
begin
|
|
writeln('Usage: wp32 HexRegisterOffset Hexdata32');
|
|
writeln;
|
|
halt(2);
|
|
end;
|
|
|
|
|
|
procedure ScanParms;
|
|
var
|
|
parm : word;
|
|
validparm : boolean;
|
|
didit : boolean;
|
|
themem : longint;
|
|
thedata : longint;
|
|
begin
|
|
parm := 1;
|
|
validparm := true;
|
|
didit := false;
|
|
while validparm and (parm <= ParamCount) do
|
|
begin
|
|
validparm := false;
|
|
if HexLongRead(Paramstr(parm),themem) then
|
|
begin
|
|
parm := parm +1;
|
|
if HexLongRead(Paramstr(parm),thedata) then
|
|
begin
|
|
parm := parm +1;
|
|
Write32(themem,thedata);
|
|
validparm := true;
|
|
didit := true;
|
|
end;
|
|
end;
|
|
end;
|
|
if not didit then writeln('Nothing done!!!');
|
|
end;
|
|
|
|
begin
|
|
GetOurEnv;
|
|
if not InitializeInterface(message) then bumout(message);
|
|
if paramcount <2 then Usage;
|
|
ScanParms;
|
|
end.
|