(FILECREATED "12-Jan-85 01:44:45" ("compiled on " {ERIS}LIBRARY>RS232FTP.;7) " 6-Jan-85 05:11:10" recompiled changes: \RS232FTPINITIALIZE RS232GETFILE \RS232FTPGETPKT RS232PUTFILE in "INTERLISP-D 11-Jan-85 ..." dated "11-Jan-85 21:24:08") (FILECREATED "12-Jan-85 01:43:54" {ERIS}LIBRARY>RS232FTP.;7 49621 changes to: (FNS \RS232FTPINITIALIZE RS232GETFILE \RS232FTPGETPKT RS232PUTFILE) previous date: " 8-Jan-85 01:53:24" {ERIS}LIBRARY>RS232FTP.;6) \RS232FTPINITIALIZEA0004 D1 (NAME ERRORSET F 0 FILENAME.or.STREAM) Plðhð´ Pg h(17Q GETFILEINFO) (14Q TYPE) () \RS232FTPINITIALIZEA0005 D1 (L (0 L)) `@Ío+@HIÍINIL (2 \EM.DISPINTERRUPT) () \RS232FTPINITIALIZE D1 (L (0 OPERATION) F 5 RS232FTPTRACEFILE F 6 RESETVARSLST F 7 FILENAME.or.STREAM F 10Q PROTOCOL F 11Q FILETYPE F 12Q STRM F 13Q FILELEN F 14Q DOLPHINP F 15Q TWOPKTTIMES.secs F 16Q EXPECTED.PKTLEN F 17Q MODEM? F 20Q EOLProcessing F 21Q HIGHSPEEDDOLPHINP F 22Q REMOTE.COMMAND.STR F 23Q MODEMTEXT? F 24Q TWOPKTTIMES.tics F 25Q WindowTitleDisplayStream) É`¦g ¿Wd²%dlð²g ˜W c°tWg hð°h`ð²bWÊRlåHjðµH´H ²7WÊRlåHjðµH´H ³$WÉÉ4WkH›WÊlðoW c±ÿho Wµ Hµ;g°6dgð¦dgð²¿Hdo ²1¿g°gð²$Hdo ²¿gcŸWdgð²¿g°1H”oƒoW c°dgð˜¿ic ¿g‹gð˜o µoW c°·c¿ohhVcWdlð²=¿oW@dgð”¿g‹gð“g‚hlgWhh chVc¿‚c¿`™``Èñ™` ¿gðcWgðcd´Wgðc&``lÚÚc(d`kÙØ`Ûc`lÚ`l Ú`Wdgð¥dgð“¿lˆgð’l€jýñ™oW ¿`c@gðšWg c¿`¢±½U ¿@U ¿oU ¿W U ¿@gð”oƒoU ¿W U ¿oU ¿WU ¿U ¿oU ¿WU ¿oU ¿WU ¿oU ¿U ¿@gð²6oU ¿WU ¿oU ¿WlØl€ÛU ¿oU ¿U ¿ldjñ—¿kÙ°ögd gnÿÿ ¿Vco W¢±²``ñ¢±¦g`Èo+Èhc"hhhVc¿` ³ohji¿hW* ` ¿` ÉgH hhVc¿UµFohhVc¿` ¿h` ¹HlÛ` ¿o` ¿jI`o°( ²¶gd g` ¿Vc¿°d-¿µú@dgð²*¿oHd³goonÿÿi¿H°9gð²(oHd³goonÿÿi¿HŠ†d ¿µøW$d²H AHÈkÙºHÉ»JHÈØ¹HÊCjðhð\¿JkØZIñ³L•KJÐÈ‚KJÂi ¿l2 °âl i (2306Q RS232WRITEBYTE 2275Q \RS232CHECK.BLOCK 2267Q RS232WRITEBYTE 2203Q MKSTRING 2166Q \FRESHENUPFN 2160Q SHOULDNT 2144Q \ONPATHS.CCODE 2067Q \ONPATHS.CCODE 2001Q SETTOPVAL 1767Q GETTOPVAL 1756Q DISPLAYSTREAMP 1753Q GETSTREAM 1741Q MOVETO 1730Q PRIN3 1715Q DSPXPOSITION 1677Q DSPYPOSITION 1667Q DSPRESET 1627Q SETDISPLAYHEIGHT 1607Q \INSUREWINDOW 1600Q DSPFONT 1572Q DSPFONT 1560Q CREATEW 1544Q WINDOWP 1455Q RS232MODEMCONTROL 1441Q SETTOPVAL 1427Q GETTOPVAL 1413Q BLOCK 1401Q TERPRI 1374Q PRIN1 1363Q PRIN1 1346Q PRIN1 1335Q PRIN1 1326Q PRIN1 1306Q TERPRI 1301Q PRIN1 1270Q PRIN1 1261Q PRIN1 1250Q PRIN1 1241Q PRIN1 1230Q TERPRI 1223Q PRIN1 1214Q PRIN1 1203Q PRIN1 1177Q FULLNAME 1171Q PRIN1 1145Q PRIN1 1141Q L-CASE 1133Q PRIN1 1122Q PRIN1 1114Q TERPRI 1076Q GETFILEINFO 1052Q ERROR 700Q \RS232.CHECKUART 667Q MACHINETYPE 660Q ALLOCSTRING 614Q OPENSTREAM 573Q SHOULDNT 500Q ERROR 465Q HELP 426Q ERROR 355Q MEMB 326Q MEMB 257Q \RS232FTPINITIALIZEA0004 243Q ERROR 165Q \FZEROP 126Q \FZEROP 57Q OPENP 43Q GETSTREAM 35Q OPENP 12Q ERROR) (2126Q \RS232INSURE.LINEBUFFER 2104Q PUT 2051Q \RS232INSURE.LINEBUFFER 2026Q GET 1776Q \RS232FTP.FASTMSGW 1773Q RS232FTPTRACEFILE 1763Q RS232FTPTRACEFILE 1736Q \RS232FTP.FASTMSGW 1725Q \RS232FTP.FASTMSGW 1712Q \RS232FTP.FASTMSGW 1674Q \RS232FTP.FASTMSGW 1664Q \RS232FTP.FASTMSGW 1617Q SETDISPLAYHEIGHT 1604Q \RS232FTP.FASTMSGW 1575Q \RS232FTP.FASTMSGW 1563Q \RS232FTP.FASTMSGW 1541Q \RS232FTP.FASTMSGW 1505Q \EM.DISPINTERRUPT 1502Q \RS232FTPINITIALIZEA0005 1472Q \RS232FTPSLOW.BaudRate 1466Q RS232INIT 1433Q RECLAIMWAIT 1423Q RECLAIMWAIT 1313Q PUT 1152Q GET 1104Q RS232FTPTRACEFLG 1073Q LENGTH 1064Q PUT 1056Q \RFTPpkt.datalength 1030Q KERMIT 1017Q DMODEM 1011Q MODEM 1001Q RS232INIT 776Q \RFTPpkttimeout.tics 770Q \RCLKSECOND 765Q \RFTPchartimeout.tics 757Q \RCLKSECOND 751Q \RCLKSECOND 743Q \RCLKSECOND 731Q \RFTPpkt.datalength 726Q \RS232.ByteIntervalCap.tics 720Q TEXT 705Q MODEM 672Q DOLPHIN 663Q \RS232PKTBUFFER 655Q \RS232PKTBUFFER.SIZE 646Q \RS232PKTBUFFER 643Q \RS232PKTBUFFER.SIZE 635Q \RS232PKTBUFFER 601Q TYPE 567Q INPUT 562Q PUT 556Q OUTPUT 550Q GET 454Q KERMIT 450Q MODEM 436Q DMODEM 404Q MODEM 375Q MODEM 363Q BINARY 341Q BINARY 334Q TEXT 311Q ASCII 303Q TEXT 275Q TEXT 223Q STREAM 202Q FDEV 175Q STREAM 136Q STREAM 77Q STREAM 67Q STREAMTYPE# 54Q INPUT 32Q OUTPUT 7 RS232NotInitialized 2 RS232INIT) ( 2136Q (\RS232INSURE.LINEBUFFER MACHINETYPE \RS232FTPINITIALIZE \RS232FTP.CANCEL RS232LOGIN RS232.PROMPTFORLOGIN BLOCK \GETBASESTRING CLOSEF? CLOSEF \GETOFD GETFILEINFO APPLY ERROR ERROR! \LISPERROR ERRORX RAID HELP SHOULDNT RESETRESTORE \PRINDATUM \DAYTIME0 \ILLEGAL.ARG \PAGEDBOUTS \PAGEDBINS \BACKGROUND \STOP.DRIBBLE? \MAPCHARS NCHARS ALLOCSTRING MKSTRING TERPRI PRIN1 \CanonicalizeTimerUnits RS232CLEARBUFFER NOTIFY.EVENT) 2132Q (RS232PUTFILE) 2113Q (NIL) 2061Q (\RS232INSURE.LINEBUFFER MACHINETYPE \RS232FTPINITIALIZE \RS232FTP.CANCEL RS232LOGIN RS232.PROMPTFORLOGIN BLOCK \GETBASESTRING CLOSEF? CLOSEF \GETOFD GETFILEINFO APPLY ERROR ERROR! \LISPERROR ERRORX RAID HELP SHOULDNT RESETRESTORE \PRINDATUM \DAYTIME0 \ILLEGAL.ARG \PAGEDBOUTS \PAGEDBINS \BACKGROUND \STOP.DRIBBLE? \MAPCHARS NCHARS ALLOCSTRING MKSTRING TERPRI PRIN1 \CanonicalizeTimerUnits RS232CLEARBUFFER NOTIFY.EVENT) 2055Q (RS232GETFILE) 2036Q (NIL) 1746Q (\RFTPpkt.datalength \RFTPsyspkt.datalength \RS232PKTBUFFER.SIZE \RS232PKTBUFFER \RS232PKTSTRPTR \RFTPchartimeout.tics \RFTPpkttimeout.tics \RS232.FTP.BOX \RS232FTPSLOW.BaudRate \RS232FTP.FASTMSGW \RS232FTP.FILENAME RS232FTPTRACEFLG RS232FTPTRACEFILE \TIMEREXPIRED.BOX \RS232IRBLO \RS232IRBHI \RS232.TIMEOUT.BOX \RS232.MAX#BYTESPERLOOP \RS232.THRE.BOX \RS232.ERROR.MASK) 1722Q "Trimming Display to achieve high speed for Dolphin" 1650Q (PROGN (CLOSEW \RS232FTP.FASTMSGW)) 1552Q (12Q 1404Q 1754Q 44Q) 1452Q (DTR RTS) 1370Q " sectors) " 1342Q " bytes, " 1322Q " (File length = " 1275Q " seconds." 1255Q ", 2 PKT times = " 1235Q " Expected PKT length = " 1210Q ", PROTOCOL = " 1165Q ") from " 1160Q ") to " 1127Q " (" 1045Q "Wrong # bits per serial char for this protocol." 541Q (PROGN (CLOSEF? OLDVALUE)) 513Q (AND RESETSTATE (\RS232FTPCANCEL)) 473Q "Unrecognized protocol" 462Q "Kermit protocol not yet implemented!" 421Q "Unrecognized file type" 414Q "Already-open stream has different file type" 352Q (NIL BINARY) 323Q (NIL TEXT) 254Q (\RS232FTPINITIALIZEA0004) 236Q "Bad File (or Stream) specification.") RS232GETFILEA0001 D1 (NAME ERRORSET L (0 NIL) P 26Q HIGHSPEEDDOLPHINP P 25Q TWOPKTTIMES.secs P 24Q TWOPKTTIMES.tics P 16Q LastWasCR P 15Q EOLProcessing P 14Q EXPECTED.PKTLEN P 13Q STRM P 12Q KERMIT? P 11Q MODEMTEXT? P 10Q MODEM? P 7 DOLPHINP P 4 LASTPKTP P 1 FILELEN F 36Q RS232FTPTRACEFILE F 37Q RESETVARSLST F 40Q FILENAME.or.STREAM F 41Q RESETY) àgh hhW>c>¿ijkmÿô°g ¿k_¿l_0¿h_¼KkÔ[l ñ–o±±O,´`O,Í¿o+O,Í¿l ¿`²UN²R`gð”g°?W< ¿oW< ¿JW< ¿oW< ¿KW< ¿K W< ¿oW< ¿NW< ¿Kjñ’O(‚`i ¿k_4l ó’±‘O,ž`jÍ¿o+jÍ¿O0i ¿`lð“`‚lw`ö_2¿O2g ’±³`™`²!°`›`Èn€xåjð„n€tñ£¿``ð³``dkØ`å¿Â€h_"µ°«kðšL´=o¾±þÄO²™O"dlð²¿L’±+O’±%o¾±þ¤lð¢±ÿwO—o¾±þ’i½`g _$ž`g _&’±¼o¾±þmO,´`O,Í¿o+O,Í¿l ¿`dgð•¿g°g²kW< ¿O²O0dlð–¿o°lð”o‰O0 ƒoW< ¿oW< ¿JW< ¿oW< ¿O4W< ¿O4 W< ¿oW< ¿O4kÔ±þlkJñ¦o±‰o±‚O$dO&mÿælÿåð³#¿`¢±ý¦`gðµoO$O&h¾±ýJñ²%o¾`¢±ý}`gð’±ýrNO$Jh¾±ýfJO$ñš`O( ±ÂM”`°O—o ‰H•O¢lOOOOOO _.³O.˜gO. ƒo¾±ý`O( —o¾±ýL²EO²AO.ÉLÂlð³&`d²gðµoLoO.ÉLÂh¾±üÊLjð³=Lµ3O.LÍ¿O,²`O,Í¿o+O,Í¿`dgð¢±€¿g±§ ²ÌOšO—Ol ¿`µBli ¿O,²`O,Í¿o+O,Í¿W@lð•O ¿`O( ¿¿IcBigð³¼W< ¿oW< ¿W< ¿°¤²4W< ¿oW< ¿M”oƒoW< ¿oW< ¿JW< ¿OªM˜o °BJkØlÿåºO.È_ ¿`µiOO.É_:¿_8ÉÉ8_6¿O8O:jO lO6¿IO Ô¹¿j»`µ`O( ¿h¸l_0±ügð³êW< ¿oW< ¿O$W< ¿°Ðgð³•oi ¿°Š(2333Q PRIN1 2312Q PRIN1 2302Q PRIN1 2270Q TERPRI 2243Q \RS232FTPPKTFLUSH 2223Q BLOCK 2121Q SHOULDNT 2104Q PRIN1 2075Q PRIN1 2063Q PRIN1 2042Q PRIN1 2030Q TERPRI 2016Q TERPRI 2010Q PRIN1 1776Q TERPRI 1753Q BLOCK 1747Q \RS232FTPPKTFLUSH 1736Q CLOSEF 1671Q RS232WRITEBYTE 1655Q BOUT 1636Q \FZEROP 1441Q \RS232FTPPKTFLUSH 1420Q APPLY 1376Q \RS232FTPGETPKT 1345Q HELP 1321Q \RS232FTPPKTFLUSH 1124Q PRIN1 1112Q PRIN1 1105Q ORDINALSUFFIXSTRING 1077Q PRIN1 1067Q PRIN1 1055Q PRIN1 1046Q PRIN1 1034Q PRIN1 1022Q SHOULDNT 761Q TERPRI 732Q \RS232CHECK.BLOCK 657Q RS232READBYTE 643Q RS232READBYTE 464Q \RS232.PROCESSINTERRUPT 431Q \RS232C.PROCESSINTERRUPT 411Q TIMEREXPIRED? 346Q RS232WRITEBYTE 303Q \RS232FTPPKTFLUSH 264Q PRIN1 255Q PRIN1 243Q PRIN1 236Q ORDINALSUFFIXSTRING 231Q PRIN1 222Q PRIN1 210Q PRIN1 201Q PRIN1 167Q TERPRI 134Q \RS232CHECK.BLOCK 42Q \RS232FTPINITIALIZE 6 RS232XON\XOFF?) (2320Q PEEK 2260Q PEEK 2236Q \RS232.Tovh&BIC4.tics 2231Q RS232FTPTRACEFLG 2171Q FDEV 2164Q STREAM 2144Q RS232FTPTRACEFLG 1766Q PEEK 1742Q \RS232.Tovh&BIC16.tics 1701Q \EM.DISPINTERRUPT 1661Q RS232FTPTRACEFLG 1630Q + 1617Q PEEK 1613Q RS232FTPTRACEFLG 1567Q \EM.DISPINTERRUPT 1505Q PEEK 1477Q RS232FTPTRACEFLG 1434Q \RS232.Tovh&BIC16.tics 1413Q CONCAT 1331Q \RFTPsyspkt.datalength 1314Q \RS232.Tovh&BIC4.tics 1263Q PEEK 1260Q RS232FTPTRACEFLG 1251Q RS232FTPTRACEFLG 1212Q PEEK 1207Q RS232FTPTRACEFLG 1200Q RS232FTPTRACEFLG 750Q %. 742Q PEEK 736Q RS232FTPTRACEFLG 704Q \EM.DISPINTERRUPT 654Q TICKS 651Q \RFTPchartimeout.tics 640Q TICKS 635Q \RFTPchartimeout.tics 516Q \RS232IRING.READ 512Q \RS232IRING.SIZE 504Q \RS232IRING.READ 501Q \RS232IRINGBUF 473Q \RS232IRING.WRITE 470Q \RS232IRING.READ 442Q \DLionTTYInLoc 436Q \RS232DLion? 424Q \RS232BACKGROUNDERRORSTATUS 420Q \RS232DLionRS232C? 406Q TICKS 375Q \RFTPpkttimeout.tics 371Q FIXP 362Q \RS232.FTP.BOX 352Q \RS232.FTP.BOX 324Q \EM.DISPINTERRUPT 277Q \RS232.Tovh&BIC16.tics 160Q - 153Q PEEK 150Q RS232FTPTRACEFLG 140Q RS232FTPTRACEFLG 106Q \EM.DISPINTERRUPT 37Q GET 2 RS232XON\XOFF?) ( 2327Q "; and writing it to file." 2275Q "ACKing block number " 2116Q "System packets not yet implemented" 2070Q " PKT with block number " 2056Q "" 2051Q " System" 2035Q "Received" 2003Q "EOT received -- final ACK being sent." 1521Q ", but charcode there is " 1514Q "LASTPKTP = " 1446Q "Extra bytes coming in after PKT is complete" 1425Q "Tried, but failed to get a packet" 1342Q "Not yet implemented" 1245Q "BLK# out of order" 1221Q "BLK# complement loses" 1153Q "Timed out waiting for next packet." 1144Q "Can't establish protocol with remote host." 1117Q " time." 1062Q ", for the " 1041Q "ing to begin block number " 1027Q "Try" 1014Q "Re-NAK" 1002Q "Re-ACK" 671Q "Timed out on packet BLK# bytes" 624Q "SOH expected, but CANcel received" 602Q "EOT received before expected" 542Q "EOT expected, but SOH received" 250Q " time, because: " 215Q " for the " 174Q "NAKing on block number " 74Q "Packet receipt failed after 10 tries.") RS232GETFILE D1 (P 1 RESETY P 0 LISPXHIST I 3 REMOTE.COMMAND.STR I 2 PROTOCOL I 1 FILETYPE I 0 FILENAME.or.STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q RS232GETFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (RS232GETFILEA0001)) \RS232FTPGETPKT D1 (L (5 ILASTWASCR 1 #CHKSMBYTES 0 #BYTES) I 4 EOLProcessing I 3 MODEMTEXT? I 2 MODEM? F 20Q LASTPKTP F 21Q DOLPHINP F 22Q LastWasCR) ÐjD´db`™`²!°`›`Èn€xåjð„n€tñ£¿``É@d¡µ `È`ÈØ OO¿OjÍ¿OOÍ`ºW"¢±``ýñ`™`²!°`›`Èn€xåjð„n€tñ£¿¢±ç@hi`gJ Z¤o@JÈ[ð¢±âW"²*`™`²!°`›`Èn€xåjð„n€tñ£¿A ]¢±JjdSOÈkÙ_¿OÉ_¿OOÈØ_¿OÊCjðhð_¿OkØ_Oñ³RO—OOÐÈ„OOÂ_¿OC²+W ¬Olð–Oc ¿°I²E«Odl ð–¿IkÔ¹Ol ðb ¿OÔ_¿OkÔ_¿°§OX±»j»@kÙj_¿¾ONó³o`g \³$`d¢±$gðµ‚±oKo@hKkÔ»C²&W ©Llð”Oc ¿I²EšLdl ð•¿IkÔ¹Ll ðb ¿JÉOLÇ¿HLÔ¸OkÔ_°‘W"²*`™`²!°`›`Èn€xåjð„n€tñ£¿A ]¢±ÿmJKÍ¿Hlÿå¼MLÙjð²iIµJjð³üKkÙIÙjW$jOOó³?JÉOÂ¼O²Ll ðJOkÔ_¿ÉOÂ¼JÉOLÇ¿Ll ð_¿OkÔ_¿OkÔ_¿°¾JKIÙÍ¿Ec$¿°ž`d²gðµoMoLh(1065Q \RS232FTPGETCHKSM 1060Q \RS232.PROCESSINTERRUPT 1025Q \RS232C.PROCESSINTERRUPT 641Q RS232READBYTE 365Q \RS232FTPGETCHKSM 360Q \RS232.PROCESSINTERRUPT 325Q \RS232C.PROCESSINTERRUPT 262Q RS232READSTRING 237Q \RS232.PROCESSINTERRUPT 204Q \RS232C.PROCESSINTERRUPT 56Q \RS232.PROCESSINTERRUPT 23Q \RS232C.PROCESSINTERRUPT) (1273Q PEEK 1265Q RS232FTPTRACEFLG 1036Q \DLionTTYInLoc 1032Q \RS232DLion? 1020Q \RS232BACKGROUNDERRORSTATUS 1014Q \RS232DLionRS232C? 657Q PEEK 647Q RS232FTPTRACEFLG 636Q TICKS 633Q \RFTPchartimeout.tics 336Q \DLionTTYInLoc 332Q \RS232DLion? 320Q \RS232BACKGROUNDERRORSTATUS 314Q \RS232DLionRS232C? 255Q TICKS 252Q \RFTPchartimeout.tics 215Q \DLionTTYInLoc 211Q \RS232DLion? 177Q \RS232BACKGROUNDERRORSTATUS 173Q \RS232DLionRS232C? 165Q RS232INIT 162Q \RS232FTPSLOW.BaudRate 150Q \RS232PKTSTRPTR 123Q STRINGP 110Q \RS232PKTBUFFER 103Q \RS232PKTBUFFER 65Q \RS232PKTBUFFER 62Q \RS232PKTSTRPTR 34Q \DLionTTYInLoc 30Q \RS232DLion? 16Q \RS232BACKGROUNDERRORSTATUS 12Q \RS232DLionRS232C?) ( 1307Q ", I computed " 1302Q "Check sum error. PKT contained " 677Q ", Expected length was " 672Q "Short packet; length = " 272Q ("Timeout during receipt of PKT")) \RS232FTPGETCHKSM D1 (L (0 #CHKSMBYTES)) ]@dkðš¿`g lð™`g @lð²6 `g X´&`g Y´HãààààHlÿåäáIãààààIlÿåäØ(132Q SHOULDNT 73Q RS232READWORD 57Q RS232READWORD 34Q RS232READWORD 16Q RS232READBYTE) (70Q TICS 65Q \RFTPchartimeout.tics 54Q TICS 51Q \RFTPchartimeout.tics 31Q TICS 26Q \RFTPchartimeout.tics 13Q TICS 10Q \RFTPchartimeout.tics) () RS232PUTFILEA0001 D1 (NAME ERRORSET L (0 NIL) P 21Q EOLProcessing P 14Q EXPECTED.PKTLEN P 13Q FILELEN P 12Q STRM P 11Q MODEMTEXT? P 10Q MODEM? P 7 7BITBINARY? P 6 DOLPHINP P 5 TWOPKTTIMES.secs P 4 TWOPKTTIMES.tics F 47Q RS232FTPTRACEFILE F 50Q RESETVARSLST F 51Q LastWasCR F 52Q FILENAME.or.STREAM F 53Q XON\XOFF? F 54Q RESETY) ù'gd gWV ¿WPcP¿kimÿ`l ÚôÐg ¿k_(l ó’±µ`lð“`‚lwKö_&¿O&g ³V`™`²!°`›`Èn€xåjð„n€tñ£¿``ð³``dkØ`å¿Â€h_lð²¬O’±Ai€h’±:`µ O(kÔ±ÿsgðšgWN ¿°ëWN ¿oWN ¿O(l ÚWN ¿oWN ¿°Ä`²PkJñ³K`gð”g°8WN ¿oWN ¿HWN ¿oWN ¿JWN ¿J WN ¿oWN ¿`L ¿Jjð³LJµBki ¿Hmÿælÿå_¿H ¿O ¿¿`’±z`ikO¿O¢±ÊO i ±Ç ²½j_$¿I¢±•O’±l_¿Olå_¿`ÉlO_ Ç¿Oâââââââ_¿`ÉkOlåÇ¿O OlåÔ_ ¿Oâââââââlå_¿`ÉjOÇ¿O OÔ_ ¿`¢±©`gð’±žWN ¿oWN ¿OWN ¿±ƒO"’±`dOñ’¿O_¿O`É_.¿_,ÉÉ6_*¿O,O.jOlO*¿`OÍ¿`jR&O@ÈkÙ_H¿O@É_J¿OHO@ÈØ_F¿O@ÊCjðhð_L¿OHkØ_HOFñ³OL—OJOHÐÈ„OJOHÂ_D¿OBODÔ_B¿°ÚOB_ ¿±‡j_ _¿O`kÙjk#OFO@ó³lODOBó³eO _¿O"²2WR²&Odl ð² ¿OOFkÔ_Fýñ³BO _¿O$kÔ_$¿h„Ol ðcR¿`ÉODOÇ¿O OÔ_ ¿OkÔ_¿ODkÔ_D¿OFkÔ_F°“O²UO`ð³M``Í¿`kÙOO²O `OÙlÚÔ_ ¿l€j"OBO@ó³`ÉOBODÇ¿OBkÔ_B°ê`_¿`µ`OÍ¿O²'O lÿ°&gð³êWN ¿oWN ¿HWN ¿°ÑO nÿÿå_ ¿±ýfOkÙj_4¿_2¿O4O2ó’±ýƒ`²4`²/`lð“`‚lwLö_0¿O0g ’±³¿`³í`ÉO4Âid¿O4kÔ_4°®g ¿`lð“`‚lw`ö_6¿O6g ³X`™`²!°`›`Èn€xåjð„n€tñ£¿``ð³``dkØ`å¿Â€h_²¯Olð¦Olð²¢¿Olð³l`µJkÔZl ñ¢±üo±Ögð³êO–Olð²WN ¿Olð”oƒoWN ¿°ÁWN ¿oWN ¿OWN ¿oWN ¿°`µOOO$ØÙ_jñ²0HkØlÿå¸jZ±ûçgðšgWN ¿°ØWN ¿oWN ¿°ÆWTlð•O ¿`µQlw`ö_>¿k_<¿O>g ²M`µ`L ¿WThcXigð³êWN ¿Olð¢±ôo±ñgð³WN ¿oWN ¿°›Oi ¿V XµgŽlðžo ¿g ¿HlBð¦Hdlbð¿g¹o °¿lAð³Hlað«HlTð¦Hdltð¿g¹o °œlSð³Hlsð¬HlPð§Hdlpð²¿gºHo•o°3o°-lRð³Hlrð¬HlGð§Hdlgð²T¿gºHo”oƒo ¿oVW[²KÈjð³o [d˜lð’±þ¹Kgð²g ±ÿ ¿o ±þùKgð²o ¿g ±þáo ±þ×gð´+K ]©Ko °¿o ¿Mi ¿KIAh(1134Q RS232PUTFILE 1125Q RS232WRITESTRING 1117Q RS232WRITESTRING 1107Q \RS232EXECSERVER.TERPRI 1102Q ERROR 1070Q INFILEP 1053Q RS232WRITESTRING 1041Q ERROR 1032Q RS232WRITESTRING 1011Q RS232WRITESTRING 1001Q RS232WRITEBYTE 773Q ERROR 742Q \RS232FTP.COMMANDA0001 717Q RS232READ&ECHO.LINE 704Q RS232WRITESTRING 546Q RS232WRITESTRING 503Q RS232WRITESTRING 453Q ERROR 444Q RS232WRITESTRING 422Q RS232READBYTE 415Q RS232WRITEBYTE 406Q \RS232EXECSERVER.TERPRI 374Q CLOSEF 365Q RS232GETFILE 357Q \RS232EXECSERVER.TERPRI 354Q RS232WRITESTRING 347Q RS232WRITESTRING 340Q \RS232EXECSERVER.TERPRI 334Q ERROR 322Q \RS232FTP.COMMANDA0002 277Q ERROR 267Q FILENAMEFIELD 257Q FILENAMEFIELD 243Q MKATOM 236Q SUBSTRING 225Q MEMB 46Q ERROR) (1061Q PUT 1036Q NOERROR 1020Q ABORT 770Q Time% out 762Q TIMEREXPIRED? 660Q GET 602Q PUT 536Q TEXT 473Q BINARY 450Q NOERROR 430Q Time% out 401Q TEXT 305Q GET 264Q DIRECTORY 254Q HOST 165Q GET 144Q PUT 123Q TEXT 67Q BINARY) ( 1114Q "Ready to send file " 1077Q "File doesn't exist!" 1050Q " ?" 1027Q " XXX " 1006Q " ?" 737Q (DUMMY.FOR.ERRORSET) 711Q " File = " 701Q "Get" 674Q "Receive" 666Q (122Q 162Q) 624Q "Put" 616Q "Send" 610Q (123Q 163Q) 543Q "Text Mode" 500Q "Binary Mode" 441Q " XXX " 344Q "Ready to receive into file " 331Q "Can't open output file" 317Q (DUMMY.FOR.ERRORSET) 274Q "Can only FTP from connected directory -- try CONN command " 222Q (40Q 11Q) 43Q "Arguments not complete") (PRETTYCOMPRINT RS232FTPCOMS) (RPAQQ RS232FTPCOMS ((FILES (SYSLOAD) RS232) (DECLARE: EVAL@COMPILE DONTCOPY (P (OR (GETMACROPROP ( QUOTE RS232INITIALIZECHECK) COMPILERMACROPROPS) (LOADFROM (QUOTE RS232))))) (LOCALVARS . T) (* MODEM ftp protocols) (DECLARE: DONTCOPY (* Random macros which distinguish between I-10 and I-D (and I-VAX ? )) (MACROS STRINGNCHARS SETSTRINGLENGTH RPLCHARCODE STRINGSUBSTRING \FILLINSTRPTR) (MACROS MAKEPKT PKTP PKTBYTE SETPKTBYTE PKTLENGTH SETPKTLENGTH PKTROOM) (CONSTANTS (RS232FTPsoh (CHARCODE ^A)) ( MODEMeot (CHARCODE ^D)) (MODEMack (CHARCODE ^F)) (MODEMnak (CHARCODE ^U)) (MODEMcan (CHARCODE ^X))) (* Other random MACROS) (MACROS BYTEFROM2NIBBLES TRIMTOBITS) (MACROS GAGALLINTERRUPTS UNGAGINTERRUPTS)) (INITVARS (\RFTPpkt.datalength 128) (\RFTPsyspkt.datalength 8) (\RS232PKTBUFFER.SIZE (IPLUS 10 (ITIMES 2 \RFTPpkt.datalength))) (\RS232PKTBUFFER NIL) (\RS232PKTSTRPTR (ALLOCSTRING 0)) ( \RFTPchartimeout.tics (ITIMES 3 \RCLKSECOND)) (\RFTPpkttimeout.tics (ITIMES 10 \RCLKSECOND)) ( \RS232.FTP.BOX (SETUPTIMER 0)) (\RS232FTPSLOW.BaudRate 1200) (\RS232FTP.FASTMSGW NIL) ( \RS232FTP.FILENAME NIL) (RS232FTPTRACEFLG NIL) (RS232FTPTRACEFILE T)) (GLOBALVARS \RFTPpkt.datalength \RFTPsyspkt.datalength \RS232PKTBUFFER.SIZE \RS232PKTBUFFER \RS232PKTSTRPTR \RFTPchartimeout.tics \RFTPpkttimeout.tics \RS232.FTP.BOX \RS232FTPSLOW.BaudRate \RS232FTP.FASTMSGW \RS232FTP.FILENAME RS232FTPTRACEFLG) (SPECVARS STRM 7BIT? 7BITBINARY? MODEM? MODEMTEXT? STRM TWOSECS.tics TWOCHARTIMES.tics TWOPKTTIMES.tics TWOPKTTIMES.secs LASTPKTP EXPECTED.PKTLEN DOLPHINP EOLProcessing LastWasCR) (FNS \RS232FTPINITIALIZE RS232GETFILE \RS232FTPGETPKT \RS232FTPGETCHKSM RS232PUTFILE \RS232FTPCANCEL \RS232FTPPKTFLUSH) (COMS (FNS \RS232FTP.MODEMCOMMAND \RS232FTP.DMODEMCOMMAND \RS232FTP.8BITCOMMAND \RS232FTP.COMMAND) (ALISTS (RS232COMMANDSLST MODEM MODEMFTP RFTP R8FTP))))) (FILESLOAD (SYSLOAD) RS232) (RPAQ? \RFTPpkt.datalength 128) (RPAQ? \RFTPsyspkt.datalength 8) (RPAQ? \RS232PKTBUFFER.SIZE (IPLUS 10 (ITIMES 2 \RFTPpkt.datalength))) (RPAQ? \RS232PKTBUFFER NIL) (RPAQ? \RS232PKTSTRPTR (ALLOCSTRING 0)) (RPAQ? \RFTPchartimeout.tics (ITIMES 3 \RCLKSECOND)) (RPAQ? \RFTPpkttimeout.tics (ITIMES 10 \RCLKSECOND)) (RPAQ? \RS232.FTP.BOX (SETUPTIMER 0)) (RPAQ? \RS232FTPSLOW.BaudRate 1200) (RPAQ? \RS232FTP.FASTMSGW NIL) (RPAQ? \RS232FTP.FILENAME NIL) (RPAQ? RS232FTPTRACEFLG NIL) (RPAQ? RS232FTPTRACEFILE T) (ADDTOVAR RS232COMMANDSLST (MODEM \RS232FTP.MODEMCOMMAND {Send% or% Receive}{Ascii% or% Binary}% {filename} T) (MODEMFTP \RS232FTP.MODEMCOMMAND {Send% or% Receive}{Ascii% or% Binary}% {filename} T) (RFTP \RS232FTP.8BITCOMMAND {Send% or% Receive}{Ascii% or% Binary}% {filename} T) (R8FTP \RS232FTP.8BITCOMMAND {Send% or% Receive}{Ascii% or% Binary}% {filename} T)) (PUTPROPS RS232FTP COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL