TO: Jerry Duffy FROM: Helen Baker RE: Release 2.0 Lisp Software Update Tape DATE: Friday the twentieth of December, 1985; 9:03:23 pm This tape updates lisp software from the following versions: ;;-*-MODE:LISP;PACKAGE:USER;BASE:10-*- ;; Loaded patch status for LMI-BORIS dumped by GJC ;; on Sunday the fourth of August, 1985; 3:45:29 pm ;; recopied to the file it is in now for use as a base reference for report making. (SET 'SI:*SAVED-LOADED-PATCH-STATUS* '( ("TCP-Server" 33 0 :RELEASED) ("TCP-User" 57 0 :RELEASED) ("TCP-Kernel" 30 3 :RELEASED) )) to the following versions: ;;-*-MODE:LISP;PACKAGE:USER;BASE:10-*- ;; Loaded patch status for LMI-LAMBDA-6 dumped by GJC ;; on Friday the twentieth of December, 1985; 9:03:08 pm (SET 'SI:*SAVED-LOADED-PATCH-STATUS* '( ("TCP-Server" 33 4 :RELEASED) ("TCP-User" 57 11 :RELEASED) ("TCP-Kernel" 30 12 :RELEASED) )) The tape contains the following files: ;;-*-MODE:LISP;PACKAGE:USER;BASE:10-*- ;; patch update file list dumped by GJC from LMI-LAMBDA-6 ;; on Friday the twentieth of December, 1985; 9:02:23 pm (SET 'SI:*SAVED-PATCH-UPDATE-FILES* '( #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30.DIRECTORY#26" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-4.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-4.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-5.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-5.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-6.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-6.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-7.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-7.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-8.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-8.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-9.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-9.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-10.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-10.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-11.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-11.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-12.LISP#1" Page 2 #FS::LM-PATHNAME "LAM6: TCP.PATCH; KERNEL-30-12.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57.DIRECTORY#24" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-1.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-1.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-2.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-2.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-3.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-3.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-4.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-4.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-5.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-5.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-6.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-6.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-7.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-7.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-8.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-8.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-9.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-9.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-10.LISP#2" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-10.QFASL#2" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-11.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; USER-57-11.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33.DIRECTORY#10" #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-1.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-1.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-2.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-2.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-3.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-3.QFASL#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-4.LISP#1" #FS::LM-PATHNAME "LAM6: TCP.PATCH; SERVER-33-4.QFASL#1" )) The following is a detailed report each patch file, with a note of every FILE, FUNCTION, or VARIABLE modified: 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; KE RNEL-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 Page 3 ;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Ser ver 33.4, Experimental window-maker 1.0, Experimental Sited 1.0, micr ocode 778, 2.0 Process Systems 5/2/85 Fork.. Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATC H; 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 v alues. ;;; 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-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experiment al 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.PATC H; 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 intera ction 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-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-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) Page 4 (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.PATC H; 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 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 wil l 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.PATC H; 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: Page 5 ;;; 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 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_COLD0) (defconst XP_COOL1"chit-chat") (defconst XP_WARM2"benign operational problems") (defconst XP_HOT3"unexpected, non-fatal problems") (defconst XP_PANIC4"unexpected, fatal problems") (defconst *DATAADDR* #x01000000 "address to load exos program data se gment") (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) Page 6 (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:KERNE L;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.PATC H; 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 Page 7 ;;; 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 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.PATC H; 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.8, TCP-User 57.11, TCP-Server 33.3, DOE-M acsyma 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-C ODE 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.PATC H; 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: Page 8 ;;; 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.9, TCP-User 57.11, TCP-Serv er 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.PATC H; 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 m anipulation 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.9, TCP-User 57.11, TCP-Serv er 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.SI N_FAMILY)) (DEFPROP RTENTRY.RT_DST.SIN_PORT 2 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_DST.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_PORT)) (DEFPROP RTENTRY.RT_DST.SIN_ADDR 4 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_DST.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_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_GA TEWAY.SIN_FAMILY)) (DEFPROP RTENTRY.RT_GATEWAY.SIN_PORT 2 SIZE-IN-BYTES) Page 9 (DEFCONST RTENTRY.RT_GATEWAY.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_PORT)) (DEFPROP RTENTRY.RT_GATEWAY.SIN_ADDR 4 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_GATEWAY.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_ADDR)) (DEFPROP RTENTRY.RT_GATEWAY.SIN_ZERO 8 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_NEXT (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_ZE RO)) (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 BRDSARPEXIOCSARP) (DEFCONST BRDGARPEXIOCGARP) (DEFCONST BRDDARPEXIOCDARP) (DEFCONST BRDADDRTEXIOCADDRT) (DEFCONST BRDDELRTEXIOCDELRT) (DEFCONST BRDSHOWRT EXIOCSHOWRT) (DEFCONST BRDDISPRTEXIOCDISPRT) (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) Page 10 (DEFUN EXOS-IOCTL-DIRECT (CMD DATA LENGTH &OPTIONAL (ERRORP T) &AUX R EPLY 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.LI SP (defconst exarp_ioctl.arp_pa 0 "protocol address") (defconst exarp_ioctl.arp_ha (next-slot-after 'exarp_ioctl.arp_pa) "h ardware 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_COM2"completed entry") (defconst ATF_PERM4"perminant entry") (defconst ATF_PUBL8"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 publis hed) (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.PATC H; 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-Int Page 11 erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Ser ver 33.4, Experimental window-maker 1.0, Experimental Sited 1.0, micr ocode 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; US ER-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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork.. Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATC H; 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-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experiment al 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.PATC Page 12 H; 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 cr eated 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-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experiment al 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.PATC H; 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-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, microco de 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.PATC H; 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, Page 13 ;;; while running on Natasha Nogoodnik from band 1 ;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, microco de 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.PATC H; 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-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, microco de 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.PATC H; 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-Int Page 14 erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.5, TCP-Server 33.1, microco de 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.PATC H; 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-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.6, TCP-Server 33.0, microco de 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 &au x 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.PATC H; 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.5, TCP-User 57.7, TCP-Server 33.1, DOE-Ma Page 15 csyma 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.PATC H; 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 f or 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 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.PATC H; 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 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.PATC H; USER-57-11.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - Page 16 *- ;;; 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 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 &al low-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; SE RVER-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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Ser ver 33.3, Experimental window-maker 1.0, Experimental Sited 1.0, micr ocode 773, 2.0 Process Systems 5/2/85 Fork.. Report on source containing patches: #FS::LM-PATHNAME "LAM6: TCP.PATC H; SERVER-33-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - Page 17 *- ;;; 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-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.5, TCP-Server 33.0, microco de 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.PATC H; 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 and
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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 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.PATC H; 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, n ot 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 33.2, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file FTP.LISP#> TCP.SERVER; LAMH: (26) Page 18 (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.PATC H; 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-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Ser ver 33.3, Experimental window-maker 1.0, Experimental Sited 1.0, micr ocode 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) Page 19 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 &al low-other-keys defun input-coroutine-input-pump (from to) Page 20 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 &au x 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 publis hed) defun display-arp (&rest hosts &aux r return) defun describe-exarp_ioctl (x) defconst ATF_PUBL8"respond for another host") defconst ATF_PERM4"perminant entry") defconst ATF_COM2"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) "h ardware address") defconst exarp_ioctl.arp_pa 0 "protocol address") defconst AF-COUNT 12 "A count") ;; should be added to SOCKET-DEFS.LI SP 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) Page 21 ) 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 R EPLY 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 BRDDISPRTEXIOCDISPRT) DEFCONST BRDSHOWRT EXIOCSHOWRT) DEFCONST BRDDELRTEXIOCDELRT) DEFCONST BRDADDRTEXIOCADDRT) DEFCONST BRDDARPEXIOCDARP) DEFCONST BRDGARPEXIOCGARP) DEFCONST BRDSARPEXIOCSARP) 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)) Page 22 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_ZE RO)) DEFPROP RTENTRY.RT_GATEWAY.SIN_ZERO 8 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_GATEWAY.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_ADDR)) DEFPROP RTENTRY.RT_GATEWAY.SIN_ADDR 4 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_GATEWAY.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_PORT)) DEFPROP RTENTRY.RT_GATEWAY.SIN_PORT 2 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_GATEWAY.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.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.SI N_ADDR)) DEFPROP RTENTRY.RT_DST.SIN_ADDR 4 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_DST.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_PORT)) DEFPROP RTENTRY.RT_DST.SIN_PORT 2 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_DST.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_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-C ODE 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") Page 23 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:KERNE L;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 ") Page 24 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 se gment") defconst XP_PANIC4"unexpected, fatal problems") defconst XP_HOT3"unexpected, non-fatal problems") defconst XP_WARM2"benign operational problems") defconst XP_COOL1"chit-chat") defconst XP_COLD0) 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 wil l 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)