(FILECREATED " 2-Aug-84 17:11:41" ("compiled on " {ERIS}SOURCES>SPP.;5) " 1-Aug-84 17:04:49" recompiled exprs: \SPPCONNECTION \SPP.SENDPKT \SENDSPP \SPP.HANDLE.INPUT \SPP.RELEASE.ACKED.PACKETS \SPP.PROBE \SPP.RETRANSMIT.NEXT \SPP.ESTABLISH SPP.OPEN SPP.DESTADDRESS PPSPP in "INTERLISP-D 1-Aug-84 ..." dated " 1-Aug-84 17:24:52") (FILECREATED " 2-Aug-84 17:10:47" {ERIS}SOURCES>SPP.;5 68358 changes to: (VARS SPPCOMS) (FNS \SPP.SENDPKT \SENDSPP \SPP.HANDLE.INPUT \SPP.RELEASE.ACKED.PACKETS \SPP.START.RETRANSMIT \SPP.RETRANSMIT.NEXT PPSPP \SPP.PROBE SPP.DESTADDRESS \SPP.ESTABLISH \SPPCONNECTION SPP.OPEN) (RECORDS SPPCON) (MACROS RETRANSMITINDEX) previous date: "21-Jul-84 23:40:10" {ERIS}SOURCES>SPP.;4) \SPPCONNECTION D1 (P 4 PROCESS P 3 NSOC P 2 CON I 3 NOERRORFLG I 2 NAME I 1 SKT# I 0 HOST) `o HdI<l jHdI"lghj HdI`HdI!@AC $Jl@ lĿAJjJAJkJl*JlJnnJl`lĿJK JlJKJn*B@oJ gbJggJhhgBgg \:JLg b >JB J(377Q CREATE.MONITORLOCK 370Q CREATE.EVENT 363Q PROCESSPROP 350Q ADD.PROCESS 305Q PACK* 302Q SPP.DESTADDRESS 243Q NSOCKETNUMBER 210Q DAYTIME 166Q OPENNSOCKET 134Q \COERCE.TO.NSADDRESS 122Q OPENNSOCKET 60Q ARRAY 32Q \CLOCK0 12Q CREATE.EVENT) (360Q NAME 344Q DELETE 341Q AFTEREXIT 335Q NAME 323Q QUOTE 320Q \SPPWATCHER 311Q SPP 232Q \MY.NSADDRESS 75Q SYSQUEUETYPE# 53Q POINTER 2 SPPCONTYPE#) ( 276Q "SPP#" 7 "SPP Allocation") \SPP.SENDPKT D1 (P 1 SEQNO P 0 BASE I 2 RETRANSMITP I 1 EPKT I 0 CON) Al-ABo H@H@HjNH@$I@$?@I$@d(ZlJl `@* (@d&[lKl j&@j@jdh@A @d"\lLl @`@*"h(224Q \CLOCK0 202Q SENDXIP 153Q \CLOCK0 125Q MAX 112Q \CLOCK0 17Q HELP) (233Q SPP.MIN.TIMEOUT 115Q SPP.USER.TIMEOUT) ( 14Q "RETRANSMITP on") \FILLINSPP D1 (P 1 BASE P 0 EPKT I 2 DSTYPE I 1 CCONTROL I 0 CON) +Hn Hl@lHl-YAdABIBH(2 \ALLOCATE.ETHERPACKET) NIL () \SPP.SYSPKT D1 (P 1 BASE P 0 XIP I 1 CCBITS I 0 CON) C@4H(@ @H4Hl-YdAjlI@HHj(76Q BLOCK 17Q \FILLINSPP) (64Q ETHERPACKET 52Q SPPCON 3 SPPCON) () \GETSPPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 EPKT P 0 TIMER F 2 CON F 3 TIMEOUT F 4 RESETY F 5 PEEKFLG) dRhi S l SRYSHg R j&hci0RUR RdkIRR>Hi (137Q MONITOR.AWAIT.EVENT 107Q \DEQUEUE 47Q TIMEREXPIRED? 21Q \CLOCK0 7 OBTAIN.MONITORLOCK) (44Q MILLISECONDS) () \GETSPP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 PEEKFLG I 1 TIMEOUT I 0 CON F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \GETSPPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SENDSPPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 SEQNO F 1 CON F 2 EPKT F 3 IGNOREALLOC F 4 RESETY) wQhi Q jSQSQ l؂Q!FRl.QllĿQdXkQHlR*HQ!R-lRl-kQR iciQQ< (162Q MONITOR.AWAIT.EVENT 142Q \SPP.SENDPKT 7 OBTAIN.MONITORLOCK) NIL () \SENDSPP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 IGNOREALLOC I 1 EPKT I 0 CON F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SENDSPPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SPP.SEND.ENDREPLY D1 (I 1 NOACK I 0 CON) @dAjl@ll i (23Q \SENDSPP 17Q \FILLINSPP) NIL () \TERMINATESPPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 TIMER F 1 CON F 2 TIMEOUT F 3 RESETY) Qhi QDdldl{djdkQk QlDelQdlPl i QlDRj6l RnQQ>Hi QDdl𑿌lHg QlDQ:Qh: hci(222Q DEL.PROCESS 176Q TIMEREXPIRED? 150Q MONITOR.AWAIT.EVENT 123Q \CLOCK0 101Q \SENDSPP 75Q \FILLINSPP 7 OBTAIN.MONITORLOCK) (173Q MILLISECONDS) () \TERMINATESPP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 TIMEOUT I 0 CON F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \TERMINATESPPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SPP.CLEANUPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 F P 0 FN F 2 CON F 3 RESETY) Rhi Rk R> R< RBX+Rddh8h6h@RRhi Rh:hcidHdghdR6RlI찰(117Q CLOSENSOCKET 47Q NOTIFY.EVENT 35Q NOTIFY.EVENT 12Q OBTAIN.MONITORLOCK) (164Q SPPCON 144Q LAMBDA 104Q SPPCON 54Q SPPCON 42Q SPPCON 30Q SPPCON 3 SPPCON) () \SPP.CLEANUP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 CON F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SPP.CLEANUPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SPPWATCHERA0001 D1 (F 0 SPPCON) P (3 INSPECT) NIL () \SPPWATCHERA0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 ACTIVITY P 0 SOCEVENT F 2 SPPCON F 3 RESETY) Rhi R R jR$R(g R dR RR UR@jRd Rj@>I >(324Q NOTIFY.EVENT 235Q \SPPSENDERROR 223Q \SPP.SEND.ENDREPLY 172Q \SPP.SEND.ENDREPLY 165Q \SETACCESS 135Q RELEASE.XIP 51Q \ENQUEUE 23Q RELEASE.XIP) NIL ( 232Q "unexpected ENDREPLY") \SPP.HANDLE.ATTN D1 (P 1 STREAM P 0 BYTE I 1 XIP I 0 CON) A3!HkQA-kI`5@8YdieIRljIRljHI4IkJ=jd` o'`)jd` o` H` o` h(205Q PRIN1 172Q PRIN1 162Q PRIN1 147Q TAB 123Q TAB) (202Q PROMPTWINDOW 167Q PROMPTWINDOW 157Q PROMPTWINDOW 144Q PROMPTWINDOW 135Q NSWIZARDFLG 120Q PROMPTWINDOW 65Q STREAM 47Q STREAM 26Q NSWIZARDFLG) ( 177Q ")]" 154Q "[Attention packet (" 130Q "[Remote host aborted data transfer]") \SPP.RELEASE.ACKED.PACKETS D1 (P 4 \INTERRUPTABLE P 3 XIP P 2 MAXACKNO P 1 OLDACKNO P 0 POOL I 1 ACKNO I 0 CON) D@@ @AI IJo HIl(HIlh*K @IkY @h(62Q RELEASE.XIP 33Q HELP) NIL ( 30Q "SPP Partner acked a packet I haven't sent yet") \SPP.NOT.RESPONDING D1 (I 0 CON) e@j@*`l @k kjh@`@*lHdII*@h$jd` `g ` o` (142Q PRIN1 130Q PRIN1 122Q PROCESSPROP 111Q TAB) (137Q PROMPTWINDOW 125Q PROMPTWINDOW 117Q NAME 114Q \RUNNING.PROCESS 106Q PROMPTWINDOW 53Q SPPCON 47Q SPP.USER.TIMEOUT 22Q SPP.USER.TIMEOUT 15Q SPPCON 3 SPPCON) ( 134Q " not responding. ") \SPP.CHECK.FOR.LIFE D1 (P 0 TIMER I 0 CON) ?@,HHg +H@ @HlHl `@*l ,h(70Q MAX 51Q \CLOCK0 31Q \SPP.PROBE 21Q TIMEREXPIRED?) (60Q SPPCON 54Q SPP.USER.TIMEOUT 16Q MILLISECONDS 3 SPPCON) () \SPP.PROBE D1 (I 0 CON) @dl@ (11Q \SPP.SENDPKT 6 \SPP.SYSPKT) NIL () \SPP.RETRANSMIT.NEXT D1 (P 1 XIP P 0 SEQNO I 0 CON) =@!@Hl(Ydl-H@!kjZJjh@HkXd@h@I h(71Q \SPP.SENDPKT) NIL () \SPP.ESTABLISH D1 (I 1 XIP I 0 CON) 8@lAl'l@A.@h4@kkjh@lD@kkjh@> (65Q NOTIFY.EVENT) NIL () \SPPGETERROR D1 (I 2 MOREMSG I 1 TRIALPKT I 0 CON) :`5o` ` Ah` Bjd` B` ` (67Q TERPRI 60Q PRIN1 50Q TAB 35Q PRINTPACKET 25Q TERPRI 16Q PRIN1) (64Q XIPTRACEFILE 55Q XIPTRACEFILE 45Q XIPTRACEFILE 32Q XIPTRACEFILE 22Q XIPTRACEFILE 13Q XIPTRACEFILE 2 XIPTRACEFLG) (10Q "Error packet received on Sequenced Packet Protocol connection.") \SPPSENDERROR D1 (P 0 FILE I 2 MSG I 1 EPKT I 0 CON) #``iBH H AhH H h(37Q TERPRI 33Q PRINTPACKET 25Q TERPRI 21Q PRINT) (6 XIPTRACEFILE 2 XIPTRACEFLG) NIL \INITSPP D1 NIL "hgg  hgg  (37Q \DEFINEDEVICE 31Q \CREATE.SPP.DEVICE 17Q \DEFINEDEVICE 11Q \CREATE.SPP.DEVICE) (34Q \SPP.BULKDATA.DEVICE 26Q \BULK.DATA.CLOSE 23Q COURIER.BULK.DATA 14Q \SPPDEVICE 6 SPP.CLOSE 3 SPP) () \CREATE.SPP.DEVICE D1 (I 1 CLOSEFN I 0 NAME) `d@dgdgdAdgdg dg4dg"dg&dg*dg:dg8dg6dg2dg0dg.dg$dgdgNIL (201Q NILL 172Q NILL 163Q \GENERIC.READP 154Q \IS.NOT.RANDACCESSP 145Q \ILLEGAL.DEVICEOP 136Q \IS.NOT.RANDACCESSP 127Q \NONPAGEDBINS 120Q \NONPAGEDBOUTS 111Q \GENERIC.RENAMEFILE 102Q SPP.FORCEOUTPUT 73Q SPP.BACKFILEPTR 64Q SPP.PEEKBIN 55Q SPP.EOFP 46Q SPP.PUTBYTE 37Q SPP.GETBYTE 23Q NILL 14Q NILL 2 FDEVTYPE#) () SPP.OPENA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 OUTSTREAM P 0 INSTREAM F 2 CON F 3 WHENCLOSEDFN F 4 PROBEP F 5 RESETY) ERhi  RjTiR RR>` Rjh R`d`dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhdg X6HR Hg.R`d`dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhdg Y@IR SRSBHc i(454Q \SETACCESS 251Q \SETACCESS 50Q MONITOR.AWAIT.EVENT 33Q \SPP.PROBE 7 OBTAIN.MONITORLOCK) (451Q OUTPUT 377Q \STREAM.DEFAULT.MAXBUFFERS 363Q FILELINELENGTH 346Q \FILEOUTCHARFN 337Q \EOSERROR 330Q \NOIMAGEOPS 321Q \STREAM.NOT.OPEN 312Q \STREAM.NOT.OPEN 303Q \SPPDEVICE 276Q STREAMTYPE# 267Q \SPP.OTHER.BOUT 246Q INPUT 174Q \STREAM.DEFAULT.MAXBUFFERS 160Q FILELINELENGTH 143Q \FILEOUTCHARFN 134Q \EOSERROR 125Q \NOIMAGEOPS 116Q \STREAM.NOT.OPEN 107Q \STREAM.NOT.OPEN 100Q \SPPDEVICE 73Q STREAMTYPE# 45Q SPP.USER.TIMEOUT) () SPP.OPEN D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 CON I 4 WHENCLOSEDFN I 3 NAME I 2 PROBEP I 1 SOCKET I 0 HOST F 4 LISPXHIST F 5 RESETVARSLST) +@AC T!Uog hg[ KJ(46Q ERROR! 41Q RESETRESTORE 27Q SPP.OPENA0001 5 \SPPCONNECTION) (35Q ERROR 24Q INTERNAL) ( 21Q (DUMMY.FOR.ERRORSET)) SPP.DESTADDRESS D1 (P 1 ADDRESS P 0 CON I 0 STREAM) @d` `IHllINIL (17Q NSADDRESSTYPE# 12Q STREAM 5 SPPCONTYPE#) () SPPOUTPUTSTREAM D1 (L (0 SPPINPUTSTREAM)) @ d@NIL (12Q SPPCON 3 STREAM) () SPP.OPENP D1 (L (0 STREAM)) @d d jhhNIL NIL () \STREAM.FROM.PACKET D1 (I 0 EPKT) @l-lj@l$g (23Q \MAKEBASEBYTESTREAM) (20Q INPUT) () SPP.FORCEOUTPUT D1 (P 1 EPKT P 0 CON I 0 STREAM) @ !@Rlj*@Rlj@4@kJH@bH2Yd;ld@Hh2@j@j@hHI @@l h(200Q \LISPERROR 161Q \SENDSPP) (166Q STREAM 122Q STREAM 102Q SPPCON 71Q SPPCON 55Q FDEV 50Q STREAM 32Q STREAM 14Q STREAM 3 STREAM) () SPP.SENDEOM D1 (P 1 EPKT P 0 CON I 0 STREAM) P@ !@Rlj @Rlj@4@kJH@bH2@H l-k0kjh@ h(114Q SPP.FORCEOUTPUT 73Q \SPP.PREPARE.OUTPUT) (27Q STREAM 11Q STREAM) () SPP.CLEAREOM D1 (P 1 FLG P 0 CON I 1 NOERRORFLG I 0 STREAM) +@ @ @k@jiAo@ h(46Q ERROR 14Q \SPP.PREPARE.INPUT) (21Q STREAM 3 STREAM) ( 42Q "SPP.CLEAREOM - not at end of message") SPP.SENDATTENTION D1 (P 1 EPKT P 0 CON I 2 CC I 1 ATTENTIONBYTE I 0 STREAM) +@ HBjl YdA3IldkHIi (50Q \SENDSPP 20Q \FILLINSPP) NIL () SPP.CLOSE D1 (P 1 SUBSTREAM P 0 CON I 1 ABORT? I 0 STREAM) 7 @d Xd jhH8YA@ H RjIib (62Q \BULK.DATA.CLOSE 43Q \TERMINATESPP 36Q SPP.FORCEOUTPUT) NIL () \SPP.CLOSE.IF.ERROR D1 (I 0 STREAM F 0 RESETSTATE) P@i (7 SPP.CLOSE) NIL () \SPP.RESETCLOSE D1 (I 0 STREAM F 0 RESETSTATE) @P (4 SPP.CLOSE) NIL () SPP.GETBYTE D1 (I 0 STREAM) P@@ ,@@@@@dk@"@kH@ (111Q \SPP.PREPARE.INPUT 13Q \SPP.PREPARE.INPUT) (73Q STREAM 56Q STREAM 43Q STREAM 35Q STREAM 27Q STREAM 21Q STREAM 3 STREAM) () SPP.PEEKBIN D1 (I 1 NOERRORFLG I 0 STREAM) 6@@@@@ Ah@"@kH(40Q \SPP.PREPARE.INPUT) (52Q STREAM 30Q STREAM 22Q STREAM 11Q STREAM 3 STREAM) () SPP.BACKFILEPTR D1 (L (0 STREAM)) @j@dkHIIhNIL (16Q STREAM 3 STREAM) NIL SPP.PUTBYTE D1 (I 1 BYTE I 0 STREAM) 2@ @d @@@@@dkA@ (53Q SPP.FORCEOUTPUT 13Q \SPP.PREPARE.OUTPUT) NIL () \SPP.OTHER.BOUT D1 (I 1 BYTE I 0 STREAM) @ o@ A (21Q \BOUT 15Q ERROR 3 SPPOUTPUTSTREAM) NIL ( 11Q "Stream lost") \SPP.PREPARE.INPUT D1 (P 1 EPKT P 0 CON I 1 TIMEOUT I 0 STREAM) @ H0Y4@@@jHh0@hI-!j@kI @j8ho@@ I-dldl@lhk@H8HA YAhI- j@H8`o @l@Il3@j@Il*HI0I(255Q ERROR 210Q \GETSPP 137Q ERROR 102Q RELEASE.XIP) (245Q NSWIZARDFLG 235Q SPPCON 177Q SPPCON 127Q STREAM 107Q STREAM 33Q STREAM 25Q STREAM 14Q SPPCON 3 STREAM) ( 252Q "Attention packet received" 123Q "Connection dropped") \SPP.PREPARE.OUTPUT D1 (P 0 EPKT I 1 CON I 0 STREAM) 0A jo@ A XAH2@Hl3@j@nH(26Q \FILLINSPP 21Q ERROR) NIL ( 15Q "SPP Connection closed") SPP.DSTYPE D1 (P 1 EPKT P 0 CON I 1 DSTYPE I 0 STREAM) U@ !AH2 HAAA-@RkjHH0@ @"@kJ-(101Q \SPP.PREPARE.INPUT) (107Q STREAM 71Q SPPCON 61Q SPPCON 45Q STREAM 17Q SPPCON 3 STREAM) () SPP.READP D1 (I 0 STREAM) .@Rkj@ l @@i@j (53Q \SPP.PREPARE.INPUT 24Q \LISPERROR 17Q FULLNAME) (37Q STREAM 31Q STREAM 3 STREAM) () SPP.EOFP D1 (I 0 STREAM) '@Rkji@@h@ h(42Q \SPP.PREPARE.INPUT) (27Q STREAM 21Q STREAM 3 STREAM) () SPP.ATTENTIONP D1 (I 0 STREAM) $@j@ h@ 0- jh(14Q \SPP.PREPARE.INPUT) (30Q SPPCON 23Q STREAM 3 STREAM) () PPSPPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 I F 2 CON F 3 MACROY) Oo R o R h o Rjh o R$ o R0jh o R jh h o R o R o R o RdjokoR h o R