(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "21-Jan-93 13:57:46" ("compiled on " {DSK}lde>lispcore>library>REMOTEVMEM.;1) " 7-Oct-92 12:15:13" bcompl'd in "Medley 7-Oct-92 ..." dated " 7-Oct-92 15:18:52") (FILECREATED "12-Jun-90 11:00:52" {DSK}local>lde>lispcore>library>REMOTEVMEM.;2 10969 changes to%: (VARS REMOTEVMEMCOMS) previous date%: "15-Feb-85 18:17:43" {DSK}local>lde>lispcore>library>REMOTEVMEM.;1) CLEARPAGECACHE :D8 NIL hNIL (5 REMOTEPAGELST) () OPENREMOTEVMEMFILE :D8 (L (0 HOST)) !gg@ h(20 OPENPUPSOCKET 15 ETHERPORT) (30 VMEMFILE 9 REMOTEPMAP 4 PMAP) () CLOSEREMOTEVMEMFILE :D8 NIL #`d` (32 CLOSEPUPSOCKET 4 CLEARPAGECACHE) (23 VMEMFILE 9 VMEMFILE) () VMAPPAGE :D8 (L (0 PAGE#)) P@`H6@`@n X`d` YIhH` H(74 MOVETOP 56 NTH 32 REMOTEPMAP 27 \ALLOCBLOCK) (69 REMOTEPAGELST 51 REMOTECACHESIZE 45 REMOTEPAGELST 39 REMOTEPAGELST 18 VMEMFILE 5 REMOTEPAGELST) () REMOTEPMAP :D8 (L (2 BUFFER 1 PAGE# 0 FL)) @d`@AZ@llAH `k\KAHJhi YLk԰#dlBIl,nİ&dlA lo J II B(147 RELEASE.PUP 139 RELEASE.PUP 132 ERROR 121 \TR.NOSERVER 109 INVALIDADDR 68 \EXCHANGEPUPS 47 SETUPPUP 28 ALLOCATE.PUP 14 SHOULDNT) (52 \MAXETHERTRIES 6 VMEMFILE) ( 127 "REMOTE SYSTEM NOT RESPONDING") REMOTERETURN :D8 NIL ``3kI`llhJ KHo I hJIhi \Kk[#L dl3Il#Il"]lMl k IgJI hl(163 \TR.NOSERVER 151 SENDPUP 134 \PUTBASEFIXP 127 \GETBASEFIXP 97 RELEASE.PUP 79 EXCHANGEPUPS 68 RELEASE.PUP 61 ERROR 45 SETUPPUP 9 ALLOCATE.PUP) (141 FREE 29 VMEMFILE 14 VMEMFILE 4 \MAXETHERTRIES) ( 56 "REMOTE SYSTEM NOT RESPONDING") REMOTESETWORD :D8 (L (1 VALUE 0 PTR)) ``kI`llhJ I@j,I@jn-IA.Il"dlKH:JIhi Kk[#dl*dlo@ lo A(172 ERROR 161 \TR.NOSERVER 149 ERROR 115 EXCHANGEPUPS 45 SETUPPUP 9 ALLOCATE.PUP) (84 ETHERPACKET 67 ETHERPACKET 52 ETHERPACKET 29 VMEMFILE 14 VMEMFILE 4 \MAXETHERTRIES) ( 167 "REMOTE SYSTEM NOT RESPONDING" 143 "INVALID ADDRESS") \TR.NOSERVER :D8 NIL ` oi (24 ERROR 13 PORTSTRING) (4 VMEMFILE) ( 18 "not running TeleRaid server") (PRETTYCOMPRINT REMOTEVMEMCOMS) (RPAQQ REMOTEVMEMCOMS ((FNS CLEARPAGECACHE OPENREMOTEVMEMFILE CLOSEREMOTEVMEMFILE VMAPPAGE REMOTEPMAP REMOTERETURN REMOTESETWORD \TR.NOSERVER DEBUGGINGTRSERVER) (INITVARS (REMOTEPAGELST) (REMOTECACHESIZE 100)) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS REMOTEVMEMFILE) (CONSTANTS \PUPSOC.TELERAID) ( CONSTANTS * TRPUPTYPES) (ADDVARS * (LIST (CONS (QUOTE PUPTYPES) TRPUPTYPES))) (GLOBALVARS REMOTECACHESIZE REMOTEPAGELST) (ADDVARS (DONTCOMPILEFNS DEBUGGINGTRSERVER)) (FILES (LOADCOMP) PUP VMEM )))) (RPAQ? REMOTEPAGELST) (RPAQ? REMOTECACHESIZE 100) (PUTPROPS REMOTEVMEM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1990)) NIL