PARPORT: add PARPORTADDR tcl variable

Add PARPORTADDR tcl variable making it easier to
change parallel port address in scripts.

Signed-off-by: Spencer Oliver <ntfreak@users.sourceforge.net>
__archive__
Spencer Oliver 2010-03-16 09:59:05 +00:00
parent 82f44a4708
commit 679f6602fd
3 changed files with 21 additions and 3 deletions

View File

@ -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

View File

@ -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

View File

@ -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