if { [info exists PARPORTADDR] } {
set _PARPORTADDR $PARPORTADDR
} else {
- set _PARPORTADDR 0x378
+ if {$tcl_platform(platform) eq "windows"} {
+ set _PARPORTADDR 0x378
+ } {
+ set _PARPORTADDR 0
+ }
}
-interface parport
+adapter driver parport
parport_port $_PARPORTADDR
parport_cable wiggler