(FILECREATED "12-Jun-85 13:19:26" ("compiled on " {ERIS}SOURCES>LFPILOTFILE.;10) " 2-Jun-85 15:20:07" recompiled exprs: \PFFetchString \PFReplaceString DISPLAYWORDS DISPLAYLABEL DISPLAYPAGE \PFTransferPage \PFTransferPageNoSwap \PFCreateVols \PFNewPages \PFTrimHelper \PFFindPageAddr \PFCurrentVol in "INTERLISP-D 2-Jun-85 ..." dated " 2-Jun-85 17:44:12") (FILECREATED "12-Jun-85 13:17:10" {ERIS}SOURCES>LFPILOTFILE.;10 55128 changes to: (FNS DISPLAYWORDS \PFTransferPage \PFTransferPageNoSwap \PFCreateVols \PFFindPageAddr \PFFetchString \PFReplaceString \PFNewPages \PFTrimHelper \PFCurrentVol) (VARS LFPILOTFILECOMS PILOTFILECOMPILECOMS) (RESOURCES label) (RECORDS DLDISK.STATUS) previous date: "15-May-85 11:59:29" {ERIS}SOURCES>LFPILOTFILE.;9) \PFFetchString D1 (L (2 maxLength 1 lengthLoc 0 startLoc)) @jAdBB (15Q \GETBASESTRING) NIL () \PFReplaceString D1 (L (3 newString 2 maxLength 1 lengthLoc 0 startLoc)) #Cd IBHkB B@jH AIC(32Q \PUTBASESTRING 21Q SUBSTRING 4 NCHARS) NIL () DISPLAYWORDS D1 (L (1 Number 0 Start)) 8AkjIH(@I o IdkljIkY(65Q TERPRI 52Q TERPRI 33Q PRIN1 23Q PRIN1) NIL ( 30Q " ") DISPLAYLABEL D1 (L (1 volumePageNumber 0 vol)) Wl !@Yl In@ b`lKj@@dl g @l Z J Al gH Hl h(123Q DISPLAYWORDS 115Q \PFTransferPage 64Q ERROR 32Q \PFVolumeNumber 4 \ALLOCBLOCK) (111Q VRR 61Q indexOutOfRange 40Q \PhysVolumePage) () DISPLAYPAGE D1 (L (1 volumePageNumber 0 vol)) Xl !@Yl In@ b`lKj@@dl g @l Z J AHgl Hn h(124Q DISPLAYWORDS 115Q \PFTransferPage 112Q \ALLOCBLOCK 62Q ERROR 30Q \PFVolumeNumber) (105Q VRR 57Q indexOutOfRange 36Q \PhysVolumePage) () \PFGetPhysicalVolumePage D1 (L (0 buffer)) j@gl (14Q \PFTransferPage 11Q \ALLOCBLOCK) (4 VRR) () \PFGetLogicalVolumePage D1 (L (1 frame 0 vol)) `@dd (jdA (25Q \PFGetPage 16Q \PFVolumeNumber) (2 \PFLogicalVolumeFileD) () \PFPutLogicalVolumePage D1 (L (1 frame 0 vol)) `@dd (jdA (25Q \PFPutPage 16Q \PFVolumeNumber) (2 \PFLogicalVolumeFileD) () \PFGetMarkerPage D1 (L (1 frame 0 vol)) @d@ b`@(`lKj@@dl g @l H H `lK@dd jHHdl g Hl jH H `lK@dd jHHdl g Hl jH H A (264Q \PFGetPage 234Q ERROR 210Q \PFVolumeNumber 141Q ERROR 115Q \PFVolumeNumber 52Q ERROR 13Q \PFVolumeNumber) (231Q indexOutOfRange 171Q \PhysVolumePage 136Q indexOutOfRange 76Q \PhysVolumePage 47Q indexOutOfRange 26Q \PhysVolumePage 21Q \PFMarkerFileD) () \PFPutMarkerPage D1 (L (1 frame 0 vol)) @d@ b`@(`lKj@@dl g @l H H `lK@dd jHHdl g Hl jH H `lK@dd jHHdl g Hl jH H A (264Q \PFPutPage 234Q ERROR 210Q \PFVolumeNumber 141Q ERROR 115Q \PFVolumeNumber 52Q ERROR 13Q \PFVolumeNumber) (231Q indexOutOfRange 171Q \PhysVolumePage 136Q indexOutOfRange 76Q \PhysVolumePage 47Q indexOutOfRange 26Q \PhysVolumePage 21Q \PFMarkerFileD) () \PFCreateFreePage D1 (L (2 frame 1 volumePageNumber 0 vol)) `@dd (AdB (25Q \PFCreatePage 16Q \PFVolumeNumber) (2 \PFFreeFileD) () \PFGetAllocationMapPage D1 (L (2 frame 1 volumePageNumber 0 vol)) `@dd (AdB (25Q \PFGetPage 16Q \PFVolumeNumber) (2 \PFAllocationMapFileD) () \PFPutAllocationMapPage D1 (L (2 frame 1 volumePageNumber 0 vol)) @d@ b`@(AdB (31Q \PFPutPage 13Q \PFVolumeNumber) (21Q \PFAllocationMapFileD) () \PFGetFileMapPage D1 (L (2 frame 1 volumePageNumber 0 vol)) @d@ b`@(AdB (31Q \PFGetPage 13Q \PFVolumeNumber) (21Q \PFFileMapFileD) () \PFPutFileMapPage D1 (L (2 frame 1 volumePageNumber 0 vol)) @d@ b`@(AdB (31Q \PFPutPage 13Q \PFVolumeNumber) (21Q \PFFileMapFileD) () \PFGetPage D1 (L (3 frame 2 volumePageNumber 1 filePageNumber 0 file)) @ABCg (12Q \PFTransferFilePage) (6 VVR) () \PFPutPage D1 (L (3 frame 2 volumePageNumber 1 filePageNumber 0 file)) @ABCg (12Q \PFTransferFilePage) (6 VVW) () \PFCreatePage D1 (L (3 frame 2 volumePageNumber 1 filePageNumber 0 file)) @ABCg (12Q \PFTransferFilePage) (6 VWW) () \PFTransferFilePage D1 (L (4 operation 3 frame 2 volumePageNumber 1 filePageNumber 0 file) F 3 \label.GLOBALRESOURCE) S$l !@dH@ ddl hcH@lĿH@HA HA `lK@l jIIdl g Il jZ J BCDH Hch(221Q \PFTransferPage 172Q ERROR 150Q \GETBASEFIXP 126Q \LONUM 115Q \HINUM 54Q \ZEROWORDS 42Q \PUTSWAPPEDFIXP 7 \ALLOCBLOCK) (167Q indexOutOfRange 143Q FileDescriptor 134Q \PhysVolumePage 103Q FileDescriptor 70Q FileDescriptor 35Q FileDescriptor 16Q FileDescriptor) () \PFTransferPage D1 (L (3 label 2 mode 1 buffer 0 absoluteDiskAddress) P 2 \INTERRUPTABLE) qAdCd`Zl H@HAHB`g0`H2`C4l~`6YiIkjihl hHh(140Q \LISPERROR 25Q \ALLOCBLOCK) (154Q \\PFio.GLOBALRESOURCE 146Q \\PFio.GLOBALRESOURCE 110Q \InterfacePage 75Q \InterfacePage 66Q \InterfacePage 60Q \PFTransferPageNoSwap 55Q \InterfacePage 16Q \\PFio.GLOBALRESOURCE) () \PFTransferPageNoSwap D1 (L (1 label 0 diskIO)) @@@A (14Q \DL.TRANSFERPAGE) NIL () \PFCreateFileDescriptors D1 NIL Zg %g g g g  hl hdj l jIH(`I`dlI dldlk *IkYl hdj l jIH(`I`dlI dldlk *IkYl hdj l jIH&`I`dldlI dl*IkYl hdj l jIH&`I`dldlI dl*IkYl hdj l jIHh`I`dldlI dl*IkY(511Q \PUTBASEFIXP 445Q ARRAY 415Q \PUTBASEFIXP 352Q ARRAY 322Q \PUTBASEFIXP 257Q ARRAY 235Q \PUTBASEFIXP 217Q \PUTBASEFIXP 162Q ARRAY 140Q \PUTBASEFIXP 122Q \PUTBASEFIXP 65Q ARRAY 45Q BOUNDP 35Q BOUNDP 25Q BOUNDP 15Q BOUNDP 5 BOUNDP) (473Q FileDescriptorTYPE# 467Q \PFFileMapFileD 450Q \PFFileMapFileD 377Q FileDescriptorTYPE# 373Q \PFAllocationMapFileD 355Q \PFAllocationMapFileD 304Q FileDescriptorTYPE# 300Q \PFFreeFileD 262Q \PFFreeFileD 207Q FileDescriptorTYPE# 203Q \PFMarkerFileD 165Q \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 ,`%` j` l g ` Il hdj l l j"IH$l [nK`IJ*JI` IkYhh(154Q PUTHASH 102Q HASHARRAY 71Q ARRAY 57Q HASHARRAYP 50Q BOUNDP 36Q ARRAYSIZE 24Q ARRAYORIG 5 BOUNDP) (170Q \PFInitialized 151Q \DFSLogicalVolumeHash 140Q \DFSLogicalVolumes 105Q \DFSLogicalVolumeHash 74Q \DFSLogicalVolumes 54Q \DFSLogicalVolumeHash 45Q \DFSLogicalVolumeHash 33Q \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)) Adgdg,@`&` ih(66Q \PFDsplyVolumes 62Q \VFMInit 56Q \VAMInit 51Q \PFVersionOK 45Q \PFInitializeVols 41Q \PFInitFileDescriptors 35Q \PFGetPhysicalVolumePage 2 MACHINETYPE) (76Q \PFInitialized 32Q \PhysVolumePage 25Q \PFInitialized 14Q DOVE 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 AH kH@H @H h(73Q \PFPutRootDirectory 65Q \PFPurgeRootDirectory 51Q \PFRemoveRootDirEntry 42Q \PFGetRootDirectory) NIL () \PFFindRootDirEntry D1 (L (1 rootDir 0 type)) 9@A H,l AljHHdlTg HllYI(46Q ERROR 21Q \ALLOCBLOCK 4 \PFFindRootDirEntryNum) (43Q indexOutOfRange) () \PFFindRootDirEntryNum D1 (L (1 rootDir 0 type)) FAkjAlкIH2l JjIIdlTg Ill@IiIkYh(51Q ERROR 27Q \ALLOCBLOCK) (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) t0@A YiAkIkAlнLKJMLkٺjJJdlTg Jljl MjLLdlTg LlllĿLk\Adkh(124Q ERROR 102Q \ALLOCBLOCK 65Q ERROR 7 \PFFindRootDirEntryNum) (121Q indexOutOfRange 62Q indexOutOfRange) () \PFGetRootDirectory D1 (L (1 rootDir 0 vol)) T@ lh`dl@ HdlI dldlk !@Hj YdHjIZJA i(120Q \PFGetPage 73Q \VFMGetPageGroup 61Q \PUTBASEFIXP 42Q \PUTBASEFIXP 27Q \PFVolumeNumber 3 \GetRootDirectoryType) (105Q PageGroup 14Q FileDescriptorTYPE#) () \PFPutRootDirectory D1 (L (1 rootDir 0 vol) P 3 \INTERRUPTABLE) W`dl@ HdlI dldlk !@Hj Ydiol HjIZJA h(123Q \PFPutPage 101Q \LISPERROR 61Q \VFMGetPageGroup 47Q \PUTBASEFIXP 30Q \PUTBASEFIXP 15Q \PFVolumeNumber) (110Q PageGroup 2 FileDescriptorTYPE#) ( 74Q "Can't find volume root directory") \PFCreateRootDirectory D1 (L (1 rootDir 0 vol) P 0 \INTERRUPTABLE) S0`dl@ dlI dldlj @J`dj dlk @A @l @ h(117Q \PFSaveBuffers 113Q \PFPutRootDirectoryType 105Q \PFPutRootDirectory 100Q \PFNewPages 74Q \PUTSWAPPEDFIXP 63Q \PUTSWAPPEDFIXP 46Q \PUTBASEFIXP 30Q \PUTBASEFIXP 20Q \PFVolumeNumber) (55Q PageGroupTYPE# 5 FileDescriptorTYPE#) () \PFPurgeRootDirectory D1 (L (1 rootDir 0 vol) P 0 \INTERRUPTABLE) 70`dl@ dlI dldlk @j @Jj h(63Q \PFTrimHelper 55Q \PFPutRootDirectoryType 46Q \PUTBASEFIXP 30Q \PUTBASEFIXP 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)) o`ABBjY`AdL dlj BBdlM @AK @AK AKKKI JhYJ&H(153Q \PFDsplyVolumes 126Q BLOCK 107Q \VFMInsertPageGroup 100Q \VAMAllocPageGroup 70Q \PUTSWAPPEDFIXP 47Q \PUTSWAPPEDFIXP 36Q \PUTSWAPPEDFIXP) (24Q PageGroupTYPE#) () \PFTrimHelper D1 (L (2 targetFileSize 1 filePtr 0 vol)) BAj`dB dlj AHdlI @AH @AH AHHHdHjHlj @AH @AH iHBjHlHH HB h(233Q \PFDsplyVolumes 224Q BLOCK 220Q \PUTSWAPPEDFIXP 212Q \PUTSWAPPEDFIXP 155Q \VAMFreePageGroup 146Q \VFMDeletePageGroup 137Q \PUTSWAPPEDFIXP 76Q \VAMFreePageGroup 67Q \VFMDeletePageGroup 54Q \PUTSWAPPEDFIXP 34Q \PUTSWAPPEDFIXP 23Q \PUTSWAPPEDFIXP) (15Q PageGroupTYPE#) () \PFFindPageAddr D1 (L (1 filePage 0 file) P 1 \INTERRUPTABLE) a@H3 AHHAHH,@ @A XHHjiol @HHHAjHH(105Q \LISPERROR 54Q \VFMGetPageGroup 47Q \PFGetVol) NIL ( 100Q "Can't find file page") \PFFindFileSize D1 (L (0 file)) #@l @o HH(23Q \VFMGetPageGroup 13Q \PFGetVol 10Q \GETBASEFIXP) (26Q PageGroup 3 FileDescriptor) ( 20Q 17777777777Q) \PFFreeDiskPages D1 (L (1 recompute 0 vol)) A@ @X@W(11Q \PFDsplyVolumes 5 \VAMRecomputeFreePageCount) NIL () \PFSaveBuffers D1 (L (0 VOL)) @d (12Q \VFMSaveBuffer 7 \VAMBufferSave 4 \PFPutLogicalVolumePage) NIL () \PFCurrentVol D1 NIL U1Hh`ljdjlg ZJIljdjlg [KjIiHX(75Q ERROR 42Q ERROR 2 \PFGetVols) (72Q indexOutOfRange 37Q indexOutOfRange 20Q \PhysVolumePage) () \PFVMemFileID D1 NIL "`ljdjlg HH(24Q ERROR) (21Q indexOutOfRange 2 \PhysVolumePage) () \PFVMemFileSize D1 NIL 0`HdI HdlI dn (55Q \PFFindFileSize 41Q \PUTBASEFIXP 26Q \PFVolumeNumber 23Q \PFCurrentVol 6 \PFVMemFileID) (2 FileDescriptorTYPE#) () \PFExtendVMem D1 (L (0 NPAGES)) X2H`dJH dlK dndlI `dI dlj I@ԼdlL (125Q \PFNewPages 121Q \PUTSWAPPEDFIXP 104Q \PUTSWAPPEDFIXP 73Q \PUTSWAPPEDFIXP 61Q \PUTBASEFIXP 42Q \PUTBASEFIXP 32Q \PFVolumeNumber 20Q \PFVMemFileID 5 \PFVMemFileSize 2 \PFCurrentVol) (65Q PageGroupTYPE# 14Q FileDescriptorTYPE#) () (PRETTYCOMPRINT LFPILOTFILECOMS) (RPAQQ LFPILOTFILECOMS ((COMS (FNS \PFFetchString \PFReplaceString) (DECLARE: EVAL@COMPILE DONTCOPY ( COMS * PILOTFILECOMPILECOMS)) (DECLARE: (LOCALVARS . T) (IGNOREDECL . T)) (INITRECORDS PageGroup FileDescriptor)) (COMS (* Load pilot file system modules) (FILES LFFILEMAP LFALLOCATIONMAP) (* Load other file system modules) (FILES DSKDISPLAY)) (COMS (* * These functions transfer pages to and from the disk) (FNS \PFGetPhysicalVolumePage) (FNS \PFGetLogicalVolumePage \PFPutLogicalVolumePage) (FNS \PFGetMarkerPage \PFPutMarkerPage) (FNS \PFCreateFreePage) (FNS \PFGetAllocationMapPage \PFPutAllocationMapPage) (FNS \PFGetFileMapPage \PFPutFileMapPage) (FNS \PFGetPage \PFPutPage \PFCreatePage) (FNS \PFTransferFilePage) (FNS \PFTransferPage \PFTransferPageNoSwap) (RESOURCES label \PFio) (DECLARE: DONTEVAL@LOAD (P (\LOCKFN (QUOTE \PFTransferPage)) (\LOCKFN (QUOTE \PFTransferPageNoSwap))))) (COMS (* * File Descriptor pool for system files) (FNS \PFCreateFileDescriptors \PFInitFileDescriptors) (GLOBALVARS \PFLogicalVolumeFileD \PFMarkerFileD \PFFreeFileD \PFAllocationMapFileD \PFFileMapFileD) (DECLARE: DONTEVAL@LOAD DOCOPY (P ( \PFCreateFileDescriptors)))) (COMS (* * Physical volume interface) (FNS \PFCreatePhysicalVolume) ( GLOBALVARS \PhysVolumePage) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\PFCreatePhysicalVolume)))) (COMS (* * Interface to logical volumes,) (FNS \PFCreateVols \PFInitializeVols \PFGetVols \PFGetVol \PFVolumeNumber) (GLOBALVARS \DFSLogicalVolumes \DFSLogicalVolumeHash) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\PFCreateVols))) (FNS \PFGetLVPage)) (COMS (* * Pilot integrity) (FNS \PFVersionOK \PFPilotVolumeP )) (COMS (* * Pilot initialization) (FNS \PFEnsureInitialized) (GLOBALVARS \PFInitialized) (INITVARS ( \PFInitialized NIL)) (ADDVARS (\SYSTEMCACHEVARS \PFInitialized)) (DECLARE: DONTEVAL@LOAD DOCOPY (P ( \PFEnsureInitialized)))) (COMS (* * Root directory management) (FNS \PFFindDirectoryID \PFInsertDirectoryID \PFRemoveDirectoryID) (FNS \PFFindRootDirEntry \PFFindRootDirEntryNum \PFAddRootDirEntry \PFRemoveRootDirEntry) (FNS \PFGetRootDirectory \PFPutRootDirectory \PFCreateRootDirectory \PFPurgeRootDirectory) (FNS \GetRootDirectoryType \PFPutRootDirectoryType)) ( COMS (* * Pilot file management) (FNS \PFNewPages \PFTrimHelper \PFFindPageAddr \PFFindFileSize \PFFreeDiskPages \PFSaveBuffers)) (COMS (* * Lisp vmem) (FNS \PFCurrentVol \PFVMemFileID \PFVMemFileSize \PFExtendVMem)) (COMS (* * Display stub; real volume display stuff is implemented on a library package called DSKDISPLAY) (P (MOVD? (QUOTE NILL) (QUOTE \PFDsplyVolumes)))))) (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE: DOEVAL@COMPILE DONTEVAL@LOAD DONTCOPY (RESETSAVE COMPILEIGNOREDECL (QUOTE T))) (/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)) (FILESLOAD LFFILEMAP LFALLOCATIONMAP) (FILESLOAD DSKDISPLAY) (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))))) (PUTDEF (QUOTE \PFio) (QUOTE RESOURCES) (QUOTE (NEW (create \PFDiskIO)))) (\LOCKFN (QUOTE \PFTransferPage)) (\LOCKFN (QUOTE \PFTransferPageNoSwap)) (\PFCreateFileDescriptors) (\PFCreatePhysicalVolume) (\PFCreateVols) (RPAQ? \PFInitialized NIL) (ADDTOVAR \SYSTEMCACHEVARS \PFInitialized) (\PFEnsureInitialized) (MOVD? (QUOTE NILL) (QUOTE \PFDsplyVolumes)) (PUTPROPS LFPILOTFILE COPYRIGHT ("Xerox Corporation" 1985)) NIL