+# 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