Report of patches to update from LAM6: GJC.UPDATE; TCP-REL1-STATUS#>
Created by GJC from LMI-LAMBDA-6
on Friday the twentieth of December, 1985; 9:02:23 pm


Report on directory of patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30.DIRECTORY#26"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for TCP-Kernel version 30
;;; Written 20-Dec-85 20:37:22 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Server 33.4, Experimental window-maker 1.0, Experimental Sited 1.0, microcode 778, 2.0 Process Systems 5/2/85 Fork..

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-4.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Kernel version 30.4
;;; Reason:
;;;  exsetup-verbose to T for a look at the link init message reply values.
;;; Written 7-Aug-85 15:27:45 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experimental LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff.
; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (43)
(defvar exsetup-verbose nil)
(DEFUN EXSETUP-1 (MODE IM &AUX (MAGIC (MAKE-ARRAY 8 :TYPE :ART-8B))
; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (43)
(defun describe-init-msg (array)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-4.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-5.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Kernel version 30.5
;;; Reason:
;;;  dont cons tcp:*mapped-dma* in disk buffer area. avoid bad interaction with disk rqb's.
;;; Written 26-Aug-85 11:34:54 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, TCP-Kernel 30.4, Experimental LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff.
; From file DRIVER-LISPM.LISP#> TCP.KERNEL; LAMH: (43)
(DEFUN MAKE-WIRED-WD-ARRAY (SIZE &OPTIONAL REUSABLE)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-5.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-6.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Kernel version 30.6
;;; Reason:
;;;  make warm boot behavior be better. dont bother hacking board.
;;; Written 27-Nov-85 11:59:24 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Server 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78)
(DEFVAR *CALLED-START* NIL)
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78)
(DEFUN START (&REST ARGLIST &AUX (*CALLED-START* T))
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78)
(DEFUN START-INITIALIZATION-FORM (L)
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78)
(DEFVAR *TCP-ABORTIONP* NIL "If T then all board-level operations will abort")
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78)
(DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS
; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83)
(DEFUN GENERIC-XSOOPEN (&AUX IDN)
; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83)
(DEFUN GENERIC-CLEANUP-EXOS-SOCKET-IF-UNFINISHED (IDN)
; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83)
(DEFUN GENERIC-XCONTROL (SOCKET-ID CMD DATA SA SP TYPE OPTIONS)
; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83)
(DEFUN GENERIC-XSOCLOSE (SOCKET-ID ABORT-P)
; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83)
(DEFUN GENERIC-XSORECEIVE (SOCKET-ID SA DEST COUNT)
; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83)
(DEFUN GENERIC-XSOSEND (SOCKET-ID SA SOURCE COUNT)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-6.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-7.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Kernel version 30.7
;;; Reason:
;;;  Patches needed to allow use of new 8086-NETLOAD-DATA format
;;; Written 1-Dec-85 14:41:21 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Server 33.2, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93)
(DEFVAR *NETLOAD-DEBUG-P* NIL)
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93)
(DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93)
(defconst XP_COLD	0)
(defconst XP_COOL	1	"chit-chat")
(defconst XP_WARM	2	"benign operational problems")
(defconst XP_HOT	3	"unexpected, non-fatal problems")
(defconst XP_PANIC	4	"unexpected, fatal problems")
(defconst *DATAADDR* #x01000000 "address to load exos program data segment")
(defconst XOBIN	 (lsh 1 0))
(defconst XOECHO (lsh 1 1))
(defconst XOSGA	 (lsh 1 3))
(defconst exosopt.xo_doarp  0	"1 = use ARP protocol")
(defprop exosopt.xo_doarp 1 size-in-bytes)
(defconst exosopt.xo_docksum 1	"1 = do checksums")
(defprop exosopt.xo_docksum 1 size-in-bytes)
(defconst exosopt.xo_useaddr 2	"1 = use Ethernet address below")
(defprop exosopt.xo_useaddr 1 size-in-bytes)
(defconst exosopt.xo_ntsconn 3	"up to 8 telnet connections, 0 disables")
(defprop exosopt.xo_ntsconn 1 size-in-bytes)
(defconst exosopt.xo_iaddr 4 "Internet address, in network order")
(defprop exosopt.xo_iaddr 4 size-in-bytes)
(defconst exosopt.xo_eaddr 8 "Ethernet address, in network order")
(defprop exosopt.xo_eaddr  6 size-in-bytes)
(defconst exosopt.xo_tsoffer  14 "bit map of Telnet options to offer")
(defprop exosopt.xo_tsoffer 1 size-in-bytes)
(defconst exosopt.xo_tspermit 15 "bit map of Telnet options to permit")
(defprop exosopt.xo_tspermit 1 size-in-bytes)
(defconst exosopt.xo_dolink   16 "1 = enable host access to link mode")
(defprop exosopt.xo_dolink 1 size-in-bytes)
(defconst exosopt.xo_npending 17 "number of outstanding host requests")
(defprop exosopt.xo_npending 1 size-in-bytes)
(defconst exosopt.xo_nxmbufs  18 "number of extended memory buffers")
(defprop exosopt.xo_nxmbufs 1 size-in-bytes)
(defconst exosopt.xo_xptemp   19 "priority level for PRINTF messages")
(defprop exosopt.xo_xptemp 1 size-in-bytes)
(defconst exosopt.xo_bufchain 20 "1 = use NX 5.0 buffer-chaining")
(defprop exosopt.xo_bufchain 1 size-in-bytes)
(defconst sizeof-exosopt 21)
(defstruct (netload (conc-name netload.) named
(defun netload (&optional &key internet-address ethernet-address
(defvar *normalize-addrp* nil "doesnt work if set to T")
(DEFUN EXOS-LSEEK (ADDR)
(DEFUN EXOS-WRITE (DATA START COUNT)
(DEFUN EXOS-START (ADDR)
(defun normalize-segmented-address (addr)
(defun segment-normal-address (addr)
(defun init-msg-wordptn-as-long (im)
(defvar	*ID86V7* #o0411 "first 16-bit word in exec module, or swapped version thereof")
(defun 2byteswap (n)
(defun load-download-data (filename)
(defun save-download-data-qfasl (8086-netload-data filename)
(defun read-array-from-stream (stream size swap?)
(defun hexprint-art-8b (array &optional (stream standard-output))
(defun make-art-8b-from-hex (length data-as-string)
(defun save-download-data-ascii (data &optiopnal (filename "TCP:KERNEL;NETDATA LISP >"))
(DEFUN DESCRIBE-DATA-OPTIONS-VECTOR (DATA-ARRAY)
; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (50)
(DEFUN EXSETUP-1 (MODE IM &AUX (MAGIC (MAKE-ARRAY 8 :TYPE :ART-8B))
; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (51)
(defun describe-init-msg (array)
; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (51)
(DEFVAR *LAST-INIT-MSG* NIL "setq'd or rplaca'd by DECODE-INIT-MSG")
; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (51)
(DEFUN DECODE-INIT-MSG (ARRAY)
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93)
(DEFUN XDLWRITE (ARRAY START-OFFSET COUNT &OPTIONAL LONGADDRP &AUX KP MSG)
; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93)
(DEFUN XDLIOCSTART (ADDR  &OPTIONAL LONGADDRP &AUX KP MSG)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-7.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-8.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Kernel version 30.8
;;; Reason:
;;;  make exos-stats print software version numbers properly
;;; Written 2-Dec-85 09:27:38 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Server 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file DRIVER-DEFS.LISP#> TCP.KERNEL; LAMH: (31)
(DEFUN EXOS-STATS (&KEY (FORMAT-STREAM T) (HOW :DEFAULT) (RESET-P NIL) (PRINT-P T))
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-8.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-9.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Kernel version 30.9
;;; Reason:
;;;  IOCTL extensions to support ROUTE
;;; Written 13-Dec-85 17:57:22 by GJC,
;;; while running on Natasha Nogoodnik from band 3
;;; with System 102.174, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.8, TCP-User 57.11, TCP-Server 33.3, DOE-Macsyma 9.17, Macsyma-Help-Database 1.1, microcode 778, GJC MADE THIS BAND.
; From file EXOS-DEFS.LISP#> TCP.KERNEL; LAM6: (14)
(DEFCONST EXIOCSARP	(IOS 20)		"set an arp entry")
(DEFCONST EXIOCGARP	(IOS 21)		"get an arp entry")
(DEFCONST EXIOCDARP	(IOS 22)		"delete an arp entry")
(DEFCONST EXIOCADDRT	(IOS 23)		"add route entry")
(DEFCONST EXIOCDELRT	(IOS 24)		"delete route entry")
(DEFCONST EXIOCSHOWRT	(IOS 25)		"show route entry")
(DEFCONST EXIOCDISPRT	(IOS 26)		"display route entry")
; From file DRIVER-DEFS.LISP#> TCP.KERNEL; LAM6: (33)
(DEFCONST EXOS-IOCTL-CODE-ALIST
; From file DRIVER-DEFS.LISP#> TCP.KERNEL; LAM6: (33)
(DEFUN EXINTR (&AUX (READ-MP (RMSG-AREA-LASTR RMSGAREA)) KP REQUEST-CODE REPLY-CODE
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-9.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-10.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Kernel version 30.10
;;; Reason:
;;;  Fix host table parsing
;;; Written 17-Dec-85 19:52:26 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.9, TCP-User 57.11, TCP-Server 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file HOSTS.LISP#> TCP.KERNEL; LAM6: (17)
(defun host-table-parse-host (string start end)
; From file HOSTS.LISP#> TCP.KERNEL; LAM6: (17)
(defun host-table-parse-gateway (string start end)
; From file HOSTS.LISP#> TCP.KERNEL; LAM6: (17)
(DEFUN ADD-HOST-INFORMATION (ADDR NAME MACHINE-TYPE OPSYS PROTOCOLS)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-10.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-11.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Kernel version 30.11
;;; Reason:
;;;  add new functions in new file to handle internet routing table manipulation and ARP
;;; Written 17-Dec-85 19:56:53 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.9, TCP-User 57.11, TCP-Server 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file ROUTE.LISP#> TCP.KERNEL; LAM6: (10)
(DEFUN NEXT-SLOT-AFTER (X)
(DEFCONST RTENTRY.RT_DST.SIN_FAMILY 0)
(DEFPROP  RTENTRY.RT_DST.SIN_FAMILY 2 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_DST.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SIN_FAMILY))
(DEFPROP  RTENTRY.RT_DST.SIN_PORT 2 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_DST.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SIN_PORT))
(DEFPROP  RTENTRY.RT_DST.SIN_ADDR 4 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_DST.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SIN_ADDR))
(DEFPROP  RTENTRY.RT_DST.SIN_ZERO 8 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_GATEWAY.SIN_FAMILY (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SIN_ZERO))
(DEFPROP  RTENTRY.RT_GATEWAY.SIN_FAMILY 2 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_GATEWAY.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_FAMILY))
(DEFPROP  RTENTRY.RT_GATEWAY.SIN_PORT 2 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_GATEWAY.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_PORT))
(DEFPROP  RTENTRY.RT_GATEWAY.SIN_ADDR 4 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_GATEWAY.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_ADDR))
(DEFPROP  RTENTRY.RT_GATEWAY.SIN_ZERO 8 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_NEXT (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_ZERO))
(DEFPROP  RTENTRY.RT_NEXT 4 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_USE (NEXT-SLOT-AFTER 'RTENTRY.RT_NEXT))
(DEFPROP  RTENTRY.RT_USE 4 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_IFP (NEXT-SLOT-AFTER 'RTENTRY.RT_USE))
(DEFPROP  RTENTRY.RT_IFP 4 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_FLAGS (NEXT-SLOT-AFTER 'RTENTRY.RT_IFP))
(DEFPROP  RTENTRY.RT_FLAGS 1 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_REFCNT (NEXT-SLOT-AFTER 'RTENTRY.RT_FLAGS))
(DEFPROP  RTENTRY.RT_REFCNT 1 SIZE-IN-BYTES)
(DEFCONST RTENTRY.RT_HASH (NEXT-SLOT-AFTER 'RTENTRY.RT_REFCNT))
(DEFPROP  RTENTRY.RT_HASH 2 SIZE-IN-BYTES)
(DEFCONST SIZEOF_RTENTRY (NEXT-SLOT-AFTER 'RTENTRY.RT_HASH))
(DEFCONST RTHASHSIZ 7)
(DEFCONST RTF_UP	#x1		"route useable")
(DEFCONST RTF_GATEWAY	#x2		"destination is a gateway")
(DEFCONST RTF_HOST	#x4		"host entry (net otherwise)")
(DEFCONST IN_CLASSA       #x80000000)
(DEFCONST IN_CLASSA_NET   #xff000000     "8 bits of net number")
(DEFCONST IN_CLASSA_LNA   #x00ffffff)
(DEFCONST IN_CLASSB       #x40000000)
(DEFCONST IN_CLASSB_NET   #xffff0000     "16 bits of net number")
(DEFCONST IN_CLASSB_LNA   #x0000ffff)
(DEFCONST IN_CLASSC_NET   #xffffff00     "24 bits of net number")
(DEFCONST IN_CLASSC_LNA   #x000000ff)
(DEFUN IN_NETOF (IN)
(DEFUN IN_LNAOF (IN)
(DEFUN DESCRIBE-RTENTRY (X)
(DEFCONST BRDSARP	EXIOCSARP)
(DEFCONST BRDGARP	EXIOCGARP)
(DEFCONST BRDDARP	EXIOCDARP)
(DEFCONST BRDADDRT	EXIOCADDRT)	
(DEFCONST BRDDELRT	EXIOCDELRT)
(DEFCONST BRDSHOWRT     EXIOCSHOWRT)	
(DEFCONST BRDDISPRT	EXIOCDISPRT)
(DEFRESOURCE RTENTRY ()
(DEFUN DISPLAY-ROUTE (&REST L)
(DEFUN DISPLAY-ENTRIES (ROUTE FLAGS)
(DEFUN ADD-ROUTE (DESTINATION GATEWAY)
(DEFUN DELETE-ROUTE (DESTINATION GATEWAY)
(DEFUN MODIFY-ROUTE (DESTINATION GATEWAY OPER VERBOSE)
(DEFUN GET-INTERNET-ADDRESS (X &AUX TEMP)
(DEFUN EXOS-IOCTL-DIRECT (CMD DATA LENGTH &OPTIONAL (ERRORP T) &AUX REPLY MP KP)
(defconst ether_addr.ea_family 0)
(defprop  ether_addr.ea_family 2 size-in-bytes)
(defconst ether_addr.ea_addr (next-slot-after 'ether_addr.ea_family))
(defprop  ether_addr.ea_addr 6 size-in-bytes)
(defconst ether_addr.ea_extra (next-slot-after 'ether_addr.ea_addr))
(defprop  ether_addr.ea_extra 8 size-in-bytes)
(defconst next_addr.nxt_family 0)
(defprop  next_addr.nxt_family 2 size-in-bytes)
(defconst next_addr.nxt_count (next-slot-after 'next_addr.nxt_family))
(defprop  next_addr.nxt_count 4 size-in-bytes)
(defconst next_addr.nxt_extra (next-slot-after 'next_addr.nxt_count))
(defprop  next_addr.nxt_extra 10 size-in-bytes)
(defconst AF-COUNT 12 "A count") ;; should be added to SOCKET-DEFS.LISP
(defconst exarp_ioctl.arp_pa 0 "protocol address")
(defconst exarp_ioctl.arp_ha (next-slot-after 'exarp_ioctl.arp_pa) "hardware address")
(defconst exarp_ioctl.arp_flags (next-slot-after 'exarp_ioctl.arp_ha))
(defprop  exarp_ioctl.arp_flags 4 size-in-bytes)
(defconst sizeof_exarp_ioctl (next-slot-after 'exarp_ioctl.arp_flags))
(defconst ATF_COM		2		"completed entry")
(defconst ATF_PERM		4		"perminant entry")
(defconst ATF_PUBL		8		"respond for another host")
(defun describe-exarp_ioctl (x)
(defun display-arp (&rest hosts &aux r return)
(defun add-arp (host ethernet-address &optional &key temporary published)
(defun delete-arp (host)
(defun set-up-default-internet-routing-table ()
(DEFINE-TCP-START-FORM "default routing table"
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-11.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-12.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Kernel version 30.12
;;; Reason:
;;;  get-internet-address now prefers address on local network, EASY open now uses that too.
;;; Written 20-Dec-85 19:39:35 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Server 33.4, Experimental window-maker 1.0, Experimental Sited 1.0, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file ROUTE.LISP#> TCP.KERNEL; LAM6: (13)
(DEFUN GET-INTERNET-ADDRESS (X &AUX TEMP)
; From file HOSTS.LISP#> TCP.KERNEL; LAM6: (18)
(DEFUN ADD-HOST-INFORMATION (ADDR NAME MACHINE-TYPE OPSYS PROTOCOLS)
; From file EASY.LISP#> TCP.USER; LAM6: (35)
(defmethod (tcp-host-pathname :open) (&rest options)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-12.QFASL#1"

Report on directory of patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57.DIRECTORY#24"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for TCP-User version 57
;;; Written 2-Dec-85 09:06:49 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Server 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork..

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-1.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.1
;;; Reason:
;;;  directory line parser capability for :LISPM.
;;; Written 5-Aug-85 13:44:09 by gjc,
;;; while running on Lambda Six from band 3
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experimental LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff.
; From file FTP-ACCESS.LISP#> TCP.USER; LAMH: (88)
(defprop :lispm lispm-directory-line-parser :directory-line-parser)
(defun lispm-directory-line-parser (line host pathname &aux start end p temp pn)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-1.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-2.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.2
;;; Reason:
;;;  string-right-trim the #\return from some directory list lines created by probe-stream.
;;; Written 12-Aug-85 19:19:42 by SYSTEM,
;;; while running on Lambda Six from band 3
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experimental LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff.
; From file FTP-ACCESS.LISP#> TCP.USER; LAMH: (88)
(defun ftp-parse-directory-list-line (line host pathname)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-2.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-3.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.3
;;; Reason:
;;;  add an "ignorant" :change-properties handler to ftp-file-stream-mixin. -GJC
;;; Written 3-Oct-85 18:48:47 by HEL,
;;; while running on Natasha Nogoodnik from band 1
;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, microcode 778, LMI Site--mrc 9/12/85.
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (90)
(defmethod (ftp-file-stream-mixin :change-properties) (&rest l)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-3.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-4.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.4
;;; Reason:
;;;  more switches.
;;; Written 3-Oct-85 19:01:58 by HEL,
;;; while running on Natasha Nogoodnik from band 1
;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, microcode 778, LMI Site--mrc 9/12/85.
; From file FTP.LISP#> TCP.USER; NAT: (69)
(defvar *ignore-reply-from-quit* nil)
; From file FTP.LISP#> TCP.USER; NAT: (69)
(defun command (fmt &rest args)
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (90)
(defvar *ftp-probe-before-open-directions* '(:input :output)
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (90)
(defmethod (ftp-access :open) (file pathname
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-4.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-5.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.5
;;; Reason:
;;;  make lambda->lambda ftp-access work.
;;; Written 3-Oct-85 19:46:38 by HEL,
;;; while running on Natasha Nogoodnik from band 1
;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, microcode 778, LMI Site--mrc 9/12/85.
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (91)
(defun lispm-directory-line-parser (line host pathname &aux start end p temp pn)
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (91)
(defmethod (ftp-probe-stream :after :init) (&rest ignored)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-5.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-6.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.6
;;; Reason:
;;;  ftp-access from Lispm->lispm now works a lot better.
;;; Written 5-Oct-85 14:02:44 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.5, TCP-User 57.5, TCP-Server 33.1, microcode 768.
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (93)
(defmethod (ftp-access :directory-list) (given-pathname options)
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (93)
(defun ftp-access-canonicalize-directory-list (l)
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (93)
(defun lispm-directory-line-parser (line host pathname &aux start end p temp pn)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-6.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-7.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.7
;;; Reason:
;;;  more patches to get access to vms systems to work more smoothly.
;;; Written 8-Oct-85 16:56:38 by HEL,
;;; while running on Boris Badinoff from band 1
;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.5, TCP-User 57.6, TCP-Server 33.0, microcode 778, LMI Site--mrc 9/12/85.
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (94)
(defmethod (ftp-access :open) (file pathname
; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (94)
(defun excelan-8040-vms-directory-line-parser (line host pathname &aux start end p e)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-7.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-8.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.8
;;; Reason:
;;;  make *ftp-host-unit-lifetime* be 3 minutes instead of 45
;;; Written 24-Oct-85 18:25:29 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.170, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.5, TCP-User 57.7, TCP-Server 33.1, DOE-Macsyma 9.15, Macsyma-Help-Database 1.1, microcode 773.
; From file FTP-ACCESS.LISP#> TCP.USER; LAMH: (95)
(defvar *ftp-host-unit-lifetime* (* 3. 3600.)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-8.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-9.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.9
;;; Reason:
;;;  fixup-ftp-string-for-host now puts lispm host name (convenient for various hacks).
;;; Written 25-Nov-85 18:43:24 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Server 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file FTP-ACCESS.LISP#> TCP.USER; LAMH: (96)
(defun fixup-ftp-string-for-host (string pathname)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-9.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-10.LISP#2"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.10
;;; Reason:
;;;  handle tcp:exos-error in input-coroutine-input-pump, and :after :close properly
;;; Written 26-Nov-85 19:39:13 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Server 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file EASY.LISP#> TCP.USER; LAMH: (29)
(defmethod (input-coroutine-stream :after :close) (&rest ignored)
; From file EASY.LISP#> TCP.USER; LAMH: (29)
(defun input-coroutine-input-pump (from to)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-10.QFASL#2"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-11.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-User version 57.11
;;; Reason:
;;;  input-coroutine-stream now handles pending force-output on input operations
;;; Written 2-Dec-85 09:03:48 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Server 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file EASY.LISP#> TCP.USER; LAMH: (32)
(defun open-easy-tcp-stream (internet-address port &optional &key &allow-other-keys
; From file EASY.LISP#> TCP.USER; LAMH: (32)
(defun make-input-coroutine-stream (syncronous-stream &optional auto-force-output)
; From file EASY.LISP#> TCP.USER; LAMH: (32)
(defflavor input-coroutine-stream
; From file EASY.LISP#> TCP.USER; LAMH: (32)
(defmethod (input-coroutine-stream :listen) ()
; From file EASY.LISP#> TCP.USER; LAMH: (32)
(defmethod (input-coroutine-stream :tyi) (&optional ignored)
; From file EASY.LISP#> TCP.USER; LAMH: (32)
(defmethod (input-coroutine-stream :tyi-no-hang) (&optional ignored)
; From file EASY.LISP#> TCP.USER; LAMH: (32)
(defmethod (input-coroutine-stream :tyo) (char)
; From file EASY.LISP#> TCP.USER; LAMH: (32)
(defmethod (input-coroutine-stream :force-output) ()
; From file EASY.LISP#> TCP.USER; LAMH: (32)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-11.QFASL#1"

Report on directory of patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33.DIRECTORY#10"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for TCP-Server version 33
;;; Written 20-Dec-85 18:19:06 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Server 33.3, Experimental window-maker 1.0, Experimental Sited 1.0, microcode 773, 2.0 Process Systems 5/2/85 Fork..

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-1.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Server version 33.1
;;; Reason:
;;;  LIST now gets zwei:directory-input-stream with :DELETED T
;;; Written 4-Oct-85 14:09:43 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.5, TCP-User 57.5, TCP-Server 33.0, microcode 768.
; From file FTP.LISP#> TCP.SERVER; NAT: (25)
(DEFUN FTP-RETRIEVE-1 (STATE PN DIRECTORY-P &AUX OS IS)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-1.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-2.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Server version 33.2
;;; Reason:
;;;  fix <TAB> and <FORM> characters in incoming mail.
;;; Written 25-Nov-85 18:17:44 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Server 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file SMTP.LISP#> TCP.SERVER; LAMH: (9)
(defun (data smtp-command) (IGNORE stream &aux data)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-2.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-3.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Server version 33.3
;;; Reason:
;;;  fix calls to zwei:directory-input-stream, pass options as set, not as keyword arguments.
;;; Written 2-Dec-85 07:54:26 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Server 33.2, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file FTP.LISP#> TCP.SERVER; LAMH: (26)
(DEFUN FTP-RETRIEVE-1 (STATE PN DIRECTORY-P &AUX OS IS)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-3.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-4.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for TCP-Server version 33.4
;;; Reason:
;;;  password security for TELNET and FTP
;;; Written 20-Dec-85 17:33:07 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Server 33.3, Experimental window-maker 1.0, Experimental Sited 1.0, microcode 773, 2.0 Process Systems 5/2/85 Fork..
; From file TELNET.LISP#> TCP.SERVER; LAM6: (55)
(DEFVAR *TELNET-USER-LOGIN-PUNT* 3)
; From file TELNET.LISP#> TCP.SERVER; LAM6: (55)
(DEFUN TELNET-USER-LOGIN (TERMINAL &AUX USER PASS)
; From file FTP.LISP#> TCP.SERVER; LAM6: (28)
(DEFUN FTP-VALID-LM-PASSWORD-P (USERNAME PASSWORD HOST)
; From file FTP.LISP#> TCP.SERVER; LAM6: (28)
(DEFUN FTP-LOGIN (STATE USER HOST-OBJECT PASSWORD HOMEDIR)
; From file FTP.LISP#> TCP.SERVER; LAM6: (28)
(DEFUN (USER FTP-SERVER-HANDLE) (STATE ARG CMDLINE) CMDLINE
; From file GENERIC.LISP#> TCP.SERVER; LAM6: (52)
(DEFVAR *FAILED-LOGIN-NOTIFICATION-P* NIL)
; From file GENERIC.LISP#> TCP.SERVER; LAM6: (52)
(DEFUN VALIDATE-TCP-SERVER-PASSWORD (USERNAME PASSWORD TO-HOST)
; From file GENERIC.LISP#> TCP.SERVER; LAM6: (52)
(DEFUN TCP-SERVER-PASSWORD-MATCH (ITEM PATTERN)
Object file for patches is #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-4.QFASL#1"



A list of all files modified:
 GENERIC.LISP#> TCP.SERVER; LAM6: (52)
 FTP.LISP#> TCP.SERVER; LAM6: (28)
 TELNET.LISP#> TCP.SERVER; LAM6: (55)
 FTP.LISP#> TCP.SERVER; LAMH: (26)
 SMTP.LISP#> TCP.SERVER; LAMH: (9)
 FTP.LISP#> TCP.SERVER; NAT: (25)
 EASY.LISP#> TCP.USER; LAMH: (32)
 EASY.LISP#> TCP.USER; LAMH: (29)
 FTP-ACCESS.LISP#> TCP.USER; LAMH: (96)
 FTP-ACCESS.LISP#> TCP.USER; LAMH: (95)
 FTP-ACCESS.LISP#> TCP.USER; NAT: (94)
 FTP-ACCESS.LISP#> TCP.USER; NAT: (93)
 FTP-ACCESS.LISP#> TCP.USER; NAT: (91)
 FTP.LISP#> TCP.USER; NAT: (69)
 FTP-ACCESS.LISP#> TCP.USER; NAT: (90)
 FTP-ACCESS.LISP#> TCP.USER; LAMH: (88)
 EASY.LISP#> TCP.USER; LAM6: (35)
 HOSTS.LISP#> TCP.KERNEL; LAM6: (18)
 ROUTE.LISP#> TCP.KERNEL; LAM6: (13)
 ROUTE.LISP#> TCP.KERNEL; LAM6: (10)
 HOSTS.LISP#> TCP.KERNEL; LAM6: (17)
 DRIVER-DEFS.LISP#> TCP.KERNEL; LAM6: (33)
 EXOS-DEFS.LISP#> TCP.KERNEL; LAM6: (14)
 DRIVER-DEFS.LISP#> TCP.KERNEL; LAMH: (31)
 DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (51)
 DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (50)
 DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93)
 SOCKET.LISP#> TCP.KERNEL; LAMH: (83)
 DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78)
 DRIVER-LISPM.LISP#> TCP.KERNEL; LAMH: (43)
 DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (43)




A list of all definitions modified:
 DEFUN TCP-SERVER-PASSWORD-MATCH (ITEM PATTERN)
 DEFUN VALIDATE-TCP-SERVER-PASSWORD (USERNAME PASSWORD TO-HOST)
 DEFVAR *FAILED-LOGIN-NOTIFICATION-P* NIL)
 DEFUN (USER FTP-SERVER-HANDLE) (STATE ARG CMDLINE) CMDLINE
 DEFUN FTP-LOGIN (STATE USER HOST-OBJECT PASSWORD HOMEDIR)
 DEFUN FTP-VALID-LM-PASSWORD-P (USERNAME PASSWORD HOST)
 DEFUN TELNET-USER-LOGIN (TERMINAL &AUX USER PASS)
 DEFVAR *TELNET-USER-LOGIN-PUNT* 3)
 DEFUN FTP-RETRIEVE-1 (STATE PN DIRECTORY-P &AUX OS IS)
 defun (data smtp-command) (IGNORE stream &aux data)
 DEFUN FTP-RETRIEVE-1 (STATE PN DIRECTORY-P &AUX OS IS)
 defmethod (input-coroutine-stream :force-output) ()
 defmethod (input-coroutine-stream :tyo) (char)
 defmethod (input-coroutine-stream :tyi-no-hang) (&optional ignored)
 defmethod (input-coroutine-stream :tyi) (&optional ignored)
 defmethod (input-coroutine-stream :listen) ()
 defflavor input-coroutine-stream
 defun make-input-coroutine-stream (syncronous-stream &optional auto-force-output)
 defun open-easy-tcp-stream (internet-address port &optional &key &allow-other-keys
 defun input-coroutine-input-pump (from to)
 defmethod (input-coroutine-stream :after :close) (&rest ignored)
 defun fixup-ftp-string-for-host (string pathname)
 defvar *ftp-host-unit-lifetime* (* 3. 3600.)
 defun excelan-8040-vms-directory-line-parser (line host pathname &aux start end p e)
 defmethod (ftp-access :open) (file pathname
 defun lispm-directory-line-parser (line host pathname &aux start end p temp pn)
 defun ftp-access-canonicalize-directory-list (l)
 defmethod (ftp-access :directory-list) (given-pathname options)
 defmethod (ftp-probe-stream :after :init) (&rest ignored)
 defun lispm-directory-line-parser (line host pathname &aux start end p temp pn)
 defmethod (ftp-access :open) (file pathname
 defvar *ftp-probe-before-open-directions* '(:input :output)
 defun command (fmt &rest args)
 defvar *ignore-reply-from-quit* nil)
 defmethod (ftp-file-stream-mixin :change-properties) (&rest l)
 defun ftp-parse-directory-list-line (line host pathname)
 defun lispm-directory-line-parser (line host pathname &aux start end p temp pn)
 defprop :lispm lispm-directory-line-parser :directory-line-parser)
 defmethod (tcp-host-pathname :open) (&rest options)
 DEFUN ADD-HOST-INFORMATION (ADDR NAME MACHINE-TYPE OPSYS PROTOCOLS)
 DEFUN GET-INTERNET-ADDRESS (X &AUX TEMP)
 DEFINE-TCP-START-FORM "default routing table"
 defun set-up-default-internet-routing-table ()
 defun delete-arp (host)
 defun add-arp (host ethernet-address &optional &key temporary published)
 defun display-arp (&rest hosts &aux r return)
 defun describe-exarp_ioctl (x)
 defconst ATF_PUBL		8		"respond for another host")
 defconst ATF_PERM		4		"perminant entry")
 defconst ATF_COM		2		"completed entry")
 defconst sizeof_exarp_ioctl (next-slot-after 'exarp_ioctl.arp_flags))
 defprop  exarp_ioctl.arp_flags 4 size-in-bytes)
 defconst exarp_ioctl.arp_flags (next-slot-after 'exarp_ioctl.arp_ha))
 defconst exarp_ioctl.arp_ha (next-slot-after 'exarp_ioctl.arp_pa) "hardware address")
 defconst exarp_ioctl.arp_pa 0 "protocol address")
 defconst AF-COUNT 12 "A count") ;; should be added to SOCKET-DEFS.LISP
 defprop  next_addr.nxt_extra 10 size-in-bytes)
 defconst next_addr.nxt_extra (next-slot-after 'next_addr.nxt_count))
 defprop  next_addr.nxt_count 4 size-in-bytes)
 defconst next_addr.nxt_count (next-slot-after 'next_addr.nxt_family))
 defprop  next_addr.nxt_family 2 size-in-bytes)
 defconst next_addr.nxt_family 0)
 defprop  ether_addr.ea_extra 8 size-in-bytes)
 defconst ether_addr.ea_extra (next-slot-after 'ether_addr.ea_addr))
 defprop  ether_addr.ea_addr 6 size-in-bytes)
 defconst ether_addr.ea_addr (next-slot-after 'ether_addr.ea_family))
 defprop  ether_addr.ea_family 2 size-in-bytes)
 defconst ether_addr.ea_family 0)
 DEFUN EXOS-IOCTL-DIRECT (CMD DATA LENGTH &OPTIONAL (ERRORP T) &AUX REPLY MP KP)
 DEFUN GET-INTERNET-ADDRESS (X &AUX TEMP)
 DEFUN MODIFY-ROUTE (DESTINATION GATEWAY OPER VERBOSE)
 DEFUN DELETE-ROUTE (DESTINATION GATEWAY)
 DEFUN ADD-ROUTE (DESTINATION GATEWAY)
 DEFUN DISPLAY-ENTRIES (ROUTE FLAGS)
 DEFUN DISPLAY-ROUTE (&REST L)
 DEFRESOURCE RTENTRY ()
 DEFCONST BRDDISPRT	EXIOCDISPRT)
 DEFCONST BRDSHOWRT     EXIOCSHOWRT)	
 DEFCONST BRDDELRT	EXIOCDELRT)
 DEFCONST BRDADDRT	EXIOCADDRT)	
 DEFCONST BRDDARP	EXIOCDARP)
 DEFCONST BRDGARP	EXIOCGARP)
 DEFCONST BRDSARP	EXIOCSARP)
 DEFUN DESCRIBE-RTENTRY (X)
 DEFUN IN_LNAOF (IN)
 DEFUN IN_NETOF (IN)
 DEFCONST IN_CLASSC_LNA   #x000000ff)
 DEFCONST IN_CLASSC_NET   #xffffff00     "24 bits of net number")
 DEFCONST IN_CLASSB_LNA   #x0000ffff)
 DEFCONST IN_CLASSB_NET   #xffff0000     "16 bits of net number")
 DEFCONST IN_CLASSB       #x40000000)
 DEFCONST IN_CLASSA_LNA   #x00ffffff)
 DEFCONST IN_CLASSA_NET   #xff000000     "8 bits of net number")
 DEFCONST IN_CLASSA       #x80000000)
 DEFCONST RTF_HOST	#x4		"host entry (net otherwise)")
 DEFCONST RTF_GATEWAY	#x2		"destination is a gateway")
 DEFCONST RTF_UP	#x1		"route useable")
 DEFCONST RTHASHSIZ 7)
 DEFCONST SIZEOF_RTENTRY (NEXT-SLOT-AFTER 'RTENTRY.RT_HASH))
 DEFPROP  RTENTRY.RT_HASH 2 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_HASH (NEXT-SLOT-AFTER 'RTENTRY.RT_REFCNT))
 DEFPROP  RTENTRY.RT_REFCNT 1 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_REFCNT (NEXT-SLOT-AFTER 'RTENTRY.RT_FLAGS))
 DEFPROP  RTENTRY.RT_FLAGS 1 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_FLAGS (NEXT-SLOT-AFTER 'RTENTRY.RT_IFP))
 DEFPROP  RTENTRY.RT_IFP 4 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_IFP (NEXT-SLOT-AFTER 'RTENTRY.RT_USE))
 DEFPROP  RTENTRY.RT_USE 4 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_USE (NEXT-SLOT-AFTER 'RTENTRY.RT_NEXT))
 DEFPROP  RTENTRY.RT_NEXT 4 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_NEXT (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_ZERO))
 DEFPROP  RTENTRY.RT_GATEWAY.SIN_ZERO 8 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_GATEWAY.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_ADDR))
 DEFPROP  RTENTRY.RT_GATEWAY.SIN_ADDR 4 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_GATEWAY.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_PORT))
 DEFPROP  RTENTRY.RT_GATEWAY.SIN_PORT 2 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_GATEWAY.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_FAMILY))
 DEFPROP  RTENTRY.RT_GATEWAY.SIN_FAMILY 2 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_GATEWAY.SIN_FAMILY (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SIN_ZERO))
 DEFPROP  RTENTRY.RT_DST.SIN_ZERO 8 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_DST.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SIN_ADDR))
 DEFPROP  RTENTRY.RT_DST.SIN_ADDR 4 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_DST.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SIN_PORT))
 DEFPROP  RTENTRY.RT_DST.SIN_PORT 2 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_DST.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SIN_FAMILY))
 DEFPROP  RTENTRY.RT_DST.SIN_FAMILY 2 SIZE-IN-BYTES)
 DEFCONST RTENTRY.RT_DST.SIN_FAMILY 0)
 DEFUN NEXT-SLOT-AFTER (X)
 DEFUN ADD-HOST-INFORMATION (ADDR NAME MACHINE-TYPE OPSYS PROTOCOLS)
 defun host-table-parse-gateway (string start end)
 defun host-table-parse-host (string start end)
 DEFUN EXINTR (&AUX (READ-MP (RMSG-AREA-LASTR RMSGAREA)) KP REQUEST-CODE REPLY-CODE
 DEFCONST EXOS-IOCTL-CODE-ALIST
 DEFCONST EXIOCDISPRT	(IOS 26)		"display route entry")
 DEFCONST EXIOCSHOWRT	(IOS 25)		"show route entry")
 DEFCONST EXIOCDELRT	(IOS 24)		"delete route entry")
 DEFCONST EXIOCADDRT	(IOS 23)		"add route entry")
 DEFCONST EXIOCDARP	(IOS 22)		"delete an arp entry")
 DEFCONST EXIOCGARP	(IOS 21)		"get an arp entry")
 DEFCONST EXIOCSARP	(IOS 20)		"set an arp entry")
 DEFUN EXOS-STATS (&KEY (FORMAT-STREAM T) (HOW :DEFAULT) (RESET-P NIL) (PRINT-P T))
 DEFUN XDLIOCSTART (ADDR  &OPTIONAL LONGADDRP &AUX KP MSG)
 DEFUN XDLWRITE (ARRAY START-OFFSET COUNT &OPTIONAL LONGADDRP &AUX KP MSG)
 DEFUN DECODE-INIT-MSG (ARRAY)
 DEFVAR *LAST-INIT-MSG* NIL "setq'd or rplaca'd by DECODE-INIT-MSG")
 defun describe-init-msg (array)
 DEFUN EXSETUP-1 (MODE IM &AUX (MAGIC (MAKE-ARRAY 8 :TYPE :ART-8B))
 DEFUN DESCRIBE-DATA-OPTIONS-VECTOR (DATA-ARRAY)
 defun save-download-data-ascii (data &optiopnal (filename "TCP:KERNEL;NETDATA LISP >"))
 defun make-art-8b-from-hex (length data-as-string)
 defun hexprint-art-8b (array &optional (stream standard-output))
 defun read-array-from-stream (stream size swap?)
 defun save-download-data-qfasl (8086-netload-data filename)
 defun load-download-data (filename)
 defun 2byteswap (n)
 defvar	*ID86V7* #o0411 "first 16-bit word in exec module, or swapped version thereof")
 defun init-msg-wordptn-as-long (im)
 defun segment-normal-address (addr)
 defun normalize-segmented-address (addr)
 DEFUN EXOS-START (ADDR)
 DEFUN EXOS-WRITE (DATA START COUNT)
 DEFUN EXOS-LSEEK (ADDR)
 defvar *normalize-addrp* nil "doesnt work if set to T")
 defun netload (&optional &key internet-address ethernet-address
 defstruct (netload (conc-name netload.) named
 defconst sizeof-exosopt 21)
 defprop exosopt.xo_bufchain 1 size-in-bytes)
 defconst exosopt.xo_bufchain 20 "1 = use NX 5.0 buffer-chaining")
 defprop exosopt.xo_xptemp 1 size-in-bytes)
 defconst exosopt.xo_xptemp   19 "priority level for PRINTF messages")
 defprop exosopt.xo_nxmbufs 1 size-in-bytes)
 defconst exosopt.xo_nxmbufs  18 "number of extended memory buffers")
 defprop exosopt.xo_npending 1 size-in-bytes)
 defconst exosopt.xo_npending 17 "number of outstanding host requests")
 defprop exosopt.xo_dolink 1 size-in-bytes)
 defconst exosopt.xo_dolink   16 "1 = enable host access to link mode")
 defprop exosopt.xo_tspermit 1 size-in-bytes)
 defconst exosopt.xo_tspermit 15 "bit map of Telnet options to permit")
 defprop exosopt.xo_tsoffer 1 size-in-bytes)
 defconst exosopt.xo_tsoffer  14 "bit map of Telnet options to offer")
 defprop exosopt.xo_eaddr  6 size-in-bytes)
 defconst exosopt.xo_eaddr 8 "Ethernet address, in network order")
 defprop exosopt.xo_iaddr 4 size-in-bytes)
 defconst exosopt.xo_iaddr 4 "Internet address, in network order")
 defprop exosopt.xo_ntsconn 1 size-in-bytes)
 defconst exosopt.xo_ntsconn 3	"up to 8 telnet connections, 0 disables")
 defprop exosopt.xo_useaddr 1 size-in-bytes)
 defconst exosopt.xo_useaddr 2	"1 = use Ethernet address below")
 defprop exosopt.xo_docksum 1 size-in-bytes)
 defconst exosopt.xo_docksum 1	"1 = do checksums")
 defprop exosopt.xo_doarp 1 size-in-bytes)
 defconst exosopt.xo_doarp  0	"1 = use ARP protocol")
 defconst XOSGA	 (lsh 1 3))
 defconst XOECHO (lsh 1 1))
 defconst XOBIN	 (lsh 1 0))
 defconst *DATAADDR* #x01000000 "address to load exos program data segment")
 defconst XP_PANIC	4	"unexpected, fatal problems")
 defconst XP_HOT	3	"unexpected, non-fatal problems")
 defconst XP_WARM	2	"benign operational problems")
 defconst XP_COOL	1	"chit-chat")
 defconst XP_COLD	0)
 DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS
 DEFVAR *NETLOAD-DEBUG-P* NIL)
 DEFUN GENERIC-XSOSEND (SOCKET-ID SA SOURCE COUNT)
 DEFUN GENERIC-XSORECEIVE (SOCKET-ID SA DEST COUNT)
 DEFUN GENERIC-XSOCLOSE (SOCKET-ID ABORT-P)
 DEFUN GENERIC-XCONTROL (SOCKET-ID CMD DATA SA SP TYPE OPTIONS)
 DEFUN GENERIC-CLEANUP-EXOS-SOCKET-IF-UNFINISHED (IDN)
 DEFUN GENERIC-XSOOPEN (&AUX IDN)
 DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS
 DEFVAR *TCP-ABORTIONP* NIL "If T then all board-level operations will abort")
 DEFUN START-INITIALIZATION-FORM (L)
 DEFUN START (&REST ARGLIST &AUX (*CALLED-START* T))
 DEFVAR *CALLED-START* NIL)
 DEFUN MAKE-WIRED-WD-ARRAY (SIZE &OPTIONAL REUSABLE)
 defun describe-init-msg (array)
 DEFUN EXSETUP-1 (MODE IM &AUX (MAGIC (MAKE-ARRAY 8 :TYPE :ART-8B))
 defvar exsetup-verbose nil)