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

diff --git a/tcl/interface/parport.cfg b/tcl/interface/parport.cfg
index 22be8f35c..05195f027 100644
--- a/tcl/interface/parport.cfg
+++ b/tcl/interface/parport.cfg
@@ -1,10 +1,19 @@
 #
-# Parallel port wiggler (many clones available) on port 0xc8b8
+# Parallel port wiggler (many clones available) on port 0x378
+#
+# 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