tcl/interface/parport.cfg

   1 #
   2 # Parallel port wiggler (many clones available) on port 0x378
   3 #
   4 # Addresses: 0x378/LPT1 or 0x278/LPT2 ...
   5 #
   6
   7 if { [info exists PARPORTADDR] } {
   8    set _PARPORTADDR $PARPORTADDR
   9 } else {
  10    if {$tcl_platform(platform) eq "windows"} {
  11       set _PARPORTADDR 0x378
  12    } {
  13       set _PARPORTADDR 0
  14    }
  15 }
  16
  17 adapter driver parport
  18 parport port $_PARPORTADDR
  19 parport cable wiggler