(FILECREATED "20-Sep-84 17:28:13" ("compiled on " {ERIS}DFS11>DLIONFS.;55) "15-Sep-84 03:34:49" tcompl'd in "INTERLISP-D 15-Sep-84 ..." dated "15-Sep-84 03:48:38") (FILECREATED "20-Sep-84 17:24:54" {ERIS}DFS11>DLIONFS.;55 68230 changes to: (FNS \DFSGetFileName REL \DFSGetStreamForFile DFSCREATEDIRECTORY \DFSDeviceConflict \DFSInit \DFSPhysicalVolumeOK DISPLAYPAGE DISPLAYWORDS ShowIntervals \DFSAtLoad \DFSCreateDevice \DFSOpenOldFile \DFSCreateFile \DFSEventFn \DFSDEVICEP \DFSHostNameP \DFSDirectoryNameP \DFSDsplyVolumes.REPAINTFN) (VARS DLIONFSCOMPILECOMS DLIONFSCOMS) (RECORDS UNAME) previous date: "14-Sep-84 17:29:59" {ERIS}DFS11>DLIONFS.;40) DFSCREATEDIRECTORY D1 (P 5 \INTERRUPTABLE P 4 word P 1 markerPage P 0 vol I 0 volName) @ !Ho@o ljLKHLLhLk\io g Z`JgH H @(176Q \DFSMakeVolumeDirectory 171Q \DFSVFMInitMap 164Q \DFSCreateDevice 160Q \DFSDeviceConflict 133Q \GETDEVICEFROMNAME 121Q ERROR 71Q \DFSCurrentVol 45Q ERROR 42Q CONCAT 21Q \DFSGetLVPage 14Q ERROR 10Q \DFSPhysicalVolumeOK 5 \DFSEnsureInitialized 2 \DFSEnsureDlion) (153Q \DFSCloseFile 146Q FDEV 140Q FDEVTYPE# 130Q DSK) ( 116Q "Can't make a lisp file directory on your vmem volume" 37Q " not on local disk" 32Q "Volume ") DFSPURGEDIRECTORY D1 (P 11Q device P 10Q vol P 0 \INTERRUPTABLE I 0 volName) F"@  O@o @g `OdT`@kj2OO(`O(_OOh__Ok_O&_OjOhg (`Od0`@kj2O&O$O(jO.hg ( `Od0`@kj2O6O4O8j!O>hg h*g __`Og O h_"ljJIOJO"JhJkZiO O_O k_ `O&(_,O*O,h_*_(O&k_&O,&_*_2ljLKOLO2LhLk\iO0O._.O0k_0`O6(__>O@k_@ggg@ (1103Q PACKFILENAME 465Q \REMOVEDEVICE 454Q \DFSVolumeNameToNumber 415Q \GETDEVICEFROMNAME 404Q SHOULDNT 310Q FORGETPAGES 304Q SHOULDNT 204Q SHOULDNT 45Q VOLUMETYPE 35Q ERROR 32Q CONCAT 14Q \DFSGetLVPage 5 \DFSEnsureInitialized 2 \DFSEnsureDlion) (1077Q DIRECTORY 1074Q DSK 1071Q HOST 727Q \DFSLogicalVolumes 565Q \DFSLogicalVolumes 444Q \DFSCloseFile 437Q FDEV 425Q FDEVTYPE# 412Q DSK 401Q cantFindLogicalVolume 331Q \PhysVolumePage 314Q \DFSdirectories 301Q cantFindLogicalVolume 231Q \PhysVolumePage 214Q \DFSdirectories 201Q cantFindLogicalVolume 107Q \DFSLogicalVolumes 65Q \PhysVolumePage 50Q \DFSdirectories 42Q PILOT) ( 27Q " is not a local disk volume") VOLUMES D1 (P 1 vol P 0 \INTERRUPTABLE)  0`@kj2 NM%`N(_OOh__Nk^O&_OQdYkj2OO)IlO_OOh__Ok_O&_O KJh\J&L(205Q U-CASE 202Q PACKC 5 \DFSEnsureInitialized 2 \DFSEnsureDlion) (36Q \DFSLogicalVolumes 16Q \PhysVolumePage) () VOLUMETYPE D1 (P 23Q markerPage P 12Q oldType P 11Q vol P 0 \INTERRUPTABLE I 1 type I 0 volumeName) AgAgAo @  O@o Olgg_AOAgljOjO O`lKOdT`@kj2OO(`O(_OOh__Ok_O&_OjO hg jKKdl g Kl j\ L O&jaO`lKOd0`@kj2O*O(O,jO2hg _jOOdl g Ol j_ O O& O_$ljJIOJO$JhJkZiO"-O _ O"k_"`O*(_0O.O0h_._,O*k_*TO0&_._6ljNMONO6NhNk^iO49O2_2O4k_4(546Q \DFSDsplyVolumes 542Q \LvPutPage 513Q ERROR 465Q SHOULDNT 353Q \LvGetPage 331Q ERROR 307Q SHOULDNT 142Q \LvPutPage 64Q ERROR 61Q CONCAT 42Q \DFSGetLVPage 33Q \DFSEnsureInitialized 30Q \DFSEnsureDlion 24Q ERROR) (647Q \DFSLogicalVolumes 510Q indexOutOfRange 462Q cantFindLogicalVolume 412Q \PhysVolumePage 372Q \PhysVolumePage 326Q indexOutOfRange 304Q cantFindLogicalVolume 212Q \DFSLogicalVolumes 170Q \PhysVolumePage 150Q \PhysVolumePage 121Q LISPFILE 104Q PILOT 100Q LISPFILE 11Q PILOT 3 LISPFILE) ( 56Q " is not a local disk volume" 21Q "type must be one of LISPFILE or PILOT or NIL") SCAVENGEVOLUME D1 (I 0 volName) o(2 \DFSEnsureDlion) NIL ( 6 (UNINTERRUPTABLY (\DFSEnsureInitialized) (PROG ((vol (\DFSGetLVPage volName)) device) (if (NOT (LISPFILEVOLUMEP volName)) then (ERROR (CONCAT volName " is not a lisp local disk volume"))) (UNINTERRUPTABLY (SETQ device (GetDevice vol)) (* * Get rid of old (screwed up) directory) (Assert (fetch DIRECTORY of device)) (FORGETPAGES (fetch DIRECTORY of device)) (\DFSTrimHelper vol (create FileDescriptor fileID _ (fetch (LogicalVolumeDescriptor volumeRootDirectory) of vol) volumeID _ (fetch (LogicalVolumeDescriptor vID) of vol) location _ (QUOTE local) immutable _ NIL temporary _ NIL size _ 62Q type _ 0) 0) (* * Create a fresh directory) (\DFSMakeVolumeDirectory vol) (\DFSOpenDiskDevice vol) (* * For each file in volume file map, if it is not the directory file, then enter this fileID into the directory with a gensym filename) (bind (volumeID _ (fetch (LogicalVolumeDescriptor volumeRootDirectory) of vol)) for fileID in (\DFSVFMGenerateFileIDs vol) do (if (NOT (EQP fileID volumeID)) then (PROG ((stream (create DLIONSTREAM FILEDESC _ (create FileDescriptor fileID _ fileID volumeID _ volumeID location _ (QUOTE local) type _ 0)))) (\DFSMakeDirEntry stream (fetch UNAME of (\DFSFileSpec (PACKFILENAME (QUOTE HOST) (fetch (FDEV DEVICENAME) of device) (QUOTE NAME) (fetch (LeaderPage fileName) of (\LvGetPage vol (\DFSFindPageAddr vol (fetch FILEDESC of stream) 0)))) (QUOTE NEW) (fetch DIRECTORY of device))) (fetch DIRECTORY of device))))))))) \DFSCurrentVolume D1 (P 0 \INTERRUPTABLE) ; Ykj2KJIlK¾M Nh]Kk[N&L (70Q U-CASE 65Q PACKC 10Q \DFSCurrentVol 5 \DFSEnsureInitialized) NIL () \DFSCurrentVol D1 (P 5 vol) `@kj2IH`I(K Lh[IkYL&J1Lh`ljdjlg ^NMljdjlg _O MiL\(162Q EQP 145Q ERROR 112Q ERROR) (142Q indexOutOfRange 107Q indexOutOfRange 70Q \PhysVolumePage 22Q \DFSLogicalVolumes 2 \PhysVolumePage) () \DFSLispVolumeP D1 (L (0 vol)) @lNIL NIL () \DFSGetLVPage D1 (P 6 vol P 0 \INTERRUPTABLE I 0 lvName) @ b`@kj2JI`J(L Mh\JkZM&KMh@Nkj2 OO)NlO_OOh__Ok_O&_O NiM](202Q U-CASE 177Q PACKC 11Q MKATOM 6 U-CASE) (36Q \DFSLogicalVolumes 16Q \PhysVolumePage) () \DFSDEVICEP D1 (P 0 \INTERRUPTABLE I 0 deviceName)  @ (26Q \DFSHostNameP 20Q \DFSVolumeNameToNumber 13Q \DFSPhysicalVolumeOK 10Q \DFSEnsureInitialized 5 \DFSEnsureDlion) NIL () \DFSEnsureDlion D1 NIL go h(16Q ERROR 2 MACHINETYPE) (5 DANDELION) ( 13Q "You can't run this function if you aren't on an 1108") \DFSEnsureInitialized D1 NIL `(7 \DFSInit) (2 \DFSInitialized) () \DFSInit D1 (P 3 volNum P 0 \INTERRUPTABLE) j j` X`@kjKdJ!l `@KJ!ij`K( Kk[`K(YI Kk[(135Q \ZEROPAGE 107Q \LvGetPage 75Q \DFSDsplyVolumes 66Q \DFSVFMInit 63Q \DFSVAMInit 14Q \DFSPhysicalVolumeOK 11Q \PvTransferPage) (147Q \DFSInitialized 121Q \DFSLogicalVolumes 102Q \DFSLogicalVolumes 72Q \DFSInitialized 45Q \PhysVolumePage 21Q \PhysVolumePage 6 \PhysVolumePage) () \DFSPhysicalVolumeOK D1 (I 0 printMessage) *`li@o h o h h(46Q TERPRI 41Q PRIN1 31Q TERPRI 24Q PRIN1) (2 \PhysVolumePage) ( 36Q "You cannot use it." 21Q "Local disk is not formatted as Klamath disk.") \DFSCreateDevice D1 (P 1 DEV P 0 \INTERRUPTABLE) `dk dgdgdgdgdg dgdgdgdgdgdgdg dgdgdgdg:dg8dg6dg4dg2dg0dg.dg*dg$ gI Io h I(321Q TERPRI 314Q PRIN1 301Q \DEFINEDEVICE 267Q \MAKE.PMAP.DEVICE) (305Q \DFSdevice 275Q DSK 261Q \GENERIC.READP 252Q NILL 243Q \IS.NOT.RANDACCESSP 234Q \ILLEGAL.DEVICEOP 225Q \IS.NOT.RANDACCESSP 216Q \ILLEGAL.DEVICEOP 207Q \GENERIC.BINS 200Q \GENERIC.BOUTS 171Q \GENERIC.RENAMEFILE 162Q \DFSHostNameP 153Q \DFSDirectoryNameP 144Q \DFSEventFn 135Q \DFSGenerateFiles 126Q \DFSOpenFile 117Q \DFSWritePages 110Q \DFSSetFileInfo 101Q \DFSReadPages 72Q \DFSOpenFile 63Q \DFSGetFileName 54Q \DFSGetFileInfo 45Q NILL 36Q \DFSDeleteFile 27Q \DFSCloseFile 20Q DSK 5 FDEVTYPE#) ( 311Q "Opened local file system device {DSK}.") \DFSDeviceConflict D1 (P 1 f) g H` Hghg `o h o h g g +dIgggIg gIg  o h (203Q TERPRI 177Q PRIN1 163Q COPYFILE 160Q PACKFILENAME 154Q FILENAMEFIELD 142Q FILENAMEFIELD 112Q FILDIR 104Q COREDEVICE 76Q TERPRI 71Q PRIN1 61Q TERPRI 54Q PRIN1 43Q FILDIR 5 \GETDEVICEFROMNAME) (151Q NAME 145Q NAME 137Q DIRECTORY 133Q DIRECTORY 130Q PSEUDO-DSK 125Q HOST 107Q {DSK} 101Q PSEUDO-DSK 40Q {DSK} 31Q \CORE.CLOSEFILE 24Q FDEV 15Q FDEVTYPE# 2 DSK) ( 174Q "Purging coredevice {DSK}." 66Q "Copying contents of {DSK} to {PSEUDO-DSK}." 51Q "{DSK} is a coredevice which has files on it.") \DFSAtLoad D1 (P 1 volNum) g l g "` g` j` l (l hdj l jIH`Il *IkYg !` g` j` l l hdj h(212Q ARRAY 176Q ARRAYSIZE 165Q ARRAYORIG 151Q TYPENAME 141Q BOUNDP 75Q ARRAY 60Q ARRAYSIZE 47Q ARRAYORIG 33Q TYPENAME 23Q BOUNDP 5 BOUNDP) (215Q \DFSdirectories 173Q \DFSdirectories 162Q \DFSdirectories 154Q ARRAYP 146Q \DFSdirectories 136Q \DFSdirectories 116Q \DFSLogicalVolumes 100Q \DFSLogicalVolumes 55Q \DFSLogicalVolumes 44Q \DFSLogicalVolumes 36Q ARRAYP 30Q \DFSLogicalVolumes 20Q \DFSLogicalVolumes 14Q \PhysVolumePage 2 \PhysVolumePage) () \DFSOpenFile D1 (P 3 \INTERRUPTABLE P 2 PAGESTIMATE P 0 \INTERRUPTABLE I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) 0AghCYOh@`!@BADAghJC bi@l Ag@@j j @E&gCAdgInkذh @(173Q \DFSUpdateLeaderPage 70Q \LISPERROR 53Q \DFSGetStreamForFile) (144Q LENGTH 126Q DON'T.CHANGE.DATE 107Q STREAM 103Q STREAM 75Q OUTPUT 42Q INPUT 27Q STREAMTYPE# 6 INPUT) () \DFSGetStreamForFile D1 (P 12Q \INTERRUPTABLE P 3 alreadyOpenStream P 2 fileID P 1 FS P 0 DIROFD I 6 OTHERINFO I 5 PAGES I 4 CREATEFLG I 3 FDEV I 2 ACCESS I 1 RECOG I 0 NAME F 20Q FILE) X@ aH@@AH Y`I  O'h[QBg>Ao 4Kg g'K_OOO OiO_i @l hIdd`NdP`@kj2OO(`O(_OOh__Ok_O&_Oj Ohg (I _ljMLNMOMhMk]iOO_Ok_$Ino h i W l hD IEF (525Q \DFSCreateFile 511Q \LISPERROR 476Q TERPRI 471Q PRIN1 352Q \DFSOpenOldFile 347Q \DFSReadFileID 340Q SHOULDNT 166Q \LISPERROR 135Q EQUAL 101Q GETFILEINFO 70Q MEMB 34Q \DFSFullFileName 23Q \DFSFileSpec 3 \DFSFileNameToDirectory) (335Q cantFindLogicalVolume 247Q \DFSLogicalVolumes 225Q \PhysVolumePage 211Q \DFSdirectories 124Q STREAM 104Q INPUT 76Q ACCESS 55Q INPUT 27Q \OPENFILES) ( 466Q "Version number limit is 65535 on 1108 File System" 65Q (NIL OLD)) \DFSOpenOldFile D1 (P 1 STREAM P 0 vol I 1 fileID I 0 file)  `@(`@ dJHlлl \dA LlKlĿLgLjd`dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dh^dM NHN@YdHdI j I lI_O II_ O II I(363Q \PUTSWAPPEDFIXP 326Q \LvGetPage 323Q \DFSFindPageAddr 52Q \PUTSWAPPEDFIXP 44Q \ALLOCBLOCK 24Q \DFSFullFileName) (420Q STREAM 414Q STREAM 373Q STREAM 367Q STREAM 345Q STREAM 334Q STREAM 315Q STREAM 307Q STREAM 274Q STREAM 264Q STREAM 254Q STREAM 201Q \STREAM.DEFAULT.MAXBUFFERS 165Q FILELINELENGTH 150Q \FILEOUTCHARFN 141Q \EOSERROR 132Q \NOIMAGEOPS 123Q \STREAM.NOT.OPEN 114Q \STREAM.NOT.OPEN 105Q \DFSdevice 70Q local 16Q STREAMTYPE# 2 \DFSLogicalVolumes) () \DFSGenFileID D1 (I 0 vol) @ls@t@sk (17Q \PUTSWAPPEDFIXP) NIL () \DFSCreateFile D1 (P 12Q stream P 11Q vol P 10Q initialAlloc P 0 \INTERRUPTABLE I 2 info I 1 pages I 0 fileName) Al`@( h`@ dIOlкl [dO KlJlĿKgKjd`dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dh]dL MO_OO `dj dlj dlO OOO @B O@`OdP`@kj2OO(`O(_OOh__Ok_O&_OjO hg ( O_$lj_ONOOO$OhOk_iO"O _ O"k_"(550Q \DFSMakeDirEntry 544Q SHOULDNT 404Q \DFSMakeLeaderPage 361Q \DFSNewPages 355Q \PUTSWAPPEDFIXP 343Q \PUTSWAPPEDFIXP 332Q \PUTSWAPPEDFIXP 67Q \PUTSWAPPEDFIXP 64Q \DFSGenFileID 55Q \ALLOCBLOCK 34Q \DFSFullFileName) (541Q cantFindLogicalVolume 453Q \DFSLogicalVolumes 431Q \PhysVolumePage 414Q \DFSdirectories 375Q STREAM 366Q STREAM 324Q PageGroupTYPE# 317Q STREAM 301Q STREAM 271Q STREAM 216Q \STREAM.DEFAULT.MAXBUFFERS 202Q FILELINELENGTH 165Q \FILEOUTCHARFN 156Q \EOSERROR 147Q \NOIMAGEOPS 140Q \STREAM.NOT.OPEN 131Q \STREAM.NOT.OPEN 122Q \DFSdevice 105Q local 27Q STREAMTYPE# 12Q \DFSLogicalVolumes) () \DFSNewPages D1 (P 0 currentGroup I 2 group I 1 file I 0 vol) t`AABYI V`AAdJ dlj B[KdlL @AH @AH AlH]M h(160Q \DFSDsplyVolumes 152Q \PUTSWAPPEDFIXP 127Q \DFSVFMInsertPageGroup 120Q \DFSVAMAllocPageGroup 110Q \PUTSWAPPEDFIXP 63Q \PUTSWAPPEDFIXP 52Q \PUTSWAPPEDFIXP 27Q EQP) (140Q PageGroup 70Q PageGroup 34Q PageGroupTYPE# 15Q PageGroup) () \DFSMakeLeaderPage D1 (P 10Q length P 7 chars P 6 newAtom P 5 maxLength P 4 lengthLoc P 3 startLoc P 2 LeaderPage P 1 Author P 0 CurrentTime I 3 Info I 2 uname I 1 file I 0 vol)  gC  gC l JH JlH JlAA JlAA Jl j Jj JlJl ldB N O M _kOj OOLOJlAJl@lIN O M _kOj O8LO@dAj J J_OOKOOǿO_Ok__OOKOOǿO_Ok_(322Q \LvPutPage 316Q \DFSFindPageAddr 260Q MIN 254Q LENGTH 244Q CHCON 241Q MKATOM 170Q MIN 164Q LENGTH 154Q CHCON 151Q MKATOM 142Q \DFSFileName 120Q \PUTFIXP 110Q \PUTFIXP 72Q \PUTSWAPPEDFIXP 54Q \PUTFIXP 44Q \PUTFIXP 31Q USERNAME 22Q FASSOC 13Q IDATE 6 FASSOC) (16Q AUTHOR 2 CREATIONDATE) () \DFSUpdateLeaderPage D1 (P 4 time P 3 leaderPage P 0 \INTERRUPTABLE I 1 access I 0 stream) 0@Kl @ K@ Kl@ YI Kl@ ZJ AgAgAdgKlL AgAgKlL @ h(202Q \DFSWriteLeaderPage 175Q \PUTFIXP 150Q \PUTFIXP 114Q \PUTFIXP 70Q \PUTFIXP 33Q \PUTFIXP 13Q DAYTIME) (163Q BOTH 155Q INPUT 135Q APPEND 126Q BOTH 120Q OUTPUT 100Q STREAM 54Q STREAM 40Q STREAM 26Q STREAM 6 STREAM) () \DFSWriteLeaderPage D1 (P 0 vol I 0 stream) !@Hd@ j @ h(35Q \LvPutPage 24Q \DFSFindPageAddr) (30Q STREAM 16Q STREAM 3 STREAM) () \DFSFindPageAddr D1 (P 0 result I 3 noCheck I 2 filePage I 1 file I 0 vol) N@AB 1Hdg HYIjChg HZJBjH[K(55Q SHOULDNT 23Q SHOULDNT 5 \DFSVFMGetPageGroup) (101Q PageGroup 63Q PageGroup 52Q keyNotFound 31Q PageGroup 20Q keyNotFound) () \DFSCloseFile D1 (P 0 \INTERRUPTABLE I 0 STREAM) <@ @ g*@@ @ @ jkl @ @(70Q \DFSUpdateLeaderPage 63Q \DFSTrimHelper 12Q \GETACCESS 6 \CLEARMAP) (46Q STREAM 40Q STREAM 32Q STREAM 24Q STREAM 15Q INPUT) () \DFSTrimHelper D1 (P 2 group I 2 targetFileSize I 1 filePtr I 0 vol) BAA `dB dlj AAHdlI A@AJ @AJ AlJ[K J\LjJlj @AJ @AJ iJ]MB #JlJ^N JB h(273Q \DFSDsplyVolumes 264Q \PUTSWAPPEDFIXP 253Q \PUTSWAPPEDFIXP 224Q EQP 202Q \DFSVAMFreePageGroup 173Q \DFSVFMDeletePageGroup 164Q \PUTSWAPPEDFIXP 131Q \PUTSWAPPEDFIXP 106Q \DFSVAMFreePageGroup 77Q \DFSVFMDeletePageGroup 64Q \PUTSWAPPEDFIXP 40Q \PUTSWAPPEDFIXP 27Q \PUTSWAPPEDFIXP 12Q EQP) (260Q PageGroup 241Q PageGroup 232Q PageGroup 211Q PageGroup 155Q PageGroup 136Q PageGroup 117Q PageGroup 21Q PageGroupTYPE#) () \DFSDeleteFile D1 (P 1 stream P 0 \INTERRUPTABLE I 1 dev I 0 fileName) _@ggA I`IJhh\KLiJZII j I@ I(126Q \DFSRemoveDirEntry 123Q \DFSFileNameToDirectory 116Q \DFSTrimHelper 15Q \DFSGetStreamForFile) (132Q STREAM 110Q STREAM 102Q STREAM 56Q STREAM 32Q STREAM 26Q \OPENFILES 11Q BOTH 6 OLDEST) () \DFSReadPages D1 (P 3 buffer P 2 page P 0 \INTERRUPTABLE I 2 buffers I 1 firstPage I 0 stream) (BAkIdIhII@JK Jkغ(37Q \DFSReadOnePage) NIL () \DFSReadOnePage D1 (P 0 vol I 2 buffer I 1 page I 0 stream) T@A@ A@ k $@ jHd@ A B nBB j(120Q BLOCK 114Q \ZEROPAGE 76Q BLOCK 72Q \LvGetPage 66Q \DFSFindPageAddr 36Q EQP) (60Q STREAM 44Q STREAM 27Q STREAM 15Q STREAM 3 STREAM) () \DFSWritePages D1 (P 3 buffer P 2 page P 0 \INTERRUPTABLE I 2 buffers I 1 firstPage I 0 stream) (BAkIdIhII@JK Jkغ(37Q \DFSWriteOnePage) NIL () \DFSWriteOnePage D1 (P 1 volumePage P 0 vol I 2 buffer I 1 page I 0 stream) <@H@ Ag Yd@A H@ Ag HIB h(70Q BLOCK 65Q \LvPutPage 56Q \DFSFindPageAddr 37Q \DFSExtendFile 26Q \DFSFindPageAddr) (53Q noError 45Q STREAM 23Q noError 15Q STREAM 3 STREAM) () \DFSExtendFile D1 (P 1 fileDesc P 0 vol I 1 page I 0 stream) N@@ "HI`IIdJ dlj AIIl dlK @ h(112Q \DFSUpdateLeaderPage 106Q \DFSNewPages 102Q \PUTSWAPPEDFIXP 71Q MAX 52Q \PUTSWAPPEDFIXP 41Q \PUTSWAPPEDFIXP) (23Q PageGroupTYPE# 11Q STREAM 3 STREAM) () \DFSGetFileInfo D1 (P 1 infoPage P 0 \INTERRUPTABLE I 2 device I 1 attribute I 0 stream) @d`ggB bdAdg@ @ n@ gII AdgII gII AdgIIgIIAdgIIg2I@kj2KJIlAK¾M Nh]Kk[N&L (331Q U-CASE 326Q PACKC 165Q GDATE 145Q GDATE 122Q GDATE 61Q \UPDATEOF 25Q \DFSGetStreamForFile) (246Q AUTHOR 230Q ICREATIONDATE 211Q IREADDATE 173Q IWRITEDATE 151Q CREATIONDATE 130Q READDATE 106Q WRITEDATE 77Q STREAM 65Q STREAM 51Q LENGTH 37Q STREAM 21Q INPUT 16Q OLD 10Q STREAMTYPE#) () \DFSSetFileInfo D1 (P 7 length P 6 chars P 5 newAtom P 4 maxLength P 3 lengthLoc P 2 startLoc P 0 \INTERRUPTABLE I 3 device I 2 newValue I 1 attribute I 0 stream)  @`@ggC b{Adg@B @ Bg@B @ BAgC@YlAIl@lBM N L _kNj OKO@ B_OOJOOǿO_Ok_(220Q \DFSWriteLeaderPage 166Q MIN 162Q LENGTH 153Q CHCON 150Q MKATOM 107Q \DFSWriteLeaderPage 103Q \PUTFIXP 62Q \DFSWriteLeaderPage 56Q \PUTFIXP 53Q IDATE 24Q \DFSGetStreamForFile) (124Q STREAM 115Q AUTHOR 75Q STREAM 67Q ICREATIONDATE 45Q STREAM 35Q CREATIONDATE 20Q INPUT 15Q OLD 7 STREAMTYPE#) () \DFSGetFileName D1 (P 1 directory P 0 \INTERRUPTABLE I 2 Dev I 1 Recog I 0 FileName) @ I @AI  (26Q \DFSFullFileName 22Q \DFSFileSpec 6 \DFSFileNameToDirectory) NIL () \DFSEventFn D1 (P 14Q vol P 0 \INTERRUPTABLE I 1 Event I 0 Dev)  pAgAgAgAdgU`@kj2 OO(`O(_OOh__Ok_O&_Od `OdT`@kj2 OO(`O(_OOh__Ok_O&_Oj Ohg (`Od0`@kj2 OOOj Ohg ( `Od0`@kj2 OOOj Ohg h*g _ljJIOJOJhJkZiO2O_Ok_`O(_OOh__Ok_+O&__ljLKOLOLhLk\iOO_Ok_`O(_OOh__Ok_ O&__ljNMONONhNk^iOO_Ok_@gh@ g@ (1174Q \FLUSH.OPEN.STREAMS 1161Q \REMOVEDEVICE 535Q \DFSInit 522Q MACHINETYPE 503Q SHOULDNT 407Q FORGETPAGES 403Q SHOULDNT 303Q SHOULDNT) (1165Q BEFORELOGOUT 1155Q \DFSdevice 1146Q NILL 1143Q FDEV 1000Q \DFSLogicalVolumes 636Q \DFSLogicalVolumes 525Q DANDELION 500Q cantFindLogicalVolume 430Q \PhysVolumePage 413Q \DFSdirectories 400Q cantFindLogicalVolume 330Q \PhysVolumePage 313Q \DFSdirectories 300Q cantFindLogicalVolume 206Q \DFSLogicalVolumes 164Q \PhysVolumePage 147Q \DFSdirectories 66Q \DFSLogicalVolumes 44Q \PhysVolumePage 33Q AFTERSAVEVM 24Q AFTERMAKESYS 15Q AFTERSYSOUT 6 AFTERLOGOUT) () \DFSFreeDiskPages D1 (P 0 vol I 1 recompute I 0 volName) -@ Ho@o AH HXHW(42Q \DFSDsplyVolumes 36Q \DFSVAMRecomputeFreePageCount 27Q ERROR 24Q CONCAT 3 \DFSGetLVPage) NIL ( 21Q " not on local disk" 14Q "Volume ") \DFSDirectoryNameP D1 (P 5 subdirectory P 4 directory P 3 volNum P 2 directoryInfo P 0 \INTERRUPTABLE I 0 DirSpec)  @ 1J [u@kJ o`K(Ykj2 ON)IlO_OOh__Ok_O&_O o \@Jl>@k ]LM L (204Q MKATOM 177Q PACK* 170Q SUBSTRING 165Q LASTCHPOS 150Q CONCAT 141Q U-CASE 136Q PACKC 31Q SUBSTRING 16Q \DFSVolumeNameToNumber 6 \DFSFirstDirectory) (40Q \DFSLogicalVolumes) ( 145Q ">" 35Q "<") \DFSHostNameP D1 (P 0 deviceName I 0 name) \@ H@H`kj2JI`l,J½L Mh\JkZM&K Hg `(131Q \DFSCreateDevice 110Q U-CASE 105Q PACKC 20Q ETHERHOSTNAME 11Q MKATOM 6 U-CASE 2 \DFSEnsureInitialized) (124Q \DFSdevice 116Q DSK 47Q \PhysVolumePage 27Q \PhysVolumePage) () \DFSFileNameToDirectory D1 (P 0 volumeNumber I 0 fileName) @  !HZ`HdC`@kj2LK`L(_NOh^Lk\O&MjKhg ( `H( ljJILJMJhJkZiLKLkؼ(145Q \DFSOpenDirectory 132Q SHOULDNT 7 \DFSVolumeNameToNumber 3 \DFSFirstDirectory) (140Q \DFSLogicalVolumes 127Q cantFindLogicalVolume 54Q \DFSLogicalVolumes 34Q \PhysVolumePage 20Q \DFSdirectories) () \DFSVolumeNameToNumber D1 (P 16Q vol P 14Q vols P 10Q defaultVol P 7 nextVolumes P 6 currentVol P 5 volumes I 0 volumeName) @o`@kj2IHJB M O_h_dOh_d#`@kj2IH`I(KLh[IkY !Od `@kj2IH`I(K Lh[IkYL&JjHhg lj_ _O OOO JO hO k_ iIHIkع`I(KLh[IkYL&NOOM O_ OiO_L&JjH hg lj__OOOOJOhOk_iIHIkع(545Q SHOULDNT 466Q \DFSLispVolumeP 447Q \APPEND2 306Q SHOULDNT 177Q \DFSLispVolumeP 162Q \DFSGetLVPage 31Q \DFSCurrentVol) (542Q cantFindLogicalVolume 403Q \DFSLogicalVolumes 303Q cantFindLogicalVolume 230Q \DFSLogicalVolumes 210Q \PhysVolumePage 132Q \DFSLogicalVolumes 110Q \PhysVolumePage 5 \PhysVolumePage) () \DFSFirstDirectory D1 (P 1 restDirectory P 0 endHost I 0 name) : o@ Xdjo@H dHkY@HlIl HIh(61Q MKATOM 56Q U-CASE 53Q SUBSTRING 30Q STRPOS 12Q STRPOS) NIL ( 23Q ">" 6 "}") \PvTransferPage D1 (P 17Q \INTERRUPTABLE P 6 volNum P 0 \INTERRUPTABLE I 2 WRITEFLG I 1 BUFFER I 0 absoluteDiskAddress) [iQ@d o @j@j@`@k`lKjNNdl g Nl Y I `lKNdP`@kj2 OO(`O(_OOh__Ok_O&_OjO}hg jLLdl g Ll j] M o iAl o AdBi`g0`@2`A4l~`6_ljKJNKOKhKk[iO_O_Ok_I(355Q SHOULDNT 332Q SHOULDNT 300Q ERROR 256Q SHOULDNT 104Q ERROR 23Q SHOULDNT) (434Q \InterfacePage 423Q \InterfacePage 415Q \InterfacePage 410Q \PvTransferPageNoSwap 405Q \InterfacePage 377Q \DFSWriteFlg 275Q indexOutOfRange 253Q cantFindLogicalVolume 165Q \DFSLogicalVolumes 143Q \PhysVolumePage 124Q \PhysVolumePage 101Q indexOutOfRange 60Q \PhysVolumePage 46Q \PhysVolumePage) ( 352Q (Assert-failure: (type? Page BUFFER)) 327Q (Assert-failure: (OR (EQ absoluteDiskAddress 0) (AND (IGREATERP absoluteDiskAddress 0) (ILEQ absoluteDiskAddress (PROG ((volNum (SUB1 (fetch (PhysicalVolumeDescriptor subVolumeCount) of \PhysVolumePage)))) (RETURN (IPLUS (LvBasePageAddr volNum) (MarkerPageAddr volNum)))))))) 20Q (Assert-failure: (FIXP absoluteDiskAddress))) \PvTransferPageNoSwap D1 (I 1 buffer I 0 absoluteDiskAddress) @A` (7 \DL.TRANSFERPAGE) (4 \DFSWriteFlg) () \LvGetPage D1 (P 5 \INTERRUPTABLE I 2 buffer I 1 pageAddr I 0 vol)  @l F`@kj2IH`I(K Lh[IkYL&Jj2Hhg bi@do j@o @`@ko iA Ado jAo A`lK@d,`@kj2IHJjHhg _jOOdl g Ol j_ O o Bl biBl o `lKj@@dl g @l H H AB BljLK@LJLhLk\iIHIkع`I(KLh[IkY"L&lj_ON@OJOhOk_iIHIkع(523Q \PvTransferPage 474Q ERROR 443Q SHOULDNT 410Q SHOULDNT 355Q ERROR 327Q SHOULDNT 234Q SHOULDNT 220Q SHOULDNT 173Q SHOULDNT 151Q SHOULDNT 135Q SHOULDNT 107Q SHOULDNT) (610Q \DFSLogicalVolumes 471Q indexOutOfRange 450Q \PhysVolumePage 352Q indexOutOfRange 324Q cantFindLogicalVolume 260Q \PhysVolumePage 241Q \PhysVolumePage 156Q \PhysVolumePage 104Q cantFindLogicalVolume 31Q \DFSLogicalVolumes 11Q \PhysVolumePage) ( 440Q (Assert-failure: (type? Page buffer)) 405Q (Assert-failure: (ILEQ pageAddr (MarkerPageAddr vol))) 231Q (Assert-failure: (IGEQ pageAddr 0)) 215Q (Assert-failure: (FIXP pageAddr)) 170Q (Assert-failure: (ILEQ vol (SUB1 (fetch (PhysicalVolumeDescriptor subVolumeCount) of \PhysVolumePage)))) 146Q (Assert-failure: (IGEQ vol 0)) 132Q (Assert-failure: (FIXP vol))) \LvPutPage D1 (P 5 \INTERRUPTABLE I 2 buffer I 1 pageAddr I 0 vol)  @l F`@kj2IH`I(K Lh[IkYL&Jj2Hhg bi@do iA Ado jAo A`lK@d,`@kj2IHJjHhg _jOOdl g Ol j_ O o iBl o `lKj@@dl g @l H H ABi hljLK@LJLhLk\iIHIkع`I(KLh[IkY)L&lj_ON@OJOhOk_iI HIkع(456Q \PvTransferPage 426Q ERROR 375Q SHOULDNT 352Q SHOULDNT 317Q ERROR 271Q SHOULDNT 176Q SHOULDNT 162Q SHOULDNT 135Q SHOULDNT 107Q SHOULDNT) (543Q \DFSLogicalVolumes 423Q indexOutOfRange 402Q \PhysVolumePage 314Q indexOutOfRange 266Q cantFindLogicalVolume 222Q \PhysVolumePage 203Q \PhysVolumePage 104Q cantFindLogicalVolume 31Q \DFSLogicalVolumes 11Q \PhysVolumePage) ( 372Q (Assert-failure: (type? Page buffer)) 347Q (Assert-failure: (ILEQ pageAddr (MarkerPageAddr vol))) 173Q (Assert-failure: (IGEQ pageAddr 0)) 157Q (Assert-failure: (FIXP pageAddr)) 132Q (Assert-failure: (FIXP vol))) VOLUMEDISPLAY D1 (P 1 oldState P 0 \INTERRUPTABLE I 0 newState) WgN` gg@dg` ` ig` ` I(123Q CLOSEW 114Q WINDOWP 77Q \DFSDsplyVolumes 66Q CLOSEW 57Q WINDOWP 25Q WINDOWP 16Q \DFSEnsureInitialized 2 MACHINETYPE) (120Q \DFSDISPLAY 111Q \DFSDISPLAY 104Q OFF 73Q \DFSDISPLAY 63Q \DFSDISPLAY 54Q \DFSDISPLAY 45Q ON 35Q OFF 31Q ON 22Q \DFSDISPLAY 5 DANDELION) () \DFSDsplyVolumesA0001 D1 (L (0 W)) hNIL (3 \DFSDISPLAY) () \DFSDsplyVolumesA0002 D1 (I 0 W) ` ` (13Q REDISPLAYW 5 CLEARW) (10Q \DFSDISPLAY 2 \DFSDISPLAY) () \DFSDsplyVolumes D1 (F 0 \DFSDsplyVolumes.REGION) `d g %Pl PdddihPldl2n"`@ll-ho gg `gg `gg `gg ` ` (227Q REDISPLAYW 221Q CLEARW 212Q PUTWINDOWPROP 175Q PUTWINDOWPROP 160Q PUTWINDOWPROP 143Q PUTWINDOWPROP 127Q CREATEW 34Q EQLENGTH 24Q BOUNDP 12Q WINDOWP) (224Q \DFSDISPLAY 216Q \DFSDISPLAY 207Q \DFSDsplyVolumesA0002 204Q RESHAPEFN 201Q \DFSDISPLAY 172Q \DFSDsplyVolumes.REPAINTFN 167Q REPAINTFN 164Q \DFSDISPLAY 155Q RESHAPEBYREPAINTFN 152Q RESHAPEFN 147Q \DFSDISPLAY 140Q \DFSDsplyVolumesA0001 135Q CLOSEFN 132Q \DFSDISPLAY 103Q \PhysVolumePage 21Q \DFSDsplyVolumes.REGION 2 \DFSDISPLAY) ( 124Q "1108 InterLisp File System") \DFSDsplyVolumes.REPAINTFN D1 (P 10Q vol P 0 \INTERRUPTABLE I 1 REG I 0 W)  0@ j@ AAkh@ @ `@ o@ `@ `kj2LK"`l,L_NOh^Lk\O&M @ `@ @ o@ @ `@kj2LK`L(_NOh^Lk\O&Md`@ Oloo@ `@kj2LK`L(_NOh^Lk\O&MjKhg @ o@ `@ Okj2LKM @ o@ `@ lOOjhd@ o@ lOXOWjhd@ o@ @ hljJIOJMJhJkZiLEKLkؼ2OlL_NOh^Lk\KO&(655Q TERPRI 650Q PRIN1 637Q FLUSHRIGHT 613Q PRIN1 602Q FLUSHRIGHT 556Q CHANGEFONT 546Q PRIN1 535Q PRIN1 531Q U-CASE 526Q PACKC 477Q CHANGEFONT 467Q PRIN1 456Q PRIN1 452Q SHOULDNT 344Q PRIN1 316Q CHANGEFONT 220Q TERPRI 213Q PRIN1 202Q TERPRI 175Q CHANGEFONT 165Q PRIN1 161Q U-CASE 156Q PACKC 70Q CHANGEFONT 60Q PRIN1 47Q CHANGEFONT 40Q DSPYPOSITION 32Q DSPLINEFEED 13Q DSPXPOSITION 6 CLEARW) (552Q \DFSfixedFont 473Q \DFSfixedBold 447Q cantFindLogicalVolume 370Q \DFSLogicalVolumes 350Q \PhysVolumePage 312Q \DFSfixedFont 243Q \DFSLogicalVolumes 223Q \PhysVolumePage 171Q \DFSfixedFont 114Q \PhysVolumePage 74Q \PhysVolumePage 64Q \DFSfixedBold 43Q \DFSfixedFont) ( 644Q " Free" 607Q " Pages" 542Q " " 463Q " " 340Q " " 333Q "* " 207Q "Logical Volumes:" 54Q "Physical Volume: ") (PRETTYCOMPRINT DLIONFSCOMS) (RPAQQ DLIONFSCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (COMS * DLIONFSCOMPILECOMS)) (INITRECORDS PageGroup) (* * Public entry) (FNS DFSCREATEDIRECTORY DFSPURGEDIRECTORY VOLUMES VOLUMETYPE SCAVENGEVOLUME) (FNS \DFSCurrentVolume \DFSCurrentVol \DFSLispVolumeP \DFSGetLVPage) (* * Initialization routines) (FNS \DFSDEVICEP \DFSEnsureDlion \DFSEnsureInitialized \DFSInit \DFSPhysicalVolumeOK \DFSCreateDevice \DFSDeviceConflict) (GLOBALVARS \DFSInitialized \PhysVolumePage \DFSdevice) (INITVARS \DFSdevice (\DFSInitialized NIL)) (P (pushnew \SYSTEMCACHEVARS (QUOTE \DFSInitialized))) (FNS \DFSAtLoad) (P (\DFSAtLoad)) (* * Device methods) (FNS \DFSOpenFile \DFSGetStreamForFile \DFSOpenOldFile \DFSGenFileID \DFSCreateFile \DFSNewPages \DFSMakeLeaderPage \DFSUpdateLeaderPage \DFSWriteLeaderPage \DFSFindPageAddr) (FNS \DFSCloseFile \DFSTrimHelper) (FNS \DFSDeleteFile) (FNS \DFSReadPages \DFSReadOnePage) (FNS \DFSWritePages \DFSWriteOnePage \DFSExtendFile) (FNS \DFSGetFileInfo) (FNS \DFSSetFileInfo) (FNS \DFSGetFileName) (FNS \DFSEventFn) ( FNS \DFSFreeDiskPages) (FNS \DFSDirectoryNameP) (FNS \DFSHostNameP) (* * Routines for mapping file names onto volumes and directories) (FNS \DFSFileNameToDirectory \DFSVolumeNameToNumber \DFSFirstDirectory) (* * These functions transfer pages to and from the disk) (FNS \PvTransferPage \PvTransferPageNoSwap \LvGetPage \LvPutPage) (DECLARE: DONTEVAL@LOAD (P (\LOCKFN (QUOTE \PvTransferPage)) (\LOCKFN (QUOTE \PvTransferPageNoSwap)) (\LOCKVAR (QUOTE \DFSWriteFlg)))) ( GLOBALVARS \DFSWriteFlg) (* * Display stuff) (FNS VOLUMEDISPLAY \DFSDsplyVolumes \DFSDsplyVolumes.REPAINTFN) (GLOBALVARS \DFSDISPLAY \DFSfixedFont \DFSfixedBold) (INITVARS ( \DFSfixedFont (FONTCREATE (QUOTE GACHA) 10 (QUOTE MRR))) (\DFSfixedBold (FONTCREATE (QUOTE GACHA) 10 ( QUOTE BRR))) \DFSDISPLAY) (* * Load other file system modules) (FILES VOLUMEDIRECTORY VOLUMEFILEMAP VOLUMEALLOCATIONMAP))) (/DECLAREDATATYPE (QUOTE PageGroup) (QUOTE (SWAPPEDFIXP SWAPPEDFIXP SWAPPEDFIXP))) (RPAQ? \DFSdevice NIL) (RPAQ? \DFSInitialized NIL) (pushnew \SYSTEMCACHEVARS (QUOTE \DFSInitialized)) (\DFSAtLoad) (\LOCKFN (QUOTE \PvTransferPage)) (\LOCKFN (QUOTE \PvTransferPageNoSwap)) (\LOCKVAR (QUOTE \DFSWriteFlg)) (RPAQ? \DFSfixedFont (FONTCREATE (QUOTE GACHA) 10 (QUOTE MRR))) (RPAQ? \DFSfixedBold (FONTCREATE (QUOTE GACHA) 10 (QUOTE BRR))) (RPAQ? \DFSDISPLAY NIL) (FILESLOAD VOLUMEDIRECTORY VOLUMEFILEMAP VOLUMEALLOCATIONMAP) (PUTPROPS DLIONFS COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL