| Line 1... |
Line 1... |
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
# $Id: ticonv_pdpcp 504 2013-04-13 15:37:24Z mueller $
|
# $Id: ticonv_pdpcp 521 2013-05-20 22:16:45Z mueller $
|
#
|
#
|
# Copyright 2013- by Walter F.J. Mueller
|
# Copyright 2013- 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
|
|
# 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
|
# 2013-02-02 480 1.0 Initial version
|
# 2013-02-02 480 1.0 Initial version
|
#
|
#
|
| Line 102... |
Line 103... |
my $base = oct($2);
|
my $base = oct($2);
|
my $be = $base & 0x3;
|
my $be = $base & 0x3;
|
if ($be == 0) {
|
if ($be == 0) {
|
print "$cpu cp -wibrb 0$2\n";
|
print "$cpu cp -wibrb 0$2\n";
|
} else {
|
} else {
|
printf "$cpu cp -wibrbbe 0%6.6o %o\n", $base&0177700, $be;
|
printf "$cpu cp -wibrb 0%6.6o -be %o\n", $base&0177700, $be;
|
}
|
}
|
|
|
# (read) [d=data] type commands: rrx,rps,rm,rmi --------------------
|
# (read) [d=data] type commands: rrx,rps,rm,rmi --------------------
|
# Note: 'rmi' must be matched before 'rm'
|
# Note: 'rmi' must be matched before 'rm'
|
} elsif ($cmd =~ /^(rr[0-7]|rps|rmi|rm)/) {
|
} elsif ($cmd =~ /^(rr[0-7]|rps|rmi|rm)/) {
|
