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
-parport_port $_PARPORTADDR
-parport_cable wiggler
+adapter driver parport
+parport port $_PARPORTADDR
+parport cable wiggler