(FILECREATED " 2-Feb-86 12:01:17" ("compiled on " {ERIS}TCP>TCPTFTP.;3) "17-Oct-85 18:58:44" recompiled explicitly: \TFTP.INIT in "INTERLISP-D 17-Oct-85 ..." dated "17-Oct-85 19:19:58") (FILECREATED " 2-Feb-86 12:00:23" {ERIS}TCP>TCPTFTP.;3 38057 changes to: (VARS TCPTFTPCOMS TFTPOPCODES) (FNS \TFTP.ACKNOWLEDGE \TFTP.CLOSEFILE \TFTP.EOFP \TFTP.ERROR \TFTP.GETNEXTBUFFER \TFTP.INIT \TFTP.INPUT.BUFFER \TFTP.OPENFILE \TFTP.READP \TFTP.SEND.ERROR \TFTP.SETUP TFTP.SERVER.PROCESS \TFTP.GET.FILE \TFTP.SEND.FILE TFTP.SERVER TFTP.GET TFTP.PUT PRINTTFTP \TFTP.PRINT.ACK \TFTP.PRINT.DATA \TFTP.PRINT.ERROR \TFTP.PRINT.REQUEST) previous date: "15-Sep-85 17:56:51" {ERIS}TCP>TCPTFTP.;2) \TFTP.ACKNOWLEDGE D1 (P 1 ACK P 0 TFTPCON I 1 ACK# I 0 STREAM) =@ IHlg IA HI @ g@H (72Q UDP.CLOSE.SOCKET 47Q \GETACCESS 43Q BLOCK 40Q UDP.SEND 32Q UDP.APPEND.WORD 25Q \TFTP.SETUP 10Q \ALLOCATE.ETHERPACKET) (61Q STREAM 52Q INPUT 22Q FREE 3 STREAM) () \TFTP.CLOSEFILE D1 (P 0 TFTPCON I 0 STREAM) 6@ @ g@@@g Hi @ @(62Q \SETACCESS 56Q UDP.CLOSE.SOCKET 47Q \TFTP.GETNEXTBUFFER 14Q \GETACCESS) (44Q WRITE 35Q STREAM 26Q STREAM 17Q OUTPUT 3 STREAM) () \TFTP.EOFP D1 (L (0 STREAM)) !@h@@@NIL (33Q STREAM 25Q STREAM 15Q STREAM 3 STREAM) () \TFTP.ERROR D1 (P 1 ERRORSTRING I 1 TFTPCON I 0 TFTP) ]@HlHCl !@ZlJClljIII oIo @[lKC (132Q ERROR 112Q CONCAT 76Q \MOVEBYTES 26Q ALLOCSTRING) (70Q STRINGP 62Q STRINGP) ( 107Q " for code" 102Q "TFTP error message: ") \TFTP.GETNEXTBUFFER D1 (P 32Q NBYTES P 31Q ACK# P 30Q I P 26Q NEXT# P 4 UDP P 3 BUFFER P 2 RETRYCOUNT P 1 IPSOCKET P 0 TFTPCON I 2 NOERRORFLG I 1 WHATFOR I 0 STREAM) D@ `Hj@Adg@ @ @ @hBz@ Kok`kO0O.LkL Hjo @g,o@ h^lNClL_lOCO,j;@L @O, i]lMCkذI` \@O,k O0k_0xL_lOCO,n`9@O,k L hJkZ`9Hjo @g,oJi!o` O,k` ` o` Hjo @g,oL_lOCl@g,LH HjoL_lOCdko2dlo&looL_lOCo @g,oqg'@@ B@  K_lOC_2@K_lOCllK_4KO4l K_lOCO4l nO4@i`kO0O.LIK O0k_0LL_lOClL_ lO CO2IO4n-LHl LO2k L_"lO"Cn @L @h@ H iL_$lO$CO2a`.L hJkZ`BHjo @g.BRTio` O2` ` o` HjoLHjo @g.B@ h_&lO&Cl@g.LH LHjoL_(lO(Cdko2dlo&looL_*lO*Co poA (2101Q ERROR 2066Q CONCAT 2063Q CONCAT 1736Q \TFTP.ERROR 1672Q \EOF.ACTION 1651Q \TFTP.SEND.ERROR 1623Q PRIN1 1606Q TERPRI 1577Q PRIN1 1566Q PRIN1 1530Q \TFTP.SEND.ERROR 1500Q \RELEASE.ETHERPACKET 1440Q UDP.CLOSE.SOCKET 1432Q \SETACCESS 1414Q \TFTP.INPUT.BUFFER 1363Q UDP.APPEND.WORD 1352Q \TFTP.SETUP 1242Q UDP.EXCHANGE 1051Q \EOF.ACTION 1040Q \SETACCESS 773Q \TFTP.SEND.ERROR 770Q CONCAT 765Q CONCAT 642Q \TFTP.ERROR 555Q \TFTP.SEND.ERROR 541Q PRIN1 524Q TERPRI 515Q PRIN1 502Q PRIN1 442Q \TFTP.SEND.ERROR 412Q \RELEASE.ETHERPACKET 405Q \TFTP.ACKNOWLEDGE 331Q \TFTP.ACKNOWLEDGE 317Q UDP.GET 266Q \TFTP.ACKNOWLEDGE 257Q \TFTP.INPUT.BUFFER 177Q ERROR 154Q \TFTP.SEND.ERROR 107Q \EOF.ACTION 67Q \RELEASE.ETHERPACKET 56Q \SETACCESS) (1726Q \STREAM.NOT.OPEN 1723Q STREAM 1661Q \STREAM.NOT.OPEN 1656Q STREAM 1620Q IPTRACEFILE 1603Q IPTRACEFILE 1574Q IPTRACEFILE 1563Q IPTRACEFILE 1540Q \STREAM.NOT.OPEN 1535Q STREAM 1512Q TFTP.MAXRETRIES 1472Q IPTRACEFLG 1422Q STREAM 1221Q TFTP.MAXRETRIES 1212Q STREAM 1103Q STREAM 1031Q STREAM 1020Q WRITE 1003Q \STREAM.NOT.OPEN 1000Q STREAM 632Q STREAM.NOT.OPEN 627Q STREAM 565Q \STREAM.NOT.OPEN 562Q STREAM 536Q IPTRACEFILE 521Q IPTRACEFILE 512Q IPTRACEFILE 477Q IPTRACEFILE 452Q \STREAM.NOT.OPEN 447Q STREAM 424Q TFTP.MAXRETRIES 373Q IPTRACEFLG 314Q \ETHERTIMEOUT 164Q \STREAM.NOT.OPEN 161Q STREAM 122Q TFTP.MAXRETRIES 73Q STREAM 62Q STREAM 46Q STREAM 34Q READ 24Q STREAM 3 STREAM) ( 2075Q "Illegal ACCESS" 2060Q "." 2035Q "unknown type " 2027Q "data." 2015Q "write request." 2001Q "read request." 1751Q "Protocol error: Illegal TFTP opcode, expected ACK but got " 1646Q "Protocol error, aborting..." 1634Q "Protocol error: Block # too high. Aborting..." 1615Q "R" 1560Q "TFTP retransmission on block# " 1525Q "Timeout awaiting acknowledgement. Aborting..." 1012Q "Illegal TFTP opcode rec'd" 762Q "." 737Q "unknown type " 731Q "ack." 717Q "write request." 703Q "read request." 653Q "Protocol error: Illegal TFTP opcode, expected DATA but got " 574Q "Protocol error: Block # too high. Aborting..." 552Q "Protocol error: Block # too high. Aborting..." 533Q "R" 474Q "Retransmitting ACK for block " 461Q "Timeout awaiting next data packet; aborting" 437Q "Timeout awaiting next data packet; aborting" 173Q "Timeout awaiting next data packet; aborting" 151Q "Timeout awaiting next data packet; aborting") \TFTP.INIT D1 NIL `d`dk@dkPdk djdjdkpdj0dgdgdgdg*dgdg dg>dg$dg4dgdg:dg8dg6dg2dg0dg.dg (262Q \DEFINEDEVICE) (257Q \TFTP.DEVICE 251Q NILL 242Q \IS.NOT.RANDACCESSP 233Q \ILLEGAL.DEVICEOP 224Q \IS.NOT.RANDACCESSP 215Q \GENERIC.BINS 206Q \GENERIC.BOUTS 177Q \GENERIC.RENAMEFILE 170Q \TFTP.CLOSEFILE 161Q \TFTP.EOFP 152Q \TFTP.READP 143Q \TFTP.GETNEXTBUFFER 134Q \BUFFERED.BOUT 125Q \BUFFERED.BIN 116Q NILL 107Q NILL 100Q NILL 71Q TFTP 12Q FDEVTYPE# 2 \TFTP.DEVICE) () \TFTP.INPUT.BUFFER D1 (P 2 LENGTH P 1 OFFSET I 1 UDP I 0 STREAM) xAHlHCllAAHlHCl @`@ @A@I@@IJ[0KnJ @ii(105Q \RELEASE.ETHERPACKET) (161Q STREAM 134Q STREAM 130Q STREAM 121Q STREAM 112Q STREAM 100Q STREAM 72Q ETHERPACKETTYPE# 64Q STREAM) () \TFTP.OPENFILEA0024A0025 D1 (I 0 SOCKET F 0 RESETSTATE) P@i (7 UDP.CLOSE.SOCKET) NIL () \TFTP.OPENFILEA0024 D1 (NAME ERRORSET L (0 NIL) P 1 I F 2 UDPIN F 3 STREAM F 4 TFTPCON F 5 UDP F 6 ACCESS F 7 FILENAME F 10Q RESETVARSLST F 11Q RESETY F 12Q PARAMETERS)  gThhhWcTlEUTVdgkgloV UWgWhddi  Uj UgWgoo Uj `kIHRU RTi hciHlHCdlVgRHlHCjST SV SWTRHlHCRTl Rk RHlHCdnSR SmTU cIkYEdlcVgKRHlHCk2ST SV SWTRHlHCSR Sk SlR oRHlHC (705Q ERROR 652Q \TFTP.ERROR 635Q \TFTP.ACKNOWLEDGE 627Q \TFTP.INPUT.BUFFER 563Q \SETACCESS 461Q UDP.EXCHANGE 446Q \TFTP.INPUT.BUFFER 407Q UDP.APPEND.WORD 401Q \TFTP.SETUP 333Q \SETACCESS 223Q UDP.CLOSE.SOCKET 211Q \RELEASE.ETHERPACKET 164Q UDP.APPEND.BYTE 156Q UDP.APPEND.STRING 123Q UDP.APPEND.BYTE 115Q UDP.APPEND.STRING 112Q SUBATOM 107Q STRPOS 66Q \TFTP.SETUP 63Q ERROR) (570Q STREAM 552Q STREAM 506Q INPUT 340Q STREAM 322Q STREAM 266Q OUTPUT 170Q \MAXETHERTRIES 140Q BINARY 130Q TYPE 75Q } 46Q OUTPUT 36Q INPUT 2 \TFTP.OPENFILEA0024A0025) ( 661Q "Unknown TFTP opcode" 153Q "NETASCII" 146Q "OCTET" 57Q "ACCESS must be INPUT or OUTPUT") \TFTP.OPENFILE D1 (P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 UDPIN P 5 UDP P 4 TFTPCON P 3 STREAM P 2 DEVICE P 0 HOSTNAME I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 FILENAME F 12Q LISPXHIST F 13Q RESETVARSLST) @g H `` dHoH `dJdg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhJhKH hY(IW! Wog hg_ OO(325Q ERROR! 317Q RESETRESTORE 304Q \TFTP.OPENFILEA0024 260Q \ALLOCATE.ETHERPACKET 240Q DODIP.HOSTP 232Q UDP.OPEN.SOCKET 45Q ERROR 27Q NCREATE2 15Q DODIP.HOSTP 6 FILENAMEFIELD) (312Q ERROR 301Q INTERNAL 227Q FDEV 152Q \STREAM.DEFAULT.MAXBUFFERS 136Q FILELINELENGTH 121Q \FILEOUTCHARFN 112Q \EOSERROR 103Q \NOIMAGEOPS 74Q \STREAM.NOT.OPEN 65Q \STREAM.NOT.OPEN 53Q STREAMTYPE# 24Q \TFTP.DEVICE 21Q FDEVTYPE# 3 HOST) ( 276Q (\TFTP.OPENFILEA0024) 41Q "Unknown IP host: ") \TFTP.READP D1 (L (0 STREAM)) @@NIL (11Q STREAM 3 STREAM) () \TFTP.SEND.ERROR D1 (P 0 TFTP I 2 ERRORSTRING I 1 ERRORCODE I 0 TFTPCON) $H@l HA HB Hj @H (41Q UDP.SEND 33Q UDP.APPEND.BYTE 26Q UDP.APPEND.STRING 21Q UDP.APPEND.WORD 14Q \TFTP.SETUP 2 \ALLOCATE.ETHERPACKET) NIL () \TFTP.SETUP D1 (I 3 REQUEUE I 2 OPCODE I 1 TFTPCON I 0 UDP) @AAjA @C@B (33Q UDP.APPEND.WORD 17Q UDP.SETUP) (23Q ETHERPACKET) () TFTP.SERVER.PROCESSA0002A0003 D1 (I 0 SOCKET) @i (4 UDP.CLOSE.SOCKET) NIL () TFTP.SERVER.PROCESSA0002 D1 (NAME ERRORSET P 0 UDP F 4 LOGSTREAM F 5 CONNECTION F 6 SERVERSOCKET F 7 RESETVARSLST F 10Q DEVICE) gVhhhWcVi 1H$HYlICc ` U`HZlJCdk&gHghddhhWTh Yl%gHghddhhWTh 1oT H[lKCT T U` H D(313Q \RELEASE.ETHERPACKET 303Q DREMOVE 273Q TERPRI 266Q PRIN1 244Q PRIN1 232Q ADD.PROCESS 203Q UDP.OPEN.SOCKET 162Q ADD.PROCESS 133Q UDP.OPEN.SOCKET 61Q MEMBER 25Q UDP.GET) (306Q \TFTP.SERVER.CONNECTIONS 300Q \TFTP.SERVER.CONNECTIONS 200Q QUOTE 174Q \TFTP.GET.FILE 130Q QUOTE 124Q \TFTP.SEND.FILE 75Q \TFTP.SERVER.CONNECTIONS 71Q \TFTP.SERVER.CONNECTIONS 56Q \TFTP.SERVER.CONNECTIONS 2 TFTP.SERVER.PROCESSA0002A0003) ( 240Q "TFTP Server: Unexpected opcode ") TFTP.SERVER.PROCESS D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 CONNECTION P 1 SERVERSOCKET P 0 DEVICE I 0 LOGSTREAM F 6 TtyDisplayStream F 7 LISPXHIST F 10Q RESETVARSLST) U`` dglEi @VbhI$W!Wog hg] ML(120Q ERROR! 113Q RESETRESTORE 101Q TFTP.SERVER.PROCESSA0002 44Q \CREATE.TTYDISPLAYSTREAM 40Q HASTTYWINDOWP 30Q UDP.OPEN.SOCKET 10Q NCREATE2) (107Q ERROR 76Q INTERNAL 55Q \TFTP.SERVER.CONNECTIONS 14Q TFTPSERVER 5 \TFTP.DEVICE 2 FDEVTYPE#) ( 73Q (TFTP.SERVER.PROCESSA0002)) \TFTP.GET.FILEA0001A0002 D1 (P 2 CONNECTION P 0 UDPSOCKET I 0 TFTPCON F 3 RESETSTATE) ,@!@HYlICZ` SHi (51Q UDP.CLOSE.SOCKET 36Q REMOVE) (41Q \TFTP.SERVER.CONNECTIONS 33Q \TFTP.SERVER.CONNECTIONS) () \TFTP.GET.FILEA0001A0003 D1 (NAME ERRORSET F 0 FILENAME F 1 TYPE) PgggQhh h(22Q OPENSTREAM) (11Q TYPE 6 NEW 3 OUTPUT) () \TFTP.GET.FILEA0001A0004 D1 (I 0 FILE F 0 RESETSTATE) P @ @ (15Q DELFILE 12Q FULLNAME 6 CLOSEF?) NIL () \TFTP.GET.FILEA0001A0025 D1 (NAME ERRORSET F 0 TFTPSTREAM F 1 FILE) PQ i(4 COPYBYTES) NIL () \TFTP.GET.FILEA0001 D1 (NAME ERRORSET L (0 NIL) P 1 OUTSTREAM F 2 LOGSTREAM F 3 MODE F 4 FILE F 5 TFTPCON F 6 UDP F 7 TFTPSTREAM F 10Q RESETVARSLST F 11Q FILENAME F 12Q HOST F 13Q FILENAMELENGTH F 14Q RESETY F 15Q MODELENGTH F 16Q TYPE F 17Q DEVICE) 2gUhhhWcUVHlHCUWVHlHCllWWW VHlHClWlSSW S coR WR oR SR oR W R R So gSo gUjoS hc*o IUkoW hcgThhhWc`dWdg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhcUWWg WU Wj V oR T R R o oR T R R T BoR T R R T oR T R R V hci(1052Q \RELEASE.ETHERPACKET 1045Q TERPRI 1040Q PRIN1 1034Q FULLNAME 1027Q PRIN1 1015Q DELFILE 1012Q FULLNAME 1007Q CLOSEF? 1002Q TERPRI 775Q PRIN1 771Q FULLNAME 764Q PRIN1 752Q CLOSEF? 745Q TERPRI 740Q PRIN1 734Q FULLNAME 727Q PRIN1 715Q \TFTP.GET.FILEA0001A0025 705Q TERPRI 700Q PRIN1 674Q FULLNAME 667Q PRIN1 656Q \RELEASE.ETHERPACKET 651Q \TFTP.ACKNOWLEDGE 631Q \SETACCESS 404Q \TFTP.SEND.ERROR 401Q CONCAT 357Q \TFTP.GET.FILEA0001A0003 340Q \TFTP.SEND.ERROR 335Q CONCAT 316Q STREQUAL 300Q STREQUAL 267Q TERPRI 262Q PRIN1 256Q \IP.ADDRESS.TO.STRING 250Q PRIN1 237Q PRIN1 231Q PRIN1 220Q PRIN1 211Q PRIN1 176Q U-CASE 171Q \MOVEBYTES 122Q \MOVEBYTES) (637Q STREAM 626Q INPUT 541Q \STREAM.DEFAULT.MAXBUFFERS 525Q FILELINELENGTH 510Q \FILEOUTCHARFN 501Q \EOSERROR 472Q \NOIMAGEOPS 463Q \STREAM.NOT.OPEN 454Q \STREAM.NOT.OPEN 441Q STREAMTYPE# 420Q \TFTP.GET.FILEA0001A0004 322Q BINARY 304Q TEXT 161Q STRINGP 112Q STRINGP 2 \TFTP.GET.FILEA0001A0002) ( 1023Q "TFTP Server: Failed to receive " 760Q "TFTP Server: Failed to receive " 723Q "TFTP Server: Done receiving " 712Q (\TFTP.GET.FILEA0001A0025) 663Q "TFTP Server: receiving " 374Q "Can't open file--" 354Q (\TFTP.GET.FILEA0001A0003) 331Q "Unknown transfer type--" 313Q "OCTET" 275Q "NETASCII" 244Q " mode to host " 225Q " in " 205Q "TFTP Server: Will attempt to receive ") \TFTP.GET.FILE D1 (P 16Q RESETZ P 15Q RESETY P 14Q LISPXHIST P 13Q TFTPSTREAM P 12Q TYPE P 11Q FILE P 10Q HOST P 7 MODE P 6 MODELENGTH P 5 FILENAME P 2 FILENAMELENGTH I 3 LOGSTREAM I 2 DEVICE I 1 TFTPCON I 0 UDP F 17Q LISPXHIST F 20Q RESETVARSLST) l@YlIClHjHkԸHl!J Jlؼ@[lKClLjLk԰LJl^ A @$_W!W og hg_ OO(176Q ERROR! 170Q RESETRESTORE 155Q \TFTP.GET.FILEA0001 123Q ALLOCSTRING 51Q ALLOCSTRING) (163Q ERROR 152Q INTERNAL) ( 147Q (\TFTP.GET.FILEA0001)) \TFTP.SEND.FILEA0001A0002 D1 (P 1 CONNECTION P 0 UDPSOCKET I 0 TFTPCON F 2 RESETSTATE) "@@@Y` RHi (37Q UDP.CLOSE.SOCKET 24Q REMOVE) (27Q \TFTP.SERVER.CONNECTIONS 21Q \TFTP.SERVER.CONNECTIONS) () \TFTP.SEND.FILEA0001A0003 D1 (NAME ERRORSET F 0 FULLFILENAME F 1 TYPE) PgggQhh h(22Q OPENSTREAM) (11Q TYPE 6 OLD 3 INPUT) () \TFTP.SEND.FILEA0001A0024 D1 (NAME ERRORSET F 0 TFTPSTREAM F 1 FILE) QP Pgi i(15Q \TFTP.GETNEXTBUFFER 4 COPYBYTES) (11Q WRITE) () \TFTP.SEND.FILEA0001 D1 (NAME ERRORSET L (0 NIL) P 2 INSTREAM P 1 FULLFILENAME F 3 LOGSTREAM F 4 TFTPCON F 5 UDP F 6 FILENAME F 7 MODE F 10Q TFTPSTREAM F 11Q RESETVARSLST F 12Q HOST F 13Q FILENAMELENGTH F 14Q FILE F 15Q RESETY F 16Q MODELENGTH F 17Q TYPE F 20Q DEVICE) *gThhhWcTUHlHCTWUHlHCllVVW UHlHClWlWWW W coS VS oS WS oS W S S Wo g Wo gTjoW hc!V I o JTkoV hc`dW dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhcTWWg WT UTl Uk UHlHCdnWU oS VS S o ooS VS S W oS VS S U hci(1042Q \RELEASE.ETHERPACKET 1035Q TERPRI 1030Q PRIN1 1022Q PRIN1 1010Q CLOSEF? 1002Q TERPRI 775Q PRIN1 767Q PRIN1 751Q \TFTP.SEND.FILEA0001A0024 741Q TERPRI 734Q PRIN1 726Q PRIN1 715Q \TFTP.INPUT.BUFFER 655Q UDP.APPEND.WORD 647Q \TFTP.SETUP 626Q \SETACCESS 421Q \TFTP.SEND.ERROR 416Q CONCAT 375Q \TFTP.SEND.FILEA0001A0003 360Q INFILEP 344Q \TFTP.SEND.ERROR 341Q CONCAT 321Q STREQUAL 302Q STREQUAL 270Q TERPRI 263Q PRIN1 257Q \IP.ADDRESS.TO.STRING 251Q PRIN1 240Q PRIN1 231Q PRIN1 220Q PRIN1 212Q PRIN1 177Q U-CASE 171Q \MOVEBYTES 120Q \MOVEBYTES) (634Q STREAM 623Q OUTPUT 536Q \STREAM.DEFAULT.MAXBUFFERS 522Q FILELINELENGTH 505Q \FILEOUTCHARFN 476Q \EOSERROR 467Q \NOIMAGEOPS 460Q \STREAM.NOT.OPEN 451Q \STREAM.NOT.OPEN 436Q STREAMTYPE# 325Q BINARY 306Q TEXT 161Q STRINGP 110Q STRINGP 2 \TFTP.SEND.FILEA0001A0002) ( 1016Q "TFTP Server: Failed to send " 763Q "TFTP Server: Failed to send " 756Q "TFTP Server: Done sending " 746Q (\TFTP.SEND.FILEA0001A0024) 722Q "TFTP Server: Sending " 412Q "Can't open file--" 372Q (\TFTP.SEND.FILEA0001A0003) 334Q "Unknown transfer type--" 316Q "OCTET" 277Q "NETASCII" 245Q " mode to host " 225Q " in " 206Q "TFTP Server: Will attempt to send ") \TFTP.SEND.FILE D1 (P 16Q RESETZ P 15Q RESETY P 14Q LISPXHIST P 13Q TFTPSTREAM P 12Q TYPE P 11Q FILE P 10Q HOST P 7 MODE P 6 MODELENGTH P 5 FILENAME P 2 FILENAMELENGTH I 3 LOGSTREAM I 2 DEVICE I 1 TFTPCON I 0 UDP F 17Q LISPXHIST F 20Q RESETVARSLST) l@YlIClHjHkԸHl!J Jlؼ@[lKClLjLk԰LJl^ A @$_W!W og hg_ OO(176Q ERROR! 170Q RESETRESTORE 155Q \TFTP.SEND.FILEA0001 123Q ALLOCSTRING 51Q ALLOCSTRING) (163Q ERROR 152Q INTERNAL) ( 147Q (\TFTP.SEND.FILEA0001)) TFTP.SERVER D1 (I 0 LOGSTREAM) g@hgg (17Q ADD.PROCESS) (14Q HARDRESET 11Q RESTARTABLE 2 TFTP.SERVER.PROCESS) () TFTP.GETA0001A0002 D1 (I 0 STREAM F 0 RESETSTATE) @P @ @ (20Q DELFILE 15Q FULLNAME 11Q CLOSEF?) NIL () TFTP.GETA0001A0003 D1 (I 0 STREAM F 0 RESETSTATE) @ P@ (11Q CLOSEF) NIL () TFTP.GETA0001 D1 (NAME ERRORSET F 0 FROM F 1 TO F 2 RESETVARSLST F 3 EOLCONVENTION F 4 TYPE F 5 TONAME F 6 PARAMETERS F 7 RESETY F 10Q FROMNAME) QgghTdh cgQhhhRcPggV cgPhhhRcSPSPQ"PQ P P Q Ql WP l Uh ci(176Q ERRORX 151Q FULLNAME 146Q CLOSEF 141Q CLOSEF 134Q OPENP 127Q COPYCHARS 56Q \TFTP.OPENFILE 20Q OPENSTREAM) (107Q STREAM 64Q TFTP.GETA0001A0003 52Q OLD 47Q INPUT 26Q TFTP.GETA0001A0002 6 NEW 3 OUTPUT) () TFTP.GET D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 TONAME P 2 FROMNAME P 1 TYPE P 0 EOLCONVENTION I 2 PARAMETERS I 1 TO I 0 FROM F 7 LISPXHIST F 10Q RESETVARSLST) 5gBgB@AW!Wog hg^ NM(60Q ERROR! 53Q RESETRESTORE 41Q TFTP.GETA0001) (47Q ERROR 36Q INTERNAL 11Q TYPE 2 EOLCONVENTION) ( 33Q (TFTP.GETA0001)) TFTP.PUTA0001A0002 D1 (I 0 STREAM F 0 RESETSTATE) P@ (6 CLOSEF) NIL () TFTP.PUTA0001A0003 D1 (I 0 STREAM F 0 RESETSTATE) P@ (6 CLOSEF) NIL () TFTP.PUTA0001 D1 (NAME ERRORSET F 0 TO F 1 FROM F 2 RESETVARSLST F 3 EOLCONVENTION F 4 PARAMETERS F 5 RESETY) ]Pgg cgQhhhRcQggT cgPhhhRcSPSQP Q P c i(127Q FULLNAME 124Q CLOSEF 117Q CLOSEF 112Q COPYCHARS 47Q \TFTP.OPENFILE 11Q OPENSTREAM) (100Q STREAM 55Q TFTP.PUTA0001A0003 43Q NEW 40Q OUTPUT 17Q TFTP.PUTA0001A0002 6 OLD 3 INPUT) () TFTP.PUT D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 TYPE P 0 EOLCONVENTION I 2 PARAMETERS I 1 TO I 0 FROM F 5 LISPXHIST F 6 RESETVARSLST) 1gBgBU!Vog hg\ LK(54Q ERROR! 47Q RESETRESTORE 35Q TFTP.PUTA0001) (43Q ERROR 32Q INTERNAL 11Q TYPE 2 EOLCONVENTION) ( 27Q (TFTP.PUTA0001)) PRINTTFTP D1 (I 1 FILE I 0 TFTP) @HlHC`Ao @HlHCdkoA @A YdloA @A BdloA @A +dloA @A loA @A A A (242Q TERPRI 236Q TERPRI 231Q \TFTP.PRINT.ERROR 223Q PRIN1 205Q \TFTP.PRINT.DATA 177Q PRIN1 156Q \TFTP.PRINT.ACK 150Q PRIN1 127Q \TFTP.PRINT.REQUEST 121Q PRIN1 100Q \TFTP.PRINT.REQUEST 72Q PRIN1 33Q PRINTCONSTANT) (23Q TFTPOPCODES) ( 217Q " " 173Q " " 144Q " " 115Q " " 66Q " " 30Q "TFTP Opcode: ") \TFTP.PRINT.ACK D1 (I 1 FILE I 0 TFTP) #oA @HlHCA A (40Q TERPRI 34Q PRIN1 7 PRIN1) NIL ( 3 "Block #: ") \TFTP.PRINT.DATA D1 (I 1 FILE I 0 TFTP) WoA @HlHCA A @HlHClllo@HlHCl (124Q PRINTPACKETDATA 42Q TERPRI 35Q PRIN1 7 PRIN1) NIL ( 75Q (CHARS 14Q ...) 3 "Block #: ") \TFTP.PRINT.ERROR D1 (I 1 FILE I 0 TFTP) XoA @HlHCA A @HlHClljo@HlHCl A (125Q PRINTPACKETDATA 42Q TERPRI 35Q PRIN1 7 PRIN1) NIL ( 74Q (CHARS ...) 3 "Error code: ") \TFTP.PRINT.REQUEST D1 (P 12Q MODE P 11Q MODELENGTH P 10Q FILENAME P 2 FILENAMELENGTH I 1 FILE I 0 TFTP) l@YlIClHjHkԸHlQJ  Jlؼ@[lKClLjLk԰LJl_  @]lMCllOOJ @^lNClJlOOO @_lOCdkoloA OA oA OA A (333Q TERPRI 327Q PRIN1 321Q PRIN1 311Q PRIN1 303Q PRIN1 277Q SHOULDNT 232Q \MOVEBYTES 167Q \MOVEBYTES 124Q ALLOCSTRING 51Q ALLOCSTRING) (222Q STRINGP 160Q STRINGP) ( 315Q " in mode " 273Q "Write request for " 262Q "Read request for ") (PRETTYCOMPRINT TCPTFTPCOMS) (RPAQQ TCPTFTPCOMS ((COMS (* Trivial File Transfer Protocol) (INITVARS (\TFTP.DEVICE) (TFTP.MAXRETRIES 20)) (GLOBALVARS \TFTP.DEVICE TFTP.MAXRETRIES) (RECORDS TFTPCON TFTP TFTPSTREAM) (CONSTANTS ( \TFTPOVLEN 4) (\TFTP.SOCKET 69)) (CONSTANTS * TFTPOPCODES) (INITVARS (TFTP.MAXRETRIES 20)) (FNS \TFTP.ACKNOWLEDGE \TFTP.CLOSEFILE \TFTP.EOFP \TFTP.ERROR \TFTP.GETNEXTBUFFER \TFTP.INIT \TFTP.INPUT.BUFFER \TFTP.OPENFILE \TFTP.READP \TFTP.SEND.ERROR \TFTP.SETUP) (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) TCPUDP)) (COMS (* TFTP Server functions) (INITVARS ( \TFTP.SERVER.CONNECTIONS)) (GLOBALVARS \TFTP.SERVER.CONNECTIONS) (FNS TFTP.SERVER.PROCESS \TFTP.GET.FILE \TFTP.SEND.FILE)) (COMS (* User functions) (FNS TFTP.SERVER TFTP.GET TFTP.PUT)) (COMS ( * Tracing functions) (FNS PRINTTFTP \TFTP.PRINT.ACK \TFTP.PRINT.DATA \TFTP.PRINT.ERROR \TFTP.PRINT.REQUEST)) (P (\TFTP.INIT)))) (RPAQ? \TFTP.DEVICE) (RPAQ? TFTP.MAXRETRIES 20) (RECORD TFTPCON (UDPSOCKET DESTSOCKET STREAM HOST)) (ACCESSFNS TFTP ((TFTPBASE (fetch (UDP UDPCONTENTS) of DATUM))) (BLOCKRECORD TFTPBASE ((OPCODE WORD) ( BLOCK# WORD))) (ACCESSFNS TFTP ((TFTPCONTENTS (\ADDBASE (fetch (UDP UDPCONTENTS) of DATUM) (FOLDHI \TFTPOVLEN BYTESPERWORD))))) (BLOCKRECORD TFTPBASE ((NIL WORD) (ERRORCODE WORD)))) (ACCESSFNS TFTPSTREAM ((TFTPCON (fetch (STREAM F1) of DATUM) (replace (STREAM F1) of DATUM with NEWVALUE)) (LASTPACKETIN (fetch (STREAM F2) of DATUM) (replace (STREAM F2) of DATUM with NEWVALUE)))) (RPAQQ \TFTPOVLEN 4) (RPAQQ \TFTP.SOCKET 69) (CONSTANTS (\TFTPOVLEN 4) (\TFTP.SOCKET 69)) (RPAQQ TFTPOPCODES ((\TFTP.RRQ 1) (\TFTP.WRQ 2) (\TFTP.DATA 3) (\TFTP.ACK 4) (\TFTP.ERROR 5))) (RPAQQ \TFTP.RRQ 1) (RPAQQ \TFTP.WRQ 2) (RPAQQ \TFTP.DATA 3) (RPAQQ \TFTP.ACK 4) (RPAQQ \TFTP.ERROR 5) (CONSTANTS (\TFTP.RRQ 1) (\TFTP.WRQ 2) (\TFTP.DATA 3) (\TFTP.ACK 4) (\TFTP.ERROR 5)) (RPAQ? TFTP.MAXRETRIES 20) (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) TCPUDP) (RPAQ? \TFTP.SERVER.CONNECTIONS) (\TFTP.INIT) (PUTPROPS TCPTFTP COPYRIGHT ("Xerox Corporation" 1986)) NIL