?

5i24/utils/dos/source/WP32.PAS

@@ -0,0 +1,70 @@
+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.