(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "21-Mar-2021 21:33:05" ("compiled on " {DSK}larry>ilisp>medley>sources>LLFAULT.;10) "12-Mar-2021 12:24:02" brecompiled changes%: nothing in "Medley Full Sysout 12-Mar-2021 ..." dated "12-Mar-2021 12:24:04") (FILECREATED "21-Mar-2021 21:33:01" {DSK}larry>ilisp>medley>sources>LLFAULT.;10 164815 changes to%: (VARS LLFAULTCOMS) previous date%: "16-Mar-2021 20:27:50" {DSK}larry>ilisp>medley>sources>LLFAULT.;8) \FAULTINIT :D8 NIL ` dl`;jko `Aj6`dlhdl`=jlhil#o h`dll`lR ```hiR`g jgg`dnjd `g`dnjd i(279 \MAKEFRAME 249 \MAKEFRAME 185 \SET.VMEM.FULL.STATE 167 \GETBASEFIXP 154 \SETIOPOINTERS 148 \D01.FAULTINIT 142 \DOVE.FAULTINIT 132 \DL.FAULTINIT 108 \MP.ERROR 45 \MP.ERROR 21 \MAIKO.FAULTINIT) (266 \MISCSTACKBASE 261 \DOMISCAPPLY 256 \InterfacePage 236 \KBDSTACKBASE 231 \DUMMYKEYHANDLER 225 \KEYHANDLER 212 \KEYHANDLER 207 \InterfacePage 197 \DOFAULTINIT 191 \DOFAULTINIT 177 \GUARDVMEMFULL 172 \LASTVMEMFILEPAGE 160 \InterfacePage 121 \MACHINETYPE 115 \LASTDIRTYSCANPTR 82 \InterfacePage 62 \MACHINETYPE 51 \InterfacePage 29 \InterfacePage 11 \MACHINETYPE 4 \InterfacePage) ( 103 "Sysout contains virtual pages not addressable by machine" 40 "No FPTOVP") \D01.FAULTINIT :D8 (P 2 N P 1 I) g`>`#dnnk`"`lozlng `l`l`n`lWn` J`j&`nU'`nnnjIHJIx njjkغIkYJ((222 \D01.ASSIGNBUFFERS 217 \CHAIN.UP.RPT) (165 \InterfacePage 154 \InterfacePage 145 \InterfacePage 135 \InterfacePage 122 \MACHINETYPE 112 \RCLKSECOND 103 \RCLKSECOND 93 \MISCSTATS 86 \RCLKSECOND 81 \RCLKMILLISECOND 62 \MISCSTATS 57 \RPTSIZE 50 \InterfacePage 45 \RPOFFSET 26 \InterfacePage 21 \REALPAGETABLE 14 \InterfacePage 9 \VMEMACCESSFN 4 \M44ACTONVMEMFILE) () \D01.ASSIGNBUFFERS :D8 (P 3 NPAGES P 2 EXTRALEN P 1 EMLEN P 0 EMBUF) `%j``r`+`,2IHdlmXYdlZdldJlnւnZIJY[lKo jHdnKk[`KlۼdLL```d`d`KJi h(220 \INITBFS 111 RAID) (210 \EMUBUFFERS 205 \EMUSWAPBUFFERS 199 \EMUDISKBUFEND 192 \#DISKBUFFERS 186 \EMUDISKBUFFERS 181 \EMUBUFFERS 176 \#DISKBUFFERS 170 \#SWAPBUFFERS 165 \#EMUBUFFERS 160 \#SWAPBUFFERS 144 \MAXSWAPBUFFERS 139 \#EMUBUFFERS 130 \EMUBUFFERS 120 \TELERAIDBUFFER 49 \InterfacePage 42 \InterfacePage 37 \EMBUFRP 31 \EMBUFVP 25 \EMBUFBASE 18 \EMBUFVP 11 \EMBUFVP 4 \InterfacePage) ( 106 "No swap buffer space") \MAIKO.FAULTINIT :D8 NIL Pgjnno`l w`h`h(77 \SETIOPOINTERS 29 \MAIKO.NEWFAULTINIT 24 \MAIKO.DO.MOVDS) (69 \MISCSTATS 61 \MISCSTATS 52 \MISCSTATS 47 \RCLKSECOND 37 \RCLKMILLISECOND 19 \IOCBPAGE 9 \VMEMACCESSFN 4 NILL) ( 42 1000000) \MAIKO.NEWFAULTINIT :D8 (P 0 NBUFFERS) ljnH h(15 \MAIKO.ASSIGNBUFFERS) NIL () \MAIKO.ASSIGNBUFFERS :D8 (I 1 NPAGES I 0 BASE) `@k`@l!@nbAmb@@@nbAmb`n*`@)@nnbAmdj@NIL (145 \EMUSWAPBUFFERS 140 \EMUBUFFERS 134 \#DISKBUFFERS 128 \#SWAPBUFFERS 123 \#EMUBUFFERS 106 \TELERAIDBUFFER 91 \InterfacePage 80 \InterfacePage 60 \EMBUFRP 55 \EMBUFVP 44 \EMBUFBASE 16 \InterfacePage 4 \InterfacePage) () \M-VMEMSAVE :D8 (P 0 SCRATCHBUF) p``i6` ``lR `n`n`nH`nH`}Yh(46 \GETBASEFIXP 33 \DOCOMPRESSVMEM) (101 \InterfacePage 91 \InterfacePage 80 \InterfacePage 69 \InterfacePage 57 \InterfacePage 51 \VMEM.PURE.LIMIT 39 \InterfacePage 27 VMEM.COMPRESS.FLG 20 \VMEM.PURE.LIMIT 12 \InterfacePage 4 \EMUSWAPBUFFERS) () \MAIKO.NEWPAGE :D8 (I 2 LOCK? I 1 NOERROR I 0 BASE) @}[NIL NIL () \MAIKO.DO.MOVDS :D8 (P 3 \INTERRUPTABLE F 4 \MAIKO.MOVDS) 7T0d!H H JIJIJIhNIL NIL () \DOVE.FAULTINIT :D8 NIL gjn`nl n n l?g `l`j`n$`l w`l n `h`l& n `lP n (196 \DoveDisplay.TurnOn 191 SETMAINTPANEL 183 \DoveDisk.Init 173 \GETBASEFIXP 161 SETMAINTPANEL 153 \DoveMisc.ReadHostID 132 SETMAINTPANEL 124 \DoveMisc.ReadGMT 60 SETMAINTPANEL 52 \DL.NEWFAULTINIT 47 SETMAINTPANEL 38 \MP.ERROR) (178 \LASTVMEMFILEPAGE 166 \InterfacePage 145 \InterfacePage 137 \MISCSTATS 116 \MISCSTATS 107 \MISCSTATS 97 \RCLKSECOND 89 \RCLKSECOND 79 \MISCSTATS 72 \RCLKSECOND 67 \RCLKMILLISECOND 24 \InterfacePage 19 \IOCBPAGE 9 \VMEMACCESSFN 4 \DOVE.ACTONVMEMFILE) () \DL.FAULTINIT :D8 NIL gjn`nl l#n`l w`7j`h0`lH`8YH`9`8I`hn``nn```(&``''``&(`lP i (244 \DL.DISKINIT 233 \GETBASEFIXP 44 \DL.NEWFAULTINIT 38 \MP.ERROR) (238 \LASTVMEMFILEPAGE 226 \InterfacePage 217 \IOPAGE 212 \InterfacePage 203 \IOPAGE 198 \InterfacePage 189 \IOPAGE 184 \InterfacePage 174 \IOPAGE 161 \IOPAGE 151 \IOPAGE 140 \MISCSTATS 128 \IOPAGE 118 \IOPAGE 106 \IOPAGE 94 \MISCSTATS 83 \MISCSTATS 73 \IOPAGE 64 \MISCSTATS 59 \RCLKSECOND 51 \RCLKMILLISECOND 24 \InterfacePage 19 \IOCBPAGE 9 \VMEMACCESSFN 4 \DL.ACTONVMEMFILE) () \DL.NEWFAULTINIT :D8 (P 29 NBUFFERS P 28 LASTREALPAGE P 27 RPTBASE P 26 FPBASE P 25 I P 23 FIRSTVP P 22 RPSIZE P 21 NEXTBANK0 P 20 FPBASE P 19 I P 11 NDISPLAYPAGES P 10 FIRSTRP P 9 RPTPAGES P 8 VP P 7 RPTBASE P 6 IOCBRP P 5 IFPAGERP P 4 FIRSTUSEFULRP P 3 SCRATCHBASE P 2 SCRATCHVP P 1 FIRSTBUFFERRP P 0 NREALPAGES) `8nljnlj`IkO&O$hl_kjO&O$BJO&jO&jsO&k_&dnm O*n_*`k_lOOKljOĿOkjO&O$!JO&jn0snO&jO&jsO&k_&`j`l,l?jO&O$l@O&n O&jsO&k_&HmlOl`lnll_O,dnn_,dO,ldl_OnYHO_nOOn_O.Ol$lOlڰOnnnnO_.OkOOmk OkjO&O$O.O&OO&jsO&k_&O._OlO, `O,O, `O,O,O, O,`l)nO*dH8dnm O*n_*OdOm n dl@k `_OkjO&O$'Ol_nO&On O&kO&k_&On Hknk`nkknk`_`OO`lR kO2O0iO6nGO2O88O4n.O4j _qn0n0O2OrO6OO6O2kO6nO2k_2O4k_4O6l_6M`_ `O O _nOlN`_"`O"O"nILk LIO:kjO&O$lO&IO&jsO&k_&jnO: h(1219 \DL.ASSIGNBUFFERS 1165 \CHAIN.UP.RPT 1160 \DL.MARK.PAGES.UNAVAILABLE 1017 \GETBASEFIXP 970 \GETBASEFIXP 911 \DL.MARK.PAGES.UNAVAILABLE 838 \DL.MARK.PAGES.UNAVAILABLE 823 \DL.MARK.PAGES.UNAVAILABLE 798 \DL.MARK.PAGES.UNAVAILABLE 751 \CLEARWORDS 732 \CLEARWORDS 716 \CLEARWORDS 654 \DL.UNMAPPAGES 513 \DoveDisplay.ScreenWidth 477 \DoveIO.InitializeIORegionPtrs 328 \DL.UNMAPPAGES 242 \DL.UNMAPPAGES 173 \MP.ERROR 165 \LOCKEDPAGEP 158 \GETBASEFIXP 74 \LOCKEDPAGEP 67 \GETBASEFIXP) (1138 \REALPAGETABLE 1129 \RPOFFSET 1101 \REALPAGETABLE 1092 \RPOFFSET 963 \InterfacePage 951 \REALPAGETABLE 942 \RPOFFSET 924 \FPTOVP 845 \REALPAGETABLE 765 \MACHINETYPE 759 \RPTSIZE 738 \REALPAGETABLE 722 \REALPAGETABLE 709 \REALPAGETABLE 504 \MACHINETYPE 486 \RPOFFSET 431 \MACHINETYPE 423 \IOPAGE 344 \MaxScreenPage 274 \MACHINETYPE 248 \MACHINETYPE 213 \InterfacePage 197 \IOCBPAGE 148 \FPTOVP 112 \MACHINETYPE 27 \FPTOVP 4 \InterfacePage) () \DL.UNMAPPAGES :D8 (P 2 FPBASE P 1 FP I 1 LASTFP I 0 FIRSTFP) 2A@`@IHhJnJj jn0sIkԹJkк(32 \GETBASEFIXP) (6 \FPTOVP) () \DL.MARK.PAGES.UNAVAILABLE :D8 (P 2 RPTBASE P 1 I I 1 LASTRP I 0 FIRSTRP) 3A@d``HHIHhJnIkԹJlкNIL (16 \REALPAGETABLE 7 \RPOFFSET) () \DL.ASSIGNBUFFERS :D8 (I 1 NPAGES I 0 BASE) @n `@k`@l!@nbAmb@@r@nbAmb`n*`@)@nnbAmdj@(8 \CLEARWORDS) (156 \EMUSWAPBUFFERS 151 \EMUBUFFERS 145 \#DISKBUFFERS 139 \#SWAPBUFFERS 134 \#EMUBUFFERS 117 \TELERAIDBUFFER 102 \InterfacePage 91 \InterfacePage 71 \EMBUFRP 65 \EMBUFVP 54 \EMBUFBASE 26 \InterfacePage 14 \InterfacePage) () \CHAIN.UP.RPT :D8 (P 5 I P 3 FIRSTUSED P 2 LASTUSED P 1 LASTEMPTY P 0 RPTBASE) `ddk3J[`kkML IKJj`nhHlXn3HnIMHjHJMHd kjHMk](110 \LOCKEDPAGEP) (51 \REALPAGETABLE 42 \RPTLAST 18 \RPTSIZE 4 \REALPAGETABLE) () \FAULTHANDLER :D8 NIL ,``l` l~(35 \PAGEFAULT 10 \FAULTINIT) (27 \InterfacePage 17 \InterfacePage 4 \DOFAULTINIT) () \PAGEFAULT :D8 (P 2 FILEPAGE P 1 FLAGS P 0 VP I 0 PTR) `l @@!HqYn0n0l o@i /H Zj@ @klo@i HJ ``l`l `l@(129 \CLOCK0 107 \ASSURE.FPTOVP.PAGE 95 \LOADVMEMPAGE 87 \MP.ERROR 66 \INVALIDADDR 56 \LOOKUPPAGEMAP 48 \MP.ERROR 12 \CLOCK0) (134 \MISCSTATS 121 \MISCSTATS 113 \MISCSTATS 101 \NEWVMEMPAGEADDED 4 \MISCSTATS) ( 80 "Fault on stack" 41 "Fault on resident page") \INVALIDADDR :D8 (I 0 ADDR) lo@i (13 \MP.ERROR) NIL ( 6 "Invalid address") \INVALIDVP :D8 (I 0 VP) lo@ (12 \MP.ERROR) NIL ( 6 "Invalid VP") \FLUSHPAGE :D8 (P 4 IFVP P 3 NEWFP P 2 FP P 1 VP P 0 RPTR I 1 FROMFLUSHVM I 0 RPTINDEX) 0`@@1nHHYqnjH`AJ`Hjl `lR`lR k [``i``IIlK`KI`JnHKZG`n:`nj``LlLr`ih `j`mIJ@ih h(300 \TRANSFERPAGE 266 \TRANSFERPAGE 129 \SET.VMEM.FULL.STATE 110 \PUTBASEFIXP 103 \GETBASEFIXP 83 \MP.ERROR) (288 \DIRTYPAGEHINT 280 \DIRTYPAGEHINT 272 \DIRTYPAGEHINT 257 \RPOFFSET 241 \InterfacePage 234 \InterfacePage 228 \DIRTYPAGEHINT 216 \InterfacePage 203 \InterfacePage 182 \FPTOVP 171 \FPTOVP 147 \PageMapTBL 142 \PAGEMAP 136 \NEWVMEMPAGEADDED 121 \GUARDVMEMFULL 116 \LASTVMEMFILEPAGE 96 \InterfacePage 89 \InterfacePage 64 \VMEM.PURE.LIMIT 49 \VMEM.PURE.LIMIT 4 \REALPAGETABLE) () \LOADVMEMPAGE :D8 (P 5 SRPTR P 4 SRINDEX P 2 SPECIALRP P 1 RPTBASE P 0 RPTINDEX I 4 DONTMOVETOPFLG I 3 LOCK? I 2 NEWPAGEFLG I 1 FILEPAGE I 0 VPAGE) `d``kACD 1`HHYC`l`l@ ZI@IAIC*k(``LLнLMHI LMYj[Kjh@AHhB h(157 \TRANSFERPAGE 127 \MOVEREALPAGE 80 \SPECIALRP 39 \SELECTREALPAGE 18 \UPDATECHAIN) (112 \REALPAGETABLE 103 \RPOFFSET 70 \MACHINETYPE 61 \MACHINETYPE 47 \REALPAGETABLE 31 \PAGEFAULTCOUNTER 24 \PAGEFAULTCOUNTER 10 \UPDATECHAINFREQ 4 \PAGEFAULTCOUNTER) () \MOVEREALPAGE :D8 (P 2 SOURCEFLAGS P 0 SOURCEVP I 3 DESTRPT I 2 DESTINDEX I 1 SOURCERPT I 0 SOURCEINDEX) gCjjdhnARAHqCHCA`B`js`HYIlnĿ``jsHB`JsBNIL (96 \RPOFFSET 86 \EMBUFRP 81 \EMBUFVP 62 \EMBUFBASE 53 \RPOFFSET 47 \EMBUFVP) () \LOOKUPPAGEMAP :D8 (P 0 PRIMENTRY I 0 VP) )`@Hnj`H@lNIL (29 \PAGEMAP 4 \PageMapTBL) () \VALIDADDRESSP :D8 (I 0 BASE) @@ jh(11 \LOOKUPPAGEMAP) NIL () \LOCKEDPAGEP :D8 (I 1 TEMP I 0 VP) Nk@l `@jh0A-@qn0n0h@r``HHjh(9 LLSH) (62 \REALPAGETABLE 53 \RPOFFSET 14 \LOCKEDPAGETABLE) () \SELECTREALPAGE :D8 (P 8 FLAGS P 7 FP P 6 RPTBASE P 5 RPTINDEX P 4 PREVINDEX P 3 PREVRPT P 2 DISTANCE P 1 CNTR P 0 TRIES I 2 DONTMOVETOPFLG I 1 LOCK? I 0 NEWFP)  j``s `K]jHdjCk`MM^nnNlo NMNjNq_njA#M`l`l`lOnjN_`-`i7ih1O``$O`guO`hgIj@O@_jOOjOJiIkٹ`J6Jh.M Njn0sNnBeKN`MN[k6`/h`l`lo tlo dgKNNjM(424 \MP.ERROR 408 RAID 309 \FLUSHPAGE 89 \MP.ERROR 44 \UPDATECHAIN) (433 REMOVE 391 \MACHINETYPE 379 \MACHINETYPE 373 \VMEM.INHIBIT.WRITE 365 \VMEM.INHIBIT.WRITE 354 \RPTLAST 343 \RPTLAST 289 \MAXSHORTSEEK 239 \VMEM.PURE.LIMIT 227 NEW 219 \VMEM.PURE.LIMIT 210 \VMEM.PURE.LIMIT 202 \LASTVMEMFILEPAGE 184 \VMEM.FULL.STATE 177 \VMEM.INHIBIT.WRITE 149 \MACHINETYPE 139 \MACHINETYPE 127 \RPOFFSET 52 \REALPAGETABLE 18 \REALPAGETABLE 10 \MINSHORTSEEK 5 \MAXCLEANPROBES) ( 419 "Loop in \SELECTREALPAGE" 403 "No clean vmem pages to reuse, must write one. ^N to continue" 84 "UNAVAILABLE page on Chain") \SPECIALRP :D8 (I 0 VP) @dk@nl @oNIL NIL ( 23 -4608) \TRANSFERPAGE :D8 (P 0 NEWFLAGS I 4 NEWPAGE? I 3 WRITE? I 2 RPTINDEX I 1 FILEPAGE I 0 VP) 0Clj DnC@qnjXC8`BBj'`@YIlnĿA`kil`8D=@jn0s`B`jsA`kCl```jsA@B`HsD@ZJln Cl `lj `lkh(205 FLIPCURSORBAR 190 FLIPCURSORBAR 180 \CLEARWORDS 13 FLIPCURSORBAR) (211 \MISCSTATS 196 \MISCSTATS 157 \RPOFFSET 149 \LASTACCESSEDVMEMPAGE 140 \EMBUFRP 135 \EMBUFVP 128 \VMEMACCESSFN 119 \EMBUFBASE 109 \RPOFFSET 103 \EMBUFVP 85 \VMEMACCESSFN 76 \EMBUFBASE 56 \EMBUFBASE 39 \REALPAGETABLE) () \UPDATECHAIN :D8 (P 6 HEAD1 P 5 FLAGS P 4 VP P 3 RPTR P 2 CHAIN1 P 1 CHAIN0 P 0 RPTINDEX) ``dlCJ^IjJj`HH[KnjLqKjMnjLH`MnsJHKZIHKYXjJjINNJIJjhNIL (150 \DIRTYPAGECOUNTER 145 \PAGEFAULTCOUNTER 139 \RPTLAST 81 \RPOFFSET 36 \REALPAGETABLE 12 \REALPAGETABLE 4 \REALPAGETABLE) () \NEWPAGE :D8 (P 1 \INTERRUPTABLE P 0 \INTERRUPTABLE I 2 LOCK? I 1 NOERROR I 0 BASE) q`g0`@2`B4l~`6Al o@i B)@k `lR ``@(109 \SET.VMEM.FULL.STATE 91 \GETBASEFIXP 77 \LOCKPAGES 66 \MP.ERROR) (101 \GUARDVMEMFULL 96 \LASTVMEMFILEPAGE 84 \InterfacePage 45 \InterfacePage 32 \InterfacePage 23 \InterfacePage 15 \DONEWPAGE 10 \InterfacePage) ( 59 "Attempt to allocate already existing page") \DONEWPAGE :D8 (P 5 ERRCODE P 4 NEXTPM P 3 FILEPAGE P 2 LOCKBASE P 1 MAPBASE P 0 VP I 2 INTERNALFLG I 1 LOCK? I 0 BASE) `@@Q`HYdnK`\lj`Lid l o `HL`Ll L`IHlYdjh`lR`lR k [`lTK A'HK `HZkHl J`KHIKHKiA BiK(254 \ASSURE.FPTOVP.PAGE 240 \LOADVMEMPAGE 210 LLSH 187 \MAKESPACEFORLOCKEDPAGE 177 \PUTBASEFIXP 163 \PUTBASEFIXP 156 \GETBASEFIXP 85 \MP.ERROR 72 \DONEWPAGE 10 \FAULTINIT) (248 \NEWVMEMPAGEADDED 222 \FPTOVP 193 \LOCKEDPAGETABLE 169 \InterfacePage 149 \InterfacePage 142 \InterfacePage 121 \PAGEMAP 107 \InterfacePage 91 \PageMapTBL 63 \PAGEMAP 48 \InterfacePage 26 \PageMapTBL 4 \DOFAULTINIT) ( 80 "\DONEWPAGE failed to allocate new map page") \ASSURE.FPTOVP.PAGE :D8 (P 0 FILEPAGE) 5`lR Hll`Hlmid h(43 \DONEWPAGE 11 \GETBASEFIXP) (50 \NEWVMEMPAGEADDED 28 \FPTOVP 4 \InterfacePage) () \MAKESPACEFORLOCKEDPAGE :D8 (P 2 FPBASE P 1 OLDVP P 0 DESIREDFP I 1 FILEPAGE I 0 VP) s@@dk@nذ=dl@oذ.l@nذ#A`9An A`d9k[9KX`HZnJj Y@IHA H(111 \MOVEVMEMFILEPAGE 99 \GETBASEFIXP) (81 \FPTOVP 65 \InterfacePage 48 \InterfacePage) ( 28 -2048) \MOVEVMEMFILEPAGE :D8 (P 1 RP P 0 FLAGS I 2 NEWFP I 1 OLDFP I 0 VP) x@q!Hn0n0@A jX@ l o@ @drYHnsI`ٺ`JJB``@@lB`B@h(46 \MP.ERROR 32 \LOCKEDPAGEP 21 \LOADVMEMPAGE) (111 \FPTOVP 88 \PageMapTBL 83 \PAGEMAP 70 \REALPAGETABLE 63 \RPOFFSET) ( 40 "Locked page is in the way") \NEWEPHEMERALPAGE :D8 (P 0 \INTERRUPTABLE I 1 NOERROR I 0 BASE) +`g0`@2`A4l~`6NIL (38 \InterfacePage 27 \InterfacePage 19 \InterfacePage 12 \DONEWEPHEMERALPAGE 7 \InterfacePage) () \DONEWEPHEMERALPAGE :D8 (P 4 RPTR P 3 RPTINDEX P 2 PREVRP P 1 MAPBASE P 0 VP I 1 NOERROR I 0 BASE) @@Q`HYn`IHljHqn0n0Al o@i @`d``khig [`KK\dnLHj HK`nsH]Mln j `lk`@(205 \ASSURE.FPTOVP.PAGE 184 FLIPCURSORBAR 178 \CLEARWORDS 149 FLIPCURSORBAR 121 \SELECTREALPAGE 96 \UPDATECHAIN 75 \MP.ERROR) (199 \NEWVMEMPAGEADDED 189 \MISCSTATS 156 \RPOFFSET 127 \REALPAGETABLE 116 REMOVE 109 \PAGEFAULTCOUNTER 102 \PAGEFAULTCOUNTER 88 \UPDATECHAINFREQ 82 \PAGEFAULTCOUNTER 35 \PAGEMAP 14 \PageMapTBL) ( 68 "Page already exists ") \LOCKPAGES :D8 (P 0 \INTERRUPTABLE I 1 NPAGES I 0 BASE) (`g0`@2`A4l~@NIL (29 \InterfacePage 20 \InterfacePage 12 \DOLOCKPAGES 7 \InterfacePage) () \DOLOCKPAGES :D8 (P 11 NEWRPT P 10 NEWINDEX P 9 LOCKBASE P 8 MASK P 7 RP P 6 RPINDEX P 5 RPTBASE P 4 MAPBASE P 3 FILEPAGE P 2 VP P 1 I I 1 NPAGES I 0 BASE) F Akj@@s IH%`J\n@I `LJl\kJl _`J_jJqn0n0JKhi Jr_`پ`NNнOlW`l`lDJ ABC (28 RAID) (13 \MACHINETYPE 4 \MACHINETYPE) () \ACTONVMEMFILE :D8 (I 3 WRITEFLAG I 2 NPAGES I 1 BUFFER I 0 FILEPAGE) .`dl@ABC l@ABC @ABC (43 \M44ACTONVMEMFILE 33 \DOVE.ACTONVMEMFILE 19 \DL.ACTONVMEMFILE) (4 \MACHINETYPE) () \SHOWPAGETABLE :D8 (P 8 LASTONE P 7 FIRSTONE P 6 STATE P 5 VP P 4 FLAGS P 3 RP P 2 RPTR P 1 OUTSTREAM P 0 *PRINT-BASE* I 1 FILE I 0 MODE) j lAg `jToI I @dgJ[jKkԻ`Kh `KKZ@MNK_O"oI OI I h_K_MoK`I JnonJooMI kI MI lhI oJI lI Jj!M oI oI Mq\dnjoI LnjoI I h(354 TERPRI 347 PRIN1 327 PRIN1 303 PRIN1 291 PRIN1 279 \LOCKEDPAGEP 264 SPACES 255 PRINTNUM 240 TAB 230 \PRINTVP 222 SPACES 214 PRINTNUM 169 PRINTNUM 140 TERPRI 133 PRIN1 124 PRIN1 79 \ILLEGAL.ARG 39 TERPRI 32 PRIN1 12 GETSTREAM) (162 \RPOFFSET 88 \REALPAGETABLE 69 \RPTSIZE 46 CHAIN 17 \REALPAGETABLE 7 OUTPUT) ( 341 "Dirty" 321 "Ref " 297 "Locked " 285 "Temp" 246 (FIX 6 8) 207 (FIX 8 8) 199 " Unavailable" 183 " Empty" 156 (FIX 7 8) 118 "ditto thru " 26 " RP VP FilePage Status") CHECKPAGEMAP :D8 (P 11 RPTINDEX P 9 RP P 8 VP P 7 FP P 6 FPBASE P 5 RPTR P 4 CHAINLOCKED P 3 CHAINOCCUPIED P 2 NUMLOCKED P 1 NUMOCCUPIED P 0 *PRINT-BASE*)  ljdddU `kk OOi`]M_jIKPIi oi Ki oi Ji oi Li oi i n`OO]-IkԹM_M_OO O`O^j coi O`i oi Oi oi Oi oi Nj i O JkԺMj9oi Oi oi O`i o?O`9k?oi Oi oi Oi oi i Ok_Mn`OO]BKkԻMj4LkԼ-(454 TERPRI 447 PRIN1 435 PRIN1 426 PRIN1 414 PRIN1 405 PRIN1 372 PRIN1 357 PRIN1 345 PRIN1 336 PRIN1 309 \LOCKEDPAGEP 299 \PRINTVP 293 \GETBASEFIXP 285 PRIN1 273 PRIN1 264 PRIN1 252 \PRINTVP 243 PRIN1 231 PRIN1 216 PRIN1 202 \GETBASEFIXP 181 CHECKFPTOVP1 133 TERPRI 127 PRIN1 116 PRIN1 109 PRIN1 98 PRIN1 91 PRIN1 80 PRIN1 73 PRIN1 62 PRIN1 13 CHECKFPTOVP) (472 \REALPAGETABLE 387 \InterfacePage 365 \RPOFFSET 224 \RPOFFSET 192 \FPTOVP 142 \REALPAGETABLE 37 \REALPAGETABLE 18 \RPTSIZE) ( 441 ", which is not in the locked page area" 420 " is locked, but living in FP " 399 "VP " 378 " should be locked but isn't." 351 ", living in RP " 330 "VP " 279 "; but FP Map says that FP contains " 258 " lives in FP " 237 " says VP " 210 "RPT for RP " 121 " pages on chain are locked somehow." 103 " pages are permanently locked; " 85 " are on page chain. " 67 " occupied pages, but only ") CHECKFPTOVP :D8 (P 2 FPBASE P 1 FP) >`lR k`kIHhJnIJj IkԹJkк(49 CHECKFPTOVP1 44 \GETBASEFIXP 11 \GETBASEFIXP) (17 \FPTOVP 4 \InterfacePage) () CHECKFPTOVP1 :D8 (P 0 FP2 I 2 RPTINDEX I 1 VP I 0 FP) vA H@gBoi B`؄oi oi @i oi Ai oi Hi i ih(112 TERPRI 105 PRIN1 97 PRIN1 86 \PRINTVP 79 PRIN1 67 PRIN1 59 PRIN1 47 PRIN1 27 PRIN1 5 \LOOKUPPAGEMAP) (34 \RPOFFSET) ( 91 "; but PageMap says that page is in FP " 73 " contains VP " 53 " says FP " 41 "FP map" 21 "RPT for RP ") \PRINTFPTOVP :D8 (P 10 NEXTTYPE P 9 NEXTLOCKED P 8 TYPE P 7 LOCKEDP P 6 NEXTVP P 5 FIRSTVP P 4 FIRSTFP P 3 NEXTFP P 2 LASTVP P 1 *PRINT-BASE* P 0 BASE I 4 VPRAWFLG I 3 STREAM I 2 TYPEFLG I 1 NWORDS I 0 FIRSTPAGE)  Cg b@kbA`lR b`@klm@k jAhKkԻAjm^HkX^dn _BN_Ol _~Ndldl ogdl dl oUdl dl oCdldlo1dlo$dkodlolo_NnJnNJkOOOOjJL$KkC l hC JnoiC oC L DMC MC oC DJC JC OgC Ol hC OC hC N]LKkټNO_O_Amb`(441 TERPRI 432 PRIN1 423 TAB 409 PRIN1 394 \PRINTVP 386 PRIN1 376 PRIN1 364 \PRINTVP 356 PRIN1 341 PRIN1 329 PRIN1 308 TAB 298 PRIN1 119 TYPENAME 95 \LOCKEDPAGEP 32 \GETBASEFIXP 10 GETSTREAM) (403 * 40 \FPTOVP 25 \InterfacePage 5 OUTPUT) ( 370 "-" 335 "-" 321 "empty" 244 "GC Overflow table" 233 "GC Main table" 220 "Stack" 208 "\FPTOVP" 195 "Property lists" 177 "Value cells" 159 "Definitions" 141 "Pnames") \PRINTVP :D8 (I 1 STREAM I 0 VP) 5oA @A oA @lA oA (50 PRIN1 39 PRIN1 29 PRIN1 18 PRIN1 10 PRIN1) NIL ( 44 "}" 23 "," 4 "{") \LOCKFN :D8 (I 0 FN) @ b @j@ h(24 \LOCKCODE 9 \LOCKCELL) NIL () \LOCKCODE :D8 (I 0 CODEBLOCK) @d (12 \LOCKWORDS 6 \#BLOCKDATACELLS) NIL () \LOCKVAR :D8 (I 0 VAR) @ (7 \LOCKCELL) NIL () \LOCKCELL :D8 (I 1 NPGS I 0 X) @@nAk (17 \LOCKPAGES) NIL () \LOCKWORDS :D8 (I 1 NWORDS I 0 BASE) @@nA@lAlk (28 \LOCKPAGES) NIL () (PRETTYCOMPRINT LLFAULTCOMS) (RPAQQ LLFAULTCOMS ((VARS (FAULTTEST T)) (COMS (* ; "Bootstrap code, run once when an image is booted" ) (FNS \FAULTINIT \D01.FAULTINIT \D01.ASSIGNBUFFERS \MAIKO.FAULTINIT \MAIKO.NEWFAULTINIT \MAIKO.ASSIGNBUFFERS \M-VMEMSAVE \MAIKO.NEWPAGE) (* ;; "For setting up (and maybe eventually removing?) MAIKO-specific versions of the generic low-levle functions:" ) (FNS \MAIKO.DO.MOVDS) (ADDVARS (\MAIKO.MOVDS (TRUE \LOCKEDPAGEP) (\MAIKO.NEWPAGE \NEWPAGE) ( \MAIKO.NEWPAGE \DONEWPAGE) (NILL \LOCKPAGES) (NILL \DOLOCKPAGES) (NILL \DOTEMPLOCKPAGES) (NILL \TEMPUNLOCKPAGES) (NILL \UNLOCKPAGES) (NILL \WRITEDIRTYPAGE) (NILL \DIRTYBACKGROUND) (ZERO \COUNTREALPAGES) (NILL \SHOWPAGETABLE) (NILL CHECKPAGEMAP) (EVQ \PAGEFAULT) (EVQ \LOADVMEMPAGE) (NILL \LOADVMEMPAGE) (TRUE \MOVEVMEMFILEPAGE) (TRUE \VALIDADDRESSP))) (FNS \DOVE.FAULTINIT \DL.FAULTINIT \DL.NEWFAULTINIT \DL.UNMAPPAGES \DL.MARK.PAGES.UNAVAILABLE \DL.ASSIGNBUFFERS \CHAIN.UP.RPT)) (COMS (* ; "Pagefault handler") (FNS \FAULTHANDLER \PAGEFAULT \INVALIDADDR \INVALIDVP \FLUSHPAGE \LOADVMEMPAGE \MOVEREALPAGE \LOOKUPPAGEMAP \VALIDADDRESSP \LOCKEDPAGEP \SELECTREALPAGE \SPECIALRP \TRANSFERPAGE \UPDATECHAIN)) (COMS (* ; "Allocating and locking new pages") (FNS \NEWPAGE \DONEWPAGE \ASSURE.FPTOVP.PAGE \MAKESPACEFORLOCKEDPAGE \MOVEVMEMFILEPAGE \NEWEPHEMERALPAGE \DONEWEPHEMERALPAGE \LOCKPAGES \DOLOCKPAGES \TEMPLOCKPAGES \DOTEMPLOCKPAGES \TEMPUNLOCKPAGES \UNLOCKPAGES)) (COMS (* ; "Writing out the vmem") (FNS \DOFLUSHVM \RELEASEWORKINGSET \WRITEDIRTYPAGE \WRITEDIRTYPAGE1 \COUNTREALPAGES)) (COMS (* ; "VMEM.PURE.STATE hack") (FNS \DOCOMPRESSVMEM VMEM.PURE.STATE)) (COMS (* ;; "Handling the backing store getting too full--keep running, but if we overflow, we can never \FLUSHVM because there is no place to write some pages" ) (FNS 32MBADDRESSABLE \SET.VMEM.FULL.STATE \SET.LASTVMEMFILEPAGE \DOVMEMFULLINTERRUPT \FLUSHVMOK?)) ( INITVARS (\UPDATECHAINFREQ 100) (\PAGEFAULTCOUNTER 0) (\DIRTYPAGECOUNTER 0) (\DIRTYPAGEHINT 0) ( \LASTACCESSEDVMEMPAGE 0) (\MAXSHORTSEEK 1000) (\MINSHORTSEEK 20) (\MAXCLEANPROBES 20) ( \VMEM.INHIBIT.WRITE) (\VMEM.PURE.LIMIT) (\VMEM.FULL.STATE) (\GUARDVMEMFULL 500) (VMEM.COMPRESS.FLG) ( \DOFAULTINIT 0) (\VMEMACCESSFN) (\SYSTEMCACHEVARS) (\MAXSWAPBUFFERS 1) (\EXTENDINGVMEMFILE) ( \MaxScreenPage 0) (\NEWVMEMPAGEADDED)) (INITVARS (\LASTDIRTYCNT) (\LASTDIRTYFOUND) (\LASTDIRTYSCANPTR) (\DIRTYSEEKMAX 50)) (COMS (* ; "Errors signaled in the maintenance panel") (FNS \MP.ERROR)) (COMS (* ; "Debugging code. Some of this also runs renamed for extra TeleRaid help") (FNS \ACTONVMEMFILE \SHOWPAGETABLE CHECKPAGEMAP CHECKFPTOVP CHECKFPTOVP1 \PRINTFPTOVP \PRINTVP)) (E (RESETSAVE (RADIX 8))) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS \ACTONVMEMFILE .VMEM.CONSISTENTP. .LOCKABLERP.) (COMS (* ; "Virtual page flags") (CONSTANTS \VMAP.DIRTY \VMAP.CLEAN \VMAP.REF \VMAP.VACANT \VMAP.FLAGS \VMAP.NOTFLAGS) (RECORDS VMEMFLAGS) (MACROS LOGNOT16)) (COMS (* ; "RPT constants") (CONSTANTS \RPT.EMPTY \RPT.UNAVAILABLE \PAGETABLESTOPFLG \RPTENTRYLENGTH) (RECORDS RPT RPT1) (MACROS RPFROMRPT RPTFROMRP NPAGESMACRO)) (COMS (* ; "Virtual to file pagemap") (EXPORT (CONSTANTS \MAXFILEPAGE)) ( CONSTANTS \EMPTYPMTENTRY) (RECORDS VP) (MACROS .PAGEMAPBASE.)) (COMS (* ; "FP to VP stuff") (RECORDS FPTOVP) (CONSTANTS \NO.VMEM.PAGE) (MACROS DLRPFROMFP DLFPFROMRP)) (PROP DOPVAL \TOUCHPAGE TIMES3) ( COMS (* ; "Locked page table") (MACROS .LOCKEDVPBASE. .LOCKEDVPMASK.)) (CONSTANTS \MAXDIRTYSCANCOUNT \MINVMEMSPAREPAGES \DLBUFFERPAGES) (CONSTANTS 2MBPAGES) (GLOBALVARS \UPDATECHAINFREQ \REALPAGETABLE \RPTLAST \RPOFFSET \RPTSIZE \LOCKEDPAGETABLE \EMBUFBASE \EMBUFVP \EMBUFRP \PAGEFAULTCOUNTER \LASTDIRTYCNT \LASTDIRTYFOUND \LASTDIRTYSCANPTR \MACHINETYPE \LASTACCESSEDVMEMPAGE \MAXSHORTSEEK \MAXCLEANPROBES \MINSHORTSEEK \DIRTYSEEKMAX \DIRTYPAGECOUNTER \DIRTYPAGEHINT \VMEM.INHIBIT.WRITE \VMEM.PURE.LIMIT \VMEM.FULL.STATE \GUARDVMEMFULL VMEM.COMPRESS.FLG \KBDSTACKBASE \MISCSTACKBASE \DOFAULTINIT \FPTOVP \VMEMACCESSFN \SYSTEMCACHEVARS \LASTVMEMFILEPAGE \EXTENDINGVMEMFILE \MaxScreenPage \NEWVMEMPAGEADDED) (GLOBALVARS \#SWAPBUFFERS \#EMUBUFFERS \#DISKBUFFERS \MAXSWAPBUFFERS \EMUSWAPBUFFERS \EMUBUFFERS \TELERAIDBUFFER \EMUDISKBUFFERS \EMUDISKBUFEND) (MACROS RWMufMan) ( CONSTANTS (DOLOCKCHECKS NIL))) (COMS (* ;;; "MAKEINIT stuff") (FNS ADDPME CHECKIFPAGE DUMPINITPAGES MAKEROOMFORPME MAPPAGES READPAGEMAP READPAGEMAPBLOCK SETUPPAGEMAP) (DECLARE%: DONTCOPY (MACROS CHECKIF ) (ADDVARS (INEWCOMS (FNS DUMPINITPAGES) (VARS INITCONSTANTS) (FNS SETUPPAGEMAP ADDPME MAKEROOMFORPME MAPPAGES)) (RDCOMS (FNS READPAGEMAP READPAGEMAPBLOCK CHECKIFPAGE \LOCKEDPAGEP \LOOKUPPAGEMAP CHECKPAGEMAP CHECKFPTOVP CHECKFPTOVP1 \SHOWPAGETABLE \PRINTFPTOVP)) (EXPANDMACROFNS CHECKIF .LOCKEDVPBASE. .LOCKEDVPMASK. .PAGEMAPBASE.) (MKI.SUBFNS (\NEWPAGE . MKI.NEWPAGE) (\LOCKPAGES . MKI.LOCKPAGES)) (RD.SUBFNS (\NEWPAGE . VNEWPAGE) (\LOCKPAGES . VLOCKPAGES)) (RDPTRS (\REALPAGETABLE)) (RDVALS (\RPTSIZE))) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS DUMPINITPAGES SETUPPAGEMAP ADDPME MAKEROOMFORPME MAPPAGES READPAGEMAP READPAGEMAPBLOCK CHECKIFPAGE)))) (FNS \LOCKFN \LOCKCODE \LOCKVAR \LOCKCELL \LOCKWORDS) (DECLARE%: DONTCOPY (ADDVARS (INEWCOMS (FNS \LOCKFN \LOCKVAR \LOCKCELL \LOCKWORDS \LOCKCODE) (ALLOCAL (ADDVARS (LOCKEDFNS \FAULTHANDLER \FAULTINIT \DOVE.FAULTINIT \D01.FAULTINIT \DL.FAULTINIT \CHAIN.UP.RPT \MAKESPACEFORLOCKEDPAGE \PAGEFAULT \WRITEMAP \LOOKUPPAGEMAP \LOCKEDPAGEP \LOADVMEMPAGE \MOVEREALPAGE \INVALIDADDR \INVALIDVP \SELECTREALPAGE \TRANSFERPAGE \SPECIALRP \UPDATECHAIN \MARKPAGEVACANT \FLUSHPAGE \CLEARWORDS \FLUSHVM \DONEWPAGE \ASSURE.FPTOVP.PAGE \DONEWEPHEMERALPAGE \WRITEDIRTYPAGE1 \COPYSYS0 \COPYSYS0SUBR \RELEASEWORKINGSET \DOFLUSHVM \DOLOCKPAGES \DOTEMPLOCKPAGES \TEMPUNLOCKPAGES \MP.ERROR RAID \DL.NEWFAULTINIT \DL.MARK.PAGES.UNAVAILABLE \DL.UNMAPPAGES \DL.ASSIGNBUFFERS \D01.ASSIGNBUFFERS \DOCOMPRESSVMEM \MOVEVMEMFILEPAGE \SET.VMEM.FULL.STATE \HINUM \LONUM \ATOMCELL SETTOPVAL) (LOCKEDVARS \REALPAGETABLE \RPTLAST \PAGEFAULTCOUNTER \UPDATECHAINFREQ \RPOFFSET \RPTSIZE \LOCKEDPAGETABLE \EMBUFBASE \EMBUFVP \EMBUFRP \LASTACCESSEDVMEMPAGE \MAXSHORTSEEK \MAXCLEANPROBES \MINSHORTSEEK \DIRTYPAGECOUNTER \DIRTYPAGEHINT \VMEM.INHIBIT.WRITE \VMEM.PURE.LIMIT \VMEM.FULL.STATE \GUARDVMEMFULL VMEM.COMPRESS.FLG \KBDSTACKBASE \MISCSTACKBASE \DOFAULTINIT \FPTOVP \MACHINETYPE \VMEMACCESSFN \TELERAIDBUFFER \EMUDISKBUFFERS \EMUDISKBUFEND \MAXSWAPBUFFERS \EMUBUFFERS \#EMUBUFFERS \#SWAPBUFFERS \#DISKBUFFERS \RCLKSECOND \RCLKMILLISECOND \VALSPACE \EMUSWAPBUFFERS \EM.CURSORBITMAP \PAGEMAP \PageMapTBL \IOCBPAGE \IOPAGE \MISCSTATS \DEFSPACE \InterfacePage \LASTVMEMFILEPAGE \DoveIORegion \MaxScreenPage \NEWVMEMPAGEADDED)))))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CHECKPAGEMAP \SHOWPAGETABLE VMEM.PURE.STATE \COUNTREALPAGES \WRITEDIRTYPAGE \UNLOCKPAGES \TEMPUNLOCKPAGES \DOTEMPLOCKPAGES \DOLOCKPAGES \LOCKPAGES \LOADVMEMPAGE))))) (RPAQQ FAULTTEST T) (ADDTOVAR \MAIKO.MOVDS (TRUE \LOCKEDPAGEP) (\MAIKO.NEWPAGE \NEWPAGE) (\MAIKO.NEWPAGE \DONEWPAGE) (NILL \LOCKPAGES) (NILL \DOLOCKPAGES) (NILL \DOTEMPLOCKPAGES) (NILL \TEMPUNLOCKPAGES) (NILL \UNLOCKPAGES) ( NILL \WRITEDIRTYPAGE) (NILL \DIRTYBACKGROUND) (ZERO \COUNTREALPAGES) (NILL \SHOWPAGETABLE) (NILL CHECKPAGEMAP) (EVQ \PAGEFAULT) (EVQ \LOADVMEMPAGE) (NILL \LOADVMEMPAGE) (TRUE \MOVEVMEMFILEPAGE) (TRUE \VALIDADDRESSP)) (RPAQ? \UPDATECHAINFREQ 100) (RPAQ? \PAGEFAULTCOUNTER 0) (RPAQ? \DIRTYPAGECOUNTER 0) (RPAQ? \DIRTYPAGEHINT 0) (RPAQ? \LASTACCESSEDVMEMPAGE 0) (RPAQ? \MAXSHORTSEEK 1000) (RPAQ? \MINSHORTSEEK 20) (RPAQ? \MAXCLEANPROBES 20) (RPAQ? \VMEM.INHIBIT.WRITE) (RPAQ? \VMEM.PURE.LIMIT) (RPAQ? \VMEM.FULL.STATE) (RPAQ? \GUARDVMEMFULL 500) (RPAQ? VMEM.COMPRESS.FLG) (RPAQ? \DOFAULTINIT 0) (RPAQ? \VMEMACCESSFN) (RPAQ? \SYSTEMCACHEVARS) (RPAQ? \MAXSWAPBUFFERS 1) (RPAQ? \EXTENDINGVMEMFILE) (RPAQ? \MaxScreenPage 0) (RPAQ? \NEWVMEMPAGEADDED) (RPAQ? \LASTDIRTYCNT) (RPAQ? \LASTDIRTYFOUND) (RPAQ? \LASTDIRTYSCANPTR) (RPAQ? \DIRTYSEEKMAX 50) (PUTPROPS LLFAULT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 2021)) NIL