(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jan-98 11:49:49" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>library>VMEM.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "20-Jan-93 15:04:46" {DSK}lde>lispcore>library>VMEM.;2 17754 changes to%: ( RECORDS REMOTEPOINTER) previous date%: " 9-Nov-92 16:30:26" {DSK}lde>lispcore>library>VMEM.;1) INITVMEM :D8 (P 0 X I 1 WRITEABLE I 0 FILE F 1 VMOUTFILEX F 2 VMEMVARS) b`@dKgA bA`cR!dH HH  (95 OPENREMOTEVMEMFILE 88 VREADPAGEMAP 83 UNMAPVM 72 SET 67 EVAL 56 BOUNDP 29 OPENVMFILE 10 CLOSEVMEMFILE) (39 VMEMFILE 23 LISP.SYSOUT 4 VMEMFILE) () REOPENVMFILE :D8 (I 1 WRITEABLE I 0 FILE) &@Agggl (25 OPENSTREAM) (35 VMEMFILE 30 VMEMFILEX 18 OLD 13 INPUT 7 BOTH) () VVAG2 :D8 (I 1 LO I 0 HI) @AHjHdd h(22 \FZEROP) NIL () VGETBASE0 :D8 (I 0 PTR) -`@ ` ` @ @l(35 VMAPPAGE 13 SETVMPTR) (25 VMEMFILE 18 VMEMFILE 4 VMEMFILE) () VPUTBASE0 :D8 (I 1 VALUE I 0 PTR) 0`@ A @ @lA@A A(44 REMOTESETWORD 28 VMAPPAGE 19 VBOUT2 12 SETVMPTR) (4 VMEMFILE) () VGETBASEPTR0 :D8 (I 0 PTR) _`(@ ` ` ` ` ذ@ @lbl@bj @@ h@(87 \FZEROP 52 VMAPPAGE 13 SETVMPTR) (41 VMEMFILE 34 VMEMFILE 26 VMEMFILE 19 VMEMFILE 4 VMEMFILE) () VPUTBASEPTR0 :D8 (P 0 WORD I 1 VALUE I 0 PTR) i`!@ Aj Ajn @ @lXAjHAjn@Aj @kAjn A(101 REMOTESETWORD 85 REMOTESETWORD 48 VMAPPAGE 37 VBOUT2 24 VBOUT2 13 SETVMPTR) (4 VMEMFILE) () INVALIDADDR :D8 (I 0 PTR) #oi @ i o (32 ERROR 22 TERPRI 16 VPRINTVA 10 PRIN1) NIL ( 27 "Invalid address" 4 "Invalid Address: ") PRINTVM :D8 (P 9 E P 8 PAGE P 6 P P 5 SEG P 3 FIRSTE P 2 LASTE P 1 LASTPAGE P 0 LASTSEG) md"ljMLh`M ^`{lj OOmNO _jWMH+i oi MXi i OkIOkJOi OOOOk_Mk]d(145 PRIN1 136 ENDVMPRINT 115 TERPRI 108 PRIN1 99 PRIN1 87 TERPRI 80 ENDVMPRINT 64 FASTELTN 34 FASTELT 21 ENDVMPRINT) (40 PGEMPTY 28 PGTAB) ( 93 "segment ") ENDVMPRINT :D8 (F 0 FIRSTE F 1 LASTE F 2 LASTPAGE) RmPQ8l hi nPPncQncooi P^oi Ri l hi nPPncQncooi Pi oi Qi i mch(171 TERPRI 164 PRIN1 156 PRIN1 144 PRIN1 136 PRIN1 95 TAB 85 PRIN1 77 PRIN1 62 PRIN1 21 TAB) NIL ( 150 "-" 130 " " 124 "*" 71 "-" 56 " " 50 "*") OPENVMFILEA0001 :D8 (I 0 FILE) g@dg h(16 OPENP) (11 BOTH 4 REOPENVMFILE) () OPENVMFILE :D8 (I 1 WRITEABLE I 0 NAME) -@A gggggg (42 WHENCLOSE 6 REOPENVMFILE) (36 OPENVMFILEA0001 31 STATUS 26 CLOSEVMEMFILE 21 AFTER 16 NO 11 CLOSEALL) () UNMAPVM :D8 (P 4 J P 2 P P 1 I) AljIHh`I Z`ljLKJLj Lk\IkY(49 FASTSETAN 22 FASTELT) (28 PGEMPTY 16 PGTAB) () CLOSEVMEMFILE :D8 NIL `` h(22 CLOSEREMOTEVMEMFILE 16 CLOSEF?) (29 VMEMFILE 11 VMEMFILE 4 VMEMFILE) () MAPVMPAGE :D8 (P 2 D P 1 B P 0 A I 1 PAGE I 0 VP) ?@@l`H Zd``Hn Z JIA h(59 FASTSETAN 50 FASTSETA 44 FIXPARRAY 19 FASTELT) (35 PGTAB 26 PGEMPTY 13 PGTAB) () VBIN1 :D8 NIL ` NIL (4 VMEMFILE) () VBOUT1 :D8 (I 0 BYTE F 0 VMOUTFILEX) Po` @ (23 \BOUT 17 ERROR) (12 VMEMFILE) ( 7 "Can't write on ") VBIN2 :D8 NIL ` ` NIL (11 VMEMFILE 4 VMEMFILE) () VBOUT2 :D8 (I 0 VALUE) @ @l @(15 VBOUT1 6 VBOUT1) NIL () SETVMPTR :D8 (P 1 J P 0 A I 0 PTR) T`@j @jnHI jj@j `HI n@jl h(80 SETFILEPTR 60 FASTELTN 47 INVALIDADDR 34 FASTELTN 15 FASTELT) (53 VMEMFILE 4 PGTAB) () VMPAGEP :D8 (I 0 VP) `@ @l jjh(20 FASTELTN 11 FASTELT) (4 PGTAB) () VTYPEDPOINTER :D8 (I 1 POINTER I 0 TYPE) .`d@AjHdIAjnHdINIL (4 |REMOTEPOINTERTYPE#|) () \REMOTEPOINTER.DEFPRINT :D8 (I 0 RPTR) 8g@oo@ g@ h(51 CONCAT 45 OCTALSTRING 32 OCTALSTRING) (37 %, 10 REMOTEPOINTER 4 {) ( 24 "}#" 19 "") POINTERARRAY :D8 (I 1 INIT I 0 N) @gAj (12 ARRAY) (5 POINTER) () WORDARRAY :D8 (I 0 N) @gjd (12 ARRAY) (5 SMALLPOSP) () FIXPARRAY :D8 (I 0 N) @gjd (12 ARRAY) (5 FIXP) () (PRETTYCOMPRINT VMEMCOMS) (RPAQQ VMEMCOMS ((FNS INITVMEM REOPENVMFILE VVAG2) (INITVARS (VMEMFILE)) (FNS VGETBASE0 VPUTBASE0 VGETBASEPTR0 VPUTBASEPTR0 INVALIDADDR) (COMS (FNS PRINTVM ENDVMPRINT) (DECLARE%: DONTCOPY (CONSTANTS NOPAGE))) (FNS OPENVMFILE UNMAPVM CLOSEVMEMFILE MAPVMPAGE VBIN1 VBOUT1 VBIN2 VBOUT2) (FNS SETVMPTR VMPAGEP) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS * VMACROS) (RECORDS REMOTEPOINTER) DONTEVAL@LOAD (P (OR (SELECTQ (AND (GETD (QUOTE COMPILEMODE)) (COMPILEMODE)) ((ALTO D) T) NIL) (FILESLOAD (LOADCOMP) DCODEFOR10)))) (COMS (FNS VTYPEDPOINTER \REMOTEPOINTER.DEFPRINT) (INITRECORDS REMOTEPOINTER) ( DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE REMOTEPOINTER) (QUOTE \REMOTEPOINTER.DEFPRINT))))) (ADDVARS (VMEMVARS (PGEMPTY (FIXPARRAY 256)) (PGTAB (POINTERARRAY 256 PGEMPTY)) (RDSYSINIT T))) ( GLOBALVARS PGTAB PGEMPTY VMEMFILEX VMEMFILE FIRSTPMT) (COMS (FNS POINTERARRAY WORDARRAY FIXPARRAY) (P (MAPC (QUOTE ((ELT FASTELT FASTELTN FASTELTW) (SETA FASTSETA FASTSETAN FASTSETAW) (GETHASH IGETHASH) ( PUTHASH IPUTHASH))) (FUNCTION (LAMBDA (X) (MAPC (CDR X) (FUNCTION (LAMBDA (Y) (MOVD? (CAR X) Y)))))))) ))) (RPAQ? VMEMFILE) (/DECLAREDATATYPE (QUOTE REMOTEPOINTER) (QUOTE (POINTER WORD WORD)) (QUOTE ((REMOTEPOINTER 0 POINTER) (REMOTEPOINTER 2 (BITS . 15)) (REMOTEPOINTER 3 (BITS . 15)))) (QUOTE 4)) (DEFPRINT (QUOTE REMOTEPOINTER) (QUOTE \REMOTEPOINTER.DEFPRINT)) (ADDTOVAR VMEMVARS (PGEMPTY (FIXPARRAY 256)) (PGTAB (POINTERARRAY 256 PGEMPTY)) (RDSYSINIT T)) (MAPC (QUOTE ((ELT FASTELT FASTELTN FASTELTW) (SETA FASTSETA FASTSETAN FASTSETAW) (GETHASH IGETHASH) ( PUTHASH IPUTHASH))) (FUNCTION (LAMBDA (X) (MAPC (CDR X) (FUNCTION (LAMBDA (Y) (MOVD? (CAR X) Y))))))) (PUTPROPS VMEM COPYRIGHT ("Venue & Xerox Corporation" 1982 1984 1985 1986 1990 1992 1993)) NIL