04/06/2011 Keven Miller

IPCFTNS is a Store-2-Disk (STD) file with these files


Fox 11:file d=ipcftns;dev=disc
Fox 11:vstore *d;@.@.@;show

FILENAME GROUP    ACCOUNT  VOLUME RESTRICTIONS        SECTORS CODE   MEDIA
IPCCOMF .WWW     .KEVENM   DISC                    :C      32            1
IPCFTN  .WWW     .KEVENM   DISC                    :C     352 NMPRG      1
IPCFTND .WWW     .KEVENM   DISC                    :C      32            1
IPCFTNF .WWW     .KEVENM   DISC                    :C     416            1


IPCFTN shows how to use the IPC network intrinsics in FTN77.
It sets up an simple TCP test and UDP test.

Enable or uncomment the "daytime" daemon in your INETDCNF.NET.SYS file
      daytime      stream tcp nowait MANAGER.SYS internal
      daytime      dgram  udp nowait MANAGER.SYS internal

Also, check the loopback names in your HOSTS.NET.SYS file.
IPCFTN has hardcoded the name "localhost".
      #
      127.0.0.1    localhost loopback

Stream JINETD.NET.SYS so the daemon is running.
For the TCP test, it opens a listening port on 40000.
You can respond by using some other telnet process, connecting to
your HP3000 on that port -- then type a letter.

From Windows Cmd
C:\>telnet 10.0.1.70 40000        <<= need to use your HP3K IP

Now, for the output ....

Fox 11:
Fox 11:
Fox 11:ftnxllk ipcftnf,ipcftn

 PAGE    1   FORTRAN 77/iX   HP31501A.05.02  COPYRIGHT HEWLETT-PACKARD CO. 1983
 WED, APR  6, 2011,  7:19 AM


    0     1         $LIST OFF

   NUMBER OF ERRORS =     0   NUMBER OF WARNINGS =    0
   PROCESSOR TIME   0: 0: 1   ELAPSED TIME      0: 0: 3
   NUMBER OF LINES =    970   LINES/MINUTE =      32586

END OF COMPILE
HP Link Editor/iX (HP30315A.06.17) Copyright Hewlett-Packard Co 1986

LinkEd> link from=$oldpass;to=ipcftn

END OF LINK
Fox 11:
Fox 11:
Fox 11:ipcftn

Arpa name FOX( 3) err 0
Node name FOX.REELTAPETRANSFER.COM( 24) err 0
TCP listening on port  40000
UDP listening on port  61125
UDP from 127 0 0 1: 61125 "UDC test message"
Use telnet to connect to tcp port 40000
Waiting for TCP connection (15 SEC)...
TCP from 10 0 1 108: 1468
Preview k
Recv    k
Using TCP to daytime port 13
Recv from loopback:13 "Wed Apr  6 07:31:44 2011
"
TCP Connect by adr 127.0.0.1  ...
Recv Wed Apr  6 07:31:45 2011

Fox 11:
Fox 11: