(FILECREATED "31-Jul-85 18:13:23" ("compiled on " {PHYLUM}LOCALFILE>JXXX>LOCALFILE.;6) "28-Jul-85 01:39:50" tcompl'd in "INTERLISP-D 28-Jul-85 ..." dated "28-Jul-85 01:53:53") (FILECREATED "31-Jul-85 18:09:32" {PHYLUM}LOCALFILE>JXXX>LOCALFILE.;6 210762 changes to: ( VARS PILOTFILECOMPILECOMS LFPILOTFILECOMS LOCALFILECOMS LFALLOCATIONMAPCOMS LFFILEMAPCOMS LFDIRECTORYCOMS SCAVENGEDSKDIRECTORYCOMS LFCOMS) (MACROS DISPLAYWORDS DISPLAYLABEL DISPLAYPAGE) (FNS CREATEDSKDIRECTORY PURGEDSKDIRECTORY LISPDIRECTORYP VOLUMES VOLUMESIZE DFSCREATEDIRECTORY MKDIR DFSPURGEDIRECTORY DFSVOLUMES \DFSCurrentVolume \DFSFreeDiskPages \LFEntryPoint \LFNormalizeVolumeName \LFCreateDevice \LFOpenDevice \LFCloseDevice \LFOpenFile \LFGetStreamForFile \LFOpenOldFile \LFGenFileID \LFCreateFile \LFMakeLeaderPage \LFUpdateLeaderPage \LFWriteLeaderPage \LFCloseFile \LFDeleteFile \LFReadPages \LFReadOnePage \LFWritePages \LFWriteOnePage \LFExtendFile \LFGetFileInfo \LFGetFileName \LFEventFn \LFDirectoryNameP \LFTruncateFile) previous date: " 8-Jul-85 21:04:05" {ERIS}SOURCES>LOCALFILE.;11) \PFFetchString D1 (L (2 maxLength 1 lengthLoc 0 startLoc)) *AB !H kJIHJ@Jk+JkZH(20Q NCHARS 11Q ALLOCSTRING 6 MIN) NIL () \PFReplaceString D1 (L (3 newString 2 maxLength 1 lengthLoc 0 startLoc)) f C bd B HkjCSKkپK_NKؽKCjhi_Nk^M OONON¼JI@JLǿJkԺAHC(15Q MIN 11Q NCHARS 3 MKSTRING) NIL () CREATEDSKDIRECTORYA0001 D1 (NAME ERRORSET L (0 NIL) P 3 \INTERRUPTABLE F 4 volName F 5 smashDirectory F 6 RESETY) `hi Thi !H o UH H o g Y`IgIgg Z`JgJgH Hi gggT c i(241Q PACKFILENAME.STRING 236Q U-CASE 217Q \LFOpenDevice 213Q \LFMakeVolumeDirectory 205Q \LFMakeVolumeDirectory 143Q \GETDEVICEFROMNAME 134Q \LFCreateDevice 73Q \GETDEVICEFROMNAME 61Q ERROR 51Q \LFDirectoryP 44Q \LFPurgeDirectory 35Q ERROR 25Q \PFPilotVolumeP 16Q \LFEntryPoint 7 OBTAIN.MONITORLOCK) (232Q DIRECTORY 227Q DSK 224Q HOST 177Q NILL 172Q FDEV 164Q \LFCloseFile 157Q FDEV 150Q FDEVTYPE# 140Q DSK 127Q NILL 122Q FDEV 114Q \LFCloseFile 107Q FDEV 100Q FDEVTYPE# 70Q DSK 2 \LFtopMonitor) ( 56Q "Directory already created" 32Q "Non-pilot volume") CREATEDSKDIRECTORY D1 (P 1 RESETY P 0 LISPXHIST I 1 smashDirectory I 0 volName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q CREATEDSKDIRECTORYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (CREATEDSKDIRECTORYA0001)) PURGEDSKDIRECTORYA0001 D1 (NAME ERRORSET L (0 NIL) P 5 \INTERRUPTABLE F 6 volName F 7 \OPENFILES F 10Q dontDeleteFiles F 11Q RESETY) `hi Vhi AH o WhZ&WgggHlHll( m[Y`>I `1K  H` o` K ` Jd` o` L ` H hci(307Q \LFCloseDevice 303Q \LFFindDirectoryVol 277Q \LFPurgeDirectory 266Q PRIN1 260Q DELFILE 253Q PRIN1 240Q TERPRI 222Q PRIN1 214Q CLOSEF 207Q PRIN1 174Q TERPRI 162Q \PFGetVol 113Q FILDIR 110Q PACKFILENAME 105Q \PFFetchString 35Q ERROR 25Q \PFPilotVolumeP 16Q \LFEntryPoint 7 OBTAIN.MONITORLOCK) (263Q PROMPTWINDOW 250Q PROMPTWINDOW 235Q PROMPTWINDOW 217Q PROMPTWINDOW 204Q PROMPTWINDOW 171Q PROMPTWINDOW 155Q FileDescriptor 150Q STREAM 141Q FileDescriptorTYPE# 133Q STREAM 124Q STREAMTYPE# 70Q DIRECTORY 65Q DSK 62Q HOST 2 \LFtopMonitor) ( 245Q "Deleting " 201Q "Closing " 32Q "Non-pilot volume") PURGEDSKDIRECTORY D1 (P 1 RESETY P 0 LISPXHIST I 1 dontDeleteFiles I 0 volName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q PURGEDSKDIRECTORYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (PURGEDSKDIRECTORYA0001)) LISPDIRECTORYPA0001 D1 (NAME ERRORSET F 0 volumeName F 1 RESETY) 1`hi dgdgPhi d hhhci(44Q \LFDirectoryP 37Q \LFEntryPoint 13Q MACHINETYPE 7 OBTAIN.MONITORLOCK) (25Q DOVE 17Q DANDELION 2 \LFtopMonitor) () LISPDIRECTORYP D1 (P 1 RESETY P 0 LISPXHIST I 0 volumeName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q LISPDIRECTORYPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (LISPDIRECTORYPA0001)) VOLUMES D1 NIL Fdgdg6hi @$d[lKll( IHhZH&J(62Q MKATOM 57Q U-CASE 54Q \PFFetchString 33Q \PFGetVols 25Q \LFEntryPoint 2 MACHINETYPE) (14Q DOVE 6 DANDELION) () VOLUMESIZE D1 (L (1 recompute 0 volName)) @ HH(3 \LFEntryPoint) NIL () DFSCREATEDIRECTORY D1 (L (1 smashDirectory 0 volName)) @A (4 CREATEDSKDIRECTORY) NIL () MKDIR D1 (L (1 smashDirectory 0 volName)) @A (4 CREATEDSKDIRECTORY) NIL () DFSPURGEDIRECTORY D1 (L (1 dontDeleteFiles 0 volName)) @A (4 CREATEDSKDIRECTORY) NIL () DFSVOLUMES D1 NIL (2 VOLUMES) NIL () \DFSCurrentVolume D1 NIL !hi HlHll(  (36Q MKATOM 33Q U-CASE 27Q \PFFetchString 7 \PFCurrentVol 4 \LFEntryPoint) NIL () \DFSFreeDiskPagesA0001 D1 (NAME ERRORSET F 0 volName F 1 recompute F 2 RESETY) `hi P Q ci(20Q \PFFreeDiskPages 14Q \LFEntryPoint 7 OBTAIN.MONITORLOCK) (2 \LFtopMonitor) () \DFSFreeDiskPages D1 (P 1 RESETY P 0 LISPXHIST I 1 recompute I 0 volName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \DFSFreeDiskPagesA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\DFSFreeDiskPagesA0001)) \LFEntryPoint D1 (L (2 dontDefault 1 noVolName 0 volName)) Ndgdgo o A#@ Bhh H o Hh(110Q ERROR 73Q \LFFindDirectoryVol 60Q \PFGetLVPage 55Q \LFNormalizeVolumeName 45Q ERROR 35Q \PFVersionOK 32Q \PFEnsureInitialized 26Q ERROR 2 MACHINETYPE) (14Q DOVE 6 DANDELION) ( 105Q "Volume not on local disk" 42Q "Wrong Pilot version on disk" 23Q "Wrong machinetype") \LFNormalizeVolumeName D1 (L (0 volName)) o@ @ @(14Q \LFParseFileName 7 STRPOS) NIL ( 3 "{") \LFCreateDevice D1 NIL g ,`H`Hg Hg``dk dgdgdgdgdg dgdgdgdgdgdgdg dgdgdgdg:dg8dg6dg4dg2dg0dg.dg*dg$ (346Q \MAKE.PMAP.DEVICE 5 BOUNDP) (351Q \LFdevice 340Q \GENERIC.READP 331Q NILL 322Q \IS.NOT.RANDACCESSP 313Q \ILLEGAL.DEVICEOP 304Q \IS.NOT.RANDACCESSP 275Q \ILLEGAL.DEVICEOP 266Q \GENERIC.BINS 257Q \GENERIC.BOUTS 250Q \GENERIC.RENAMEFILE 241Q NILL 232Q \LFDirectoryNameP 223Q \LFEventFn 214Q \LFGenerateFiles 205Q \LFOpenFile 176Q \LFWritePages 167Q NILL 160Q \LFReadPages 151Q \LFOpenFile 142Q \LFGetFileName 133Q \LFGetFileInfo 124Q \LFTruncateFile 115Q \LFDeleteFile 106Q \LFCloseFile 77Q DSK 64Q FDEVTYPE# 60Q \LFdevice 52Q NILL 45Q FDEV 36Q \LFCloseFile 31Q FDEV 22Q FDEVTYPE# 12Q \LFdevice 2 \LFdevice) () \LFOpenDeviceA0001 D1 (NAME ERRORSET L (0 NIL) F 2 RESETY) ]`hi dgdg?i 6Hh(g` Y I IiHX׿hci(111Q \LFDirectoryP 104Q \LFCloseDirectory 75Q \GETDEVICEFROMNAME 72Q \DEFINEDEVICE 46Q \PFGetVols 41Q \PFVersionOK 35Q \PFEnsureInitialized 13Q MACHINETYPE 7 OBTAIN.MONITORLOCK) (67Q \LFdevice 64Q DSK 25Q DOVE 17Q DANDELION 2 \LFtopMonitor) () \LFOpenDevice D1 (P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFOpenDeviceA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFOpenDeviceA0001)) \LFCloseDeviceA0001 D1 (NAME ERRORSET F 0 RESETY) .`hi i ` d hci(42Q \LFCloseDirectory 34Q \PFGetVols 27Q \PFVersionOK 23Q \REMOVEDEVICE 14Q \PFEnsureInitialized 7 OBTAIN.MONITORLOCK) (20Q \LFdevice 2 \LFtopMonitor) () \LFCloseDevice D1 (P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFCloseDeviceA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFCloseDeviceA0001)) \LFOpenFileA0001 D1 (NAME ERRORSET L (0 NIL) F 1 FILE F 2 OTHERINFO F 3 ACCESS F 4 RECOG F 5 RESETY F 6 OLDSTREAM) `hi gRH Qd`# `QcH QTSdghR ch)SgQQj j QVgRSh Qc i(166Q \LFUpdateLeaderPage 113Q \LFGetStreamForFile 70Q IDATE 7 OBTAIN.MONITORLOCK) (155Q DON'T.CHANGE.DATE 137Q STREAM 133Q STREAM 125Q OUTPUT 103Q INPUT 54Q STREAM 45Q FileDescriptorTYPE# 37Q STREAM 31Q STREAMTYPE# 13Q CREATIONDATE 2 \LFtopMonitor) () \LFOpenFile D1 (L (4 FDEV) P 1 RESETY P 0 LISPXHIST I 5 OLDSTREAM I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFOpenFileA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFOpenFileA0001)) \LFGetStreamForFile D1 (L (4 OTHERINFO 3 CREATEFLG 2 ACCESS 1 RECOG 0 NAME) P 4 \INTERRUPTABLE) @A 1HdsZ0`HY J dKdIdn'AH J Hd*n` o` i@l hC HD (174Q \LFCreateFile 160Q \LISPERROR 146Q PRIN1 133Q TERPRI 76Q \LFOpenOldFile 72Q \LFFullFileName 42Q \LFReadFileID 36Q \LFGetDirectory 4 \LFFileSpec) (143Q PROMPTWINDOW 130Q PROMPTWINDOW 24Q FileDescriptorTYPE#) ( 140Q "Version number too high") \LFOpenOldFile D1 (L (2 directoryPointer 1 fullFileName 0 fileDesc)) l Hn1H`dAd`dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhYd@ IBIH1@ [@K@j@j H H K H HKkټnJL JM J(272Q EQP 263Q \PFGetPage 257Q \PFFindPageAddr 240Q \PFFindFileSize) (326Q STREAM 317Q STREAM 245Q FileDescriptor 225Q STREAM 215Q STREAM 205Q STREAM 132Q \STREAM.DEFAULT.MAXBUFFERS 116Q FILELINELENGTH 101Q \FILEOUTCHARFN 72Q \EOSERROR 63Q \NOIMAGEOPS 54Q \STREAM.NOT.OPEN 45Q \STREAM.NOT.OPEN 36Q \LFdevice 24Q STREAMTYPE#) () \LFGenFileID D1 (L (0 vol)) @ls@t@sk (17Q \PUTSWAPPEDFIXP) NIL () \LFCreateFile D1 (L (1 info 0 fileName) P 0 \INTERRUPTABLE) p@ h`@ dK`I dLI dMdn'Ad`dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhdN ZIJ `dj dlj dl` JJ @ A J@I J(355Q \LFMakeDirEntry 352Q \LFGetDirectory 342Q \LFMakeLeaderPage 336Q \LFFileName 320Q \PFNewPages 314Q \PUTSWAPPEDFIXP 301Q \PUTSWAPPEDFIXP 270Q \PUTSWAPPEDFIXP 53Q \PFVolumeNumber 41Q \LFGenFileID 23Q \LFFullFileName 10Q \PFGetVol) (330Q STREAM 324Q STREAM 311Q \LFrunSize 262Q PageGroupTYPE# 255Q STREAM 243Q STREAM 171Q \STREAM.DEFAULT.MAXBUFFERS 155Q FILELINELENGTH 140Q \FILEOUTCHARFN 131Q \EOSERROR 122Q \NOIMAGEOPS 113Q \STREAM.NOT.OPEN 104Q \STREAM.NOT.OPEN 75Q \LFdevice 34Q FileDescriptorTYPE# 16Q STREAMTYPE#) () \LFMakeLeaderPage D1 (L (2 Info 1 fileName 0 file)) gB`gB3 gBl Hn1HKHgjkͱKIKIK@K@ Kj KjKlKlnA KlKll@J Kl@j@j K K(222Q \PFPutPage 216Q \PFFindPageAddr 202Q \PFReplaceString 164Q \PFReplaceString 45Q USERNAME 31Q IDATE) (131Q FileDescriptor 120Q FileDescriptor 74Q TEXT 34Q AUTHOR 16Q CREATIONDATE 13Q DEFAULTFILETYPE 2 TYPE) () \LFUpdateLeaderPage D1 (L (1 access 0 stream) P 0 \INTERRUPTABLE) l0@Y@ I@ I@  I@  AgAgAdgIJAgAgIJ@ h(150Q \LFWriteLeaderPage 13Q DAYTIME) (135Q BOTH 127Q INPUT 113Q APPEND 104Q BOTH 76Q OUTPUT 66Q FileDescriptor 61Q STREAM 50Q FileDescriptor 43Q STREAM 32Q STREAM 21Q STREAM 6 STREAM) () \LFWriteLeaderPage D1 (L (0 stream)) *@  @ IjIj @ h(46Q \PFPutPage 35Q \PFFindPageAddr 15Q \PFGetVol) (41Q STREAM 21Q STREAM 10Q FileDescriptor 3 STREAM) () \LFCloseFileA0001 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 1 STREAM F 2 RESETY) l`hi Q Q g>Q Q  Q Q Q jmjl Q Q  Qci(144Q \PFSaveBuffers 141Q \PFGetVol 122Q \LFUpdateLeaderPage 115Q \PFTrimHelper 55Q \PFGetVol 36Q \LFTruncateFile 21Q \GETACCESS 14Q \CLEARMAP 7 OBTAIN.MONITORLOCK) (134Q FileDescriptor 127Q STREAM 75Q STREAM 67Q STREAM 61Q STREAM 50Q FileDescriptor 43Q STREAM 24Q INPUT 2 \LFtopMonitor) () \LFCloseFile D1 (P 1 RESETY P 0 LISPXHIST I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFCloseFileA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFCloseFileA0001)) \LFDeleteFileA0001 D1 (NAME ERRORSET L (0 NIL) P 4 \INTERRUPTABLE F 5 fileName F 6 RESETY) `hi Ugg Hx`HI hha[JKiIYHd  H  H j H  Hc i(207Q \PFSaveBuffers 204Q \PFGetVol 165Q \PFTrimHelper 153Q \PFGetVol 134Q \LFRemoveDirEntry 131Q \LFGetDirectory 126Q \PFGetVol 22Q \LFGetStreamForFile 7 OBTAIN.MONITORLOCK) (214Q STREAM 177Q FileDescriptor 172Q STREAM 157Q STREAM 146Q FileDescriptor 141Q STREAM 121Q FileDescriptor 114Q STREAM 64Q STREAM 37Q STREAM 33Q \OPENFILES 17Q BOTH 14Q OLDEST 2 \LFtopMonitor) () \LFDeleteFile D1 (L (1 dev) P 1 RESETY P 0 LISPXHIST I 0 fileName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFDeleteFileA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFDeleteFileA0001)) \LFReadPages D1 (L (2 buffers 1 firstPage 0 stream)) C@ @ @ jmjBAjIKIhIIK@JLH ԻJkԺ(71Q \LFReadOnePage 3 \UPDATEOF) (15Q STREAM 7 STREAM) () \LFReadOnePage D1 (L (4 offset 3 lastStreamPage 2 buffer 1 streamPageNumber 0 stream)) z@  @ Ak3ACBJI7IJIJ B AC@ [djnnKMLBMjǿMk]KBn JI@Jk j(166Q \LFExtendFile 145Q \CLEARWORDS 64Q \PFGetPage 60Q \PFFindPageAddr 15Q \PFGetVol) (152Q FileDescriptor 74Q STREAM 43Q FileDescriptor 21Q STREAM 10Q FileDescriptor 3 STREAM) () \LFWritePages D1 (L (2 buffers 1 firstPage 0 stream)) #BAHdHhHH@IJ IkԹ(32Q \LFWriteOnePage) NIL () \LFWriteOnePage D1 (L (2 buffer 1 streamPageNumber 0 stream)) :@  @ AkJI@Jk IJIJ B h(66Q \PFPutPage 62Q \PFFindPageAddr 52Q \LFExtendFile 15Q \PFGetVol) (36Q FileDescriptor 21Q STREAM 10Q FileDescriptor 3 STREAM) () \LFExtendFile D1 (L (1 page 0 stream) P 4 \INTERRUPTABLE) ^@  @ "HI`IdJ dlj AI` dlK @ @ h(132Q \LFUpdateLeaderPage 125Q \UPDATEOF 120Q \PFNewPages 114Q \PUTSWAPPEDFIXP 103Q MAX 64Q \PUTSWAPPEDFIXP 53Q \PUTSWAPPEDFIXP 15Q \PFGetVol) (77Q \LFrunSize 72Q FileDescriptor 43Q FileDescriptor 36Q PageGroupTYPE# 21Q STREAM 10Q FileDescriptor 3 STREAM) () \LFGetFileInfoA0001 D1 (NAME ERRORSET L (0 NIL) F 1 stream F 2 attribute F 3 RESETY) !`hi QH` H `+Qgg cH` H `QR dgQ Q nQ رdgQ Q Q nذ~dgHȱjgkgfdgH WdgH HdgH 9dgH-dgH!dgHgHlHll@ ci(432Q \PFFetchString 341Q GDATE 322Q GDATE 303Q GDATE 210Q \UPDATEOF 147Q \UPDATEOF 133Q MKATOM 130Q U-CASE 54Q \LFGetStreamForFile 7 OBTAIN.MONITORLOCK) (412Q AUTHOR 377Q ICREATIONDATE 363Q IREADDATE 347Q IWRITEDATE 330Q CREATIONDATE 311Q READDATE 272Q WRITEDATE 264Q BINARY 257Q TEXT 242Q TYPE 223Q STREAM 215Q STREAM 200Q SIZE 166Q STREAM 154Q STREAM 137Q LENGTH 117Q STREAM 103Q FileDescriptorTYPE# 75Q STREAM 66Q STREAMTYPE# 51Q INPUT 46Q OLD 36Q FileDescriptorTYPE# 30Q STREAM 21Q STREAMTYPE# 2 \LFtopMonitor) () \LFGetFileInfo D1 (L (2 device) P 1 RESETY P 0 LISPXHIST I 1 attribute I 0 stream F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFGetFileInfoA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFGetFileInfoA0001)) \LFGetFileNameA0001 D1 (NAME ERRORSET F 0 FileName F 1 Recog F 2 RESETY) `hi PQ d ci(24Q \LFFullFileName 15Q \LFFileSpec 7 OBTAIN.MONITORLOCK) (2 \LFtopMonitor) () \LFGetFileName D1 (L (2 Dev) P 1 RESETY P 0 LISPXHIST I 1 Recog I 0 FileName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFGetFileNameA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFGetFileNameA0001)) \LFEventFnA0001 D1 (NAME ERRORSET L (0 NIL) F 1 Event F 2 Dev F 3 RESETY) `hi Qdgdgdgdg;i g dgZdgSRggEdgdgdgdg)QgR Hd HXhci(227Q \PFSaveBuffers 223Q \LFDirectoryP 205Q \PFGetVols 201Q \FLUSH.OPEN.STREAMS 76Q MACHINETYPE 72Q DSKDISPLAY 67Q DSKDISPLAY 60Q \LFOpenDevice 54Q \PFEnsureInitialized 47Q \LFCloseDevice 7 OBTAIN.MONITORLOCK) (173Q BEFORELOGOUT 163Q BEFORESAVEVM 155Q BEFOREMAKESYS 147Q BEFORESYSOUT 140Q BEFORELOGOUT 132Q NILL 124Q NILL 121Q FDEV 111Q DOVE 102Q DANDELION 64Q CLOSED 40Q AFTERSAVEVM 32Q AFTERMAKESYS 24Q AFTERSYSOUT 15Q AFTERLOGOUT 2 \LFtopMonitor) () \LFEventFn D1 (P 1 RESETY P 0 LISPXHIST I 1 Event I 0 Dev F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFEventFnA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFEventFnA0001)) \LFDirectoryNamePA0001 D1 (NAME ERRORSET L (0 NIL) F 3 DirSpec F 4 RESETY) _`hi 0S XdG Y?gggIlIll( gl>Hk 3 ZHkJk ci(130Q PACKFILENAME.STRING 124Q U-CASE 121Q SUBSTRING 101Q LASTCHPOS 64Q U-CASE 61Q \PFFetchString 30Q \LFFindDirectoryVol 17Q \LFParseFileName 7 OBTAIN.MONITORLOCK) (67Q NAME 44Q DIRECTORY 41Q DSK 36Q HOST 2 \LFtopMonitor) () \LFDirectoryNameP D1 (P 1 RESETY P 0 LISPXHIST I 0 DirSpec F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFDirectoryNamePA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFDirectoryNamePA0001)) \LFTruncateFile D1 (L (2 OFFSET 1 PAGE# 0 STREAM) P 0 \INTERRUPTABLE) @ A3 @ bB3 @ bP@0@kIAnB@ n@ պk[J@j!Kk԰@L @A @B @ @  h(202Q \PFSaveBuffers 177Q \PFGetVol 161Q \LFUpdateLeaderPage 136Q \SETFILEPTR 3 \UPDATEOF) (172Q FileDescriptor 165Q STREAM 152Q STREAM 143Q STREAM 106Q STREAM 74Q STREAM 51Q FDEV 44Q STREAM 30Q STREAM 13Q STREAM) () \LFFindDirectory D1 (L (0 VOL)) @ dd (12Q \LFDirectoryP 3 \LFFindDirectoryVol) NIL () \LFFindDirectoryVol D1 (L (0 VOL)) z@2HZKhd[UhHl Hn$@d3 b@d3@ b@ @ @IJJH J\ LiK(156Q \LFDirectoryP 143Q \APPEND2 125Q \LFDirectoryP 115Q SHOULDNT 107Q \PFGetLVPage 64Q \PFGetVol 10Q \PFCurrentVol 5 \PFGetVols) NIL () \LFParseFileName D1 (L (0 FULLNAME)) `@ ]hDhdg1dgMX$dgMYdgMZgM[MioH \gHdkLdk L HLk LoIoJh1 NO Kd j'h&_OOh__N^O&_ h(302Q MKATOM 226Q NCHARS 221Q CONCATLIST 161Q SUBSTRING 147Q SUBSTRING 127Q STRPOS 6 UNPACKFILENAME.STRING) (133Q PARSEDFILENAME 100Q VERSION 65Q EXTENSION 50Q NAME 33Q DIRECTORY 24Q HOST) ( 175Q "." 170Q ">" 123Q ">") \LFMakeVolumeDirectory D1 (L (1 DONTOPEN 0 vol) P 0 \INTERRUPTABLE) p@@ `dJ@ dIdn'@dj@K`dj dlj dll2 Kgggk @n'@J Ah@ (155Q \LFDirectoryP 144Q \PFInsertDirectoryID 133Q \LFMakeLeaderPage 130Q PACKFILENAME.STRING 111Q \PFNewPages 105Q \PUTSWAPPEDFIXP 73Q \PUTSWAPPEDFIXP 62Q \PUTSWAPPEDFIXP 24Q \PFVolumeNumber 6 \LFGenFileID) (124Q VERSION 121Q DIRECTORY 116Q NAME 54Q PageGroupTYPE# 12Q FileDescriptorTYPE#) () \LFDirectoryP D1 (L (0 vol)) @@ Y`I `@ l@ f@n'@ ]`@n'@ dJ@ dKdn'@gggk Xd'lHg HnH @H (212Q \LFPutDirectory 205Q \OPENFILE 170Q \SETACCESS 141Q \LFOpenOldFile 136Q PACKFILENAME 104Q \PFVolumeNumber 72Q \PFFindDirectoryID 55Q \PFFindDirectoryID 44Q \PFPilotVolumeP 36Q \LFGetDirectory 6 \LFGetDirectory) (174Q STREAM 165Q BOTH 150Q STREAM 132Q VERSION 127Q DIRECTORY 124Q NAME 62Q FileDescriptorTYPE# 30Q FileDescriptorTYPE# 22Q STREAM 13Q STREAMTYPE#) () \LFPurgeDirectory D1 (L (0 vol)) G@ @n'@ !H6@n'@ `dH@ dJdn'@YI @Ij h(103Q \PFTrimHelper 72Q \PFFindFileSize 45Q \PFVolumeNumber 27Q \PFRemoveDirectoryID 12Q \PFFindDirectoryID 3 \LFCloseDirectory) (66Q FileDescriptor 33Q FileDescriptorTYPE#) () \LFCloseDirectory D1 (L (0 vol)) @ @ @ (20Q \LFPutDirectory 14Q FORGETPAGES 11Q \LFGetDirectory 3 \LFGetDirectory) NIL () \LFMakeDirEntry D1 (L (2 DirStream 1 UNAME 0 stream) P 6 \INTERRUPTABLE) A QHl ZdB YBI B Bd jB B JB B@  BA[L!KLl!BH!AdBM!BIk Bk!@IB h(205Q FORCEOUTPUT 165Q \SETFILEPTR 106Q \LFDWOUT 63Q \LFDirectoryScrambled 50Q \LFDirectoryScrambled 35Q \LFCheckBang 31Q \SETFILEPTR 23Q \LFFindDirHole 6 LENGTH) (176Q STREAM 101Q FileDescriptor 74Q STREAM) () \LFRemoveDirEntry D1 (L (1 dirStream 0 stream) P 0 \INTERRUPTABLE) eA@ A Aj!@A A@J A4AkI$A A jA A@l AJK!A (142Q FORCEOUTPUT 126Q \SETFILEPTR 77Q \LFCheckBang 50Q \SETFILEPTR 21Q \LFCheckBang 14Q \SETFILEPTR) (116Q STREAM 62Q FDEV 55Q STREAM 41Q STREAM 7 STREAM) () \LFReadFileID D1 (L (1 position 0 directory)) @A @ @d k@ @ (31Q \LFDWIN 22Q \LFDirectoryScrambled 10Q \LFCheckBang 4 \SETFILEPTR) NIL () \LFFindDirHole D1 (L (1 DIRSTREAM 0 BYTES) P 4 \INTERRUPTABLE) gAj1AH A4AdkKAH@ H A A Jj&@I!I@lAH@I@ AH@ HHIظ(135Q \LFMakeDirHole 126Q \LFMakeDirHole 57Q \LFCheckBang 52Q \LFMakeDirHole 20Q \SETFILEPTR) (32Q FDEV 25Q STREAM 3 STREAM) () \LFMakeDirHole D1 (L (2 SIZE 1 WHERE 0 DIRSTREAM) P 0 \INTERRUPTABLE) @A @l!!@j!@B!@ (31Q FORCEOUTPUT 7 \SETFILEPTR) NIL () \LFCheckBang D1 (L (0 DIRSTREAM)) @ l!@ (12Q \LFDirectoryScrambled) NIL () \LFDirectorySearch D1 (L (3 KINDOFMATCH 2 HMIN 1 TLIST 0 DIRSTREAM)) AArB@hI J@H] @d h @ @ _MOظNjBBO@Mhb@ @ @ @ CdgKLCgLKI_iZ@ hO@M AHKL(237Q \SETFILEPTR 220Q \LFCASEARRAYFETCH 135Q \LFDWIN 57Q \LFCheckBang 51Q EOFP 43Q \SETFILEPTR 27Q LENGTH) (170Q PARTIAL 155Q EXACT 117Q STREAM 17Q STREAM) () \LFVersionsA0001 D1 (L (1 B 0 A)) @ANIL NIL () \LFVersions D1 (L (2 HMIN 1 STREAM 0 UNPACKEDNAME)) gj@h@3 BIIjhBilbAdHBg Kg 0AkMA Ad kA A A A ؼILILJhLJKBAdh(141Q \LFDWIN 131Q \LFDirectoryScrambled 116Q \LFCheckBang 71Q SORT 60Q \LFDirectorySearch) (203Q STREAM 102Q FDEV 75Q STREAM 66Q \LFVersionsA0001 55Q EXACT 2 DIRSEARCHSTATE) () \LFFileSpec D1 (L (1 RECOG 0 NAME)) @ AHhLH \HLAgAgi [HHAdgdgK #dgK khgKHKZdJ;AHdgdgH3 kdgdghH3 HJgHIh(122Q LAST 104Q LAST 50Q \LFVersions 22Q \LFFindDirectory 3 \LFUnpackName) (264Q DFSFileSpec 235Q OLDEST 227Q OLD 204Q OLD/NEW 176Q NEW 134Q OLDEST 113Q NEW 75Q OLD/NEW 67Q OLD 41Q OLD/NEW 33Q NEW) () \LFUnpackName D1 (L (0 name)) @ 1Hd YdH Lk_L_OL_LCjhi_Ok_OAOOOOO _jl* l? hhO_N Oh^O&MZddH(5 COPYARRAY) (14Q ARRAYP 2 \DISKNAMECASEARRAY) () \LFCASEARRAYFETCH D1 (L (0 CHARCODE)) `@NIL (5 ARRAYP 2 \LFCASEARRAY) () SCAVENGEDSKDIRECTORYA0001 D1 (NAME ERRORSET L (0 NIL) P 10Q \INTERRUPTABLE F 11Q volName F 12Q RESETY) `hi W qHd o Hn'@ Hn'A IJhH H JZd_`dOH dKdn'A ]\lLln MgH N NO hH hgggHlHll( ci(300Q PACKFILENAME.STRING 275Q U-CASE 272Q \PFFetchString 235Q \LFMakeDirEntry 232Q \LFGetDirectory 221Q \LFScavVersion 213Q \LFScavFileName 207Q \PFVolumeNumber 176Q \PFFetchString 152Q \LFOpenOldFile 132Q \PFVolumeNumber 103Q \LFMakeVolumeDirectory 76Q \LFPurgeDirectory 56Q \VFMGenerateFileIDs 46Q \VFMGenerateFileIDs 36Q ERROR 25Q \PFPilotVolumeP 15Q \LFEntryPoint 7 OBTAIN.MONITORLOCK) (255Q DIRECTORY 252Q DSK 247Q HOST 203Q ExpandedName 156Q STREAM 117Q FileDescriptorTYPE# 2 \LFtopMonitor) ( 33Q "Non-pilot volume") SCAVENGEDSKDIRECTORY D1 (P 1 RESETY P 0 LISPXHIST I 0 volName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q SCAVENGEDSKDIRECTORYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (SCAVENGEDSKDIRECTORYA0001)) SCAVENGEVOLUME D1 (L (0 volName)) @ (3 SCAVENGEDSKDIRECTORY) NIL () \LFScavFileName D1 (L (0 NAME&VERSION)) }@ qHkٽHMHؼHCjhi_Mk]LONMNMdl;I!HHYh.g J KhZK&Z jJiIH(154Q \LFCASEARRAYFETCH 126Q CHCON 123Q GENSYM 3 MKSTRING) (120Q TRASHEDFILENAME) () \LFScavVersion D1 (L (1 FILEID 0 NAME&VERSION)) @g A kn (26Q RAND 6 FILENAMEFIELD) (3 VERSION) () \VFMGenerateFileIDsA0001 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 5 vol F 6 RESETY F 7 desiredType) h`hi U l 1Ilo Idj llĿIdI` Jc iWIIK Lh[L&(77Q EQP 52Q \VFMGet 43Q \PUTSWAPPEDFIXP 25Q \ALLOCBLOCK 17Q \VFMContextSet 7 OBTAIN.MONITORLOCK) (74Q \VFMmaxID 2 \VFMmonitor) ( 40Q 17777777777Q) \VFMGenerateFileIDs D1 (P 1 RESETY P 0 LISPXHIST I 1 desiredType I 0 vol F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \VFMGenerateFileIDsA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\VFMGenerateFileIDsA0001)) \PFGetPhysicalVolumePage D1 (L (0 buffer)) j@gl (14Q \PFTransferPage 11Q \ALLOCBLOCK) (4 VRR) () \PFGetLogicalVolumePage D1 (L (1 frame 0 vol)) `@d3 (jdA (21Q \PFGetPage 12Q \PFVolumeNumber) (2 \PFLogicalVolumeFileD) () \PFPutLogicalVolumePage D1 (L (1 frame 0 vol)) `@d3 (jdA (21Q \PFPutPage 12Q \PFVolumeNumber) (2 \PFLogicalVolumeFileD) () \PFGetMarkerPage D1 (L (1 frame 0 vol)) @3 @ b`@(`lKj@@dl g @l H H `lK@d3 jHHdl g Hl jH H `lK@d3 jHHdl g Hl jH H A (250Q \PFGetPage 220Q ERROR 174Q \PFVolumeNumber 131Q ERROR 105Q \PFVolumeNumber 46Q ERROR 7 \PFVolumeNumber) (215Q indexOutOfRange 161Q \PhysVolumePage 126Q indexOutOfRange 72Q \PhysVolumePage 43Q indexOutOfRange 22Q \PhysVolumePage 15Q \PFMarkerFileD) () \PFPutMarkerPage D1 (L (1 frame 0 vol)) @3 @ b`@(`lKj@@dl g @l H H `lK@d3 jHHdl g Hl jH H `lK@d3 jHHdl g Hl jH H A (250Q \PFPutPage 220Q ERROR 174Q \PFVolumeNumber 131Q ERROR 105Q \PFVolumeNumber 46Q ERROR 7 \PFVolumeNumber) (215Q indexOutOfRange 161Q \PhysVolumePage 126Q indexOutOfRange 72Q \PhysVolumePage 43Q indexOutOfRange 22Q \PhysVolumePage 15Q \PFMarkerFileD) () \PFGetFreePage D1 (L (4 noBreak 3 runLength 2 frame 1 volumePageNumber 0 vol)) `@d3 (AdBCD (24Q \PFGetPage 12Q \PFVolumeNumber) (2 \PFFreeFileD) () \PFCreateFreePage D1 (L (4 noBreak 3 runLength 2 frame 1 volumePageNumber 0 vol)) `@d3 (AdBCD (24Q \PFCreatePage 12Q \PFVolumeNumber) (2 \PFFreeFileD) () \PFGetAllocationMapPage D1 (L (2 frame 1 volumePageNumber 0 vol)) `@d3 (AdB (21Q \PFGetPage 12Q \PFVolumeNumber) (2 \PFAllocationMapFileD) () \PFPutAllocationMapPage D1 (L (2 frame 1 volumePageNumber 0 vol)) @3 @ b`@(AdB (25Q \PFPutPage 7 \PFVolumeNumber) (15Q \PFAllocationMapFileD) () \PFGetFileMapPage D1 (L (2 frame 1 volumePageNumber 0 vol)) @3 @ b`@(AdB (25Q \PFGetPage 7 \PFVolumeNumber) (15Q \PFFileMapFileD) () \PFPutFileMapPage D1 (L (2 frame 1 volumePageNumber 0 vol)) @3 @ b`@(AdB (25Q \PFPutPage 7 \PFVolumeNumber) (15Q \PFFileMapFileD) () \PFGetPage D1 (L (5 noBreak 4 runLength 3 frame 2 volumePageNumber 1 filePageNumber 0 file)) @ABCgDE (14Q \PFTransferFilePage) (6 VVR) () \PFPutPage D1 (L (3 frame 2 volumePageNumber 1 filePageNumber 0 file)) @ABCg (12Q \PFTransferFilePage) (6 VVW) () \PFCreatePage D1 (L (5 noBreak 4 runLength 3 frame 2 volumePageNumber 1 filePageNumber 0 file)) @ABCgDE (14Q \PFTransferFilePage) (6 VWW) () \PFTransferFilePage D1 (L (6 noBreak 5 runLength 4 operation 3 frame 2 volumePageNumber 1 filePageNumber 0 file) F 3 \label.GLOBALRESOURCE) S l !@3 H@ dl hcH@lĿH@HA HA `lK@jIIdl g Il jZ J BCDHEF Hch(213Q \PFTransferPage 161Q ERROR 120Q \LONUM 107Q \HINUM 46Q \CLEARWORDS 36Q \PUTSWAPPEDFIXP 7 \ALLOCBLOCK) (156Q indexOutOfRange 135Q FileDescriptor 126Q \PhysVolumePage 75Q FileDescriptor 62Q FileDescriptor 31Q FileDescriptor 16Q FileDescriptor) () \PFTransferPage D1 (L (5 noBreak 4 runLength 3 label 2 mode 1 buffer 0 absoluteDiskAddress) P 2 \INTERRUPTABLE) [DkbAdCd X@ HAHDHCHBH H H EIdgiIl I(127Q \LISPERROR 101Q \DL.RELEASEDOB 70Q \DLDISK.EXECUTE 37Q \DL.PUTDISKADDRESS 32Q \DL.OBTAINNEWDOB) (112Q OK) () \PFCreateFileDescriptors D1 NIL Eg %g g g g hl hdj l jIH"`I`dIdldk*IkYl hdj l jIH"`I`dIdldk*IkYl hdj l jIH#`I`dldIdl*IkYl hdj l jIH#`I`dldIdl*IkYl hdj l jIHh`I`dldIdl*IkY(423Q ARRAY 333Q ARRAY 243Q ARRAY 154Q ARRAY 65Q ARRAY 45Q BOUNDP 35Q BOUNDP 25Q BOUNDP 15Q BOUNDP 5 BOUNDP) (451Q FileDescriptorTYPE# 445Q \PFFileMapFileD 426Q \PFFileMapFileD 360Q FileDescriptorTYPE# 354Q \PFAllocationMapFileD 336Q \PFAllocationMapFileD 270Q FileDescriptorTYPE# 264Q \PFFreeFileD 246Q \PFFreeFileD 201Q FileDescriptorTYPE# 175Q \PFMarkerFileD 157Q \PFMarkerFileD 112Q FileDescriptorTYPE# 106Q \PFLogicalVolumeFileD 70Q \PFLogicalVolumeFileD 55Q \PFInitialized 42Q \PFFileMapFileD 32Q \PFAllocationMapFileD 22Q \PFFreeFileD 12Q \PFMarkerFileD 2 \PFLogicalVolumeFileD) () \PFInitFileDescriptors D1 NIL t`@kAHjJI8`J(l `lKjJJdl g Jl lJkZHjLK!`L(l `lAlLk\h(136Q \ALLOCBLOCK 66Q ERROR 37Q \ALLOCBLOCK) (141Q \PhysVolumePage 131Q FileDescriptor 124Q \PFMarkerFileD 63Q indexOutOfRange 42Q \PhysVolumePage 32Q FileDescriptor 25Q \PFLogicalVolumeFileD 2 \PhysVolumePage) () \PFCreatePhysicalVolume D1 NIL 9g `Hl Hnhl HnHh(5 BOUNDP) (65Q \PhysVolumePage 42Q \PFInitialized 12Q \PhysVolumePage 2 \PhysVolumePage) () \PFCreateVols D1 NIL g <`5` Hj HH ` l g ` Il hdj l l j"IH$l [nK`IJ*JI` IkYhh(174Q PUTHASH 122Q HASHARRAY 111Q ARRAY 77Q HASHARRAYP 70Q BOUNDP 56Q ARRAYSIZE 45Q \FZEROP 24Q ARRAYORIG 5 BOUNDP) (210Q \PFInitialized 171Q \DFSLogicalVolumeHash 160Q \DFSLogicalVolumes 125Q \DFSLogicalVolumeHash 114Q \DFSLogicalVolumes 74Q \DFSLogicalVolumeHash 65Q \DFSLogicalVolumeHash 53Q \DFSLogicalVolumes 21Q \DFSLogicalVolumes 12Q \DFSLogicalVolumes 2 \DFSLogicalVolumes) () \PFInitializeVols D1 NIL !`@kjIdHhd IkY(30Q \PFGetLogicalVolumePage 25Q \PFGetVol) (2 \PhysVolumePage) () \PFGetVols D1 NIL *`@kj2IdHJ K Lh[IkYL&(24Q \PFGetVol) (2 \PhysVolumePage) () \PFGetVol D1 (L (0 volNum)) `@(NIL (2 \DFSLogicalVolumes) () \PFVolumeNumber D1 (L (0 vol)) @`NIL (3 \DFSLogicalVolumeHash) () \PFGetLVPage D1 (L (0 lvName)) 8@ bHh@IlIll( IiHX(52Q MKATOM 47Q U-CASE 44Q \PFFetchString 13Q \PFGetVols 6 MKATOM 3 U-CASE) NIL () \PFVersionOK D1 NIL HilhHX(2 \PFGetVols) NIL () \PFPilotVolumeP D1 (L (0 vol)) @lhNIL NIL () \PFEnsureInitialized D1 (L (0 FORCEINITIALIZATION)) Cdgdg.@`$` iih(66Q \PFDsplyVolumes 62Q \VFMInit 56Q \VAMInit 51Q \PFVersionOK 45Q \PFInitializeVols 41Q \PFInitFileDescriptors 35Q \PFGetPhysicalVolumePage 2 MACHINETYPE) (100Q \PFInitialized 32Q \PhysVolumePage 25Q \PFInitialized 14Q DAYBREAK 6 DANDELION) () \PFFindDirectoryID D1 (L (1 type 0 vol)) ,l HnuHlHlTH@H AH (51Q \PFFindRootDirEntry 42Q \PFGetRootDirectory) NIL () \PFInsertDirectoryID D1 (L (2 directoryID 1 type 0 vol)) 8l HnuHlHlTH@H @H ABH @H h(64Q \PFPutRootDirectory 57Q \PFAddRootDirEntry 50Q \PFCreateRootDirectory 42Q \PFGetRootDirectory) NIL () \PFRemoveDirectoryID D1 (L (1 type 0 vol)) ?l HnuHlHlTH@H Hk@H AH @H h(73Q \PFPutRootDirectory 65Q \PFRemoveRootDirEntry 57Q \PFPurgeRootDirectory 42Q \PFGetRootDirectory) NIL () \PFFindRootDirEntry D1 (L (1 rootDir 0 type)) <@A @A H,l AljHHdlTg HllYI(51Q ERROR 24Q \ALLOCBLOCK 11Q \PFFindRootDirEntryNum 4 \PFPatchRootDirEntries) (46Q indexOutOfRange) () \PFAddRootDirEntry D1 (L (2 rootDir 1 directoryID 0 type) P 0 \INTERRUPTABLE) A0BBljIIdlTg Ill Zd@JkA lBIkh(63Q \PUTSWAPPEDFIXP 46Q \ALLOCBLOCK 33Q ERROR) (30Q indexOutOfRange) () \PFRemoveRootDirEntry D1 (L (1 rootDir 0 type) P 0 \INTERRUPTABLE) r0@A YgAIkAlLKJMLkٺjJJdlTg Jljl MjLLdlTg LlllĿLk\Admh(121Q ERROR 77Q \ALLOCBLOCK 62Q ERROR 7 \PFFindRootDirEntryNum) (116Q indexOutOfRange 57Q indexOutOfRange) () \PFFindRootDirEntryNum D1 (L (1 rootDir 0 type)) CAjAlIH2l JjIIdlTg Ill@IiIkYh(46Q ERROR 24Q \ALLOCBLOCK) (43Q indexOutOfRange) () \PFPatchRootDirEntries D1 (L (1 rootDir 0 type)) jA AdkHII(4 \PFRemoveRootDirEntry) NIL () \PFGetRootDirectory D1 (L (1 rootDir 0 vol)) N@ lh`dl@ HdIdldk!@Hj YdHjIZJA i(112Q \PFGetPage 65Q \VFMGetPageGroup 27Q \PFVolumeNumber 3 \GetRootDirectoryType) (77Q PageGroup 14Q FileDescriptorTYPE#) () \PFPutRootDirectory D1 (L (1 rootDir 0 vol) P 3 \INTERRUPTABLE) Q`dl@ HdIdldk!@Hj Ydiol HjIZJA h(115Q \PFPutPage 73Q \LISPERROR 53Q \VFMGetPageGroup 15Q \PFVolumeNumber) (102Q PageGroup 2 FileDescriptorTYPE#) ( 66Q "Can't find volume root directory") \PFCreateRootDirectory D1 (L (1 rootDir 0 vol) P 0 \INTERRUPTABLE) I0`dl@ dIdldj@J`dj dlk @A @l h(105Q \PFPutRootDirectoryType 77Q \PFPutRootDirectory 72Q \PFNewPages 66Q \PUTSWAPPEDFIXP 55Q \PUTSWAPPEDFIXP 20Q \PFVolumeNumber) (47Q PageGroupTYPE# 5 FileDescriptorTYPE#) () \PFPurgeRootDirectory D1 (L (1 rootDir 0 vol) P 0 \INTERRUPTABLE) 10`dl@ dIdldk@j @Jj h(55Q \PFTrimHelper 47Q \PFPutRootDirectoryType 20Q \PFVolumeNumber) (5 FileDescriptorTYPE#) () \GetRootDirectoryType D1 (L (0 vol)) @`@_NIL NIL () \PFPutRootDirectoryType D1 (L (1 directoryID 0 vol)) (@l_A @d l @H HlMA @H h(44Q \PFPutMarkerPage 37Q \PUTSWAPPEDFIXP 27Q \PFGetMarkerPage 14Q \PFPutLogicalVolumePage 7 \PUTSWAPPEDFIXP) NIL () \PFNewPages D1 (L (2 group 1 file 0 vol)) y`1ABYI XHA Hlj HlBZJ @AH @AH AH[Kh(165Q \PFDsplyVolumes 157Q BLOCK 131Q \VFMInsertPageGroup 122Q \VAMAllocPageGroup 113Q \PUTSWAPPEDFIXP 65Q \PUTSWAPPEDFIXP 51Q \PUTSWAPPEDFIXP 32Q EQP) (142Q PageGroup 136Q FileDescriptor 101Q PageGroup 72Q PageGroup 56Q PageGroup 44Q FileDescriptor 40Q PageGroup 20Q PageGroup 12Q FileDescriptor 2 PageGroupTYPE#) () \PFTrimHelper D1 (L (2 targetFileSize 1 filePtr 0 vol)) BA `dB dlj AHdlI A@AH @AH AHYIHZJjHlj @AH @AH iH[KB 'HlH\L HB h(274Q \PFDsplyVolumes 265Q BLOCK 261Q \PUTSWAPPEDFIXP 250Q \PUTSWAPPEDFIXP 221Q EQP 177Q \VAMFreePageGroup 170Q \VFMDeletePageGroup 161Q \PUTSWAPPEDFIXP 104Q \VAMFreePageGroup 75Q \VFMDeletePageGroup 62Q \PUTSWAPPEDFIXP 37Q \PUTSWAPPEDFIXP 26Q \PUTSWAPPEDFIXP 11Q EQP) (255Q PageGroup 236Q PageGroup 227Q PageGroup 206Q PageGroup 152Q PageGroup 133Q PageGroup 115Q PageGroup 111Q FileDescriptor 44Q FileDescriptor 20Q PageGroupTYPE# 4 FileDescriptor) () \PFFindPageAddr D1 (L (1 filePage 0 file) P 7 \INTERRUPTABLE) @aH3 !AHYIAHZJB@ @A XH[K\jLL iol @HH]MAjH^N(143Q \LISPERROR 125Q \FZEROP 72Q \VFMGetPageGroup 65Q \PFGetVol) (175Q PageGroup 160Q PageGroup 150Q FileDescriptor 101Q PageGroup 60Q FileDescriptor 41Q PageGroup 22Q PageGroup 3 FileDescriptor) ( 136Q "Can't find file page") \PFFindFileSize D1 (L (0 file)) @ @o HH(20Q \VFMGetPageGroup 10Q \PFGetVol) (23Q PageGroup 3 FileDescriptor) ( 15Q 17777777777Q) \PFFreeDiskPages D1 (L (1 recompute 0 vol)) A@ @X@W(11Q \PFDsplyVolumes 5 \VAMRecomputeFreePageCount) NIL () \PFCurrentVol D1 NIL U1Hh`ljdjlg ZJIljdjlg [K IiHX(110Q EQP 75Q ERROR 42Q ERROR 2 \PFGetVols) (72Q indexOutOfRange 37Q indexOutOfRange 20Q \PhysVolumePage) () \PFDsplyVolumes D1 NIL g (12Q \DSKDISPLAY.UPDATE 5 DEFINEDP) (2 \DSKDISPLAY.UPDATE) () \VAMAllocPageGroupA0001 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 12Q groupPtr F 13Q vol F 14Q filePtr F 15Q RESETY) `hi  WWW WYIWZJ_WlWWXWWO Wl]W[KO `al WW\LMO M`7l _WW^NW_OOO Ocihh(263Q \PFCreatePage 176Q \PFGetFreePage 140Q \PUTSWAPPEDFIXP 110Q \PUTSWAPPEDFIXP 104Q MINUS 24Q \VAMFindFreePages 7 OBTAIN.MONITORLOCK) (311Q \\DFSVAMjunkPage.GLOBALRESOURCE 302Q \\DFSVAMpage.GLOBALRESOURCE 270Q \\DFSVAMpage.GLOBALRESOURCE 242Q PageGroup 226Q PageGroup 207Q \\DFSVAMpage.GLOBALRESOURCE 203Q \\DFSVAMjunkPage.GLOBALRESOURCE 161Q PageGroup 144Q \\DFSVAMjunkPage.GLOBALRESOURCE 123Q PageGroup 46Q PageGroup 32Q PageGroup 2 \VAMmonitor) () \VAMAllocPageGroup D1 (P 1 RESETY P 0 LISPXHIST I 2 groupPtr I 1 filePtr I 0 vol F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \VAMAllocPageGroupA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\VAMAllocPageGroupA0001)) \VAMFreePageGroupA0001 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 21Q vol F 22Q filePtr F 23Q groupPtr F 24Q RESETY) ;`hi  W& _YIOZJO[KO\L_`l _W$O]MO^NOO O`l _W"O_OOO OOO_Ok_ O OQW"lWW"XW"WO W"l]O_OW"^W"] hc(ih}h=W"W$Og O k_ Ok_(450Q \VAMUpdateVAM 405Q \PUTSWAPPEDFIXP 402Q MIN 342Q \PUTSWAPPEDFIXP 250Q \PFCreateFreePage 173Q \PFGetPage 20Q \VAMAdjustGroup 7 OBTAIN.MONITORLOCK) (445Q free 430Q \\DFSVAMjunkPage.GLOBALRESOURCE 420Q \\DFSVAMpage.GLOBALRESOURCE 355Q PageGroup 266Q PageGroup 256Q \\DFSVAMpage.GLOBALRESOURCE 230Q PageGroup 205Q \\DFSVAMpage.GLOBALRESOURCE 201Q \\DFSVAMjunkPage.GLOBALRESOURCE 154Q PageGroup 140Q PageGroup 115Q \\DFSVAMjunkPage.GLOBALRESOURCE 77Q PageGroup 63Q PageGroup 41Q PageGroup 25Q PageGroup 2 \VAMmonitor) () \VAMFreePageGroup D1 (P 1 RESETY P 0 LISPXHIST I 2 groupPtr I 1 filePtr I 0 vol F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \VAMFreePageGroupA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\VAMFreePageGroupA0001)) \VAMInitA0001 D1 (NAME ERRORSET F 0 RESETY) `hi ci(13Q \VAMBufferInit 7 OBTAIN.MONITORLOCK) (2 \VAMmonitor) () \VAMInit D1 (P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \VAMInitA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\VAMInitA0001)) \VAMRecomputeFreePageCountA0001 D1 (NAME ERRORSET L (0 NIL) F 6 vol F 7 RESETY) j`hi VlWVVkij$IH5VhIg \j LL ]JVl]I hMKkػIkYK Vd VXVWci(134Q \PFPutLogicalVolumePage 126Q \PUTSWAPPEDFIXP 102Q \PUTSWAPPEDFIXP 65Q \FZEROP 47Q \VAMUpdateVAM 7 OBTAIN.MONITORLOCK) (44Q read 2 \VAMmonitor) () \VAMRecomputeFreePageCount D1 (P 1 RESETY P 0 LISPXHIST I 0 vol F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \VAMRecomputeFreePageCountA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\VAMRecomputeFreePageCountA0001)) \VAMFilePageNumber D1 (L (2 filePageNumber 1 volumePageNumber 0 fileType)) *@dn'ABn'@B@dlAlj@n(47Q SHOULDNT) NIL () \VAMFindFreePages D1 (L (2 groupPtr 1 filePtr 0 vol) P 7 \INTERRUPTABLE P 0 \INTERRUPTABLE) p@^@]BYIZ@@k(iggg@l@ll( l @AJg jJk԰BlJ JkԺKkԻJ@@k(iggg@l@ll( l KB\L @AJg jBlB]MJB^N h(341Q \PUTSWAPPEDFIXP 272Q \VAMUpdateVAM 260Q EQP 240Q \LISPERROR 233Q PACKFILENAME.STRING 230Q U-CASE 225Q \PFFetchString 145Q \PUTSWAPPEDFIXP 122Q \VAMUpdateVAM 110Q \LISPERROR 103Q PACKFILENAME.STRING 100Q U-CASE 75Q \PFFetchString) (325Q PageGroup 311Q PageGroup 302Q PageGroup 267Q alloc 246Q PageGroup 210Q DIRECTORY 205Q DSK 202Q HOST 136Q PageGroup 117Q alloc 60Q DIRECTORY 55Q DSK 52Q HOST 15Q PageGroup) () \VAMUpdateVAM D1 (L (3 allocOrFree 2 page 1 filePtr 0 vol)) jBnBnlBlS@H [dI\lJ_kO]LMjkj^CdgLMgLMmCgKILN(137Q SHOULDNT 125Q \VAMMarkBufferDirty 104Q \VAMMarkBufferDirty 30Q \VAMGetVAMPageFor) (132Q read 111Q free 72Q alloc) () \VAMAdjustGroup D1 (L (0 groupPtr)) T`@ 1HYIj:HZJjHlkHk HlH[Kk H(120Q \PUTSWAPPEDFIXP 70Q \PUTSWAPPEDFIXP 6 NCREATE2) (104Q PageGroup 75Q PageGroup 64Q PageGroup 52Q PageGroup 34Q PageGroup 15Q PageGroup 2 PageGroupTYPE#) () \VAMGetVAMPageFor D1 (L (1 VAMPage# 0 vol) P 1 \INTERRUPTABLE) C@Z@YA`3 `@`H @H``` `(75Q \PFGetAllocationMapPage 43Q \VAMBufferSave 36Q EQP) (100Q \VAMbuffer 72Q \VAMbuffer 67Q \VAMbufferVolumePage 64Q \VAMbufferVolume 60Q \VAMbufferVolumePage 53Q \VAMbufferVolume 32Q \VAMbufferVolumePage 24Q \VAMbufferVolume 16Q \VAMbufferVolumePage) () \VAMBufferInit D1 NIL l hddNIL (21Q \VAMbufferDirty 15Q \VAMbufferVolumePage 11Q \VAMbufferVolume 5 \VAMbuffer) () \VAMBufferSave D1 NIL `3 ```` h(27Q \PFPutAllocationMapPage) (33Q \VAMbufferDirty 24Q \VAMbuffer 21Q \VAMbufferVolumePage 16Q \VAMbufferVolume 11Q \VAMbufferDirty 2 \VAMbufferVolumePage) () \VAMMarkBufferDirty D1 NIL ihNIL (3 \VAMbufferDirty) () \VFMInitA0001 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 1 RESETY) `hi ci(22Q \VFMClearBuffers 16Q \VFMClearIntervals 7 OBTAIN.MONITORLOCK) (2 \VFMmonitor) () \VFMInit D1 (P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \VFMInitA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\VFMInitA0001)) \VFMDeletePageGroupA0001 D1 (NAME ERRORSET P 32Q \INTERRUPTABLE P 0 \INTERRUPTABLE F 33Q groupPtr F 34Q filePtr F 35Q vol F 36Q RESETY) `hi l [dW8 KlW6YIW6ZJjjk KW8l W8W: O0O.j l ĿO0O0W8 (O0l\LW8 O0O0j iol W6O.lO0O0W6]M W6lO0dO0j j O0W6^NO0O0 W6lO0l_OW6_O lj__OOO.OO0OhOk_i8W6_OO2 O.O._jOO O.j O.O._jUOO Il _dW8 OlO.O.k j _OW8 O.jd O.lW6_ O  O.dO.O2 O.j O.O.O0l_"O" gO.O.O0l_$O$ LO.W6_&O&j j.W6_(O(W6_*O*W6_,O,j hc`dj dlj dlk `` (`IH HZJ(60Q \VAMAllocPageGroup 44Q \PFVolumeNumber 32Q \PUTSWAPPEDFIXP 21Q \PUTSWAPPEDFIXP 10Q \PUTSWAPPEDFIXP) (64Q PageGroup 53Q \VFMvolumeHandle 41Q \VFMvolumeHandle 36Q \PFFileMapFileD 2 PageGroupTYPE#) () \VFMDelete D1 (P 3 volumePage P 2 lastFlag P 1 firstFlag P 0 nextKey I 1 deleteLevel I 0 deleteKey) 9l 1@Ag I@Ak JK HKAk @Ag g(63Q \VFMFind 52Q \VFMInsert 41Q \VFMFreeVPage 32Q \VFMDelete 17Q \VFMFind 4 \ALLOCBLOCK) (66Q Get 60Q \VFMDelete2 14Q \VFMDelete1) () \VFMDelete1 D1 (F 2 firstFlag F 3 lastFlag F 4 volumePage F 5 nextKey) Y`j c`` c``cU`lR,S(`d``d`HII ` h(124Q \VFMMarkBufferDirty 116Q \VFMSmartBLT 23Q EQP 6 EQP) (121Q \VFMbuffer 100Q \VFMhighPtr 72Q \VFMbuffer 66Q \VFMhighPtr 62Q \VFMbuffer 46Q \VFMhigh 35Q \VFMinterval 30Q \VFMinterval 16Q \VFMbuffer 13Q \VFMhighPtr 2 \VFMlowPtr) () \VFMDelete2 D1 (F 0 nextKey F 1 deleteLevel) q`Pl`l`` ``l```l```` `d`Q ````` (156Q \VFMMarkBufferDirty 126Q \VFMPutNext 106Q \VFMSmartBLT 32Q \PUTSWAPPEDFIXP) (153Q \VFMbuffer 145Q \VFMhighPtr 137Q \VFMbuffer 134Q \VFMlowPtr 131Q \VFMbuffer 117Q \VFMhigh 111Q \VFMhigh 102Q \VFMhighPtr 75Q \VFMbuffer 71Q \VFMhighPtr 66Q \VFMbuffer 57Q \VFMlowPtr 54Q \VFMbuffer 51Q \VFMlowPtr 46Q \VFMoldPtr 40Q \VFMold 35Q \VFMlow 24Q \VFMlow 17Q \VFMlow 11Q \VFMhigh 2 \VFMhigh) () \VFMFind D1 (L (2 proc 1 level 0 key)) `@Ak l `` ``Hl`lj ```llj@` B `lT0ljIH`I`IhIkYi`A h(226Q \VFMMerge 137Q APPLY 131Q \VFMLower 121Q \VFMReadNext 65Q \PUTSWAPPEDFIXP 32Q \VFMGetBufferFor 11Q \VFMGet) (222Q \VFMold 176Q \VFMmaxKey 167Q \VFMinterval 142Q \VFMbuffer 126Q \VFMhigh 116Q \VFMoldPtr 113Q \VFMlowPtr 110Q \VFMhighPtr 76Q \VFMhigh 73Q \VFMlow 70Q \VFMold 56Q \VFMhigh 46Q \VFMhigh 40Q \VFMinterval 35Q \VFMbuffer 24Q \VFMinterval 17Q \VFMinterval 2 \VFMinterval) () \VFMFreeVPage D1 (L (0 volumePage)) @`d@ dl@ @kHdlI `` (`IH @ (75Q \VFMKillBuffer 70Q \VAMFreePageGroup 54Q \PFVolumeNumber 41Q \PUTSWAPPEDFIXP 21Q \PUTSWAPPEDFIXP 10Q \PUTSWAPPEDFIXP) (63Q \VFMvolumeHandle 51Q \VFMvolumeHandle 46Q \PFFileMapFileD 2 PageGroupTYPE#) () \VFMGet D1 (P 0 \INTERRUPTABLE I 1 getLevel I 0 getKey) yAdliol Al2l Yd`lĿIl`\`[ Il`lĿ`A(l @` @`l @Ag A((164Q \VFMGetInterval 160Q \VFMFind 147Q \VFMLower 134Q \VFMLower 120Q \VFMGetInterval 75Q \PUTSWAPPEDFIXP 42Q \ALLOCBLOCK 23Q \LISPERROR) (155Q \VFMGet1 141Q \VFMinterval 131Q \VFMinterval 115Q \VFMinterval 105Q \VFMmaxKey 67Q \VFMvolumeHandle 62Q \VFMvolumeHandle 47Q \VFMnullKey) ( 16Q "Can't find BTree entry") \VFMGet1 D1 (F 3 getLevel) 7S(!H,`HIlĿHl`` `HlJlh(46Q \PUTSWAPPEDFIXP 2 \VFMGetInterval) (52Q \VFMhigh 40Q \VFMhigh 33Q \VFMhigh 15Q \VFMlow) () \VFMInsert D1 (P 0 splitFlag I 2 insertLevel I 1 insertVolumePage I 0 insertKey) @Bg H@B @Bg h(33Q \VFMFind 22Q \VFMSplit 12Q \VFMFind) (30Q \VFMInsert1 7 \VFMInsert1) () \VFMInsert1 D1 (F 0 insertLevel F 1 splitFlag F 2 insertKey F 3 insertVolumePage) `lch``2``l```` R``P ``l```` `SP ````` h(206Q \VFMMarkBufferDirty 156Q \VFMPutNext 145Q \VFMSmartBLT 106Q \VFMPutNext 65Q \VFMSmartBLT) (203Q \VFMbuffer 175Q \VFMhighPtr 167Q \VFMbuffer 164Q \VFMlowPtr 161Q \VFMbuffer 151Q \VFMhigh 141Q \VFMhighPtr 134Q \VFMbuffer 130Q \VFMhighPtr 125Q \VFMbuffer 116Q \VFMlowPtr 113Q \VFMbuffer 77Q \VFMhigh 72Q \VFMhigh 61Q \VFMhighPtr 54Q \VFMbuffer 50Q \VFMhighPtr 45Q \VFMbuffer 36Q \VFMlowPtr 33Q \VFMbuffer 22Q \VFMbuffer 17Q \VFMlowPtr 2 \VFMbuffer) () \VFMLower D1 (L (1 b 0 a)) o@@AA@@AA$jdHIijIIHIhjIHI/HI (KJ#ljMLAM`MhMk]i(104Q EQP) (135Q \VFMmaxKey) () \VFMMerge D1 (P 2 mergeFlag P 1 rightInterval P 0 leftInterval I 1 mergeLevel I 0 mergeKey) Kl l H@Ak l HlAg HlAk JII IdIAk h(107Q \VFMInsert 70Q \VFMFreeVPage 54Q \VFMDelete 42Q \VFMFind 24Q \VFMGet 11Q \ALLOCBLOCK 4 \ALLOCBLOCK) (37Q \VFMMerge1) () \VFMMerge1 D1 (F 2 rightInterval F 3 leftInterval F 4 mergeLevel F 5 mergeFlag)  R`l SS dXTl`jl``c %`H`d `d`b```l`H`` `d``` `d``d``RIlĿ` ` h(304Q \VFMMarkBufferDirty 276Q \VFMMarkBufferDirty 223Q \VFMSmartBLT 176Q \VFMSmartBLT 132Q \VFMReadNext 106Q \VFMSmartBLT 23Q \VFMGetBufferFor) (310Q \VFMxtraBuffer 301Q \VFMxtraBuffer 273Q \VFMbuffer 261Q \VFMlow 252Q \VFMlowPtr 244Q \VFMbuffer 235Q \VFMlowPtr 227Q \VFMxtraBuffer 217Q \VFMlowPtr 212Q \VFMbuffer 206Q \VFMlowPtr 202Q \VFMbuffer 173Q \VFMlowPtr 170Q \VFMbuffer 163Q \VFMxtraBuffer 146Q \VFMxtraBuffer 141Q \VFMbuffer 136Q \VFMlowPtr 120Q \VFMbuffer 112Q \VFMxtraBuffer 100Q \VFMbuffer 73Q \VFMxtraBuffer 60Q \VFMxtraBuffer 53Q \VFMbuffer 42Q \VFMxtraBuffer 26Q \VFMxtraBuffer 6 \VFMinterval) () \VFMPutNext D1 (L (2 level 1 volumePage 0 key)) u``l``@l`lA ```l`lB``l ZdHlĿJl`` JlIlĿ*` (162Q \VFMMarkBufferDirty 140Q \PUTSWAPPEDFIXP 107Q \ALLOCBLOCK 70Q \VFMGetInterval 37Q \PUTSWAPPEDFIXP) (157Q \VFMbuffer 132Q \VFMlow 125Q \VFMlow 77Q \VFMlow 74Q \VFMold 65Q \VFMlowPtr 57Q \VFMoldPtr 51Q \VFMlow 45Q \VFMlowPtr 42Q \VFMbuffer 30Q \VFMlow 21Q \VFMlow 16Q \VFMoldPtr 13Q \VFMlowPtr 5 \VFMlow 2 \VFMold) () \VFMReadNext D1 (P 0 \INTERRUPTABLE) l``iol ``l```l`d````l`l``l`lj (151Q \PUTSWAPPEDFIXP 26Q \LISPERROR) (142Q \VFMhigh 134Q \VFMmaxKey 131Q \VFMhigh 125Q \VFMhighPtr 117Q \VFMhighPtr 110Q \VFMhighPtr 105Q \VFMbuffer 102Q \VFMhigh 71Q \VFMbuffer 65Q \VFMlowPtr 62Q \VFMhighPtr 54Q \VFMhigh 51Q \VFMlow 46Q \VFMoldPtr 43Q \VFMlowPtr 35Q \VFMlow 32Q \VFMold 5 \VFMbuffer 2 \VFMhighPtr) ( 21Q "Read too far in ReadNext") \VFMSplit D1 (P 1 page P 0 keyStone I 1 splitLevel I 0 splitKey) l @Ag HIAk h(32Q \VFMInsert 22Q \VFMFind 7 \VFMCreateVPage 4 \ALLOCBLOCK) (17Q \VFMSplit1) () \VFMSplit1 D1 (F 2 page F 3 keyStone) wR j``Hl`lj ``l``````HII``S`l` ` h(160Q \VFMMarkBufferDirty 152Q \VFMMarkBufferDirty 45Q \VFMReadNext 42Q \PUTSWAPPEDFIXP 3 \VFMGetBufferFor) (164Q \VFMxtraBuffer 155Q \VFMxtraBuffer 147Q \VFMbuffer 141Q \VFMlow 133Q \VFMlowPtr 130Q \VFMbuffer 111Q \VFMlowPtr 104Q \VFMbuffer 101Q \VFMxtraBuffer 75Q \VFMlowPtr 72Q \VFMbuffer 67Q \VFMxtraBuffer 54Q \VFMbuffer 51Q \VFMhighPtr 33Q \VFMhigh 23Q \VFMhigh 15Q \VFMinterval 12Q \VFMhighPtr 6 \VFMxtraBuffer) () \VFMGetBufferFor D1 (L (0 VOLPAGENUM)) h@ 1HP`d`d@l dKdjX``@H `` YZIhiJ `H(126Q \VFMSaveBuffer 110Q FNTH 76Q \PFGetFileMapPage 3 \VFMKillBuffer) (143Q \BTREEBUF 136Q \VFMbufferPool 132Q \VFMbufferPool 105Q \VFMbufferSize 102Q \VFMbufferPool 71Q \BTREEBUF 64Q \VFMvolumeHandle 60Q \VFMbufferPool 54Q \VFMbufferPool 21Q \VFMvolumeHandle 14Q \BTREEBUFTYPE#) () \VFMSaveBuffer D1 (L (2 evenIfNotDirty 1 whichBuffers 0 notAll)) M@`bAHdHhHHIdjBIII Ij(77Q \PFPutFileMapPage) (104Q \BTREEBUF 72Q \BTREEBUF 64Q \BTREEBUF 56Q \BTREEBUF 40Q \BTREEBUF 4 \VFMbufferPool) () \VFMClearBuffers D1 NIL hNIL (3 \VFMbufferPool) () \VFMKillBuffer D1 (L (0 VOLPAGENUM)) @`d@ ```!HYhZI@ JIJ(64Q \VFMCorrectBufferP 13Q \VFMCorrectBufferP) (34Q \VFMbufferPool 27Q \VFMbufferPool 23Q \VFMbufferPool 17Q \VFMbufferPool 2 \VFMbufferPool) () \VFMCorrectBufferP D1 (L (1 VOLPAGENUM 0 BUFFER)) @` @ANIL (17Q \BTREEBUF 10Q \VFMvolumeHandle 3 \BTREEBUF) () \VFMMarkBufferDirty D1 (L (0 BUFFERPAGE)) 2`Hhkkjhh@IIiHXNIL (41Q \BTREEBUF 16Q \BTREEBUF 2 \VFMbufferPool) () \VFMCreateIntervals D1 NIL Ag ,`%` Hj HH ` l l hdj h(71Q ARRAY 55Q ARRAYSIZE 45Q \FZEROP 24Q ARRAYORIG 5 BOUNDP) (74Q \VFMintervals 52Q \VFMintervals 21Q \VFMintervals 12Q \VFMintervals 2 \VFMintervals) () \VFMClearIntervals D1 NIL l jIHh`Ih*IkYNIL (16Q \VFMintervals) () \VFMGetInterval D1 NIL ` 1`H(r`Hjllhdj `\`[LMMO NM`l Zd`lĿJl`` JlIlĿ*[K_MmԽN*(140Q \PUTSWAPPEDFIXP 105Q \ALLOCBLOCK 66Q \VFMGetBufferFor 36Q ARRAY 5 \PFVolumeNumber) (132Q \VFMbuffer 125Q \VFMbuffer 112Q \VFMnullKey 77Q \VFMbuffer 71Q \VFMbuffer 46Q \VFMvolumeHandle 41Q \VFMvolumeHandle 22Q \VFMintervals 13Q \VFMintervals 2 \VFMvolumeHandle) () \VFMBlankInterval D1 NIL 9` 1`H()`Hlhdj ljJIKJl *JkZK*(54Q \ALLOCBLOCK 33Q ARRAY 5 \PFVolumeNumber) (22Q \VFMintervals 13Q \VFMintervals 2 \VFMvolumeHandle) () \VFMSmartBLT D1 (L (2 NWORDS 1 SBASE 0 DBASE)) UA@A@DA@=@BHAHAHA!BkjIH@IAIIkY@@ABNIL NIL () \VFMAtLoad D1 NIL lml Xd` Hlo l hl l l l jddg (146Q CREATE.MONITORLOCK 140Q \VFMCreateIntervals 116Q \ALLOCBLOCK 106Q \ALLOCBLOCK 76Q \ALLOCBLOCK 66Q \ALLOCBLOCK 52Q \ALLOCBLOCK 40Q \PUTSWAPPEDFIXP 24Q \PUTSWAPPEDFIXP 14Q \ALLOCBLOCK) (151Q \VFMmonitor 143Q \VFMmonitor 135Q \VFMhighPtr 131Q \VFMlowPtr 125Q \VFMoldPtr 121Q \VFMhigh 111Q \VFMlow 101Q \VFMold 71Q \VFMinterval 61Q \VFMvolumeHandle 55Q \VFMnullKey 45Q \VFMmaxKey 21Q \VFMmaxID 4 \VFMmaxID) ( 35Q 37777776Q) (PRETTYCOMPRINT LOCALFILECOMS) (RPAQQ LOCALFILECOMS ((* * This is the Dandelion/Dove local hard disk file system.) (DECLARE: EVAL@COMPILE DONTCOPY (FILES DECL MESATYPES) (LOCALVARS . T) (IGNOREDECL . T)) (* * Declare low-level data types on which all file system modules depend.) (FNS \PFFetchString \PFReplaceString) (DECLARE: EVAL@COMPILE DONTCOPY (COMS * PILOTFILECOMPILECOMS)) (INITRECORDS PageGroup FileDescriptor) (* * Define the various modules of the file system.) (COMS * LFCOMS) (COMS * LFDIRECTORYCOMS) (COMS * SCAVENGEDSKDIRECTORYCOMS) (COMS * LFPILOTFILECOMS) (COMS * LFALLOCATIONMAPCOMS) (COMS * LFFILEMAPCOMS) )) (/DECLAREDATATYPE (QUOTE PageGroup) (QUOTE (SWAPPEDFIXP SWAPPEDFIXP SWAPPEDFIXP)) (QUOTE ((PageGroup 0 SWAPPEDFIXP) (PageGroup 2 SWAPPEDFIXP) (PageGroup 4 SWAPPEDFIXP))) (QUOTE 6)) (/DECLAREDATATYPE (QUOTE FileDescriptor) (QUOTE (POINTER FIXP WORD FIXP POINTER)) (QUOTE (( FileDescriptor 0 POINTER) (FileDescriptor 2 FIXP) (FileDescriptor 4 (BITS . 15)) (FileDescriptor 5 FIXP) (FileDescriptor 8 POINTER))) (QUOTE 10)) (RPAQQ LFCOMS ((* * This module handles the interface to the device-independent part of the file system: it provides a vector of standard device-specific file system operations. This used to be the sole contents of the file LOCALFILE.) (DECLARE: EVAL@COMPILE DONTCOPY (* * File system datatypes) ( CONSTANTS (lispFileVersion 2) (leaderPageSeal 54321)) (RECORDS LFDEV DLIONSTREAM LeaderPage) (* * Error mechanism) (MACROS DiskError)) (* * Public entry) (FNS CREATEDSKDIRECTORY PURGEDSKDIRECTORY LISPDIRECTORYP VOLUMES VOLUMESIZE) (FNS DFSCREATEDIRECTORY MKDIR DFSPURGEDIRECTORY DFSVOLUMES) (FNS \DFSCurrentVolume \DFSFreeDiskPages) (FNS \LFEntryPoint \LFNormalizeVolumeName) (* * Device management ) (FNS \LFCreateDevice \LFOpenDevice \LFCloseDevice) (GLOBALVARS \LFdevice \LFtopMonitor \LFrunSize) ( P (\LFCreateDevice)) (INITVARS (\LFtopMonitor (CREATE.MONITORLOCK (QUOTE topMonitor))) (\LFrunSize 20) ) (* * Device methods) (FNS \LFOpenFile \LFGetStreamForFile \LFOpenOldFile \LFGenFileID \LFCreateFile \LFMakeLeaderPage \LFUpdateLeaderPage \LFWriteLeaderPage) (FNS \LFCloseFile) (FNS \LFDeleteFile) (FNS \LFReadPages \LFReadOnePage) (FNS \LFWritePages \LFWriteOnePage \LFExtendFile) (FNS \LFGetFileInfo) ( FNS \LFGetFileName) (FNS \LFEventFn) (FNS \LFDirectoryNameP) (FNS \LFTruncateFile))) (\LFCreateDevice) (RPAQ? \LFtopMonitor (CREATE.MONITORLOCK (QUOTE topMonitor))) (RPAQ? \LFrunSize 20) (RPAQQ LFDIRECTORYCOMS ((* * This module handles the Lisp directory part of the file system. The Lisp directory maps literal file names onto Pilot file ID numbers (which can then be looked up in the volume file map) %. This module used to be in the file LFDIRECTORY.) (* * Known problem: the directory is currently stored as a list rather than a tree, so searches in a large directory take quite some time.) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (directorySize 50)) (RECORDS GenerateFileState GeneratedFile DIRSEARCHSTATE PARSEDFILENAME ExpandedName DFSFileSpec) (MACROS CONDCONCAT) (FNS PRINTDIRECTORY)) (* * Format of a directory entry is - bang (check ; should always contain !) - type ( 0 = hole, 1 = file) - entryLength - fileID (4 bytes) - version# (2 bytes) - filenameLength - filename (filenameLength bytes)) (* * Routines for mapping file names onto volumes and directories) (FNS \LFFindDirectory \LFFindDirectoryVol \LFParseFileName) (* * Creating and opening directories) (FNS \LFMakeVolumeDirectory \LFDirectoryP \LFPurgeDirectory \LFCloseDirectory) (* * Functions for making, deleting, and finding entries in a directory.) (FNS \LFMakeDirEntry \LFRemoveDirEntry \LFReadFileID \LFFindDirHole \LFMakeDirHole \LFCheckBang) (FNS \LFDirectorySearch \LFVersions) (FNS \LFFileSpec \LFUnpackName \LFFullFileName \LFFileName) (FNS \LFDirectoryScrambled) (FNS \LFDWIN \LFDWOUT) (* * Directory enumeration) (FNS \LFGenerateFiles \LFFindNextFile \LFSortFiles \LFHighestVersions \LFFindInfo \LFReturnNextFile \LFReturnInfo) (GLOBALVARS \LFtopMonitor) (* * Holding onto directory streams) (FNS \LFGetDirectory \LFPutDirectory \LFCreateDirectories) (GLOBALVARS \LFdirectories) (P ( \LFCreateDirectories)) (* * Case array manipulation) (FNS \LFINITCASEARRAY \LFCASEARRAYFETCH) ( GLOBALVARS \LFCASEARRAY \DISKNAMECASEARRAY) (INITVARS (\LFCASEARRAY (\LFINITCASEARRAY))))) (\LFCreateDirectories) (RPAQ? \LFCASEARRAY (\LFINITCASEARRAY)) (RPAQQ SCAVENGEDSKDIRECTORYCOMS ((* * This module contains routines for scavenging the Lisp directory in the event that it should become smashed. It used to be in the file SCAVENGEDSKDIRECTORY.) (* * Directory (LFDIRECTORY) level stuff) (FNS SCAVENGEDSKDIRECTORY SCAVENGEVOLUME \LFScavFileName \LFScavVersion) (GLOBALVARS \LFtopMonitor) (* * Volume file map (LFFILEMAP) level stuff) (FNS \VFMGenerateFileIDs))) (RPAQQ LFPILOTFILECOMS ((* * This module (together with its two sub-modules, FILEMAP and ALLOCATIONMAP ) define the necessary subset of the Pilot file system. This used to be contained in the file LFPILOTFILE.) (* * These functions transfer pages to and from the disk) (FNS \PFGetPhysicalVolumePage) (FNS \PFGetLogicalVolumePage \PFPutLogicalVolumePage) (FNS \PFGetMarkerPage \PFPutMarkerPage) (FNS \PFGetFreePage \PFCreateFreePage) (FNS \PFGetAllocationMapPage \PFPutAllocationMapPage) (FNS \PFGetFileMapPage \PFPutFileMapPage) (FNS \PFGetPage \PFPutPage \PFCreatePage) (FNS \PFTransferFilePage) (FNS \PFTransferPage) (DECLARE: DONTEVAL@LOAD (P (\LOCKFN (QUOTE \PFTransferPage) ))) (RESOURCES label) (* * File Descriptor pool for system files) (FNS \PFCreateFileDescriptors \PFInitFileDescriptors) (GLOBALVARS \PFLogicalVolumeFileD \PFMarkerFileD \PFFreeFileD \PFAllocationMapFileD \PFFileMapFileD) (P (\PFCreateFileDescriptors)) (* * Physical volume interface) (FNS \PFCreatePhysicalVolume) (GLOBALVARS \PhysVolumePage) (P (\PFCreatePhysicalVolume)) (* * Interface to logical volumes,) (FNS \PFCreateVols \PFInitializeVols \PFGetVols \PFGetVol \PFVolumeNumber) (GLOBALVARS \DFSLogicalVolumes \DFSLogicalVolumeHash) (P (\PFCreateVols)) (FNS \PFGetLVPage) (* * Pilot integrity) (FNS \PFVersionOK \PFPilotVolumeP) (* * Pilot initialization) (FNS \PFEnsureInitialized) (GLOBALVARS \PFInitialized) (INITVARS (\PFInitialized NIL)) (P (ADDTOVAR \SYSTEMCACHEVARS \PFInitialized)) (P (\PFEnsureInitialized)) (* * Root directory management) (FNS \PFFindDirectoryID \PFInsertDirectoryID \PFRemoveDirectoryID) (FNS \PFFindRootDirEntry \PFAddRootDirEntry \PFRemoveRootDirEntry \PFFindRootDirEntryNum \PFPatchRootDirEntries) (FNS \PFGetRootDirectory \PFPutRootDirectory \PFCreateRootDirectory \PFPurgeRootDirectory) (FNS \GetRootDirectoryType \PFPutRootDirectoryType) (* * Pilot file management) (FNS \PFNewPages \PFTrimHelper \PFFindPageAddr \PFFindFileSize \PFFreeDiskPages) (* * Lisp vmem) (FNS \PFCurrentVol) (* * Display stub; real volume display stuff is implemented on a library package called VOLUMEDISPLAY.) (FNS \PFDsplyVolumes))) (\LOCKFN (QUOTE \PFTransferPage)) (PUTDEF (QUOTE label) (QUOTE RESOURCES) (QUOTE (NEW (create Label) GET (if \label.GLOBALRESOURCE then (PROG1 \label.GLOBALRESOURCE (\CLEARWORDS \label.GLOBALRESOURCE (MESASIZE Label)) (SETQ \label.GLOBALRESOURCE NIL)) else (NEWRESOURCE label))))) (\PFCreateFileDescriptors) (\PFCreatePhysicalVolume) (\PFCreateVols) (RPAQ? \PFInitialized NIL) (ADDTOVAR \SYSTEMCACHEVARS \PFInitialized) (\PFEnsureInitialized) (RPAQQ LFALLOCATIONMAPCOMS ((* * Implements the 1108 file system volume file map. Very roughly translates the Pilot file VolAllocMapImpl.mesa. Used to be contained in the separate file LFALLOCATIONMAP. Must be loaded after the PILOTFILE module.) (* * Needed improvement : Restructure interface with FILEIO so that a page can be allocated and written in one fell swoop. MFile/Pilot have a special interface for this.) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (BITSPERPAGE 4096))) (* * Public routines) (FNS \VAMAllocPageGroup \VAMFreePageGroup \VAMInit \VAMRecomputeFreePageCount) (* * Private routines:) (FNS \VAMFilePageNumber \VAMFindFreePages \VAMUpdateVAM \VAMAdjustGroup) (RESOURCES \DFSVAMpage \DFSVAMjunkPage) (GLOBALVARS \VAMmonitor) (INITVARS (\VAMmonitor (CREATE.MONITORLOCK ( QUOTE VAMmonitor)))) (* * buffer management) (FNS \VAMGetVAMPageFor \VAMBufferInit \VAMBufferSave \VAMMarkBufferDirty) (GLOBALVARS \VAMbuffer \VAMbufferVolume \VAMbufferVolumePage \VAMbufferDirty) (* * Initialize VAM) (P (\VAMInit)))) (PUTDEF (QUOTE \DFSVAMpage) (QUOTE RESOURCES) (QUOTE (NEW (create Page)))) (PUTDEF (QUOTE \DFSVAMjunkPage) (QUOTE RESOURCES) (QUOTE (NEW (create Page)))) (RPAQ? \VAMmonitor (CREATE.MONITORLOCK (QUOTE VAMmonitor))) (\VAMInit) (RPAQQ LFFILEMAPCOMS ((* * Implements the volume file map, which maps Pilot file ID numbers onto runs of disk pages. Roughly equivalent to the Pilot file VolFileMapImpl.mesa. Must be loaded after the PILOTFILE module. Used to be contained in a separate file called LFFILEMAP.) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS Key Interval Index BufferArray Buffer) (RECORDS \BTREEBUF) (CONSTANTS (maxReadPtr ( DIFFERENCE (MESASIZE Buffer) (MESASIZE Index))) (treeDepth 5)) (FNS ShowIntervals)) (INITRECORDS \BTREEBUF) (* * Initialization routines) (FNS \VFMInit) (* * The following are public entry points to the volume file map module) (FNS \VFMDeletePageGroup \VFMGetPageGroup \VFMInsertPageGroup) (* * The following are routines internal to the volume file map module.) (FNS \VFMContextSet \VFMCreateVPage \VFMDelete \VFMDelete1 \VFMDelete2 \VFMFind \VFMFreeVPage \VFMGet \VFMGet1 \VFMInsert \VFMInsert1 \VFMLower \VFMMerge \VFMMerge1 \VFMPutNext \VFMReadNext \VFMSplit \VFMSplit1) (GLOBALVARS \VFMmaxID \VFMmaxKey \VFMnullKey \VFMvolumeHandle \VFMinterval \VFMold \VFMlow \VFMhigh \VFMoldPtr \VFMlowPtr \VFMhighPtr \VFMmonitor) (* * Buffer management) (FNS \VFMGetBufferFor \VFMSaveBuffer \VFMClearBuffers \VFMKillBuffer \VFMCorrectBufferP \VFMMarkBufferDirty) (GLOBALVARS \VFMbufferPool \VFMbufferSize \VFMbuffer \VFMxtraBuffer) (INITVARS (\VFMbufferSize 10)) (* * Interval cache interface) (FNS \VFMCreateIntervals \VFMClearIntervals \VFMGetInterval \VFMBlankInterval) (GLOBALVARS \VFMintervals) ( * * BLT routine that doesn't stomp on itself for overlapping intervals) (FNS \VFMSmartBLT) (* * Loading initialization) (FNS \VFMAtLoad) (P (\VFMAtLoad)))) (/DECLAREDATATYPE (QUOTE \BTREEBUF) (QUOTE (POINTER FIXP POINTER FLAG)) (QUOTE ((\BTREEBUF 0 POINTER) (\BTREEBUF 2 FIXP) (\BTREEBUF 4 POINTER) (\BTREEBUF 4 (FLAGBITS . 0)))) (QUOTE 6)) (RPAQ? \VFMbufferSize 10) (\VFMAtLoad) (PUTPROPS LOCALFILE COPYRIGHT ("Xerox Corporation" 1985)) NIL