(FILECREATED "24-Apr-85 15:35:11" ("compiled on " {ERIS}INTERMEZZO>PATCHES>ALLOCPAGEBLOCK.;2) "19-Mar-85 14:34:17" recompiled changes: \ALLOCPAGEBLOCK in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED "24-Apr-85 15:34:20" {ERIS}INTERMEZZO>PATCHES>ALLOCPAGEBLOCK.;2 13527 changes to: (FNS \ALLOCPAGEBLOCK) (VARS ALLOCPAGEBLOCKCOMS) previous date: "24-Apr-85 15:17:21" {ERIS}INTERMEZZO>PATCHES>ALLOCPAGEBLOCK.;1) \ALLOCPAGEBLOCK D1 (P 5 BASE P 2 RESULT P 1 FIRSTPAGE P 0 \INTERRUPTABLE I 0 NPAGES) @`l`l@kmbYIl:`lhI`Iln`Y@'I@`nA@I[KlZkNLJM NkԾMnн(166Q \NEWPAGE 53Q \SET.STORAGE.STATE) (126Q \InterfacePage 122Q \SecondArrayPage 106Q \SecondArrayPage 76Q \NxtMDSPage 65Q \NxtArrayPage 46Q \STORAGEFULLSTATE 41Q \NxtMDSPage 13Q \NxtMDSPage 5 \NxtArrayPage) () \MAPMDS D1 (P 5 VP P 2 TYP P 1 I I 1 FN I 0 TYPE) y@@d@ b`lkjj"IdHhjn@nIj`d```ML&M[KlZ@@JjJkMkAMl]IkY(15Q \TYPENUMBERFROMNAME) (104Q \NxtMDSPage 100Q \LeastMDSPage 72Q \LeastMDSPage 66Q \NxtMDSPage 23Q \STORAGEFULLSTATE) () \CHECKFORSTORAGEFULL D1 (P 1 PAGESLEFT P 0 \INTERRUPTABLE I 0 NPAGES)  l``lY@`dkdlNjIlo Il@`djjlo `i`k`ihdl9@Ij`nlhI`l ` 2il,``nl i@iln`h(345Q SHOULDNT 313Q \ADVANCE.STORAGE.STATE 257Q \ADVANCE.ARRAY.SEGMENTS 250Q \ADVANCE.STORAGE.STATE 164Q \DORECLAIM 130Q \MP.ERROR 70Q \MP.ERROR 40Q \SET.STORAGE.STATE) (333Q \NxtArrayPage 306Q \NxtMDSPage 276Q \NxtMDSPage 273Q \LeastMDSPage 254Q \SecondArrayPage 242Q \LeastMDSPage 237Q \NxtArrayPage 221Q \NxtMDSPage 212Q \LeastMDSPage 207Q \NxtArrayPage 160Q \PENDINGINTERRUPT 147Q \INTERRUPTSTATE 143Q \STORAGEFULL 135Q \STORAGEFULL 116Q \STORAGEFULL 104Q \STORAGEFULL 33Q \STORAGEFULLSTATE 12Q \NxtArrayPage 7 \NxtMDSPage) ( 125Q "Space getting VERY full. Please save and reload a.s.a.p. Type control-N to continue now." 65Q "Storage completely full") STORAGE D1 (P 20Q HFLG P 17Q TYPE P 15Q I P 13Q DOBLOCKSFLG P 12Q TYPENAME P 11Q TYPE P 10Q HUNKSTATS P 7 FREE P 6 TOTALHUNKS P 5 TOTALALLOCMDS I 1 PAGETHRESHOLD I 0 TYPES) llllj2IH!jddddhK Lh[IkYL&J4 o l o l o l- o l7 o h l o h @`k OdOGNA h o l oMN h h o h l o l2 o h l o l4 o h o l oM l2 o h o Nj oi,@!OO MA LO_hO_O_Odd"jOOd`oO ji_ _h`OPji_ OOMA OMA Ok_o l o`dldl`n``؇`n l2 o o h Nj ,o l oN l2 o h o`lln `o`k`k؋o`kn i_Oh(1321Q \SHOW.ARRAY.FREELISTS 1305Q \STLINP 1242Q \STLINP 1207Q TERPRI 1202Q PRIN1 1172Q TAB 1164Q PRINTNUM 1153Q TAB 1145Q PRIN1 1134Q IEQP 1126Q TERPRI 1121Q PRINTNUM 1115Q STORAGE.LEFT 1105Q PRIN1 1075Q TAB 1067Q PRINTNUM 1010Q TAB 1002Q PRIN1 761Q \STORAGE.TYPE 747Q \STORAGE.TYPE 704Q \TYPENUMBERFROMNAME 671Q ERROR 574Q \STORAGE.HUNKTYPE 533Q IEQP 525Q PRIN1 515Q TERPRI 510Q PRIN1 500Q TAB 472Q PRINTNUM 461Q TAB 453Q PRIN1 443Q TERPRI 436Q PRIN1 426Q TAB 420Q PRIN1 410Q TAB 402Q TERPRI 375Q PRIN1 365Q TAB 357Q PRIN1 347Q TAB 341Q TERPRI 334Q PRIN1 324Q TERPRI 317Q TERPRI 312Q PRINTNUM 277Q TAB 271Q PRIN1 261Q TERPRI 254Q \STORAGE.HUNKTYPE 216Q TERPRI 211Q PRIN1 201Q TAB 173Q TERPRI 166Q PRIN1 156Q TAB 150Q PRIN1 140Q TAB 132Q PRIN1 122Q TAB 114Q PRIN1 104Q TAB 76Q PRIN1) (1275Q \CurPnPage 1263Q \CurPnPage 1256Q \CurPnPage 1246Q \PNAMES.IN.BLOCKS? 1217Q \AtomFrLst 1060Q \NxtArrayPage 1051Q \SecondArrayPage 1046Q \NxtArrayPage 1037Q \LeastMDSPage 1020Q \STORAGEFULLSTATE 715Q \DTDSpaceBase 655Q \MaxTypeNumber 230Q \MaxTypeNumber) ( 1272Q "Litatom Pnames" 1253Q "Litatom Pnames (from bootstrap)" 1214Q "Litatoms" 1177Q "/" 1160Q (FIX 10Q) 1142Q "ArrayBlocks (chunked)" 1112Q (FIX 6) 1102Q "--" 1015Q (FIX 10Q) 777Q "" 664Q "Not a type number" 543Q " (variable)" 522Q "ArrayBlocks" 505Q "\" 466Q (FIX 10Q) 450Q "Datatypes (incl. LISTP etc.)" 433Q "Pages" 415Q "Pages" 372Q "Remaining" 354Q "Allocated" 331Q "Data Spaces Summary" 304Q (FIX 5) 266Q "TOTAL" 206Q "pages [items]" 163Q "Total alloc" 145Q "In use" 127Q "Free items" 111Q "Assigned" 73Q "Type") STORAGE.LEFT D1 NIL `ln```dln`l؏l``l؀j`jHIkԹHZJlXIlH`kjn`n'YHI`dkIl`l`ojn`lldnh(7 \SET.STORAGE.STATE) (240Q \AtomFrLst 222Q \NxtArrayPage 214Q \NxtMDSPage 175Q \STORAGEFULLSTATE 161Q \SecondArrayPage 146Q \STORAGEFULLSTATE 75Q \MDSFREELISTPAGE 64Q \LeastMDSPage 61Q \NxtMDSPage 45Q \SecondArrayPage 31Q \STORAGEFULLSTATE 25Q \NxtArrayPage 22Q \NxtMDSPage 2 \STORAGEFULLSTATE) ( 227Q 9984.0) (PRETTYCOMPRINT ALLOCPAGEBLOCKCOMS) (RPAQQ ALLOCPAGEBLOCKCOMS ((FNS \ALLOCPAGEBLOCK \MAPMDS \CHECKFORSTORAGEFULL STORAGE STORAGE.LEFT))) (PUTPROPS ALLOCPAGEBLOCK COPYRIGHT ("Xerox Corporation" 1985)) NIL