(FILECREATED "18-Nov-85 17:08:21" ("compiled on " {ERIS}DOVE>VMEMSIZEPATCH.;8) "12-Nov-85 14:59:23" recompiled changes: \Dove.FixVMemSize \Dove.GetBootFileDescriptor \PV.DiskFileIDOfBootFile \PV.LVDescFromDiskAddress \PV.ReadPVRootPage \PV.DiskPageNumber \PV.MapSubVolumes \Dove.GetVMemSize VMemSizePatchEventFN in "INTERLISP-D 18-Nov-85 ..." dated "18-Nov-85 12:42:59") (FILECREATED "18-Nov-85 17:08:04" {ERIS}DOVE>VMEMSIZEPATCH.;8 6562 changes to: (VARS VMEMSIZEPATCHCOMS) (FNS \Dove.FixVMemSize \Dove.GetBootFileDescriptor \PV.DiskFileIDOfBootFile \PV.LVDescFromDiskAddress \PV.ReadPVRootPage \PV.DiskPageNumber \PV.MapSubVolumes \Dove.GetVMemSize VMemSizePatchEventFN) previous date: " 8-Nov-85 11:47:34" {ERIS}DOVE>VMEMSIZEPATCH.;7) \Dove.FixVMemSize D1 NIL gð´`lÙHIÍ@I(16Q \Dove.GetVMemSize 2 MACHINETYPE) (13Q \InterfacePage 5 DOVE) () \Dove.GetBootFileDescriptor D1 (P 3 PilotDiskAddress P 1 FileID P 0 DiskFileID I 0 BootFileType) J@ !HÈ¹HÈHÈõKjð¤K €hd“`Z´"`I`JÌ`nÿÿÍ`(34Q \PV.LVDescFromDiskAddress 3 \PV.DiskFileIDOfBootFile) (107Q \LispOthello.FileDescriptor 77Q FileDescriptor 74Q \LispOthello.FileDescriptor 66Q FileDescriptor 63Q \LispOthello.FileDescriptor 55Q FileDescriptor 52Q \LispOthello.FileDescriptor 43Q \DFSLogicalVolumeHash) () \PV.DiskFileIDOfBootFile D1 (L (0 N)) `lÐ@l ÚÐNIL (2 \LispOthello.PhysicalVolumeRootPage) () \PV.LVDescFromDiskAddressA0001 D1 (P 1 LastPage P 0 FirstPage I 1 LVDesc I 0 SVDesc F 2 DiskPageNumber) )@È @È õH@È@ÈõØHRñ«RIñ§gA h(44Q RETFROM) (40Q \PV.LVDescFromDiskAddress) () \PV.LVDescFromDiskAddress D1 (P 0 DiskPageNumber I 0 PilotDiskAddress) @ g (14Q \PV.MapSubVolumes 3 \PV.DiskPageNumber) (11Q \PV.LVDescFromDiskAddressA0001) () \PV.ReadPVRootPage D1 NIL )j`g``Èn¢Šð¬o`È `(42Q ERROR 14Q \PFTransferPage) (46Q \LispOthello.PhysicalVolumeRootPage 35Q \LispOthello.PhysicalVolumeRootPage 17Q \LispOthello.PhysicalVolumeRootPage 11Q \LispOthello.Label 6 VRR 3 \LispOthello.PhysicalVolumeRootPage) ( 32Q "Physical volume root page seal is invalid!") \PV.DiskPageNumber D1 (L (0 PilotDiskAddress) F 0 \DLDISKSHAPE.SECTORSPERCYLINDER F 1 \DLDISKSHAPE.SECTORSPERHEAD) @ÈPÚ@ÊQÚ@Ê‡ØØNIL NIL () \PV.MapSubVolumes D1 (P 2 SVDesc P 1 SVIndex I 0 FUNCTION) 1`È@kÙj`lKÐIl ÖÐºIHó‘hJ`I(Il@¿IkÔ¹°ÝNIL (40Q \DFSLogicalVolumes 15Q \LispOthello.PhysicalVolumeRootPage 2 \LispOthello.PhysicalVolumeRootPage) () \Dove.GetVMemSize D1 NIL l (12Q \PFFindFileSize 7 \Dove.GetBootFileDescriptor 2 \PV.ReadPVRootPage) NIL () VMemSizePatchEventFN D1 (I 0 EVENT) "@gð³@gð¬@gð¦@gð´(37Q \Dove.FixVMemSize 34Q \PFEnsureInitialized) (26Q AFTERMAKESYS 20Q AFTERSAVEVM 12Q AFTERLOGOUT 3 AFTERSYSOUT) () (PRETTYCOMPRINT VMEMSIZEPATCHCOMS) (RPAQQ VMEMSIZEPATCHCOMS ((DECLARE: DONTCOPY (FILES (LOADCOMP) SOURCES>LOCALFILE DOVE>LISPOTHELLO) (MACROS \PV.SubVolumeDescFromVol#)) (INITVARS ( \LispOthello.PhysicalVolumeRootPage (NCREATE (QUOTE VMEMPAGEP))) (\LispOthello.FileDescriptor (NCREATE (QUOTE FileDescriptor))) (\LispOthello.Label (NCREATE (QUOTE VMEMPAGEP)))) (GLOBALVARS \LispOthello.PhysicalVolumeRootPage \LispOthello.FileDescriptor \LispOthello.Label) (FNS \Dove.FixVMemSize \Dove.GetBootFileDescriptor \PV.DiskFileIDOfBootFile \PV.LVDescFromDiskAddress \PV.ReadPVRootPage \PV.DiskPageNumber \PV.MapSubVolumes \Dove.GetVMemSize VMemSizePatchEventFN) (P ( \Dove.FixVMemSize)) (ADDVARS (AROUNDEXITFNS VMemSizePatchEventFN)))) (RPAQ? \LispOthello.PhysicalVolumeRootPage (NCREATE (QUOTE VMEMPAGEP))) (RPAQ? \LispOthello.FileDescriptor (NCREATE (QUOTE FileDescriptor))) (RPAQ? \LispOthello.Label (NCREATE (QUOTE VMEMPAGEP))) (\Dove.FixVMemSize) (ADDTOVAR AROUNDEXITFNS VMemSizePatchEventFN) (PUTPROPS VMEMSIZEPATCH COPYRIGHT ("Xerox Corporation" 1985)) NIL