tcl/interface/parport.cfg

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