diff options
Diffstat (limited to 'tcl')
| -rw-r--r-- | tcl/interface/flashlink.cfg | 8 | ||||
| -rw-r--r-- | tcl/interface/parport.cfg | 8 | ||||
| -rw-r--r-- | tcl/interface/parport_dlc5.cfg | 8 |
3 files changed, 21 insertions, 3 deletions
diff --git a/tcl/interface/flashlink.cfg b/tcl/interface/flashlink.cfg index 4b00de91..5c81cf5a 100644 --- a/tcl/interface/flashlink.cfg +++ b/tcl/interface/flashlink.cfg @@ -5,6 +5,12 @@ # http://www.st.com/stonline/products/literature/um/7889.pdf # +if { [info exists PARPORTADDR] } { + set _PARPORTADDR $PARPORTADDR +} else { + set _PARPORTADDR 0 +} + interface parport -parport_port 0 +parport_port $_PARPORTADDR parport_cable flashlink diff --git a/tcl/interface/parport.cfg b/tcl/interface/parport.cfg index 0f18ce9e..326005a9 100644 --- a/tcl/interface/parport.cfg +++ b/tcl/interface/parport.cfg @@ -3,6 +3,12 @@ # # Addresses: 0x378/LPT1 or 0x278/LPT2 ... +if { [info exists PARPORTADDR] } { + set _PARPORTADDR $PARPORTADDR +} else { + set _PARPORTADDR 0x378 +} + interface parport -parport_port 0x378 +parport_port $_PARPORTADDR parport_cable wiggler diff --git a/tcl/interface/parport_dlc5.cfg b/tcl/interface/parport_dlc5.cfg index 85caefc7..d0f183fc 100644 --- a/tcl/interface/parport_dlc5.cfg +++ b/tcl/interface/parport_dlc5.cfg @@ -4,7 +4,13 @@ # http://www.xilinx.com/itp/xilinx4/data/docs/pac/appendixb.html # +if { [info exists PARPORTADDR] } { + set _PARPORTADDR $PARPORTADDR +} else { + set _PARPORTADDR 0 +} + interface parport -parport_port 0 +parport_port $_PARPORTADDR parport_cable dlc5 |