(FILECREATED " 7-Oct-86 21:26:50" ("compiled on " {ERIS}LIBRARY>NSCHAT.;16) " 1-Oct-86 20:23:15" recompiled exprs: NSCHAT.OPEN.3270 NSCHAT.OPEN.DIALOUT NSCHAT.OPEN.TTYHOST NSCHAT.SERVICES in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 7-Oct-86 21:25:37" {ERIS}LIBRARY>NSCHAT.;16 43916 changes to: (VARS NSCHATCOMS) (FNS NSCHAT.OPEN.DIALOUT NSCHAT.OPEN.TTYHOST NSCHAT.SERVICES NSCHAT.OPEN.3270) previous date: "27-May-86 09:32:07" {ERIS}LIBRARY>NSCHAT.;15) NSCHAT.3270.HOST D1 (I 0 IBM.VIRTUAL.HOST) @go (12Q CH.RETRIEVE.ITEM) (3 IBM3270.HOST.BACK) ( 7 (GAP . IBM3270HostBack)) NSCHAT.ATTENTIONFN D1 (I 1 ATTNBYTE I 0 STREAM F 0 XIPTRACEFLG F 1 NSWIZARDFLG) <Adl4l@g $PQ` o` oA` i(70Q PRINTNUM 54Q PRIN1 41Q TERPRI 24Q NOTIFY.EVENT 21Q STREAMPROP) (65Q PROMPTWINDOW 51Q PROMPTWINDOW 36Q PROMPTWINDOW 16Q MediumUpEvent) ( 61Q (FIX 1 10Q) 46Q "Attention byte: ") NSCHAT.ERRORHANDLER D1 (I 1 ERRCODE I 0 STREAM) MAdg@ g@ @d Ag@o m@ @oAo @ @ (112Q \EOF.ACTION 103Q ADD.CHAT.MESSAGE 100Q CONCAT 61Q SPP.OPENP 52Q ADD.CHAT.MESSAGE 33Q NSCHAT.ATTENTIONFN 25Q SPP.CLEARATTENTION 13Q SPP.CLEAREOM) (40Q END 17Q ATTENTION 4 EOM) ( 75Q "]" 70Q "[SPP error " 47Q "[Connection closed by remote host]") NSCHAT.HOST.FILTER D1 (I 0 NAME F 0 \NSFLG) Po@ @ bd gh(27Q MKATOM 20Q CH.LOOKUP.OBJECT 12Q STRPOS) (32Q NSCHAT.OPEN) ( 6 ":") NSCHAT.OPENA0003 D1 (L (2 MOUSE 1 MENU 0 ITEM)) @NIL NIL () NSCHAT.OPEN D1 (P 7 FAILURE P 6 HANDLE P 5 STREAM P 4 OUTSTREAM P 3 SERVICE P 2 PORT P 1 SERVICE.OPTIONS P 0 MediumUpEvent I 0 HOST)   @K Yk >` o` I` o` @` ` I?`dIdodgdg dgjdndh_dO [Md _@kO _dlOZ ohigho ]rgH Mgg Ml K_M@KlO^CNguNdgdl` o` ` ҿNlm _M ` o` @` o` Oo` hMgg Mgg Mgg Mgg MgM M Hn: KlLl ML(715Q SPP.SENDATTENTION 701Q AWAIT.EVENT 671Q SPPOUTPUTSTREAM 664Q STREAMPROP 661Q SPP.INPUT.EVENT 650Q STREAMPROP 635Q STREAMPROP 622Q STREAMPROP 607Q STREAMPROP 573Q PRIN1 554Q PRIN1 541Q PRIN1 531Q PRIN1 516Q TERPRI 507Q CLOSEF? 500Q SUBSTRING 462Q TERPRI 453Q PRIN1 440Q TERPRI 354Q SPP.DSTYPE 345Q STREAMPROP 332Q STREAMPROP 316Q COURIER.OPEN 250Q LOOKUP.NS.SERVER 226Q CLOSEF? 212Q MENU 106Q TERPRI 77Q PRIN1 67Q PRIN1 54Q PRIN1 42Q PRIN1 27Q TERPRI 17Q EQLENGTH 12Q NSCHAT.SERVICES 2 CREATE.EVENT) (655Q READPEVENT 645Q NILL 642Q SENDSCREENPARAMS 632Q NILL 627Q FLUSH&WAIT 617Q NILL 614Q LOGINFO 604Q NILL 601Q SETDISPLAYTYPE 570Q PROMPTWINDOW 551Q PROMPTWINDOW 536Q PROMPTWINDOW 526Q PROMPTWINDOW 513Q PROMPTWINDOW 457Q PROMPTWINDOW 450Q PROMPTWINDOW 435Q PROMPTWINDOW 421Q REJECT 407Q ERROR 342Q NSCHAT.EOFPFN 337Q EOFPFN 326Q MediumUpEvent 305Q NSCHAT 257Q NSADDRESS 160Q DEFAULTMENUHELDFN 151Q CLRPROMPT 142Q NSCHAT.OPENA0003 120Q MENUTYPE# 103Q PROMPTWINDOW 74Q PROMPTWINDOW 64Q PROMPTWINDOW 51Q PROMPTWINDOW 37Q PROMPTWINDOW 24Q PROMPTWINDOW) ( 565Q "No Response" 546Q " because: " 523Q "Could not chat to " 445Q "Service not supported" 312Q (EOM.ON.FORCEOUT T ERRORHANDLER NSCHAT.ERRORHANDLER ATTENTIONFN NSCHAT.ATTENTIONFN) 275Q "Name not found" 133Q "Specific NS Service?" 61Q " on " 34Q "Connecting to ") NSCHAT.OPEN.3270 D1 (P 1 CONTROLLER P 0 AUTHENTICATOR I 1 IBM3270.VIRTUAL.HOST I 0 STREAM) i Ago I@dggoIdg(gA oI o ohh7g&gA oI o ohhoI n:HHg (160 COURIER.CALL 145 ERROR 123 CONCAT 116 OCTALSTRING 105 PARSE.NSNAME 80 CONCAT 73 OCTALSTRING 62 PARSE.NSNAME 14 CH.RETRIEVE.ITEM 3 CH.GETAUTHENTICATOR) (156 RETURNERRORS 101 polledBSCTerminal 95 bsc 58 sdlcTerminal 51 sdlc 39 Create 36 GAP 7 IBM3270HOSTDATA) ( 138 "Unknown 3270 controller link type" 127 (5) 120 "B" 111 "#" 84 (1) 77 "B" 68 "#" 43 (ibm3270Host) 11 (GAP . IBM3270HostData)) NSCHAT.OPEN.DIALOUTA0001A0002 D1 (I 0 CSTREAM F 0 RESETSTATE) P@ (6 CLOSEF) NIL () NSCHAT.OPEN.DIALOUTA0001 D1 (NAME ERRORSET F 0 RS232CDATA F 1 PHONENUMBER F 2 STREAM F 3 RESETVARSLST F 4 AUTHENTICATOR F 5 RESETY) gRhhhScPgcRgggggPldPhhQRggggPgPohhgdQgPhhhhoBggggPhhhgdhgPhhhhon:TTg c i(249 COURIER.CALL 31 CHAT.CHOOSE.PHONE.NUMBER) (245 RETURNERRORS 210 reserveNeeded 205 preemptInactive 181 asynchronous 178 full 175 directConn 172 rs232c 144 reserveNeeded 139 preemptInactive 116 auto 101 asynchronous 98 full 95 dialConn 92 rs232c 50 even 47 seven 44 tty 41 Create 38 GAP 26 none 2 NSCHAT.OPEN.DIALOUTA0001A0002) ( 233 ((teletype)) 167 ((teletype)) 126 (1)) NSCHAT.OPEN.DIALOUT D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 PHONENUMBER P 1 AUTHENTICATOR P 0 RS232CDATA I 1 HOST I 0 STREAM F 6 LISPXHIST F 7 RESETVARSLST) _Ago i H*` A` o` ` @ V!Wog hg] ML(88 RESETRESTORE 78 NSCHAT.OPEN.DIALOUTA0001 61 ERROR! 58 CLOSEF 54 TERPRI 47 PRIN1 36 PRIN1 28 TERPRI 16 CH.GETAUTHENTICATOR 10 CH.RETRIEVE.ITEM) (84 ERROR 75 INTERNAL 51 PROMPTWINDOW 44 PROMPTWINDOW 33 PROMPTWINDOW 25 PROMPTWINDOW 3 RS232CDATA) ( 72 (NSCHAT.OPEN.DIALOUTA0001) 41 " does not appear support dialout service" 7 (GAP . RS232CData)) NSCHAT.OPEN.TTYHOST D1 (P 0 AUTHENTICATOR I 2 SERVICE I 1 HOST I 0 STREAM) 0@ggogBhhon:HHg (45 COURIER.CALL 2 CH.GETAUTHENTICATOR) (41 RETURNERRORS 19 service 12 Create 9 GAP) ( 29 ((teletype)) 16 (ttyHost (seven even two 100 (none 0 0)))) NSCHAT.SERVICES D1 (P 3 SERVICES P 0 PROPERTIES I 1 ALLFLG I 0 HOST) @ !AhiKohY~hon'Hon'HonN!Hon'Ho K8` @` o` ` o` ` oZHJi|Ir(144 TERPRI 137 PRIN1 126 TERPRI 119 PRIN1 108 PRIN1 100 TERPRI 88 \APPEND2 85 \APPEND2 82 \APPEND2 79 \APPEND2 3 CH.LIST.PROPERTIES) (141 PROMPTWINDOW 134 PROMPTWINDOW 123 PROMPTWINDOW 116 PROMPTWINDOW 105 PROMPTWINDOW 97 PROMPTWINDOW) ( 148 (("Remote System Administration" (1 IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a server executive") ("Remote System Executive" (2 IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a remote exec on another workstation") ("Interactive Terminal Service" (3 IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a terminal-based mail reader") ("RS232 Dialout" (DIALOUT IDENTITY NSCHAT.OPEN.DIALOUT) "Connect to a dialout facility") ("IBM3270 Emulation Service" (IBM3270 NSCHAT.3270.HOST NSCHAT.OPEN.3270) "Connect to an IBM3270 Emulator Port")) 131 "Please choose a service from the menu." 113 " does not have any registered NSCHAT services." 76 (("IBM3270 Emulation Service" (IBM3270 NSCHAT.3270.HOST NSCHAT.OPEN.3270) "Connect to an IBM3270 Emulator Port")) 65 (("RS232 Dialout" (DIALOUT IDENTITY NSCHAT.OPEN.DIALOUT) "Connect to a dialout facility")) 54 (("Interactive Terminal Service" (3 IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a terminal-based mail reader")) 43 (("Remote System Executive" (2 IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a remote exec on another workstation")) 32 (("Remote System Administration" (1 IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a server executive")) 19 (10000 10001 10021 10006 10009 10002 10004 10017 10024)) SPP.INPUT.EVENT D1 (I 0 STREAM) @ g@ >o@ (34Q ERROR 3 \GETACCESS) (21Q SPPCON 14Q STREAM 6 INPUT) ( 30Q "FILE NOT OPEN") (PRETTYCOMPRINT NSCHATCOMS) (RPAQQ NSCHATCOMS ((COURIERPROGRAMS GAP) (FNS NSCHAT.3270.HOST NSCHAT.ATTENTIONFN NSCHAT.ERRORHANDLER NSCHAT.HOST.FILTER NSCHAT.OPEN NSCHAT.OPEN.3270 NSCHAT.OPEN.DIALOUT NSCHAT.OPEN.TTYHOST NSCHAT.SERVICES SPP.INPUT.EVENT) (INITVARS (NSCHAT.OPTIONS.MENU)) (DECLARE: EVAL@COMPILE DONTCOPY ( FILES (SOURCE) SPPDECLS) (RECORDS NSCHAT.SERVICE) (CONSTANTS (\NS.WKS.Courier 5) ( GAP.RemoteSystemAdministration 1) (GAP.RemoteSystemExecutive 2) (GAP.InteractiveTerminalService 3)) ( GLOBALVARS NSCHAT.OPTIONS.MENU)) (DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS (CHAT.PROTOCOLTYPES (NS . NSCHAT.HOST.FILTER)))))) (COURIERPROGRAM GAP (3 3) TYPES ((WaitTime CARDINAL) (CharLength (ENUMERATION (five 0) (six 1) (seven 2) (eight 3))) (Parity (ENUMERATION (none 0) (odd 1) (even 2) (one 3) (zero 4))) (StopBits ( ENUMERATION (one 0) (two 1))) (FlowControl (RECORD (type (ENUMERATION (none 0) (xOnXOff 1))) (xOn UNSPECIFIED) (xOff UNSPECIFIED))) (SessionHandle (ARRAY 2 UNSPECIFIED)) (SessionParameterObject ( CHOICE (xerox800 0 NIL) (xerox850 1 UNSPECIFIED) (xerox860 2 UNSPECIFIED) (system6 3 (RECORD ( sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (cmcll 4 (RECORD (sendBlockSize CARDINAL) ( receiveBlockSize CARDINAL))) (ibm2770 5 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm2770Host 6 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm6670 7 (RECORD ( sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm6670Host 8 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm3270 9 NIL) (ibm3270Host 10 NIL) (OldTtyHost 11 (RECORD (charLength CharLength) (parity Parity) (stopBits StopBits) (frameTimeout CARDINAL))) (OldTty 12 (RECORD ( charLength CharLength) (parity Parity) (stopBits StopBits) (frameTimeout CARDINAL))) (other 13 NIL) ( unknown 14 NIL) (ibm2780 15 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) ( ibm2780Host 16 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm3780 17 (RECORD ( sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm3780Host 18 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (siemens9750 19 NIL) (siemens9750Host 20 NIL) (ttyHost 21 (RECORD ( charLength CharLength) (parity Parity) (stopBits StopBits) (frameTimeout CARDINAL) (flowControl FlowControl))) (tty 22 (RECORD (charLength CharLength) (parity Parity) (stopBits StopBits) ( frameTimeout CARDINAL) (flowControl FlowControl))))) (TransportObject (CHOICE (rs232c 0 (RECORD ( CommParams CommParamObject) (preemptOthers ReserveType) (preemptMe ReserveType) (phoneNumber STRING) ( line (CHOICE (alreadyReserved 0 (RECORD (resource Resource))) (reserveNeeded 1 (RECORD (lineNumber CARDINAL))))))) (bsc 1 (RECORD (localTerminalID STRING) (localSecurityID STRING) (lineControl LineControl) (authenticateProc UNSPECIFIED))) (teletype 2 NIL) (polledBSCController 3 (RECORD ( hostControllerName STRING) (controllerAddress ControllerAddress) (portsOnController CARDINAL))) ( sdlcController 4 (RECORD (hostControllerName STRING) (controllerAddress ControllerAddress) ( portsOnController CARDINAL))) (polledBSCTerminal 5 (RECORD (hostControllerName STRING) ( terminalAddress TerminalAddress))) (sdlcTerminal 6 (RECORD (hostControllerName STRING) ( terminalAddress TerminalAddress))) (service 7 (RECORD (id LONGCARDINAL))) (unused 8 NIL) ( polledBSCPrinter 9 (RECORD (hostControllerName STRING) (printerAddress TerminalAddress))) (sdlcPrinter 10 (RECORD (hostControllerName STRING) (printerAddress TerminalAddress))))) (Sequence.TransportObject (SEQUENCE TransportObject)) (BidReply (ENUMERATION (wack 0) (nack 1) (default 2))) (ExtendedBoolean ( ENUMERATION (true 0) (false 1) (default 2))) (DeviceType (ENUMERATION (undefined 0) (terminal 1) ( printer 2))) (AccessDetail (CHOICE (directConn 0 (RECORD (duplex (ENUMERATION (full 0) (half 1))) ( lineType LineType) (lineSpeed LineSpeed))) (dialConn 1 (RECORD (duplex (ENUMERATION (full 0) (half 1)) ) (lineType LineType) (lineSpeed LineSpeed) (dialMode (ENUMERATION (manual 0) (auto 1))) (dialerNumber CARDINAL) (retryCount CARDINAL))))) (CommParamObject (RECORD (accessDetail AccessDetail))) (LineType (ENUMERATION (bitSynchronous 0) (byteSynchronous 1) (asynchronous 2) (autoRecognition 3))) (LineSpeed (ENUMERATION (bps50 0) (bps75 1) (bps110 2) (bps135p5 3) (bps150 4) (bps300 5) (bps600 6) (bps1200 7) (bps2400 8) (bps3600 9) (bps4800 10) (bps7200 11) (bps9600 12) (bps19200 13) (bps28800 14) (bps38400 15) (bps48000 16) (bps56000 17) (bps57600 18))) (LineControl (ENUMERATION (primary 0) (secondary 1))) (ControllerAddress CARDINAL) (TerminalAddress CARDINAL) (credentials (AUTHENTICATION . CREDENTIALS)) ( verifier (AUTHENTICATION . VERIFIER)) (Duplexity (ENUMERATION (full 0) (half 1))) (PortClientType ( ENUMERATION (unassigned 0) (outOfService 1) (its 2) (irs 3) (gws 4) (ibm3270Host 5) (ttyEmulation 6) ( rbs 7) (fax 8) (mailGateway 9) (phototypesetter 10))) (PortDialerType (ENUMERATION (none 0) (vadic 1) (hayes 2) (ventel 3) (rs366 4))) (PortEchoingLocation (ENUMERATION (application 0) (ciu 1) (terminal 2 ))) (ReserveType (ENUMERATION (preemptNever 0) (preemptAlways 1) (preemptInactive 2))) (RS232CData ( RECORD (cIUPort BOOLEAN) (owningClientType PortClientType) (preemptionAllowed BOOLEAN) (lineNumber CARDINAL) (dialerNumber CARDINAL) (duplexity Duplexity) (dialingHardware PortDialerType) (charLength CharLength) (echoing PortEchoingLocation) (flowControl FlowControl) (lineSpeed LineSpeed) (parity Parity) (stopBits StopBits) (portActsAsDCE BOOLEAN) (accessControl NSNAME) (validLineSpeeds (SEQUENCE LineSpeed)))) (RS232CBack (RECORD (owningCIU STRING) (owningECS STRING) (owningClient STRING) ( portNumber CARDINAL))) (IBMDeviceType (ENUMERATION (unused 0) (model1 1) (model2 2) (model3 3) (model4 4) (model5 5) (printer 6) (other 7))) (IBM3270Languages (ENUMERATION (USenglish 0) (Austrian 1) ( AustrianAlt 2) (German 3) (GermanAlt 4) (Belgian 5) (Brazilian 6) (CanadianFrench 7) (Danish 8) ( DanishAlt 9) (Norwegian 10) (NorwegianAlt 11) (Finnish 12) (FinnishAlt 13) (Swedish 14) (SwedishAlt 15 ) (French 16) (International 17) (Italian 18) (JapaneseEnglish 19) (JapaneseKana 20) (Portuguese 21) ( Spanish 22) (SpanishAlt 23) (SpanishSpeaking 24) (UKenglish 25) (unused1 26) (unused2 27) (unused3 28) (unused4 29) (unused5 30) (unused6 31))) (ControllerLinkType (ENUMERATION (sdlc 0) (bsc 1))) ( IBM3270Device (RECORD (model IBMDeviceType) (accessControl NSNAME))) (IBM3270Controller (RECORD ( controllerAddress CARDINAL) (portsOnController CARDINAL) (linkType ControllerLinkType) (language IBM3270Languages) (devices (SEQUENCE IBM3270Device)))) (IBM3270HostData (SEQUENCE IBM3270Controller)) (IBM3270HostBack (RECORD (path NSNAME)))) PROCEDURES ((Reset 0) (Create 2 (SessionParameterObject Sequence.TransportObject WaitTime credentials verifier) RETURNS (SessionHandle) REPORTS ( badAddressFormat controllerAlreadyExists controllerDoesNotExist dialingHardwareProblem illegalTransport inconsistentParams mediumConnectFailed noCommunicationHardware noDialingHardware terminalAddressInUse terminalAddressInvalid tooManyGateStreams transmissionMediumUnavailable serviceTooBusy userNotAuthenticated userNotAuthorized serviceNotFound) IMPLEMENTEDBY MAKE.NS.CHAT.CONNECTION)) ERRORS ((unimplemented 0) (noCommunicationHardware 1) (illegalTransport 2) ( mediumConnectFailed 3) (badAddressFormat 4) (noDialingHardware 5) (dialingHardwareProblem 6) ( transmissionMediumUnavailable 7) (inconsistentParams 8) (tooManyGateStreams 9) (bugInGAPCode 10) ( gapNotExported 11) (gapCommunicationError 12) (controllerAlreadyExists 13) (controllerDoesNotExist 14) (terminalAddressInUse 15) (terminalAddressInvalid 16))) (RPAQ? NSCHAT.OPTIONS.MENU) (ADDTOVAR CHAT.PROTOCOLTYPES (NS . NSCHAT.HOST.FILTER)) (PUTPROPS NSCHAT COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL