github.com/wfjm.w11
1
0
Fork 0
mirror of https://github.com/wfjm/w11.git synced 2026-04-18 01:56:37 +00:00
Code Issues Releases Wiki Activity

final touches for V0.791 release

Browse Source 
- exptest/util.tcl: add proc et_tstline{0,1}; add et_exp el sub command
- console_starter: change simh port handling
- simh/setup_w11a_(max|min).scmd: adjust port handling
- docu updates
This commit is contained in:
wfjm
2022-04-24 18:13:35 +02:00
parent a78debd3e9
commit 7ec5be2a30
9 changed files with 81 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tools/bin/console_starter
View File

@@ -1,10 +1,11 @@
#!/usr/bin/perl -w
# $Id: console_starter 1189 2019-07-13 16:41:07Z mueller $
# $Id: console_starter 1200 2019-08-04 16:17:20Z mueller $
# SPDX-License-Identifier: GPL-3.0-or-later
# Copyright 2009-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
#
# Revision History:
# Date Rev Vers Comment
# 2019-08-04 1200 1.2 change simh port handling
# 2019-07-13 1189 1.1.1 drop superfluous exists for $opts
# 2014-08-10 581 1.1 rename to console_starter
# 2010-07-04 312 1.0.3 correct telnet_wrapper path
@@ -63,13 +64,13 @@ if (exists $opts{d}) {
}
if ($opts{s}) { # simh ports
$port = 5670 if ($dev eq "DL");
$port = 5671 if ($dev eq "DZ");
$title = sprintf "\"%s %s\"", $dev, $term;
$port = 5670+$line if ($dev eq "DL"); # telnet cons + 1 line DL mux
$port = 5672 if ($dev eq "DZ"); # 8 line DZ mux
$title = sprintf "\"%s%d %s (%4d)\"", $dev, $line, $term, $port;
} else { # rri ports
$port = 8000+$line if ($dev eq "DL");
$port = 8002+$line if ($dev eq "DZ");
$title = sprintf "\"%s%d %s\"", $dev, $line, $term;
$title = sprintf "\"%s%d %s (%4d)\"", $dev, $line, $term, $port;
}
my $geo_w = 80;