remove channel-to-channel adapter demo

This commit is contained in:
Greg Gauthier 2023-07-11 08:20:15 +01:00
parent 7ef287e02b
commit 4f9e043db0
26 changed files with 0 additions and 2467 deletions

View File

@ -1,194 +0,0 @@
Channel To Channel Adaptor Demo Program For SOS
===============================================
Introduction:
-------------
With the exception of building a JES3 complex, there is no software readily
available to verify the functionality of Hercules CTCE devices in S/370 mode.
In particular, MVS 3.8j doesn't provide a ready to use ("access method" style)
driver for CTCA devices. Thus, programming CTCA test cases on MVS 3.8j isn't
exactly a trivial task.
The Hercules CTCE device was developed primarily to provide features needed by
certain z/Arch operating systems. Consequently, it was up to now never tested
in S/370 mode.
The channel to channel adaptor demo program for the Madnick/Donovan sample
operating system ("SOS") was developed to fill this gap. Given its simple
structure, SOS is an ideal system to easily program I/O directly at the device
level. Thus, programming I/O test cases under SOS takes out most of the I/O
programming complexity induced by MVS 3.8j and other well known production
style S/370 operating systems.
It should be noted that the CTCA demo program at present implements the most
basic test only: Both sides wait for an interrupt and perform a read if an
interrupt is received. However, the program can easily be extended to perform
more complex tests, should the necessity arise.
An adaption of the original SOS from 1974 to Hercules S/370 mode can be found
in folder Sample_Operating_System in the files section of the hercules-390
Yahoo group. The channel to channel adaptor demo program relies on a slightly
modified version of this adaption, which provides an EXCP style CTCA driver.
The present package contains ready to run binaries of the modified SOS and the
CTCA demo program, together with all sources needed to build them.
For more information on the sample operating system refer to the book "Operating
Systems" by Stuart E. Madnick and John J. Donovan (McGraw-Hill 1974) and the
documentation found in folder Sample_Operating_System in the files section of
the hercules-390 Yahoo group.
Package Contents
----------------
The CTCA_for_SOS_demo package a comes ready to use with TK4- Update 08. It is
available in subfolder ctca_demo of the tk4- folder.
It contains the following files:
README.txt - this file
sos-1 \
sos-1.bat \ startup scripts for
sos-2 / Windows and *i*x systems
sos-2.bat /
conf/sos.cnf - Hercules configuration file
herclogo.txt - welcome screen for 3270 terminals
hercules.rc - script to IPL the Sample Operating System
logo/sos3270.ai - SOS graphics logo "source" (Adobe Illustrator)
logo/sos3270.bmp - Windows bitmap file of SOS graphics logo
logo/sos3270.pss - LPS datastream to display logo on 3270 devices
rdr/clear_console.deck - utility program to clear console interrupts
rdr/ctca_demo.deck - channel to channel adaptor demo program
rdr/ctca_init.deck - program to couple the CTCAs (verification only)
rdr/dummy.card - empty file to enter initial EOF on card readers
rdr/peers_1.card \ cards defining the system names, first five chars
rdr/peers_2.card / are local system, next five chars are remote system
rdr/sample_operating_system_version_2.00.ipldeck - the Sample Operating System
rdr/t3270lgo.deck - 3270 demo (for terminal verification only)
rdr/terminal_0C0.card - terminal selection card
scripts/3270_graphics_demo - script to run 3270 demo (terminal verification)
scripts/clear_console - script to run the clear_console utility
scripts/ctca_demo - script to run the channel to channel adaptor demo
scripts/ctca_init - script to run ctca_init utility (verification only)
scripts/reipl - re-IPL the Sample Operating System
sysgen/ctca_demo.xmi - XMITted PDS containing source
and build information
Usage:
------
Preparation:
++++++++++++
Before running the channel to channel adapter demo program, two instances of
the Sample Operating System must be started. This is done using the following steps:
o run sos-1 (*i*x systems) or sos-1.bat (Windows systems)
o run sos-2 (*i*x systems) or sos-2.bat (Windows systems)
Both systems will enter a wait state (PSW=FE0200008000056A) when they are ready
to process jobs.
Channel To Channel Adapter Demo Program:
++++++++++++++++++++++++++++++++++++++++
o Connect a tn3270 session to your local port 50520.
o Connect a tn3270 session to your local port 50521.
o Enter "script scripts/ctca_demo" at the Hercules console prompt
on both systems.
The following panel will be displayed in the tn3270 session on both systems:
____________________________________________________________________________
| "Operating Systems" |
| by Stuart E. Madnick and John J. Donovan |
| (McGraw-Hill 1974) |
| |
| Sample Operating System Version 2.00 |
| |
|--------------------- CTC Adaptor --- Demo Program -------------------------|
| Entry: 004000|
| Console: 010|
| System: SOS-1|
|Data for SOS-2 ==> |
| |
|Data from SOS-2: |
| ___ ___ ___ |
| / /\ / /\ / /\ |
| / /:/_ / /::\ / /:/_ |
| / /:/ /\ / /:/\:\ / /:/ /\ |
| / /:/ /::\ / /:/ \:\ / /:/ /::\ |
| /__/:/ /:/\:/__/:/ \__\:/__/:/ /:/\:\ |
| \ \:\/:/~/:\ \:\ / /:\ \:\/:/~/:/ |
| \ \::/ /:/ \ \:\ /:/ \ \::/ /:/ |
| \__\/ /:/ \ \:\/:/ \__\/ /:/ |
| /__/:/ \ \::/ /__/:/ |
|_______________________\__\/_______\__\/_______\__\/________________________|
If the terminal has sufficient graphics capabilities a graphical logo will be
displayed instead of the character art shown above. The system names displayed
above (SOS-1 and SOS-2) reflect the situation of the system started using the
sos-1 or sos-1.bat scripts. They are of course exchanged on the second system.
o Any data entered in a "Data for" field will be moved to the "Data from" field
of the other system after pressing ENTER or a PF key (except PF3). Pressing
the CLEAR key will redisplay the initial state of the local panel. Pressing
the PF3 key will terminate the program simultaneously on both systems.
o The system will enter a wait state (PSW=FE0200008000056A) while the 3270 demo
program is waiting for input as well as after termination of the program.
o Review the output of the jobs in file prt_1/stream-1_output.txt (for SOS-1)
or prt_2/stream-1_output.txt (for SOS-2). It should contain the jobcard, log
entries and the termination message, similar to the example below:
$JOB,16K,READER=IN,PRINTER=OUT,CONSOLE=CNSL,CTCA610=CTCA
-> This is a test
<- And this also
-> PF3 action or <- termination request
PROGRAM HALT
o To run the program again, simply re-enter the "script" commands shown above.
Verify CTCA Coupling:
+++++++++++++++++++++
Normally, it is not necessary to explicitely couple the CTCAs before using them,
as the Hercules CTCE device will automatically initiate IP connections as
needed. However, it might be desirable to just verify that coupling is working
as expected, for example in complex IP routing situations. The ctca_init
utility does just this: It issues a SCB channel command, which will cause the
local end of the CTCA to initiate a connection.
Running ctca_init on both systems should result in fully coupled CTCAs:
o Enter "script scripts/ctca_init" at the Hercules console prompt
on both systems.
o Verify that the following messages are displayed on both system's Hercules
consoles:
HHC05054I 0:0610 CTCE: Started outbound connection :30880 -> 127.0.0.1:30883
HHC05070E 0:0610 CTCE: Accepted inbound connection :30881 <- 127.0.0.1:30882 (bufsize=61592,12)
The sequence of the messages and the port numbers depend on which system
executed the SCB command first.
o Review the output of the jobs in file prt_1/stream-1_output.txt (for SOS-1)
or prt_2/stream-1_output.txt (for SOS-2). It should contain the jobcard, and
the termination message, similar to the example below:
$JOB,2K,READER=IN,CTCA610=CTCA
PROGRAM HALT
Credits:
--------
Stuart E. Madnick \ authors of the book "Operating Systems"
John J. Donovan / (McGraw-Hill 1974)
John DeTreville \ authors of the Sample Operating System
Richard Swift / as listed in "Operating Systems"
Peter J. Jansen -- author of the Hercules CTCE device implementation
----------
2016/06/14, Juergen Winkelmann, ETH Zuerich
e-mail: winkelmann@id.ethz.ch

View File

@ -1,34 +0,0 @@
#**********************************************************************
#*** ***
#*** Sample Operating System Version 2.00 ***
#*** ***
#**********************************************************************
#*** ***
#*** File: sos.cnf ***
#*** ***
#*** Purpose: Hercules configuration file for Madnick Sample OS ***
#*** Version for use with CTCA demo ***
#*** ***
#*** Updated: 2016/05/28 ***
#*** ***
#**********************************************************************
CPUSERIAL 004711
CPUMODEL 3145
MAINSIZE 16
XPNDSIZE 0
CNSLPORT ${CNSL}
NUMCPU 1
MAXCPU 1
ARCHMODE S/370
00C0 3270
000C 3505 rdr/sample_operating_system_version_2.00.ipldeck eof
010C 3505 rdr/dummy.card eof
020C 3505 rdr/dummy.card eof
030C 3505 rdr/dummy.card eof
000E 1403 prt_${SYSNUM}/stream-1_output.txt ${SOSCRLF}
010E 1403 prt_${SYSNUM}/stream-2_output.txt ${SOSCRLF}
020E 1403 prt_${SYSNUM}/stream-3_output.txt ${SOSCRLF}
030E 1403 prt_${SYSNUM}/stream-4_output.txt ${SOSCRLF}
0610 CTCE ${CTCL} 127.0.0.1 ${CTCR}
DEFSYM RDR 00C
DEFSYM GRAF 0C0

View File

@ -1,59 +0,0 @@
@ALIGN NONE
@SBA 0,0
@SF P
Hercules Version :
@SF HP
$(VERSION)
@NL
@SF P
Host name :
@SF HP
$(HOSTNAME)
@NL
@SF P
Host OS :
@SF HP
$(HOSTOS)-$(HOSTOSREL) $(HOSTOSVER)
@NL
@SF P
Host Architecture :
@SF HP
$(HOSTARCH)
@NL
@SF P
Processors :
@SF HP
$(HOSTNUMCPUS)
@NL
@SF P
LPAR Name :
@SF HP
$(LPARNAME)
@NL
@SF P
Device number :
@SF HP
$(CSS):$(CCUU)
@NL
@SF P
Subchannel :
@SF HP
$(SUBCHAN)
@SF P
@ALIGN LEFT
"Operating Systems"
by Stuart E. Madnick and John J. Donovan
(McGraw-Hill 1974)
Sample Operating System Version 2.00
___ ___ ___
/ /\ / /\ / /\
/ /:/_ / /::\ / /:/_
/ /:/ /\ / /:/\:\ / /:/ /\
/ /:/ /::\ / /:/ \:\ / /:/ /::\
/__/:/ /:/\:/__/:/ \__\:/__/:/ /:/\:\
\ \:\/:/~/:\ \:\ / /:\ \:\/:/~/:/
\ \::/ /:/ \ \:\ /:/ \ \::/ /:/
\__\/ /:/ \ \:\/:/ \__\/ /:/
/__/:/ \ \::/ /__/:/
\__\/ \__\/ \__\/

View File

@ -1,33 +0,0 @@
#*********************************************************************
#*** ***
#*** Sample Operating System Version 2.00 ***
#*** ***
#*********************************************************************
#*** ***
#*** File: hercules.rc ***
#*** ***
#*** Purpose: Hercules startup for Sample Operating System ***
#*** Version for use with CTCA demo ***
#*** ***
#*** Updated: 2016/05/28 ***
#*** ***
#*********************************************************************
pause 1
*
* activating HAO rules
*
hao tgt HHCTE009I Client
hao cmd devinit 30C rdr/clear_console.deck rdr/terminal_0C0.card ebcdic eof multifile
hao tgt 0:00C0 COMM:
hao cmd devinit 30C rdr/clear_console.deck rdr/terminal_0C0.card ebcdic eof multifile
*
* IPL Sample Operating System
*
ipl c
pause 1
*
* Sample Operating System loaded.
*
* Review file README.txt for information on how to run the
* CTCA demo program contained in this distribution.
*

File diff suppressed because one or more lines are too long

Binary file not shown.

Before

Width:  |  Height:  |  Size: 20 KiB

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -1 +0,0 @@
籔秡<EFBFBD>ヨ秡<EFBFBD>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

View File

@ -1 +0,0 @@
籔秡<EFBFBD>ヨ秡<EFBFBD>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Binary file not shown.

View File

@ -1,11 +0,0 @@
#*********************************************************************
#*** ***
#*** Script: 3270 Graphics Demo ***
#*** ***
#*** Purpose: load card decks to run the 3270 Graphics Demo ***
#*** program on reader $(RDR) using terminal $(GRAF). ***
#*** ***
#*** Updated: 2015/12/18 ***
#*** ***
#*********************************************************************
devinit $(RDR) rdr/t3270lgo.deck rdr/terminal_$(GRAF).card logo/sos3270.pss ebcdic eof multifile

View File

@ -1,11 +0,0 @@
#*********************************************************************
#*** ***
#*** Script: clear_console ***
#*** ***
#*** Purpose: load card decks to run the clear_console ***
#*** program on reader $(RDR) using console $(CONS). ***
#*** ***
#*** Updated: 2015/12/18 ***
#*** ***
#*********************************************************************
devinit $(RDR) rdr/clear_console.deck rdr/terminal_$(CONS).card ebcdic eof multifile

View File

@ -1,11 +0,0 @@
#*********************************************************************
#*** ***
#*** Script: Channel to channel adaptor demo ***
#*** ***
#*** Purpose: load card decks to run the CTCA Demo program on ***
#*** reader $(RDR) using terminal $(GRAF) and CTCA 610. ***
#*** ***
#*** Updated: 2016/05/28 ***
#*** ***
#*********************************************************************
devinit $(RDR) rdr/ctca_demo.deck rdr/terminal_$(GRAF).card rdr/peers_$(SYSNUM).card logo/sos3270.pss ebcdic eof multifile

View File

@ -1,10 +0,0 @@
#*********************************************************************
#*** ***
#*** Script: ctca_init ***
#*** ***
#*** Purpose: initialize CTCA by exectuting SCB CCW ***
#*** ***
#*** Updated: 2016/05/28 ***
#*** ***
#*********************************************************************
devinit $(RDR) rdr/ctca_init.deck ebcdic eof

View File

@ -1,18 +0,0 @@
#*********************************************************************
#*** ***
#*** Script: reipl ***
#*** ***
#*** Purpose: Perform a re-IPL of the Sample Operating System ***
#*** ***
#*** Updated: 2015/12/18 ***
#*** ***
#*********************************************************************
stopall
pause 1
sysclear
pause 1
devinit 00C rdr/sample_operating_system_version_2.00.ipldeck eof
devinit 10C rdr/dummy.card eof
devinit 20C rdr/dummy.card eof
devinit 30C rdr/dummy.card eof
ipl c

View File

@ -1,49 +0,0 @@
#!/bin/bash
#**********************************************************************
#*** ***
#*** Sample Operating System Version 2.00 ***
#*** ***
#**********************************************************************
#*** ***
#*** Script: sos-1 ***
#*** ***
#*** Purpose: Hercules startup for Madnick Sample OS ***
#*** Version for use with CTCA demo ***
#*** ***
#*** Updated: 2016/06/14 ***
#*** ***
#**********************************************************************
#
# set environment
#
a=`uname -m`
if [[ ${a:0:3} == 'arm' ]];then
hf=`readelf -A /proc/self/exe | grep Tag_ABI_VFP_args`
if [[ ${hf:2:3} == 'Tag' ]];then arch='arm';else arch='arm_softfloat';fi
else if [[ $a == 'x86_64' ]];then arch=64;else arch=32;fi;fi
system=`uname -s | awk '{print tolower($0)}'`
case $system in
linux)
force_arch=
export PATH=../hercules/$system/$arch/bin:$PATH
export LD_LIBRARY_PATH=../hercules/$system/$arch/lib:../hercules/$system/$arch/lib/hercules:$LD_LIBRARY_PATH
;;
darwin)
if [[ $arch == '32' ]];then force_arch='arch -arch i386';else force_arch=;fi
export PATH=../hercules/$system/bin:$PATH
export DYLD_LIBRARY_PATH=../hercules/$system/lib:../hercules/$system/lib/hercules:$DYLD_LIBRARY_PATH
;;
*)
echo "System $system not supported."
exit
;;
esac
#
# start Hercules
#
unset SOSCRLF
export SYSNUM=1
export CNSL=50520
export CTCL=30880
export CTCR=30882
$force_arch hercules -f conf/sos.cnf >log_1/145.log

View File

@ -1,27 +0,0 @@
@ECHO OFF
REM **********************************************************************
REM *** ***
REM *** Sample Operating System Version 2.00 ***
REM *** ***
REM **********************************************************************
REM *** ***
REM *** Script: sos-1.bat ***
REM *** ***
REM *** Purpose: Hercules startup for Madnick Sample OS ***
REM *** Version for use with CTCA demo ***
REM *** ***
REM *** Updated: 2016/06/14 ***
REM *** ***
REM **********************************************************************
REM *
REM * set environment
REM *
setlocal
SET ARCH=32
IF DEFINED ProgramFiles(x86) SET ARCH=64
SET SOSCRLF=crlf
SET SYSNUM=1
SET CNSL=50520
SET CTCL=30880
SET CTCR=30882
..\hercules\windows\%ARCH%\hercules -f conf\sos.cnf >log_1/145.log

View File

@ -1,49 +0,0 @@
#!/bin/bash
#**********************************************************************
#*** ***
#*** Sample Operating System Version 2.00 ***
#*** ***
#**********************************************************************
#*** ***
#*** Script: sos-2 ***
#*** ***
#*** Purpose: Hercules startup for Madnick Sample OS ***
#*** Version for use with CTCA demo ***
#*** ***
#*** Updated: 2016/06/14 ***
#*** ***
#**********************************************************************
#
# set environment
#
a=`uname -m`
if [[ ${a:0:3} == 'arm' ]];then
hf=`readelf -A /proc/self/exe | grep Tag_ABI_VFP_args`
if [[ ${hf:2:3} == 'Tag' ]];then arch='arm';else arch='arm_softfloat';fi
else if [[ $a == 'x86_64' ]];then arch=64;else arch=32;fi;fi
system=`uname -s | awk '{print tolower($0)}'`
case $system in
linux)
force_arch=
export PATH=../hercules/$system/$arch/bin:$PATH
export LD_LIBRARY_PATH=../hercules/$system/$arch/lib:../hercules/$system/$arch/lib/hercules:$LD_LIBRARY_PATH
;;
darwin)
if [[ $arch == '32' ]];then force_arch='arch -arch i386';else force_arch=;fi
export PATH=../hercules/$system/bin:$PATH
export DYLD_LIBRARY_PATH=../hercules/$system/lib:../hercules/$system/lib/hercules:$DYLD_LIBRARY_PATH
;;
*)
echo "System $system not supported."
exit
;;
esac
#
# start Hercules
#
unset SOSCRLF
export SYSNUM=2
export CNSL=50521
export CTCL=30882
export CTCR=30880
$force_arch hercules -f conf/sos.cnf >log_2/145.log

View File

@ -1,27 +0,0 @@
@ECHO OFF
REM **********************************************************************
REM *** ***
REM *** Sample Operating System Version 2.00 ***
REM *** ***
REM **********************************************************************
REM *** ***
REM *** Script: sos-2.bat ***
REM *** ***
REM *** Purpose: Hercules startup for Madnick Sample OS ***
REM *** Version for use with CTCA demo ***
REM *** ***
REM *** Updated: 2016/06/14 ***
REM *** ***
REM **********************************************************************
REM *
REM * set environment
REM *
setlocal
SET ARCH=32
IF DEFINED ProgramFiles(x86) SET ARCH=64
SET SOSCRLF=crlf
SET SYSNUM=2
SET CNSL=50521
SET CTCL=30882
SET CTCR=30880
..\hercules\windows\%ARCH%\hercules -f conf\sos.cnf >log_2/145.log