(FILECREATED " 1-Jul-85 13:28:25" ("compiled on " {ERIS}LIBRARY>TCPFTP.;31) "29-Jun-85 17:27:01" recompiled changes: \TCPFTP.GETFILENAME in "INTERLISP-D 29-Jun-85 ..." dated "29-Jun-85 17:41:32") (FILECREATED " 1-Jul-85 13:27:07" {ERIS}LIBRARY>TCPFTP.;31 36274 changes to: (FNS \TCPFTP.GETFILENAME) previous date: "28-Jun-85 14:36:18" {ERIS}LIBRARY>TCPFTP.;29) ARPACMDA0001A0002 D1 (NAME ERRORSET F 0 CMD F 1 INC F 2 OUTC F 3 FTPDEBUGLOG F 4 FTPDEBUGFLG F 5 WANTARG F 6 WANT F 7 DISCARD F 10Q RESETVARSLST F 11Q ARG F 12Q RESETY) < ggggQogQhhggRogRhhhhhhWc¿P²BT²PS ¿oS ¿WS ¿PR ¿oR ¿WR ¿R ¿R ¿TŸS ¿T˜oS ¿Q c¿TžPS ¿oS ¿PUð§U²PUœQ l-ð²-P °&Q l-ðœQ ¿Q Pð²õPVð¨VŸPdV›¿Q ¿PciPWðªWœPdW—¿Q °…P3 ´PldÛdlð¤dlð–¿P °dlð¤dlð˜¿Qi ¿Q ±ÿQ(467Q DISCARDLINE 462Q ERROR 457Q GETLINE 435Q FTPHELP 403Q DISCARDLINE 351Q DISCARDLINE 324Q \TCPFTP.INPUT 317Q DISCARDLINE 303Q FTPHELP 253Q PRIN1 242Q PRIN1 230Q \TCPFTP.INPUT 223Q PRIN1 210Q TERPRI 201Q FORCEOUTPUT 174Q TELNET.EOL 167Q PRIN3 160Q PRIN3 147Q PRIN3 141Q PRIN1 132Q PRIN1 121Q PRIN1) (55Q CLOSEF 43Q OPENP 40Q AND 25Q CLOSEF 13Q OPENP 10Q AND 5 RESETSTATE 2 COND) ( 247Q " " 217Q "< " 154Q " " 126Q " " 50Q ((QUOTE OUTPUT)) 20Q ((QUOTE INPUT))) ARPACMDA0001 D1 (NAME ERRORSET P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 OUTC P 0 INC F 5 TCPFTPCON F 6 LISPXHIST F 7 RESETVARSLST F 10Q RESETY) :`hi ¿UUV!Wog ‘h‚g\ ¿L“€Kci(60Q ERROR! 52Q RESETRESTORE 40Q ARPACMDA0001A0002 7 OBTAIN.MONITORLOCK) (46Q ERROR 35Q INTERNAL 2 \TCPFTP.ARPACMD.LOCK) ( 32Q (ARPACMDA0001A0002)) ARPACMD D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 WANTARG I 4 DISCARD I 3 WANT I 2 ARG I 1 CMD I 0 TCPFTPCON F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q ARPACMDA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (ARPACMDA0001)) FTPHELP D1 (I 0 ARG) @o (7 ERROR) NIL ( 4 " unrecognized response from remote FTP server") CMDREADCODE D1 (I 0 IN) @ @ @ (16Q PACK* 13Q CMDREAD 7 CMDREAD 3 CMDREAD) NIL () CMDREAD D1 (P 0 CH I 0 IN F 1 FTPDEBUGFLG F 2 FTPDEBUGLOG) @ Q’HR!HNIL NIL () DISCARDLINE D1 (P 0 CH I 0 IN) -`² @ @ Xl ð—` h`H!¿°ë@ l ð²ûh(30Q TERPRI 10Q \BACKFILEPTR) (35Q FTPDEBUGLOG 25Q FTPDEBUGLOG 2 FTPDEBUGFLG) () GETLINE D1 (P 2 CH P 1 STRING P 0 POS I 1 FLG I 0 IN) -klP @ Zl ð³HdlPó¦¿IHJ+¿HkÔ¸°èIkHkÙ (52Q SUBSTRING 5 ALLOCSTRING) NIL () \TCPFTP.INPUT D1 (P 2 CH P 1 GOTCODE P 0 CODE I 0 STREAM) 9j!Jl-ð³.Jjð³)Jl ð³#@ ºI³l0Jó³Jl9ó«Hl ÖJl0ÕÔ¸°Ôi¹°ÐHNIL NIL () TELNET.EOL D1 (I 0 STREAM) @l !@l !@ (13Q FORCEOUTPUT) NIL () \TCPFTP.GET.OSTYPE D1 (P 1 ENTRY P 0 HOST I 0 DEVICE F 2 \HOSTNAMES) $@ÉHR˜Hg µH`d”É(23Q GETHOSTINFO) (37Q HOSTS.TXT.ENTRY 31Q \IP.HOSTNAMES 20Q OSTYPE 3 FDEV) () \TCPFTP.EVENTFN D1 (P 4 DATASTREAM P 3 TCPOUT P 2 TCPIN P 1 TCPFTPCON I 1 FLG I 0 FDEV) YAgð¬Agð¦Agð´@É(AHµhYºI»I¼Jg ”J ¿Kg ”K ¿L ”L ¿HX°Ç(121Q CLOSEF 114Q OPENP 107Q CLOSEF 102Q OPENP 72Q CLOSEF 65Q OPENP) (77Q OUTPUT 62Q INPUT 26Q FDEV 17Q BEFOREMAKESYS 11Q BEFORESYSOUT 3 BEFORELOGOUT) () \TCPFTP.HOSTNAMEP D1 (P 2 FILINGNAME P 1 FULLHOSTNAME P 0 SERVER I 1 DEVICE I 0 HOST) ¬@ µ@ 1H¡h@ Yid µ‚±‰@o ZI`` dI¿dg¿dg¿dg ¿dg¿dg2¿dg¿dg¿dg¿dg¿dg ¿dg¿dh(¿`É*»dK*¿b A`A(240Q \DEFINEDEVICE 66Q NCREATE2 53Q PACK* 35Q \GETDEVICEFROMNAME 27Q MKATOM 24Q U-CASE 11Q \IP.READ.STRING.ADDRESS 3 DODIP.HOSTP) (250Q \TCPFTP.DEVICES 244Q \TCPFTP.DEVICES 223Q FDEV 220Q \TCP.DEVICE 205Q NILL 176Q \TCPFTP.GENERATEFILES 167Q \TCPFTP.DIRECTORYNAMEP 160Q \TCPFTP.GETFILENAME 151Q NILL 142Q \TCPFTP.DELETEFILE 133Q \TCPFTP.GETEOFPTR 124Q NILL 115Q NILL 106Q NILL 77Q \TCPFTP.OPENFILE 63Q \TCP.DEVICE 60Q FDEVTYPE#) ( 50Q " Filing") \GET.TCPFTP.CONNECTIONA0001 D1 (NAME ERRORSET L (0 NIL) F 2 TCPFTPCON F 3 INSTREAM F 4 DEVICE F 5 OUTSTREAM F 6 CONNECTIONS F 7 RESETY) r`hi ¿VHµhcµT ciY¥Iµëi°èHX°ßc²5Rc ².Sg ²%Ug ²S ³S ”S ¿°øRi¿R°´RT ¿°¨(155Q \TCPFTP.DELETE.CONNECTION 130Q READP 122Q EOFP 114Q OPENP 103Q OPENP 32Q \TCPFTP.OPEN.CONNECTION 7 OBTAIN.MONITORLOCK) (111Q OUTPUT 100Q INPUT 2 \TCPFTP.CONNECTION.LOCK) () \GET.TCPFTP.CONNECTION D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 OUTSTREAM P 2 INSTREAM P 1 TCPFTPCON P 0 CONNECTIONS I 0 DEVICE F 7 LISPXHIST F 10Q RESETVARSLST) -@É(1W!Wog ‘h‚g^ N“M(50Q ERROR! 43Q RESETRESTORE 31Q \GET.TCPFTP.CONNECTIONA0001) (37Q ERROR 26Q INTERNAL 3 FDEV) ( 23Q (\GET.TCPFTP.CONNECTIONA0001)) \TCPFTP.OPEN.CONNECTIONA0001 D1 (I 0 STREAM) (2 ZERO) NIL () \TCPFTP.OPEN.CONNECTION D1 (P 3 OUTSTREAM P 2 INSTREAM P 1 TCPFTPCON P 0 HOST I 0 DEVICE) {@É hddihdh¹Hlhgg Jd’ Jd²Cg"J@K@IJIKJ lÜð²@I @I@É((II@ h(167Q \TCPFTP.DELETE.CONNECTION 142Q \TCPFTP.LOGIN 130Q \TCPFTP.INPUT 60Q TCP.OTHER.STREAM 47Q TCP.OPEN 10Q DODIP.HOSTP) (153Q FDEV 146Q FDEV 112Q STREAM 103Q STREAM 75Q \TCPFTP.OPEN.CONNECTIONA0001 72Q STREAM 43Q INPUT 40Q ACTIVE 3 FDEV) () \TCPFTP.ASSURE.CLEANUP D1 NIL #` ™` hðµogg (35Q ADD.PROCESS 14Q PROCESS.FINISHEDP 5 PROCESSP) (40Q \TCPFTP.CLEANUP.PROCESS 32Q NO 27Q RESTARTABLE 11Q \TCPFTP.CLEANUP.PROCESS 2 \TCPFTP.CLEANUP.PROCESS) ( 24Q (\TCPFTP.CLEANUP)) \TCPFTP.CLEANUPA0001A0002 D1 (NAME ERRORSET F 0 CONNECTION F 1 CONNECTIONSP F 2 DEVICE) VPd³6 ²+P ¿P ¿P—P ¿QmÿÔc¿PRi °Pg ¬QmÿÔc¿PR €hh(117Q \TCPFTP.DELETE.CONNECTION 102Q OPENP 70Q \TCPFTP.DELETE.CONNECTION 52Q CLOSEF? 35Q CLOSEF? 26Q CLOSEF? 17Q TIMEREXPIRED?) (77Q INPUT) () \TCPFTP.CLEANUPA0001 D1 (NAME ERRORSET F 0 RESETY) `hi ¿o ci(17Q \TCPFTP.CLEANUPA0001A0002 7 OBTAIN.MONITORLOCK) (2 \TCPFTP.CONNECTION.LOCK) ( 14Q (\TCPFTP.CLEANUPA0001A0002)) \TCPFTP.CLEANUP D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 CONNECTION P 2 DEVICE P 1 CONNECTIONSP P 0 INTERVAL F 7 LISPXHIST F 10Q RESETVARSLST) y`l×j¹`°DdJÉ(°1d»IkÔ¹W!Wog ‘h‚g^ ¿N“¿¿µÐhµ½Idjð­”I ¤H ¿IjðªI²›I ²•h(163Q \FZEROP 145Q BLOCK 140Q \FZEROP 111Q BLOCK 104Q ERROR! 76Q RESETRESTORE 64Q \TCPFTP.CLEANUPA0001) (72Q ERROR 61Q INTERNAL 30Q FDEV 15Q \TCPFTP.DEVICES 2 \TCPFTP.IDLE.TIMEOUT) ( 56Q (\TCPFTP.CLEANUPA0001)) \TCPFTP.RELEASE.CONNECTION D1 (I 0 TCPFTPCON) @h@h@l `ö(35Q \TCPFTP.ASSURE.CLEANUP 25Q \CLOCK0) (30Q \TCPFTP.IDLE.TIMEOUT) () \TCPFTP.LOGIN D1 (P 1 INFO P 0 HOST I 1 TCPFTPCON I 0 DEVICE) ¿ @ÉX¿I jð§I jð•H °ëH Y¿AoIo dlæð¤dlÊð‘idnKð².¿AoI o dlæð³ádnKð¦dnð²M¿H °˜dnLð²$¿AooH dlæð³¬nL𳎰dn÷ð³„dnôð¥dnð—¿H ±ÿU¿h(273Q FTPHELP 264Q LOGIN 216Q ARPACMD 213Q PROMPTFORWORD 210Q CONCAT 161Q LOGIN 131Q ARPACMD 122Q \DECRYPT.PWD 64Q ARPACMD 44Q \INTERNAL/GETPASSWORD 36Q LOGIN 27Q NCHARS 17Q NCHARS) (6 FDEV) ( 204Q "Account for logging into " 200Q "ACCT" 126Q (346Q 513Q 1022Q) 115Q "PASS" 61Q (312Q 346Q 513Q 514Q 764Q 767Q 1022Q) 53Q "USER") \TCPFTP.DELETEFILEA0001 D1 (NAME ERRORSET F 0 TCPFTPCON F 1 NAME F 2 OSTYPE) PoghgQ R o h(32Q ARPACMD 23Q REPACKFILENAME.STRING 17Q PACKFILENAME.STRING) (13Q BODY 7 HOST) ( 27Q (310Q 342Q 372Q) 4 "DELE") \TCPFTP.DELETEFILE D1 (P 2 CODE P 1 OSTYPE P 0 TCPFTPCON I 1 DEVICE I 0 NAME) 0A A o H JlúðªJlâð¥JlÈð´@(34Q \TCPFTP.RELEASE.CONNECTION 24Q \TCPFTP.DELETEFILEA0001 12Q \TCPFTP.GET.OSTYPE 3 \GET.TCPFTP.CONNECTION) NIL ( 21Q (\TCPFTP.DELETEFILEA0001)) \TCPFTP.DIRECTORYNAMEPA0001A0002 D1 (I 0 TCPFTPCON F 0 RESETSTATE) +@ P´$@ •@ ¿@h@ –@ ¿@h(42Q CLOSEF 33Q OPENP 21Q CLOSEF 13Q OPENP 3 \TCPFTP.RELEASE.CONNECTION) NIL () \TCPFTP.DIRECTORYNAMEPA0001 D1 (NAME ERRORSET F 0 TCPFTPCON F 1 RESETVARSLST F 2 RESETY F 3 DEVICE F 4 HOST/DIR) !gPhhhQc¿SPTg ci(33Q \TCPFTP.CONNECT 30Q FILENAMEFIELD) (25Q DIRECTORY 2 \TCPFTP.DIRECTORYNAMEPA0001A0002) () \TCPFTP.DIRECTORYNAMEP D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 TCPFTPCON I 1 DEVICE I 0 HOST/DIR F 4 LISPXHIST F 5 RESETVARSLST) )A T!Uog ‘h‚g[ K“J(44Q ERROR! 37Q RESETRESTORE 25Q \TCPFTP.DIRECTORYNAMEPA0001 3 \GET.TCPFTP.CONNECTION) (33Q ERROR 22Q INTERNAL) ( 17Q (\TCPFTP.DIRECTORYNAMEPA0001)) \TCPFTP.ENDOFSTREAMOP D1 (I 1 SILENTLY I 0 STREAM) @ Aµ@ (12Q \EOSERROR 3 \TCPFTP.TRANSFER.COMPLETE) NIL () \TCPFTP.GENERATEFILESA0001 D1 (NAME ERRORSET F 0 PATTERN F 1 OSTYPE F 2 TCPFTPCON) œRoQgð²zPg gð²