2009-04-02 12:44:28 -05:00
|
|
|
#
|
2010-01-21 05:08:19 -06:00
|
|
|
# Parallel port wiggler (many clones available) on port 0x378
|
2009-04-02 12:44:28 -05:00
|
|
|
#
|
2010-01-21 05:08:19 -06:00
|
|
|
# Addresses: 0x378/LPT1 or 0x278/LPT2 ...
|
2011-10-29 18:45:11 -05:00
|
|
|
#
|
2009-04-02 12:44:28 -05:00
|
|
|
|
2010-03-16 04:59:05 -05:00
|
|
|
if { [info exists PARPORTADDR] } {
|
2011-10-29 18:45:11 -05:00
|
|
|
set _PARPORTADDR $PARPORTADDR
|
2010-03-16 04:59:05 -05:00
|
|
|
} else {
|
2015-03-02 08:52:47 -06:00
|
|
|
if {$tcl_platform(platform) eq "windows"} {
|
|
|
|
set _PARPORTADDR 0x378
|
|
|
|
} {
|
|
|
|
set _PARPORTADDR 0
|
|
|
|
}
|
2010-03-16 04:59:05 -05:00
|
|
|
}
|
|
|
|
|
2008-04-10 06:45:54 -05:00
|
|
|
interface parport
|
2010-03-16 04:59:05 -05:00
|
|
|
parport_port $_PARPORTADDR
|
2008-04-10 06:45:54 -05:00
|
|
|
parport_cable wiggler
|