(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 17:45:42" ("compiled on " {DSK}sources>MEM.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED " 5-Nov-92 15:57:00" "{Pele:mv:envos}Sources>MEM.;7" 13313 changes to%: (FNS MKI.NEXTPAGE MKI.NEWPAGE WriteoutPage I.PUTBASEPTR I.GETBASEFIXP I.PUTBASEFIXP) (VARS MEMCOMS) previous date%: "16-May-90 20:36:32" "{Pele:mv:envos}Sources>MEM.;2") MKI.NEXTPAGE :D8 (P 1 I P 0 A I 0 VP) Y @nh`@ X`@lkb@lYn@lkbHI `@nIIkذ(67 FASTELT 22 FASTELT) (72 NONPAGE 28 NONPAGE2 15 MEMARRAY) () WriteoutPage :D8 (P 0 A I 1 VP I 0 FX) ,`A Al Hjn@g h(40 AOUT 20 FASTELT 11 FASTELT) (34 SMALLPOSP 4 MEMARRAY) () MKI.NEWPAGE :D8 (P 2 PAGE P 1 LO1 P 0 A I 3 BLANKFLG I 2 LOCK? I 1 NOERROR I 0 PTR) 0`@ Xd` `@n` X H@nY `@o `fo` o@`` o` o@`n` l` HICn `n  B@k @(241 MKI.LOCKPAGES 232 FASTSETA 222 WORDARRAY 205 WORDARRAY 192 SPACES 179 PRINTNUM 150 PRIN1 134 PRINTNUM 108 PRIN1 85 HELP 67 FASTELT 53 FASTSETA 47 POINTERARRAY 15 FASTELT) (227 BLANKPAGE 212 BLANKPAGE 187 NEWPAGETRACE 174 NEWPAGETRACE 164 PTRNIL 145 NEWPAGETRACE 129 NEWPAGETRACE 122 PTRNIL 103 NEWPAGETRACE 91 NEWPAGETRACE 72 NONPAGE 42 NONPAGE 31 MEMARRAY 22 NONPAGE2 7 MEMARRAY) ( 156 (FIX 3 8) 140 "," 114 (FIX 3 8) 98 "page " 80 "already allocated") MKI.LOCKPAGES :D8 (L (1 NPAGES 0 PTR) F 0 LOCKEDPAGES) @`APcNIL (7 PTRNIL) () MKI.LOCKEDPAGEP :D8 (P 1 X I 0 VP F 2 LOCKEDPAGES) #RHh@I@IIiHXNIL NIL () RESETMEMORY :D8 (P 1 I F 2 LOCKEDPAGES) `hc`4n n` n` ljIHh`I` IkY(87 FASTSETA 53 POINTERARRAY 35 POINTERARRAY 17 WORDARRAY) (82 NONPAGE2 76 MEMARRAY 58 MEMARRAY 48 NONPAGE2 40 NONPAGE2 30 NONPAGE 22 NONPAGE 7 MEMARRAY) () I.PUTBASE :D8 (I 2 V I 1 D I 0 PTR) @0@AZJlJlZ`H I Xd`HJB (61 FASTSETAW 52 INVALIDADDR 37 FASTELT 31 FASTELT) (44 NONPAGE 25 MEMARRAY) () I.GETBASE :D8 (I 1 D I 0 PTR) ?0@AZJlJlZ`H I Xd`HJ (60 FASTELTW 52 INVALIDADDR 37 FASTELT 31 FASTELT) (44 NONPAGE 25 MEMARRAY) () I.PUTBASEPTR :D8 (I 2 V I 1 D I 0 PTR) dB`1@A[KlKl[`I J Y`Hd3@H IKH IKkHn H(96 FASTSETAW 82 FASTSETAW 71 I.ATOMNUMBER 58 INVALIDADDR 45 FASTELT 39 FASTELT) (51 NONPAGE 33 MEMARRAY 7 PTRNIL) () I.GETBASEPTR :D8 (I 1 D I 0 PTR) _@@AZJlJlZ`H I Xd`HJ lHJk [jKdd h(90 \FZEROP 74 FASTELTW 60 FASTELTW 52 INVALIDADDR 37 FASTELT 31 FASTELT) (44 NONPAGE 25 MEMARRAY) () I.GETBASEFIXP :D8 (I 1 D I 0 PTR) K0@AZJlJlZ`H I Xd`HJ HJk (71 FASTELTW 60 FASTELTW 52 INVALIDADDR 37 FASTELT 31 FASTELT) (44 NONPAGE 25 MEMARRAY) () I.PUTBASEFIXP :D8 (I 2 V I 1 D I 0 PTR) P0@AZJlJlZ`H I Xd`HJB HJkBn (77 FASTSETAW 63 FASTSETAW 52 INVALIDADDR 37 FASTELT 31 FASTELT) (44 NONPAGE 25 MEMARRAY) () (PRETTYCOMPRINT MEMCOMS) (RPAQQ MEMCOMS ((* ;; "Memory-faking functions for use in MAKEINIT. These read and write from a huge (tree-structured) set of arrays, rather than changing real memory." ) (COMS (* ;; "Page creation, locking/unlocking, ") (FNS MKI.NEXTPAGE WriteoutPage MKI.NEWPAGE MKI.LOCKPAGES MKI.LOCKEDPAGEP RESETMEMORY)) (DECLARE%: EVAL@COMPILE (VARS (PTRNIL 0) (PTRNOBIND 1)) DONTCOPY (RECORDS ALTOPOINTER)) (VARS (NEWPAGETRACE) (BLANKPAGE)) (COMS (* ;; "Functions for fetching and replacing words, pointers, and FIXPs in the MAKEINIT. If, e.g., we need GETBASEFLOATP in the init, we'd have to add a definition here. You'd also need to add an entry to MKI.SUBFNS (e.g. (\GETBASEFLOATP . I.GETBASEFLOATP) ), so that the renaming code would catch it." ) (FNS I.PUTBASE I.GETBASE I.PUTBASEPTR I.GETBASEPTR I.GETBASEFIXP I.PUTBASEFIXP) (DECLARE%: DONTCOPY (MACROS .DOADDBASE. I.HILOC I.LOLOC I.ADDBASE I.PAGELOC I.VAG2))) (* ;; "MEMARRAY is the fake-memory array.") (VARS (MEMARRAY)) (GLOBALVARS MEMARRAY NONPAGE NONPAGE2 PTRNIL BLANKPAGE NEWPAGETRACE))) (RPAQQ PTRNIL 0) (RPAQQ PTRNOBIND 1) (RPAQQ NEWPAGETRACE NIL) (RPAQQ BLANKPAGE NIL) (RPAQQ MEMARRAY NIL) (PUTPROPS MEM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1986 1990 1992)) NIL