(FILECREATED "10-Jan-86 18:38:38" ("compiled on " {ERIS}KOTO>RPC.;7) "12-Nov-85 14:59:23" recompiled exprs: \MarshalString in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (FILECREATED "10-Jan-86 18:37:17" {ERIS}KOTO>RPC.;7 86041 changes to: (FNS \MarshalString) (MACROS FILLPUPSOURCE PUPDEBUGGING) (RECORDS Connection Conversation ConversationID DispDetails ExportTableEntry ImportInstance InterfaceName PktConversationID RPCBinderArgs RPCHandle RPCPup RPCPupContents RPCRFAResponse RPCRFARequest VersionRange) previous date: "10-Jan-86 14:24:40" {ERIS}KOTO>RPC.;6) InitRPC D1 (P 1 i I 0 socket F 2 DWIMWAIT) i oi i h@`dg ` 9`g Rgo dg` go hmhdoHj Hdjhddjhj`kIHo IkY`ogoh`h ``k`kjdhi(401Q NewExportTableEntry 347Q CLOCK 326Q BLOCK 322Q ADD.PROCESS 230Q CLOCK 214Q ETHERHOSTNUMBER 165Q PROCESS.NAME 162Q ADD.PROCESS 152Q SHOULDNT 135Q OPENPUPSOCKET 126Q StopRPC 114Q ASKUSER 75Q OPENPUPSOCKET 62Q FIND.PROCESS 50Q OPENPUPSOCKET 26Q TERPRI 21Q PRIN1 10Q TERPRI 2 THIS.PROCESS) (432Q \BinderDisp 417Q \NoDispatcher 411Q \NoDispatcher 404Q ExportTable 372Q \MatchAnyVersion 362Q Binder 357Q \RPCConvID 344Q \RPCNumberOfServers 341Q \RPCMaxIdlers 302Q \RPCMaxIdlers 277Q \CallCnt 273Q \HandleOverflow 267Q \HandleCnt 263Q \RPCIdlers 257Q \RPCWanting 253Q \RPCHandles 241Q \RPCLastConversation 211Q \RPCConversations 205Q \RPCConnections 201Q ExportCount 174Q ExportTable 170Q \RPCTopProc 144Q N 140Q \RPCSocket 132Q \RPCSocketNumber 120Q Y 105Q Y 100Q \RPCSocket 72Q ACCEPT 67Q \RPCSocketNumber 57Q \RPCTopProc 53Q \RPCSocket 45Q FAIL 41Q \RPCSocketNumber 36Q \RPCDefaultSocket) ( 366Q "Binder" 353Q -100001Q 317Q (\RPCServerProc) 220Q (\CREATECELL (CONSTANT \FIXP)) 157Q (\RPCTopProc) 111Q "OK to Reinitialize? " 15Q "Please enable processes by typing (PROCESSWORLD) and try again") StopRPCA0001 D1 (NAME ERRORSET) ` i(5 CLOSEPUPSOCKET) (2 \RPCSocket) () StopRPCA0002 D1 (I 2 f I 1 n I 0 p) Bg@ (13Q DEL.PROCESS) (4 \RPCServerProc) () StopRPC D1 NIL !h` ` o g (36Q MAP.PROCESSES 30Q StopRPCA0001 20Q DEL.PROCESS 11Q FIND.PROCESS) (33Q StopRPCA0002 15Q \RPCTopProc 6 \RPCTopProc 3 \BinderDisp) ( 25Q (StopRPCA0001)) ImportInterfaceA0001 D1 (L (1 arg 0 type)) @ggNIL (11Q die 3 CallFailed) () ImportInterfaceA0002 D1 (NAME ERRORSET F 0 socket F 1 type F 2 version F 3 instance F 4 stubProt) PQSdghT`R` h(32Q RemoteBind) (26Q \MatchAnyVersion 20Q \MatchAnyVersion 6 BROADCAST) () ImportInterface D1 (P 6 $Exit$ P 5 result P 4 $SignalArg$ P 3 $SignalType$ P 2 $SignalCatcher$ P 1 socket P 0 host I 3 stubProt I 2 version I 1 instance I 0 type)  Ad;dg4oA A XggA X gg H Y`kg@h h H@Hi @Hi @ RQ oQ (175Q PRIN1 164Q TERPRI 154Q RELEASE.PUP 146Q NOTIFY.EVENT 127Q NOTIFY.EVENT 110Q \ClearWanting 103Q BLOCK 77Q ADD.PROCESS 12Q \Wanting) (70Q \RPCServerProc 64Q \RPCNumberOfServers 57Q \RPCNumberOfServers 51Q \RPCNumberOfServers 46Q \RPCMaxServers 37Q \RPCIdlers 33Q \RPCIdlers 27Q \RPCIdlers) ( 171Q "No room for new server - ignoring call") \ExchangePackets D1 (P 54Q N P 53Q D P 10Q callAgent P 7 pktSeq P 6 callCount P 5 pingTimeout P 4 transTimeout P 3 transCount P 2 acked P 1 newPup P 0 handle I 3 conv I 2 signalDispatcher I 1 state I 0 pup F 55Q PUPTRACEFILE F 56Q PUPTRACEFLG F 57Q PSTAT.TIMEDOUT) ^- *nj@" nnԼ@j&@j%@H!@-j2AdgQW\oWZ @ldlj@l__OOl@l__OOlgOW\oWZ @ldlj@l__OOl@l_ _O Ol\AgOW\oWZ @ldll@l_$_"O$O"l@l_(_&O(O&lg @l(`k,OVOX OVOX @k-cAdgD@ldlk@l_,_*O,O*l@l_0_.O0O.lgT@ldllW\oWZ @l_4_2O4O2l@l_8_6O8O6liZAdgPW\oWZ @ldlk@l_<_:OO@O>lXgNW\oWZ @ldlk@l_D_BODOBl@l_H_FOHOFlk Ag@l(dk@l(+OVOV@-_@*_H C@C `@ HYHJML W^`JV@ldll@l_L_JOLOJl@l_P_NOPONl@l*n`M hZ|@l_T_ROTORlKk[l@ gg Lld\NHhIll@ICON H 2C@(I( I%@"IC @(I(  I%@"I*OIl(+OVOVN uW\oWZ oWZ OkI-W\oWZ oWZ AgAdglgAgAgW\oWZ oWZ IldkW\oWZ oWZ dliI H $djdl W\oWZ oWZ lqlklfOI-W\oWZ oWZ IldlvW\oWZ oWZ @lj@I! iAgAg$W\oWZ oWZ I hYW\oWZ I H NdkdjfW\oWZ AgMW\oWZ IllW\oWZ I H W\oWZ I H lUll Ml II-O&W\oWZ oWZ I H W\oWZ oWZ l I@ I.lAgBIIl(+OVOVN0Ag)IljW\oWZ oWZ l W\oWZ oWZ Ii H W\oWZ oWZ Ii H IC bC*@l(N,OVOX OVOX @O-@O*h(3514Q \LONUM 3502Q \HINUM 3452Q \DoSignal 3442Q \SetWanting 3435Q \RoutePup 3427Q PRIN1 3415Q PRIN1 3375Q \SetWanting 3370Q \RoutePup 3362Q PRIN1 3350Q PRIN1 3326Q PRIN1 3314Q PRIN1 3201Q RELEASE.PUP 3167Q SHOULDNT 3161Q PRIN1 3147Q PRIN1 3127Q \SetWanting 3122Q RELEASE.PUP 3115Q PRIN1 3103Q PRIN1 3032Q \SetWanting 3025Q RELEASE.PUP 3020Q PRIN1 3001Q \SetWanting 2774Q RELEASE.PUP 2767Q PRIN1 2736Q PRIN1 2712Q PRIN1 2661Q \SetWanting 2654Q RELEASE.PUP 2647Q PRIN1 2625Q RELEASE.PUP 2620Q PRIN1 2606Q PRIN1 2530Q PRIN1 2516Q PRIN1 2462Q PRIN1 2450Q PRIN1 2400Q PRIN1 2366Q PRIN1 2333Q \SetWanting 2326Q RELEASE.PUP 2307Q PRIN1 2275Q PRIN1 2240Q PRIN1 2226Q PRIN1 2141Q PRIN1 2127Q PRIN1 2075Q PRIN1 2063Q PRIN1 2042Q IEQP 1764Q IEQP 1752Q \DecryptPup 1734Q IEQP 1715Q \SetWanting 1710Q \ReplyToRFA 1643Q Signal 1631Q RELEASE.PUP 1560Q MIN 1425Q AWAIT.EVENT 1377Q SENDPUP 1367Q \EncryptPup 1357Q \SetWanting 1272Q SHOULDNT 1166Q PRIN1 1043Q PRIN1 732Q PRIN1 542Q \LONUM 530Q \HINUM 501Q SHOULDNT 372Q PRIN1 246Q PRIN1 122Q PRIN1 33Q CheapHopsToNet 5 \FindHandle 2 THIS.PROCESS) (3261Q endCall 3215Q call 2717Q receiving 2566Q endCall 2560Q sending 2204Q authReq 2176Q receiving 2170Q call 2155Q endCall 2146Q sending 1640Q timeout 1635Q CallFailed 1435Q \RPCDebugWaitForever 1373Q \RPCSocket 1277Q receiving 1147Q sending 1023Q call 671Q receiving 561Q endCall 516Q \CallCnt 511Q \CallCnt 476Q 1a 353Q authReq 227Q sending 102Q call) ( 3422Q "3" 3410Q "," 3355Q "2" 3343Q "," 3321Q "10" 3307Q "," 3154Q "1" 3142Q "," 3110Q "8" 3076Q "," 3013Q ",7a1b" 2762Q ",7a1a" 2731Q ",7a1" 2705Q ",7a" 2642Q ",16b" 2613Q "16a" 2601Q "," 2523Q "16" 2511Q "," 2455Q "7" 2443Q "," 2373Q "15" 2361Q "," 2302Q "14" 2270Q "," 2233Q "12" 2221Q "," 2134Q "6" 2122Q "," 2070Q "5" 2056Q "," 1161Q ",11c" 1036Q ",11b" 725Q ",11a" 365Q ",20c" 241Q ",20b" 115Q ",20a") \DoSignalA0001 D1 (L (1 arg 0 type)) @giNIL (3 unwindRequested) () \DoSignalA0002 D1 (NAME ERRORSET F 0 pup F 1 conv F 2 disp) PQlRchNIL NIL () \DoSignal D1 (P 4 $Exit$ P 3 result P 2 $SignalArg$ P 1 $SignalType$ P 0 $SignalCatcher$ I 2 conv I 1 pup I 0 disp) hA AllAj.Al gAo [;L2Al.Al*AggB b.djlll iA(144Q SHOULDNT 135Q ERROR! 131Q SHOULDNT 105Q \ExchangePackets 50Q \DoSignalA0002 3 \SetupResponse) (101Q CantCatchHere 76Q call 36Q \DoSignalA0001 27Q ETHERPACKET) ( 45Q (\DoSignalA0002)) \StartCall D1 (P 4 N P 3 D P 2 id P 1 handle P 0 pup I 2 conv I 1 disp I 0 socket) @gg H@`l`j` HB?`II Hj-HA.HA1Hl(AKL KL Hl*HZ Jo尳JI Jn䰡g (224Q Signal 205Q IEQP 162Q IEQP 157Q ETHERHOSTNUMBER 135Q \LONUM 125Q \HINUM 66Q \SetupResponse 46Q SETUPPUP 24Q \NewProcess 21Q ALLOCATE.PUP 15Q Signal 2 \CheckRPC) (221Q MisusedConversation 55Q \RPCConvID 42Q \RPCSocket 34Q \RPCSocketNumber 12Q Unimported 7 CallFailed) ( 171Q -100001Q) \CallA0001 D1 (P 0 D I 1 arg I 0 type F 1 pup F 2 conv) A@g:Q"Q!Q(Q jQ  Ql(HHR Q g(73Q \RELEASE.PUP 66Q \AbortRemote 37Q \FindHandle 34Q THIS.PROCESS) (76Q aborted 3 AbortRemote) () \CallA0002 D1 (NAME ERRORSET F 0 pup F 1 signalDispatcher F 2 conv) PgQR h(10Q \ExchangePackets) (3 call) () \Call D1 (P 4 $Exit$ P 3 result P 2 $SignalArg$ P 1 $SignalType$ P 0 $SignalCatcher$ I 2 conv I 1 signalDispatcher I 0 pup) qgAo [LdgLihb @!@ @.dj@l @dlg@ kgg (156Q SHOULDNT 152Q Signal 135Q Signal 76Q \SetupResponse 64Q \FindHandle 61Q THIS.PROCESS 53Q SHOULDNT 41Q ERROR! 32Q ERROR! 14Q \CallA0002) (147Q unbound 144Q CallFailed 131Q unwindRequested 112Q ETHERPACKET 24Q aborted 2 \CallA0001) ( 11Q (\CallA0002)) \AbortRemoteA0001 D1 (I 1 arg I 0 type) @gi oi i i(30Q TERPRI 23Q PRIN1 12Q TERPRI) (3 CallFailed) ( 17Q "Attempt to abort remote process failed") \AbortRemoteA0002 D1 (NAME ERRORSET F 0 pup F 1 conv) PgQ h(12Q \RELEASE.PUP 7 \Call) (3 CantCatchHere) () \AbortRemote D1 (P 5 $Exit$ P 4 result P 3 $SignalArg$ P 2 $SignalType$ P 1 $SignalCatcher$ P 0 pup I 5 conv I 4 callCnt I 3 remid I 2 id I 1 src I 0 host) D@`E Xdk HA HC HB HD gAo \Mih(100Q SHOULDNT 71Q ERROR! 61Q \AbortRemoteA0002 44Q \AddPupDblWord 37Q \AddPupDblWord 32Q \AddPupSmallp 25Q \AddPupSmallp 20Q \AddPupWord 12Q \StartCall) (47Q \AbortRemoteA0001 6 \BinderDisp) ( 56Q (\AbortRemoteA0002)) CantCatchHere D1 (I 0 l..cPup) (2 HELP) NIL () \StartSignal D1 (L (0 pup)) @l*@l(llNIL NIL () \StartReturn D1 (L (0 pup)) @ll*l*NIL NIL () \SetWanting D1 (L (0 handle)) @`NIL (7 \RPCWanting 3 \RPCWanting) () \ClearWanting D1 (I 0 handle) @` (6 DREMOVE) (11Q \RPCWanting 3 \RPCWanting) () \Wanting D1 (I 0 hint) @` (6 FASSOC) (3 \RPCWanting) () \NewHandleCnt D1 NIL )`kki``` `(41Q ASSOC) (46Q \HandleCnt 36Q \RPCHandles 33Q \HandleCnt 27Q \HandleOverflow 23Q \HandleOverflow 16Q \HandleCnt 7 \HandleCnt 2 \HandleCnt) () \NewProcess D1 (P 0 process I 0 newFlg) /X@d jhg` H`(40Q CREATE.EVENT 35Q PACK* 21Q \NewHandleCnt 14Q \FindHandle 5 THIS.PROCESS) (53Q \RPCHandles 47Q \RPCHandles 32Q \HandleCnt 27Q Server) () \FindHandle D1 (L (0 process)) `HhY@IiHXNIL (2 \RPCHandles) () \KillHandle D1 (I 0 h) @d` (10Q DREMOVE) (13Q \RPCHandles 5 \RPCHandles) () \EncryptPup D1 (P 4 check P 3 nBlks P 2 end P 1 cryptBase P 0 words I 1 conv I 0 pup) @lj@l(l@l3Hlkl[dlH\d]j@Jj(JkԺMkٰ@JL (@JkL (@ldLlAdgAKIdggA dgdggA h(252Q SHOULDNT 245Q Signal 215Q CryptData 133Q \HINUM 115Q \LONUM) (237Q NotImplementedYet 231Q CBC 223Q ECB 205Q cbcCheck 202Q encrypt 164Q CBCCheck 123Q ETHERPACKET 107Q ETHERPACKET 64Q ETHERPACKET) () \DecryptPup D1 (P 3 check P 2 checkAddr P 1 cryptBase P 0 nBlks I 1 conv I 0 pup) @lll@l(l@llAdgAHIdggA dgdggA @Jk(@J([dmlK(135Q SHOULDNT 130Q Signal 100Q CryptData) (154Q ETHERPACKET 142Q ETHERPACKET 122Q NotImplementedYet 114Q CBC 106Q ECB 70Q cbcCheck 65Q decrypt 47Q CBCCheck) () \RPCOpenClosest D1 (P 10Q LOCALFLG P 7 VAL P 6 PORT P 5 NEXTPORT P 4 BETWEENPROBE P 3 CNTIME P 2 SOC P 1 PUP P 0 MYNET I 1 type I 0 PORTLIST F 16Q \CONNECTTIMEOUT F 17Q \BETWEENPROBEDELAY) @A OtObeOHh@bZl W[@]J LLg MM@YN`khJg IA JI LlELE b_dHi_O_OOh__O_eO&_@qhl WJ YKg chlI%I&(325Q TIMEREXPIRED? 313Q GETPUP 306Q BLOCK 277Q \CLOCK0 174Q SORT.PUPHOSTS.BY.DISTANCE 156Q SENDPUP 150Q PUTPUPSTRING 142Q SETUPPUP 122Q ALLOCATE.PUP 102Q TIMEREXPIRED? 71Q DISCARDPUPS 57Q \CLOCK0 50Q \GETMISCSOCKET 2 ETHERHOSTNUMBER) (322Q MILLISECONDS 136Q FREE 130Q \RPCDefaultSocket 77Q MILLISECONDS) () \SetupResponse D1 (L (3 dest 2 id 1 conv 0 pup)) -A@C @A(@B*@d! @d%"@l``NIL (52Q \RPCSocketNumber 45Q \RPCSocketNumber) () \ReceiveExtra D1 (I 1 conv I 0 pup) 1@l*@ggA bd @ll@j.@l @(25Q \SetupResponse 17Q \ExchangePackets) (51Q ETHERPACKET 13Q CantCatchHere 10Q receiving) () \SendExtra D1 (I 1 conv I 0 pup) @ggA o @ll*l*(22Q HELP 12Q \ExchangePackets) (6 CantCatchHere 3 sending) ( 17Q "shouldn't get an answer") CheapHopsToNet D1 (P 0 e I 0 net F 1 \PUP.ROUTING.TABLE) @Q l(7 FASSOC) NIL () \CheckRPC D1 NIL `` h(20Q \RPCNotAliveErr 14Q PROCESSP 11Q FIND.PROCESS) (6 \RPCTopProc 2 \BinderDisp) () \RPCNotAliveErr D1 NIL go (11Q Signal) (2 RPCDead) ( 6 "Please do InitRPC() and try again") \ServerErrorA0001 D1 (NAME ERRORSET F 0 arg F 1 MACROY) o P o h ci(31Q TERPRI 24Q PRIN1 14Q ERRORMESS 6 PRIN1) NIL ( 21Q "saving arg and carrying on" 3 "Lisp error in server: ") \ServerError D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 handle I 0 arg F 4 RESETVARSLST) ii 1gHhhTcog gIcgI K` ``@A hh @ (146Q RELSTK 133Q \NCONC2 122Q \APPEND2 115Q GDATE 100Q LENGTH 70Q ERROR! 62Q APPLY 36Q \ServerErrorA0001 3 OUTPUT) (136Q \RPCServerErrors 112Q \RPCServerErrors 103Q \RPCMaxServerErrors 75Q \RPCServerErrors 53Q OUTPUT 42Q ERROR 33Q INTERNAL 11Q OUTPUT) ( 30Q (\ServerErrorA0001)) \InitRPCVars D1 NIL kj`jdhNIL (21Q \NoDispDetails 10Q \NoDispatcher 5 \MatchAnyVersion) () \ReplyToRFA D1 (P 10Q i P 6 o P 0 nonceID I 4 callCount I 3 activity I 2 conv I 1 request I 0 call)  PA2@( ,ljNMANl (@Nl( hNk^iA hAlA XA Aj&Aj%Aj!Al*Aj Aj A@(6AldlA@% AC AD AHk @(` Aj Aj @(kg Al Al(l BlĿBlAl(l Al(l gg` AB B mjOOABO( Ok_AB AldlkAlZJIlAl\LKlAl(dk`A A i(605Q RELEASE.PUP 601Q SENDPUP 470Q \PutBinderString 446Q \AddPupWord 415Q ARRAYSIZE 405Q \AddPupWord 402Q ARRAYSIZE 371Q CryptData 303Q \AddPupWord 274Q Signal 252Q \AddPupWord 244Q \AddPupWord 236Q IEQP 225Q \AddPupDblWord 216Q \AddPupDblWord 211Q \AddPupWord 204Q \AddPupWord 152Q \AddPupDblWord 145Q \AddPupDblWord 116Q \SetupResponse 111Q \GetArgDblWord 73Q RELEASE.PUP 53Q IEQP 13Q IEQP) (575Q \RPCSocket 365Q \RPCNullSeed 362Q cbcCheck 357Q encrypt 322Q ARRAYP 271Q NotMeBoss 233Q \RPCConvID 101Q ETHERPACKET) () \GetConnectionState D1 (P 14Q D P 13Q iv P 12Q tempKey P 11Q kb P 4 conv P 3 level P 2 response P 1 nonceId P 0 rfa I 0 pup F 15Q PUPTRACEFILE F 16Q PUPTRACEFLG F 17Q DESNullKey)  `rH@%`l`j` H@(2ljNMHNl @Nl((Nk^Hl6HI H`j@! Hj-Hg ZlJlWW oW hJ>[djSkKlKdloK 9l/W lojd  OJl(lJl(l OJl(llĿOJ?llJl(l Jl(l gg` OJl(l Jl(l OJl(l lĿOlJl(l Jl(l gg` hJ6jJ8J6olojd _dJl(l lĿ_Jl(lXJR _O OghO@L WW oW IkJ=J< WW osJ6@( @%J8@*J9WOW o<@l( OOJ;J: WW oLi(1170Q TERPRI 1151Q IEQP 1100Q TERPRI 1032Q IEQP 1011Q TERPRI 772Q IEQP 746Q SHOULDNT 740Q PRIN1 726Q TERPRI 714Q \DecryptPup 671Q COPYARRAY 661Q \GETBASESTRING 614Q ARRAY 567Q ETHERHOSTNUMBER 542Q CryptData 460Q DecryptBlock 434Q CryptData 340Q DecryptBlock 312Q ARRAY 277Q CorrectParity 274Q COPYARRAY 255Q HELP 206Q PRIN1 174Q TERPRI 147Q \ExchangePackets 134Q \SetupResponse 121Q \AddPupDblWord 40Q SETUPPUP 14Q CLOCK 11Q ALLOCATE.PUP) (1143Q ETHERPACKET 1135Q ETHERPACKET 1056Q ETHERPACKET 1043Q ETHERPACKET 764Q ETHERPACKET 756Q ETHERPACKET 700Q CBCCheck 654Q ETHERPACKET 622Q ARRAYP 561Q ETHERPACKET 536Q \RPCNullSeed 533Q cbcCheck 530Q decrypt 466Q ARRAYP 430Q \RPCNullSeed 425Q cbcCheck 422Q decrypt 371Q ETHERPACKET 346Q ARRAYP 214Q ETHERPACKET 144Q authReq 125Q \RPCConvID 34Q \RPCSocket 26Q \RPCSocketNumber 2 \RPCDontBotherWithRFA) ( 1175Q "callCount wrong" 1105Q "connection wrong" 1016Q "nonceID#" 733Q "didn't decrypt" 607Q (BITS 10Q) 576Q -100001Q 305Q (BITS 10Q) 251Q "level not implemented yet" 201Q "too small") \PutBinderString D1 (I 1 string I 0 pup) :A6@A @A @A @kj@ldk@llj(27Q \PUTPUPSTRING 22Q \AddPupWord 17Q NCHARS 12Q \AddPupWord 7 NCHARS) NIL () \AddRPCDispDetails D1 (I 1 disp I 0 pup) @A @A @A (24Q \AddPupWord 14Q \AddPupDblWord 6 \AddPupWord) NIL () \AddRPCVersion D1 (I 1 version I 0 pup) @A @A (13Q \AddPupWord 5 \AddPupWord) NIL () \AddPupDblWord D1 (I 2 conv I 1 dblWord I 0 pup) @A B @A B (21Q \AddPupWord 15Q \HINUM 10Q \AddPupWord 4 \LONUM) NIL () \AddPupWord D1 (I 2 conv I 1 word I 0 pup) 1n&@@B @@lA(@ldlHII(14Q \SendExtra) (21Q ETHERPACKET) () \AddPupEnum D1 (P 2 t P 1 i I 3 conv I 2 val I 1 type I 0 pup) -@AjHgBA hC ZBIIkԹHX(31Q \AddPupWord 22Q Signal) (14Q BoundsCheck) () \AddPupSmallp D1 (I 2 conv I 1 n I 0 pup) @jAAoԀAB (20Q \AddPupWord) NIL ( 11Q 200000Q) \AddPupBoolean D1 (I 2 conv I 1 bool I 0 pup) @AkjB (11Q \AddPupWord) NIL () \MarshalStream D1 (P 0 length I 3 conv I 2 stream I 1 parm I 0 pup) _B@BC @ln&@C B @i @j d`B bj @hC B @HC Hj@HBjC B(133Q \MoveToPup 116Q \AddPupWord 105Q GETEOFPTR 101Q \AddPupBoolean 73Q SETFILEPTR 65Q GETSTREAM 50Q \AddPupWord 43Q \AddPupBoolean 32Q \SendExtra 11Q \MarshalString) (56Q STREAMTYPE#) () \MarshalArb D1 (P 1 stream P 0 \RPCScratchStream I 2 conv I 1 datum I 0 pup) K`RPC>RPCPkt.mesa and should track any changes made there) (DECLARE: DONTCOPY (RECORDS Connection Conversation ConversationID DispDetails ExportTableEntry ImportInstance InterfaceName PktConversationID RPCBinderArgs RPCHandle RPCPup RPCPupContents RPCRFAResponse RPCRFARequest VersionRange)) (VARS (\NoDispatcher 0) (\MatchAnyVersion) (\NoDispDetails)) (P (\InitRPCVars)) ( GLOBALVARS \NoDispatcher \MatchAnyVersion \NoDispDetails) (* adding stuff to pups) (FNS \PutBinderString \AddRPCDispDetails \AddRPCVersion \AddPupDblWord \AddPupWord \AddPupEnum \AddPupSmallp \AddPupBoolean \MarshalStream \MarshalArb \MarshalString \MarshalAtom \MoveToPup \MoveToMultPups) (* Picking stuff out of pups) (FNS \GetBinderString \GetArgDisp \GetArgVersion \GetArgDblWord \GetArgWord \GetArgEnum \GetArgBool \GetArgSmallp \UnmarshalString \UnmarshalStream \UnmarshalArb \UnmarshalAtom \MoveFromPup \MoveFromMultPups \IncrDataOffset \IncrPupLength \CurrentPupBase \CurrentPupPosition \CheckPupOverflow \CheckPupExhausted \SkipBytesOut \SkipWordsIn) ( * to control how much PUPTRACEFLG shows) (ALISTS (PUPPRINTMACROS 96 97 98 104 105 106 120 100 108 121) ) (VARS RPCPUPTYPES (PUPTYPES (UNION RPCPUPTYPES (LISTP (EVALV (QUOTE PUPTYPES))))) (PUPONLYTYPES ( UNION PUPONLYTYPES (MAPCAR RPCPUPTYPES (FUNCTION CADR))))) (DECLARE: DONTCOPY (MACROS PUPDEBUGGING)) ( DECLARE: DONTCOPY EVAL@COMPILE (P (RESETSAVE DWIMIFYCOMPFLG T))) (FILES GRAPEVINE SIGNAL CRYPT) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) CRYPT SIGNAL NOBOX ETHERRECORDS ( IMPORT) LLCHAR LLARRAYELT)))) (RPAQ? \RPCNullSeed (ARRAY 8 (QUOTE (BITS 8)) 0 0)) (RPAQ? \HandleCnt 0) (RPAQ? \HandleOverflow) (RPAQ? \ConnectionTimeout 6) (RPAQ? \CheckConnectionsInterval 60000) (RPAQ? \RPCConnections) (RPAQ? \RPCConversations) (RPAQ? \RPCLastConversation) (RPAQ? \RPCHandles) (RPAQ? \RPCWanting) (RPAQ? \RPCDefaultSocket 30) (RPAQ? \BinderDisp) (RPAQ? \RPCConvID) (RPAQ? \RPCDontBotherWithRFA) (RPAQ? \RPCDebugWaitForever) (RPAQ? \RPCNumberOfServers 0) (RPAQ? \RPCMaxServers 5) (RPAQ? \RPCMaxIdlers 3) (RPAQ? \RPCIdlers) (RPAQ? \RPCDebugServers) (RPAQ? \RPCServerErrors) (RPAQ? \RPCMaxServerErrors 25) (PUTDEF (QUOTE \RPCScratchStream) (QUOTE RESOURCES) (QUOTE (NEW (OPENSTREAM (QUOTE {NODIRCORE}) (QUOTE BOTH) (QUOTE NEW)) FREE (SETFILEPTR (SETQ \\RPCScratchStream.GLOBALRESOURCE (PROGN . ARGS)) 0)))) (RPAQQ \NoDispatcher 0) (RPAQQ \MatchAnyVersion NIL) (RPAQQ \NoDispDetails NIL) (\InitRPCVars) (ADDTOVAR PUPPRINTMACROS (96 INTEGER 4 WORDS 42 ...) (97 INTEGER 4 WORDS 42 ...) (98 INTEGER 4 WORDS 16 ...) (104 INTEGER 4 WORDS 42 ...) (105 INTEGER 4 WORDS 42 ...) (106 INTEGER 4 WORDS 16 ...) (120 INTEGER 4 WORDS 42 ...) (100 INTEGER 4 WORDS 42) (108 INTEGER 4 WORDS 42) (121 INTEGER 4 WORDS 42 ...) ) (RPAQQ RPCPUPTYPES ((\RPC.ACK 98) (\RPC.DATA! 105) (\RPC.PING 106) (\RPC.CALL 96) (\RPC.CALL! 104) ( \RPC.DATA 97) (\RPC.CALL-! 120) (\RPC.RFA 100) (\RPC.RFA! 108) (\RPC.DATA-! 121))) (RPAQ PUPTYPES (UNION RPCPUPTYPES (LISTP (EVALV (QUOTE PUPTYPES))))) (RPAQ PUPONLYTYPES (UNION PUPONLYTYPES (MAPCAR RPCPUPTYPES (FUNCTION CADR)))) (FILESLOAD GRAPEVINE SIGNAL CRYPT) (PUTPROPS RPC COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL