(FILECREATED "17-NOV-83 16:49:42" ("compiled on " {PHYLUM}SOURCES>BSP.;39) "13-NOV-83 18:57:30" recompiled exprs: \BSPEVENTFN BSPEOFP in WORK dated "14-NOV-83 06:21:28") (FILECREATED "17-NOV-83 16:47:45" {PHYLUM}SOURCES>BSP.;39 103515 changes to: (FNS \BSPEVENTFN BSPEOFP) previous date: " 2-NOV-83 14:43:53" {PHYLUM}SOURCES>BSP.;38) OPENRTPSOCKETA0291 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 SOCKET# P 1 INITSTATE P 0 SOCKET F 14Q MODE F 15Q FRNPORT F 16Q PUPSOC F 17Q FAILURESTRING F 20Q RESETVARSLST F 21Q TIMEOUT F 22Q CONNID F 23Q \LOCALPUPNETHOST F 24Q RESETY)   W Wc!i cdWZ cW `djW$ jn dK dgdW dW&J dLJ dMdWJldN:l_dO8`_dO0`_dO$l_dOl_dOX H`WHWHW HW WgcHFhi oHhW c WgWd6gW+Wo Hj WgW^gWVHWgWd0gW%Hk:Hk WgW$gWHpWgHl H_W HW"iHl W"`HHIHFH HlHlHHj W Hho hc(i(764Q \RTP.SHOW.FAILURE 746Q CLOSERTPSOCKET 714Q MONITOR.AWAIT.EVENT 661Q \CLOCK0 636Q \ILLEGAL.ARG 625Q \RTP.ACTION 560Q \RTP.ACTION 466Q \RTP.ACTION 460Q ERROR 401Q OBTAIN.MONITORLOCK 355Q \LONUM 343Q \HINUM 307Q \INIT.RTPPROCESS 160Q \LONUM 146Q \HINUM 111Q RAND 63Q PUPSOCKETNUMBER 47Q OPENPUPSOCKET 25Q ETHERPORT 15Q OPENPUPSOCKET) (670Q \RTP.DEFAULTTIMEOUT 615Q RETURN 600Q RETURN 566Q RETURN 540Q SERVER 524Q SERVER 506Q RETURN 474Q RETURN 441Q USER 425Q USER 366Q USER 320Q \BSPSOCKETS 314Q \BSPSOCKETS 241Q SYSQUEUETYPE# 224Q SYSQUEUETYPE# 123Q \RTP.HANDLE.OTHER.PUP 67Q BSPSOCTYPE# 60Q PUPSOCKET) ( 761Q "No Response" 455Q "No foreign port specified" 406Q (AND RESETSTATE (CLOSERTPSOCKET OLDVALUE 0))) OPENRTPSOCKET D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 FAILURESTRING I 4 TIMEOUT I 3 CONNID I 2 PUPSOC I 1 MODE I 0 FRNPORT F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q OPENRTPSOCKETA0291) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) CLOSERTPSOCKETA0317 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 SOCKET F 1 TIMEOUT F 2 SUCCESS F 3 RESETY) ZPFhi QjCPl Q`HPl PjcPlPl hPFP` Pl ci(124Q \RTP.ACTION 114Q MONITOR.AWAIT.EVENT 74Q \RTP.ACTION 44Q \RTP.ACTION 24Q \CLOCK0 7 OBTAIN.MONITORLOCK) (111Q \RTP.DEFAULTTIMEOUT 32Q \RTP.DEFAULTTIMEOUT) () CLOSERTPSOCKET D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 SUCCESS I 2 DONTSEND I 1 TIMEOUT I 0 SOCKET F 4 LISPXHIST F 5 RESETVARSLST) 2T!Uog hg[ K@@h H(56Q DEL.PROCESS 41Q ERROR! 33Q RESETRESTORE 21Q CLOSERTPSOCKETA0317) (27Q ERROR 16Q INTERNAL) ( 13Q (DUMMY.FOR.ERRORSET)) \INIT.RTPPROCESS D1 (P 1 NAME P 0 PROC I 0 SOCKET) Gg@ddidd g@hhgg @H@H Y @I Fh(101Q CREATE.MONITORLOCK 72Q CREATE.EVENT 66Q PROCESS.NAME 52Q ADD.PROCESS) (47Q NO 44Q RTP 32Q QUOTE 2 \RTP.SOCKET.PROCESS) () \FLUSH.RTPPROCESS D1 (I 0 SOCKET) @@h (12Q DEL.PROCESS) NIL () \RTP.SOCKET.PROCESS D1 (P 5 PUP P 4 EVENT P 3 TIMER P 2 DATA P 1 LOCK P 0 PUPSOC I 0 BSPSOCKET F 12Q RESETVARSLST) X @ @F Ihi g@hhhWc`gg H \H ]IL@j@dlMll ZjJM%@dlM"jhAdk@Mid 3dldl&@Mhi )J@ J@J@h@lM )M MlJjMo Ml MgHM h]dl @Mid @lM dl @Mid @lM dl A@Mid @lM @dgM gM@ @M@lNh]|lIMll@Mi @lM @dgM gM@ @_M@lOh]0@dgM gM@ @_M@lOh]MM 5@j@h[di @j@g @l @j@g @_@kO(1103Q TIMEREXPIRED? 1056Q \RTP.ACTION 1044Q TIMEREXPIRED? 1023Q MONITOR.AWAIT.EVENT 775Q BLOCK 771Q RELEASE.PUP 740Q \BSP.PUPHANDLER 724Q RELEASE.PUP 662Q \BSP.PUPHANDLER 646Q RELEASE.PUP 627Q \RTP.ACTION 617Q \RTP.FILTER 551Q \BSP.PUPHANDLER 535Q RELEASE.PUP 516Q \RTP.ACTION 503Q \RTP.FILTER 462Q \RTP.ACTION 447Q \RTP.FILTER 426Q \RTP.ACTION 413Q \RTP.FILTER 367Q SENDPUP 344Q PUTPUPSTRING 320Q SWAPPUPPORTS 311Q \RTP.ACTION 243Q \RTP.FILTER 216Q \RTP.FILTER 67Q GETPUP 61Q PUPSOCKETEVENT 54Q PROCESSPROP 16Q OBTAIN.MONITORLOCK) (1100Q MILLISECONDS 1041Q MILLISECONDS 731Q \BSP.PUPHANDLER 715Q RELEASE.PUP 653Q \BSP.PUPHANDLER 637Q RELEASE.PUP 542Q \BSP.PUPHANDLER 526Q RELEASE.PUP 357Q FREE 51Q \RTP.INFO.HOOK 46Q INFOHOOK 43Q \RUNNING.PROCESS 22Q \RTP.CLEANUP) ( 341Q "RFC refused") \RTP.CLEANUP D1 (P 0 FN I 0 SOCKET) :@` @l @ i @BH@@kH@ @h<@hh(56Q \BSP.FLUSH.SOCKET.QUEUES 26Q CLOSEPUPSOCKET 17Q \RTP.ACTION 6 DREMOVE) (11Q \BSPSOCKETS 3 \BSPSOCKETS) () \RTP.ACTION D1 (P 3 STREAM P 2 TIMEOUT P 1 NEWSTATE P 0 STATE I 2 PUP I 1 EVENT I 0 SOCKET) :@AAdjHj@A @ kYkHj@A lYAdlHj@A lYl/Hdk@ ll@ lHdl@ lYcAdl!HkHlHlHl@ lY=lQHdk@Bll lĿlYlHlHl @:j@B HllY@AB AdlHjHl@AB lYlTHlHdl-@[KK@&Kkjl@ lYlHl@ lY{@AB qAdl#Hdl@ jY[ljYS@AB Il @D@@EB@d o DH(770Q BLOCK 763Q CREATE.EVENT 760Q CONCAT 751Q PROCESS.NAME 667Q \CLOCK0 636Q \CLOCK0 523Q \SETACCESS 331Q \SETACCESS 135Q \BSP.FLUSH.SOCKET.QUEUES 25Q OPENRTPSOCKET) (721Q \BSP.DEFAULT.ERROR.HANDLER 710Q RELEASE.PUP 677Q \BSP.PUPHANDLER 672Q \BSP.INACTIVITY.TIMEOUT 613Q \BSP.TIMERFN 520Q OUTPUT 426Q FILELINELENGTH 411Q \FILEOUTCHARFN 402Q \EOSERROR 373Q \NOIMAGEOPS 364Q \STREAM.NOT.OPEN 355Q \STREAM.NOT.OPEN 346Q \BSPFDEV 341Q STREAMTYPE# 326Q BOTH 234Q FILELINELENGTH 217Q \FILEOUTCHARFN 210Q \EOSERROR 201Q \NOIMAGEOPS 172Q \STREAM.NOT.OPEN 163Q \STREAM.NOT.OPEN 146Q \BSPFDEV 141Q STREAMTYPE# 127Q \BSP.INITIAL.MAXPUPALLOC 121Q \BSP.INITIAL.ADATATIMEOUT 15Q USER 10Q BSPSOCTYPE#) ( 755Q "#INPUT") \SMASHBSPSTREAM D1 (P 1 OUTSTREAM P 0 SOCKET I 1 OLDSTREAM I 0 OPENSTREAM) TAb@b @AIA@A@A@A@A@A@ AIH H HAh(102Q \SETACCESS 77Q \GETACCESS) (11Q STREAM 3 STREAM) () BSPOUTPUTSTREAM D1 (L (0 BSPSTREAM)) @NIL (3 STREAM) () CLOSEBSPSTREAMA0429 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 SOCKET F 1 STREAM F 2 TIMEOUT F 3 TIMER F 4 RESETY) nPFhi Qg DQ l RcP'jP:j&Q Q Sg PFPDSi jcPPgPR jcci(143Q CLOSERTPSOCKET 115Q MONITOR.AWAIT.EVENT 101Q TIMEREXPIRED? 70Q BSPOPENP 63Q \BSP.FLUSHINPUT 34Q \CLOCK0 25Q BSPFORCEOUTPUT 17Q BSPOPENP 7 OBTAIN.MONITORLOCK) (133Q \BSP.SUCKINPUT 76Q MILLISECONDS 14Q OUTPUT) () CLOSEBSPSTREAM D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 TIMER P 0 SOCKET I 1 TIMEOUT I 0 STREAM F 5 LISPXHIST F 6 RESETVARSLST) <@ A`bU!Vog hg\ LAjh(64Q BLOCK 57Q ERROR! 51Q RESETRESTORE 37Q CLOSEBSPSTREAMA0429) (45Q ERROR 34Q INTERNAL 15Q \RTP.DEFAULTTIMEOUT 5 BSPSOC) ( 31Q (DUMMY.FOR.ERRORSET)) \BSP.SUCKINPUT D1 (I 0 SOCKET) !@ @HlHl @(32Q \CLOCK0 5 \BSP.FLUSHINPUT) NIL () \BSP.FLUSHINPUT D1 (I 0 STREAM) @j h@ (13Q \BSP.CLEANUP.INPUT 4 \BSP.PREPARE.INPUT) NIL () BSPOPENP D1 (L (1 TYPE 0 STREAM)) 5@ d,dlidlAhAgl AhAgNIL (61Q INPUT 41Q OUTPUT 3 STREAM) () GETBSPUSERINFO D1 (L (0 STREAM)) @ <NIL (10Q BSPSOC 3 STREAM) () SETBSPUSERINFO D1 (L (1 VALUE 0 STREAM)) @ Ac jhc Vdjh l VJ&jhAUg g4VJFJDLd jLg J@J@UglKgYQUJ$ XUjUHdldlUjiUHll UHlhUgciUUUU (361Q \BSP.CLEANUP.INPUT 227Q SHOULDNT 221Q \DEQUEUE 157Q TIMEREXPIRED? 142Q MONITOR.AWAIT.EVENT 116Q BSPOPENP 71Q \CLOCK0 51Q BLOCK 11Q OBTAIN.MONITORLOCK) (331Q MARK.ENCOUNTERED 206Q BIN.TIMEOUT 175Q INPUT 154Q MILLISECONDS 122Q BAD.STATE.FOR.BIN 113Q INPUT) () \BSP.PREPARE.INPUT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 TIMEOUT I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \BSP.PREPARE.INPUTA0441) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \BSP.SKIPBYTES D1 (P 1 BYTESLEFT P 0 ERRCODE I 1 NBYTES I 0 STREAM) Q@@ b0@@ X@ @HlJA@@YAIb@ @dAh(102Q \BSP.CLEANUP.INPUT 35Q \BSP.PREPARE.INPUT) (14Q BSPSOC 3 STREAM) () \BSP.CLEANUP.INPUT D1 (P 1 SOCKET P 0 PUP I 0 STREAM) \@@ @dHlZdn@dkJnkH @h@j@hId&k&I:PjI h(130Q \SEND.ACK 71Q RELEASE.PUP) (13Q BSPSOC 5 ETHERPACKET) () BSPBOUT D1 (P 0 ERRCODE I 2 MARKP I 1 BYTE I 0 STREAM) o@@b0@@ X@ @HlI@@@dkZJ@@dk@ AǿB@ o l@ A(153Q BSPFORCEOUTPUT 141Q BSPHELP 112Q BSPFORCEOUTPUT 26Q \BSP.PREPARE.OUTPUT) (3 STREAM) ( 136Q "BSPPUTMARK lost its pup") \BSPWRITEBLOCK D1 (P 2 NBYTESLEFT P 1 MYBASE P 0 ERRCODE I 3 NBYTES I 2 OFF I 1 BASE I 0 STREAM) @@b@Cjh@Y@ X@ @HlK@@@ZC/Jj#ABI@J BJbCJb@dJ@ ABI@C @dCh(165Q \MOVEBYTES 147Q BSPFORCEOUTPUT 115Q \MOVEBYTES 35Q \BSP.PREPARE.OUTPUT) (3 STREAM) () BSPFORCEOUTPUTA0452 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 4 \INTERRUPTABLE P 2 NBYTES P 1 SOCKET P 0 PUP F 5 STREAM F 6 DEMANDINGLY F 7 RESETY) Uc Uc Fhi U1HUHJlHllU Y( IH HgI6 Id(J(UdJ[dnUdkKnkId'k'Id.J.Id2k2Id3jJ3UhUjUhIHVi HI0I H I hci(324Q \SETBSPTIMEOUT 317Q SENDPUP 300Q \TRANSMIT.STRATEGY 123Q \EP.PUT.AUX 110Q \SETRTPPORTS 102Q \PUTFIXP 30Q OBTAIN.MONITORLOCK) (115Q AUXWORD 21Q BSPSOC 3 STREAM) () BSPFORCEOUTPUT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 DEMANDINGLY I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q BSPFORCEOUTPUTA0452) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \BSP.PREPARE.OUTPUTA0453 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 TIMER P 2 SOCKET P 1 ERRCODE P 0 PUP F 6 STREAM F 7 TIMEOUT F 10Q RESETY) V Fhi PVV WJ>jJ>cWWjh l WVg gDJ2jJ3jh5WJFJDMd jMg J@J@JglKgY2VXHlVHll VjVJ/J3dLLhci(227Q ALLOCATE.PUP 170Q TIMEREXPIRED? 153Q MONITOR.AWAIT.EVENT 107Q BSPOPENP 72Q \CLOCK0 11Q OBTAIN.MONITORLOCK) (217Q BOUT.TIMEOUT 206Q OUTPUT 165Q MILLISECONDS 113Q BAD.STATE.FOR.BOUT 104Q OUTPUT) () \BSP.PREPARE.OUTPUT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 TIMEOUT I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \BSP.PREPARE.OUTPUTA0453) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) BSPGETMARK D1 (I 0 STREAM) D@@ b@ g@h@ll j@ @ @glH(56Q \BSP.CLEANUP.INPUT 25Q \BSP.PREPARE.INPUT) (74Q BAD.GETMARK 30Q MARK.ENCOUNTERED 14Q BSPSOC 3 STREAM) () BSPPUTMARK D1 (I 1 MARKBYTE I 0 STREAM) @ @Ai (11Q BSPBOUT 3 BSPFORCEOUTPUT) NIL () BSP.PUTINTERRUPTA0460 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 PUP P 0 TIMER F 2 SOCKET F 3 TIMEOUT F 4 STREAM F 5 RESETY F 6 CODE F 7 STRING) RFhi S l STg OSHg hBR:j?RIllR*R0 IlV IW R I Rk:R ic iRFRDHd (174Q MONITOR.AWAIT.EVENT 152Q \SETBSPTIMEOUT 137Q SENDPUP 127Q PUTPUPSTRING 110Q \FILLBSPPUP 67Q ALLOCATE.PUP 50Q TIMEREXPIRED? 35Q BSPOPENP 21Q \CLOCK0 7 OBTAIN.MONITORLOCK) (45Q MILLISECONDS 32Q OUTPUT) () BSP.PUTINTERRUPT D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 SOCKET I 3 TIMEOUT I 2 STRING I 1 CODE I 0 STREAM F 4 LISPXHIST F 5 RESETVARSLST) .@ T!Uog hg[ KJ(51Q ERROR! 44Q RESETRESTORE 32Q BSP.PUTINTERRUPTA0460) (40Q ERROR 27Q INTERNAL 10Q BSPSOC 3 STREAM) ( 24Q (DUMMY.FOR.ERRORSET)) \BSP.PUPHANDLER D1 (I 1 SOCKET I 0 PUP) @dldl@A odldlAk:0@A Vdl@A Hdl@A :dl@A ,l@A Ag@ A@AlHA:0jA h(216Q \SEND.ACK 161Q RELEASE.PUP 142Q \BSP.HANDLE.ERROR 126Q \BSP.HANDLE.INTERRUPTREPLY 110Q \BSP.HANDLE.INTERRUPT 72Q \BSP.HANDLE.ACK 54Q \BSP.HANDLE.DATA 23Q \BSP.HANDLE.DATA) (153Q RELEASE.PUP) () \BSP.HANDLE.ACK D1 (P 6 INTERRUPTPUP P 5 OUTQUEUE P 4 ACKDATA P 3 ADATACOUNT P 2 OLDPUP P 1 NEXTPUP P 0 THISID I 1 SOCKET I 0 PUP)   A@i @l_OXA,@ hA:@j3Ad7lA8 _lOOl_lOOl7AH,A0]A:jAi MMdhhNA:@jA6Aj:@JA5`Aj5A4`Ad4k4@ll \ALdnn/Ad4LA'_dOOdjj2ALA.djj3@ AD A A:_lOMA N VJhJlCHJl_OJl'Ad'k'Ad.lJ.Ad5k5J K MJ IZ gJ jAJdKgJ jh[g JMA J l `h(730Q \CLOCK0 720Q SENDPUP 703Q \TRANSMIT.STRATEGY 664Q FASSOC 632Q FASSOC 613Q \ENQUEUE 602Q RELEASE.PUP 460Q SENDPUP 423Q \SETBSPTIMEOUT 417Q NOTIFY.EVENT 411Q RELEASE.PUP 161Q \SEARCH.OUTPUTQ 71Q CLOCKDIFFERENCE 42Q RELEASE.PUP 10Q \RTP.FILTER) (733Q \BSP.INACTIVITY.TIMEOUT 700Q NO 654Q AUXWORD 624Q AUXWORD 263Q \BSP.MAXPUPALLOC 245Q \BSP.ALLOCHYSTERESIS) () \BSP.HANDLE.DATA D1 (P 6 INQUEUE P 5 DATALENGTH P 4 DIF P 3 NEXTPUP P 2 PREVPUP P 1 NEWID P 0 THISID I 1 SOCKET I 0 PUP)  A@i @l]j@ h@l_OXMYA A$^HNl_O N@ :N['HKl_O\j@ hbjLKZJN@@K@j9B @ AjHjH oo H o h h(76Q TERPRI 71Q PRIN1 61Q PRIN1 54Q PRIN1 36Q PRIN1 17Q CLOCKDIFFERENCE 13Q PRIN1) NIL ( 66Q " msecs ago." 51Q " expired " 43Q " msecs left") PRINTPUPQUEUE D1 (P 2 GAP P 1 LASTPUP P 0 PUP I 2 VERBOSE I 1 HEADER I 0 QUEUE) @AA HbBl HYB HXMBAl Hl[KIl\LIlZjo J g o @Io I h(202Q TERPRI 176Q PRIN1 171Q PRIN1 152Q PRIN1 140Q PRIN1 131Q PRIN1 124Q PRIN1 51Q TAB 32Q BSPPRINTPUP 23Q TAB 11Q PRIN1) (135Q >) ( 166Q " Oops! Tail of queue = " 147Q ", " 121Q "