X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Finterface%2Fparport.cfg;h=4c0b260b9f921c76d0b71eb1dfdf25e412f78fa0;hb=a8edbd0200560bfd412c5c563908d860ed2c96a6;hp=2a2668d520289732b83423d297b980863f393e2a;hpb=d70d9634bf6ab73ec4f2ac1e77012785770b460a;p=fw%2Fopenocd

diff --git a/tcl/interface/parport.cfg b/tcl/interface/parport.cfg
index 2a2668d52..4c0b260b9 100644
--- a/tcl/interface/parport.cfg
+++ b/tcl/interface/parport.cfg
@@ -1,8 +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 ...
 #
 
-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