github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Add links for NCP servers.

Browse Source 
The Dynamic Modeling ATSIGN NETRFC signals a demon to handle a
request.  Others start a program from the DEVICE directory.
This commit is contained in:
Lars Brinkhoff 2024-12-20 12:02:02 +01:00
parent 28e056e8fa
commit 3933af7854
3 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
build/basics.tcl
View File

@ -223,8 +223,8 @@ expect ":KILL"
# TCP port 23 (telnet) uses TELSER
respond "*" ":link device;tcp syn027,sysbin;telser bin\r"
# NCP sockets 1 and 23 use TELSER
respond "*" ":link device;lbsign rfc001,sysbin;telser bin\r"
respond "*" ":link device;lbsign rfc027,sysbin;telser bin\r"
arpanet "rfc001" "sysbin;telser bin"
arpanet "rfc027" "sysbin;telser bin"
# Old telnet server
respond "*" ":midas sys;atsign stelnt_syseng;stelnt\r"
@ -247,7 +247,9 @@ expect ":KILL"
# supdup TCP port (95) uses telser
respond "*" ":link device;tcp syn137,sysbin;telser bin\r"
# NCP socket 95 uses TELSER
respond "*" ":link device;lbsign rfc137,sysbin;telser bin\r"
arpanet "rfc137" "sysbin;telser bin"
# We don't know why
arpanet "rcf107" "sys1;ts supdup"
# supdup client
respond "*" ":midas sysbin;supdup_sysnet;supdup\r"
@ -267,6 +269,10 @@ expect ":KILL"
respond "*" ":link device;tcp syn025,sysbin;ftps bin\r"
respond "*" ":link device;tcp syn031,sysbin;ftps bin\r"
respond "*" ":link device;chaos smtp,sysbin;ftps bin\r"
arpanet "rfc003" "sysbin;ftps bin"
arpanet "rfc025" "sysbin;ftps bin"
arpanet "rfc031" "sysbin;ftps bin"
arpanet "rfc103" "sysbin;ftps bin"
respond "*" ":midas sysbin;ftpu_sysnet;ftpu\r"
expect ":KILL"
@ -345,6 +351,7 @@ respond "*" ":link sys;ts f,sys;ts name\r"
respond "*" ":link sys2;ts n,sys;ts name\r"
respond "*" ":link device;tcp syn117,sys;ts name\r"
respond "*" ":link device;chaos name,sys;ts name\r"
arpanet "rfc117" "sys;ts name"
respond "*" ":midas device;atsign mldev_sysen2;mldev\r"
expect ":KILL"

12
build/build.tcl
View File

@ -161,6 +161,18 @@ proc move_to_klfe {file} {
respond "*" ":delete $file\r"
}
# Install an ARPANET server.
proc arpanet {rfc file} {
# Dynamic Modeling uses demons, signaled from ATSIGN NETRFC.
# Others do not.
global mchn
if [string equal "$mchn" "DM"] {
respond "*" ":link sys;atsign $rfc, $file\r"
} else {
respond "*" ":link device;lbsign $rfc, $file\r"
}
}
set ip [ip_address [lindex $argv 0]]
set gw [ip_address [lindex $argv 1]]

3
build/misc.tcl
View File

@ -104,6 +104,7 @@ type ":vk\r"
respond "*" ":midas sysbin;_sysen2; iec\r"
expect ":KILL"
respond "*" ":link sys; atsign iec, sysbin; iec bin\r"
arpanet "rfc113" "sys; atsign iec"
respond "*" ":midas sys2;ts untalk_gren;untalk\r"
expect ":KILL"
@ -442,6 +443,7 @@ respond "*" ":link device;tcp syn161,sysbin;idents bin\r"
respond "*" ":midas sysbin;timsrv bin_sysnet;timsrv\r"
expect ":KILL"
respond "*" ":link device;tcp syn045,sysbin;timsrv bin\r"
arpanet "rfc045" "sysbin;timsrv bin"
# datsrv
respond "*" ":midas sysbin;_sysnet;datsrv\r"
@ -1153,6 +1155,7 @@ respond "*" ":link device;chaos babel,sysbin; babel bin\r"
respond "*" ":midas sysbin;_eak; chahtb\r"
expect ":KILL"
respond "*" ":link device; chaos hostab, sysbin; chahtb bin\r"
arpanet "rfc121" "sysbin; chahtb bin"
# Chaosnet 11LOAD service for booting MINITS.
respond "*" ":midas device; chaos 11load_minits; 11load\r"