Line 1... |
Line 1... |
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
# $Id: ticonv_pdpcp 576 2014-08-02 12:24:28Z mueller $
|
# $Id: ticonv_pdpcp 609 2014-12-07 19:35:25Z mueller $
|
#
|
#
|
# Copyright 2013-2014 by Walter F.J. Mueller
|
# Copyright 2013-2014 by Walter F.J. Mueller
|
#
|
#
|
# This program is free software; you may redistribute and/or modify it under
|
# This program is free software; you may redistribute and/or modify it under
|
# the terms of the GNU General Public License as published by the Free
|
# the terms of the GNU General Public License as published by the Free
|
Line 12... |
Line 12... |
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
# for complete details.
|
# for complete details.
|
#
|
#
|
# Revision History:
|
# Revision History:
|
# Date Rev Version Comment
|
# Date Rev Version Comment
|
# 2014-07-31 576 1.1 add -cmax option (default = 3); support .sdef
|
# 2014-12-07 609 1.2 use rlink::anena (for rlink v4)
|
|
# 2014-07-31 576 1.1 add --cmax option (default = 3); support .sdef
|
# 2014-07-26 575 1.0.4 add --tout option (sets wtcpu timeout)
|
# 2014-07-26 575 1.0.4 add --tout option (sets wtcpu timeout)
|
# 2013-05-19 521 1.0.3 use -be subopt of -wibrb
|
# 2013-05-19 521 1.0.3 use -be subopt of -wibrb
|
# 2013-04-12 504 1.0.2 renamed from pi2ti_pdpcp; fix [rm]wi handling
|
# 2013-04-12 504 1.0.2 renamed from pi2ti_pdpcp; fix [rm]wi handling
|
# use wtcpu command; use wibrbbe command;
|
# use wtcpu command; use wibrbbe command;
|
# 2013-02-05 483 1.0.1 make cpucmd parametrizable
|
# 2013-02-05 483 1.0.1 make cpucmd parametrizable
|
Line 103... |
Line 104... |
# .scntl -----------------------------------------------------------
|
# .scntl -----------------------------------------------------------
|
} elsif ($cmd =~ /^\.scntl\s+(\d+)\s+(\d)$/) {
|
} elsif ($cmd =~ /^\.scntl\s+(\d+)\s+(\d)$/) {
|
cmdlist_do();
|
cmdlist_do();
|
print "rlc oob -sbcntl $1 $2\n";
|
print "rlc oob -sbcntl $1 $2\n";
|
|
|
# .anena (0|1) -> rlc exec -init -----------------------------------
|
# .anena (0|1) -> rlink::anena n -----------------------------------
|
} elsif ($cmd =~ /^\.anena\s+(\d)$/) {
|
} elsif ($cmd =~ /^\.anena\s+(\d)$/) {
|
cmdlist_do();
|
cmdlist_do();
|
my $dat = $1 ? '[regbld rlink::INIT anena]' : '0';
|
print "rlink::anena $1\n";
|
print "rlc exec -init 0xff $dat\n";
|
|
print "rlc exec -attn\n";
|
print "rlc exec -attn\n";
|
|
|
# .reset -----------------------------------------------------------
|
# .reset -----------------------------------------------------------
|
} elsif ($cmd =~ /^\.reset$/) {
|
} elsif ($cmd =~ /^\.reset$/) {
|
cmdlist_do();
|
cmdlist_do();
|