(FILECREATED " 3-May-86 18:57:26" ("compiled on " {ERIS}LIBRARY>NSCHAT.;14) " 9-Apr-86 15:50:03" recompiled changes: NSCHAT.3270.HOST NSCHAT.OPEN NSCHAT.OPEN.3270 NSCHAT.OPEN.DIALOUT NSCHAT.OPEN.TTYHOST NSCHAT.SERVICES in "Xerox Lisp 9-Apr-86 ..." dated " 9-Apr-86 16:49:41") (FILECREATED " 3-May-86 18:55:36" {ERIS}LIBRARY>NSCHAT.;14 44643 changes to: ( COURIERPROGRAMS GAP) (FNS NSCHAT.OPEN NSCHAT.SERVICES NSCHAT.OPEN.TTYHOST NSCHAT.OPEN.DIALOUT NSCHAT.OPEN.3270 NSCHAT.3270.HOST) (VARS NSCHATCOMS) (RECORDS NSCHAT.SERVICE) previous date: "30-Mar-86 15:50:57" {ERIS}LIBRARY>NSCHAT.;13) 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.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` @` ` I8`dIdodg 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(706Q SPP.SENDATTENTION 672Q AWAIT.EVENT 662Q SPPOUTPUTSTREAM 655Q STREAMPROP 652Q SPP.INPUT.EVENT 641Q STREAMPROP 626Q STREAMPROP 613Q STREAMPROP 600Q STREAMPROP 564Q PRIN1 545Q PRIN1 532Q PRIN1 522Q PRIN1 507Q TERPRI 500Q CLOSEF? 471Q SUBSTRING 453Q TERPRI 444Q PRIN1 431Q TERPRI 345Q SPP.DSTYPE 336Q STREAMPROP 323Q STREAMPROP 307Q COURIER.OPEN 241Q LOOKUP.NS.SERVER 217Q CLOSEF? 203Q MENU 106Q TERPRI 77Q PRIN1 67Q PRIN1 54Q PRIN1 42Q PRIN1 27Q TERPRI 17Q EQLENGTH 12Q NSCHAT.SERVICES 2 CREATE.EVENT) (646Q READPEVENT 636Q NILL 633Q SENDSCREENPARAMS 623Q NILL 620Q FLUSH&WAIT 610Q NILL 605Q LOGINFO 575Q NILL 572Q SETDISPLAYTYPE 561Q PROMPTWINDOW 542Q PROMPTWINDOW 527Q PROMPTWINDOW 517Q PROMPTWINDOW 504Q PROMPTWINDOW 450Q PROMPTWINDOW 441Q PROMPTWINDOW 426Q PROMPTWINDOW 412Q REJECT 400Q ERROR 333Q NSCHAT.EOFPFN 330Q EOFPFN 317Q MediumUpEvent 276Q NSCHAT 250Q NSADDRESS 151Q DEFAULTMENUHELDFN 142Q CLRPROMPT 120Q MENUTYPE# 103Q PROMPTWINDOW 74Q PROMPTWINDOW 64Q PROMPTWINDOW 51Q PROMPTWINDOW 37Q PROMPTWINDOW 24Q PROMPTWINDOW) ( 556Q "No Response" 537Q " because: " 514Q "Could not chat to " 436Q "Service not supported" 303Q (EOM.ON.FORCEOUT T ERRORHANDLER NSCHAT.ERRORHANDLER ATTENTIONFN NSCHAT.ATTENTIONFN) 266Q "Name not found" 133Q "Specific NS Service?" 61Q " on " 34Q "Connecting to ") NSCHAT.OPEN.3270A0001 D1 (NAME ERRORSET F 0 IBM3270.VIRTUAL.HOST F 1 CONTROLLER F 2 MACROY) P oQo ci(25Q CONCAT 3 PARSE.NSNAME) (6 NSNAME) ( 22Q "B" 14Q "#") NSCHAT.OPEN.3270A0002 D1 (NAME ERRORSET F 0 IBM3270.VIRTUAL.HOST F 1 CONTROLLER F 2 MACROY) P oQo ci(25Q CONCAT 3 PARSE.NSNAME) (6 NSNAME) ( 22Q "B" 14Q "#") NSCHAT.OPEN.3270 D1 (P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 CONTROLLER P 0 AUTHENTICATOR I 1 IBM3270.VIRTUAL.HOST I 0 STREAM F 6 RESETVARSLST) i Ago I@dggoIdgOgl 1gJhhVc og gKc gK MLohh^gMgl 1gJhhVc og gKc gK MLohhoI n:HHg (356Q COURIER.CALL 337Q ERROR 306Q ERROR! 300Q APPLY 254Q NSCHAT.OPEN.3270A0002 221Q RADIX 164Q ERROR! 156Q APPLY 132Q NSCHAT.OPEN.3270A0001 77Q RADIX 16Q CH.RETRIEVE.ITEM 3 CH.GETAUTHENTICATOR) (352Q RETURNERRORS 271Q RADIX 260Q ERROR 251Q INTERNAL 227Q RADIX 214Q polledBSCTerminal 206Q bsc 147Q RADIX 136Q ERROR 127Q INTERNAL 105Q RADIX 72Q sdlcTerminal 63Q sdlc 47Q Create 44Q GAP 7 IBM3270HOSTDATA) ( 330Q "Unknown 3270 controller link type" 315Q (5) 246Q (NSCHAT.OPEN.3270A0002) 173Q (1) 124Q (NSCHAT.OPEN.3270A0001) 53Q (ibm3270Host) 13Q (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(371Q COURIER.CALL 37Q CHAT.CHOOSE.PHONE.NUMBER) (365Q RETURNERRORS 322Q reserveNeeded 315Q preemptInactive 265Q asynchronous 262Q full 257Q directConn 254Q rs232c 220Q reserveNeeded 213Q preemptInactive 164Q auto 145Q asynchronous 142Q full 137Q dialConn 134Q rs232c 62Q even 57Q seven 54Q tty 51Q Create 46Q GAP 32Q none 2 NSCHAT.OPEN.DIALOUTA0001A0002) ( 351Q ((teletype)) 247Q ((teletype)) 176Q (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(130Q RESETRESTORE 116Q NSCHAT.OPEN.DIALOUTA0001 75Q ERROR! 72Q CLOSEF 66Q TERPRI 57Q PRIN1 44Q PRIN1 34Q TERPRI 20Q CH.GETAUTHENTICATOR 12Q CH.RETRIEVE.ITEM) (124Q ERROR 113Q INTERNAL 63Q PROMPTWINDOW 54Q PROMPTWINDOW 41Q PROMPTWINDOW 31Q PROMPTWINDOW 3 RS232CDATA) ( 110Q (NSCHAT.OPEN.DIALOUTA0001) 51Q " 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 (55Q COURIER.CALL 2 CH.GETAUTHENTICATOR) (51Q RETURNERRORS 23Q service 14Q Create 11Q GAP) ( 35Q ((teletype)) 20Q (ttyHost (seven even two 144Q (none 0 0)))) NSCHAT.SERVICES D1 (P 3 SERVICES P 0 PROPERTIES I 1 ALLFLG I 0 HOST) @ !AhIoY~hon'Hon'HonN!Hon'Ho K8` @` o` ` o` ` oZHJi|Ir(214Q TERPRI 205Q PRIN1 172Q TERPRI 163Q PRIN1 150Q PRIN1 140Q TERPRI 124Q \APPEND2 121Q \APPEND2 116Q \APPEND2 113Q \APPEND2 3 CH.LIST.PROPERTIES) (211Q PROMPTWINDOW 202Q PROMPTWINDOW 167Q PROMPTWINDOW 160Q PROMPTWINDOW 145Q PROMPTWINDOW 135Q PROMPTWINDOW) ( 220Q (("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")) 177Q "Please choose a service from the menu." 155Q " does not have any registered NSCHAT services." 110Q (("IBM3270 Emulation Service" (IBM3270 NSCHAT.3270.HOST NSCHAT.OPEN.3270) "Connect to an IBM3270 Emulator Port")) 75Q (("RS232 Dialout" (DIALOUT IDENTITY NSCHAT.OPEN.DIALOUT) "Connect to a dialout facility")) 62Q (("Interactive Terminal Service" (3 IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a terminal-based mail reader")) 47Q (("Remote System Executive" (2 IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a remote exec on another workstation")) 34Q (("Remote System Administration" (1 IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a server executive")) 21Q (23420Q 23421Q 23445Q 23426Q 23431Q 23422Q 23424Q 23441Q 23450Q)) 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) (CONSTANTS (\NS.WKS.Courier 5) (GAP.RemoteSystemAdministration 1) ( GAP.RemoteSystemExecutive 2) (GAP.InteractiveTerminalService 3)) (ADDVARS (CHAT.PROTOCOLTYPES (NS . NSCHAT.HOST.FILTER))) (INITVARS (NSCHAT.OPTIONS.MENU)) (GLOBALVARS NSCHAT.OPTIONS.MENU) (RECORDS NSCHAT.SERVICE))) (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))) (RPAQQ \NS.WKS.Courier 5) (RPAQQ GAP.RemoteSystemAdministration 1) (RPAQQ GAP.RemoteSystemExecutive 2) (RPAQQ GAP.InteractiveTerminalService 3) (CONSTANTS (\NS.WKS.Courier 5) (GAP.RemoteSystemAdministration 1) (GAP.RemoteSystemExecutive 2) ( GAP.InteractiveTerminalService 3)) (ADDTOVAR CHAT.PROTOCOLTYPES (NS . NSCHAT.HOST.FILTER)) (RPAQ? NSCHAT.OPTIONS.MENU) (RECORD NSCHAT.SERVICE (ServiceID PhysicalHostFunction OpenFunction)) (PUTPROPS NSCHAT COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL