X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Finterface%2Fparport.cfg;h=b9fceeb852b034aff152e4237283baf2739f2c3d;hb=97f47e8c9486377affac7af3c3d260613c6d06f2;hp=22be8f35c78b9469e10e0284f78867b0a4e47937;hpb=ff647e6bb4180a7c376b61caeb14951ba84d5717;p=fw%2Fopenocd

diff --git a/tcl/interface/parport.cfg b/tcl/interface/parport.cfg
index 22be8f35c..b9fceeb85 100644
--- a/tcl/interface/parport.cfg
+++ b/tcl/interface/parport.cfg
@@ -1,10 +1,21 @@
+# SPDX-License-Identifier: GPL-2.0-or-later
+
+#
+# Parallel port wiggler (many clones available) on port 0x378
 #
-# Parallel port wiggler (many clones available) on port 0xc8b8
+# Addresses: 0x378/LPT1 or 0x278/LPT2 ...
 #
-# REVISIT this address seems very wrong.
-# Surely 0x378/LPT1 or 0x278/LPT2 ...
 
-interface parport
-parport_port 0xc8b8
-parport_cable wiggler
+if { [info exists PARPORTADDR] } {
+   set _PARPORTADDR $PARPORTADDR
+} else {
+   if {$tcl_platform(platform) eq "windows"} {
+      set _PARPORTADDR 0x378
+   } {
+      set _PARPORTADDR 0
+   }
+}
 
+adapter driver parport
+parport port $_PARPORTADDR
+parport cable wiggler