tcl/interface/parport.cfg


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#
# Parallel port wiggler (many clones available) on port 0x378
#
# Addresses: 0x378/LPT1 or 0x278/LPT2 ...
#

if { [info exists PARPORTADDR] } {
   set _PARPORTADDR $PARPORTADDR
} else {
   if {$tcl_platform(platform) eq "windows"} {
      set _PARPORTADDR 0x378
   } {
      set _PARPORTADDR 0
   }
}

interface parport
parport_port $_PARPORTADDR
parport_cable wiggler