2 # Parallel port wiggler (many clones available) on port 0x378
4 # Addresses: 0x378/LPT1 or 0x278/LPT2 ...
7 if { [info exists PARPORTADDR] } {
8 set _PARPORTADDR $PARPORTADDR
10 if {$tcl_platform(platform) eq "windows"} {
11 set _PARPORTADDR 0x378
18 parport_port $_PARPORTADDR