(FILECREATED " 8-Nov-85 11:41:36" ("compiled on " {ERIS}DOVE>LISPOTHELLO.;7) "30-Oct-85 11:34:23" recompiled changes: ShowVMemRunTable in "INTERLISP-D 30-Oct-85 ..." dated "30-Oct-85 13:41:08") (FILECREATED " 8-Nov-85 11:40:44" {ERIS}DOVE>LISPOTHELLO.;7 29910 changes to: (FNS ShowVMemRunTable) (VARS LISPOTHELLOCOMS) (RECORDS Index Interval Key) previous date: " 7-Nov-85 23:40:27" {ERIS}DOVE>LISPOTHELLO.;5) ShowVMemRunTable D1 (P 6 EndOfRunVP P 5 EndOfRunDiskAddress P 4 DiskAddress P 3 RunList P 2 VP P 0 LINKBASE) `loi i jAHH`H`ؼHjHk^Jٽoi Ji oi Ni oi Li oi Mi oi KdLILIhoi i LMKHe`@oi Ji oi Ni oi Li oi LNJi oi i h(412Q TERPRI 405Q PRIN1 374Q PRIN1 362Q PRIN1 351Q PRIN1 343Q PRIN1 332Q PRIN1 324Q PRIN1 313Q PRIN1 305Q PRIN1 251Q TERPRI 244Q PRIN1 205Q PRIN1 174Q PRIN1 166Q PRIN1 155Q PRIN1 147Q PRIN1 136Q PRIN1 130Q PRIN1 117Q PRIN1 111Q PRIN1 25Q TERPRI 20Q PRIN1) (272Q \InterfacePage 53Q \DLDISKSHAPE.SECTORSPERCYLINDER 44Q \DLDISKSHAPE.SECTORSPERHEAD 2 \IOCBPAGE) ( 401Q "]" 356Q ".." 337Q "] => [" 320Q ".." 301Q "[" 240Q " <= Entirely bogus VMem run!" 201Q "]" 162Q ".." 143Q "] => [" 124Q ".." 105Q "[" 14Q "File Page Numbers => Disk Page Numbers") \PV.DiskFileIDOfBootFile D1 (L (0 N)) `l@l NIL (2 \LispOthello.PhysicalVolumeRootPage) () \PV.DiskPageNumber D1 (L (0 PilotDiskAddress)) @`@`@NIL (15Q \DLDISKSHAPE.SECTORSPERHEAD 5 \DLDISKSHAPE.SECTORSPERCYLINDER) () \PV.FetchSubMarkerLabel D1 (P 0 NewString I 2 MaxChars I 1 Length I 0 labelBase) %AdBB @jHHH H(41Q \MOVEBYTES 11Q ALLOCSTRING) (33Q STRINGP 25Q STRINGP) () \PV.LVDescFromDiskAddress D1 (I 0 PilotDiskAddress) @ (6 \PV.LVDescFromPageNumber 3 \PV.DiskPageNumber) NIL () \PV.LVDescFromPageNumberA0001 D1 (P 1 LastPage P 0 FirstPage I 1 LVDesc I 0 SVDesc F 2 DiskPageNumber) )@ @ H@ @ HRRIgA h(44Q RETFROM) (40Q \PV.LVDescFromPageNumber) () \PV.LVDescFromPageNumber D1 (I 0 DiskPageNumber) g (5 \PV.MapSubVolumes) (2 \PV.LVDescFromPageNumberA0001) () \PV.LeaderPageForBootFile D1 (P 4 vol# P 3 LVDesc P 2 PilotDiskAddress P 1 FileID P 0 DiskFileID I 0 BootFileType) a@ HHHJjJ hKd`\5`I`L`n`j`j ` `K(131Q \PFGetPage 123Q \PFFindPageAddr 34Q \PV.LVDescFromDiskAddress 3 \PV.DiskFileIDOfBootFile) (134Q \LispOthello.LeaderPage 126Q \LispOthello.LeaderPage 117Q \LispOthello.FileDescriptor 113Q \LispOthello.FileDescriptor 103Q FileDescriptor 100Q \LispOthello.FileDescriptor 72Q FileDescriptor 67Q \LispOthello.FileDescriptor 61Q FileDescriptor 56Q \LispOthello.FileDescriptor 47Q \DFSLogicalVolumeHash) () \PV.MapSubVolumes D1 (P 2 SVDesc P 1 SVIndex I 0 FUNCTION) 1`@kj`lKIl кIHhJ`I(Il@IkԹNIL (40Q \DFSLogicalVolumes 15Q \LispOthello.PhysicalVolumeRootPage 2 \LispOthello.PhysicalVolumeRootPage) () \PV.ReadBadPageTable D1 (P 2 i P 0 BUF F 6 \LispOthello.BadPageTable) Xl kHg`k C`G`Fkj2JI)HJlkHJlL Mh\JkZM&Kc (22Q \PFTransferPage) (34Q \LispOthello.PhysicalVolumeRootPage 27Q \LispOthello.PhysicalVolumeRootPage 15Q \LispOthello.Label 12Q VRR) () \PV.ReadPVRootPage D1 NIL )j`g` `no` `(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.SetPVBootFile D1 (I 1 I I 0 LVDesc) A @A l (10Q \LV.DiskFileIDOfBootFile 3 \PV.DiskFileIDOfBootFile) NIL () \PV.UpdateMarkerPagesA0001 D1 (I 2 svNumber I 1 LVDesc I 0 SVDesc) XB` `Ȁn o`Ȁ `l`ll$`l,j`lj` ``B` (125Q \PFPutMarkerPage 103Q \MOVEBYTES 34Q ERROR 6 \PFGetMarkerPage) (122Q \LispOthello.MarkerPage 111Q \LispOthello.PhysicalVolumeRootPage 106Q \LispOthello.MarkerPage 75Q \LispOthello.PhysicalVolumeRootPage 66Q \LispOthello.MarkerPage 57Q \LispOthello.PhysicalVolumeRootPage 46Q \LispOthello.PhysicalVolumeRootPage 40Q \LispOthello.MarkerPage 27Q \LispOthello.MarkerPage 11Q \LispOthello.MarkerPage 3 \LispOthello.MarkerPage) ( 24Q "Physical volume submarker seal is invalid!") \PV.UpdateMarkerPages D1 NIL g (5 \PV.MapSubVolumes) (2 \PV.UpdateMarkerPagesA0001) () \PV.WriteBadPageTable D1 (P 3 page P 2 i P 0 BUF F 4 \LispOthello.BadPageTable) Vl TjI!kHg`k `lFT HJlK HJlkK IJkԺ(110Q \HINUM 71Q \LONUM 54Q \PV.WritePVRootPage 51Q \PUTSWAPPEDFIXP 46Q LENGTH 34Q \PFTransferPage) (37Q \LispOthello.PhysicalVolumeRootPage 27Q \LispOthello.Label 24Q VRW) () \PV.WritePVRootPage D1 NIL j`g` (17Q \PV.UpdateMarkerPages 14Q \PFTransferPage) (11Q \LispOthello.Label 6 VWW 3 \LispOthello.PhysicalVolumeRootPage) () \LV.DiskFileIDOfBootFile D1 (L (1 N 0 LVDesc)) @lAl NIL NIL () \LV.DescriptorFromName D1 (P 2 LVDesc P 1 I I 0 volName) 7` kjIH%`I(@ JlJll( JIkYh(52Q STRING-EQUAL 47Q \PFFetchString 32Q MKSTRING 5 ARRAYSIZE) (23Q \DFSLogicalVolumes 2 \DFSLogicalVolumes) () \LV.FileDescriptorForBootFile D1 (P 3 FileID P 2 DiskFileID P 0 LVDesc I 1 BootFileType I 0 volName) K@ HA JJJKjH`hY"`K`I`n`(13Q \LV.DiskFileIDOfBootFile 3 \LV.DescriptorFromName) (110Q \LispOthello.FileDescriptor 100Q FileDescriptor 75Q \LispOthello.FileDescriptor 67Q FileDescriptor 64Q \LispOthello.FileDescriptor 56Q FileDescriptor 53Q \LispOthello.FileDescriptor 42Q \DFSLogicalVolumeHash) () \LV.LeaderPageForBootFile D1 (P 3 vol# P 2 PilotDiskAddress P 1 FileID P 0 DiskFileID I 1 BootFileType I 0 LVDesc) W@A HHHIj@`h[3`I`K`n`j`j ` `(121Q \PFGetPage 113Q \PFFindPageAddr 4 \LV.DiskFileIDOfBootFile) (124Q \LispOthello.LeaderPage 116Q \LispOthello.LeaderPage 107Q \LispOthello.FileDescriptor 103Q \LispOthello.FileDescriptor 73Q FileDescriptor 70Q \LispOthello.FileDescriptor 62Q FileDescriptor 57Q \LispOthello.FileDescriptor 51Q FileDescriptor 46Q \LispOthello.FileDescriptor 35Q \DFSLogicalVolumeHash) () \LV.RenameVolume D1 (I 1 NewName I 0 LVDesc) G@` `nMo` @l@ll(A `A l(A @d @` (104Q \PFPutMarkerPage 75Q \PFPutLogicalVolumePage 70Q \LV.ReplaceSubMarkerLabel 62Q NCHARS 53Q \PFReplaceString 34Q ERROR 6 \PFGetMarkerPage) (101Q \LispOthello.MarkerPage 56Q \LispOthello.MarkerPage 27Q \LispOthello.MarkerPage 11Q \LispOthello.MarkerPage 3 \LispOthello.MarkerPage) ( 24Q "LogicalVolumeSubMarker seal is invalid") \LV.ReplaceSubMarkerLabel D1 (I 3 NewString I 2 MaxChars I 1 Length I 0 LVSubMarker) .C bdC@lj@AdBBHII C(52Q \MOVEBYTES 3 MKSTRING) (14Q STRINGP) () \VFMGenerateAllFileIDsA0001 D1 (NAME ERRORSET P 1 currentKey P 0 \INTERRUPTABLE F 5 vol F 6 RESETY) d`hi U l 1Ilo Idj llĿII` IIIK Lh[L&Jc i(76Q EQP 52Q \VFMGet 43Q \PUTSWAPPEDFIXP 25Q \ALLOCBLOCK 17Q \VFMContextSet 7 OBTAIN.MONITORLOCK) (73Q \VFMmaxID 2 \VFMmonitor) ( 40Q 17777777777Q) \VFMGenerateAllFileIDs D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 vol F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \VFMGenerateAllFileIDsA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\VFMGenerateAllFileIDsA0001)) DescribePhysicalVolumeA0001 D1 (I 1 LVDesc I 0 SVDesc) u@ @ jioi AlAll( i oi @ @ i oi @ @ i oi @ @ @ @ i oi i h(160Q TERPRI 154Q PRIN1 144Q PRIN1 121Q PRIN1 111Q PRIN1 76Q PRIN1 66Q PRIN1 53Q PRIN1 43Q PRIN1 37Q \PFFetchString 22Q PRIN1) NIL ( 150Q "]" 115Q ".." 72Q " pages long [" 47Q " is " 16Q "Logical volume ") DescribePhysicalVolume D1 NIL g (5 \PV.MapSubVolumes) (2 DescribePhysicalVolumeA0001) () LispOthelloEventFN D1 (I 0 EVENT) "@@g@g@g@g(37Q \PV.ReadPVRootPage) (31Q AFTERSAVEVM 23Q AFTERSYSOUT 15Q AFTERLOGOUT 6 AFTERMAKESYS) () PrintLVBootFiles D1 (P 3 LeaderPage P 2 I P 0 LVDesc I 0 volName) M@ H ljJIhHJ [*J`i oi KlKkld i i JkZ(104Q TERPRI 77Q PRIN1 73Q \PFFetchString 56Q PRIN1 45Q PRINTCONSTANT 32Q \LV.LeaderPageForBootFile 3 \LV.DescriptorFromName) (41Q BootFileTypes) ( 52Q ": ") PrintPVBootFiles D1 (P 2 LeaderAndLV P 1 I) aljIdHh ZII`i oi JlJll( i oi JlJkld i i IkY(130Q TERPRI 123Q PRIN1 117Q \PFFetchString 100Q PRIN1 67Q PRIN1 63Q \PFFetchString 43Q PRIN1 32Q PRINTCONSTANT 17Q \PV.LeaderPageForBootFile) (26Q BootFileTypes) ( 74Q "): " 37Q " (") RenameVolume D1 (P 1 LVDesc P 0 NewName I 0 OldVolume) Do@o @ IHhdo gIH @i oi i (101Q TERPRI 75Q PRIN1 65Q PRIN1 57Q \LV.RenameVolume 44Q ASKUSER 22Q \LV.DescriptorFromName 16Q PROMPTFORWORD 13Q CONCAT) (47Q Y) ( 71Q " not found!" 41Q "Are you sure?" 10Q " to be: " 3 "Rename ") SetPVBootFiles D1 (P 4 LeaderPage P 3 I P 1 DidOne P 0 LVDesc I 0 volName) @ HljKJ|HK \ni LlLkld i i hdoKdjo$koKdlolooo@o  gHK iKk[Ihdo goi @i i (273Q TERPRI 267Q PRIN1 262Q PRIN1 251Q \PV.ReadPVRootPage 245Q \PV.WritePVRootPage 235Q ASKUSER 207Q \PV.SetPVBootFile 175Q ASKUSER 172Q CONCAT 70Q TERPRI 63Q PRIN1 57Q \PFFetchString 42Q TERPRI 33Q \LV.LeaderPageForBootFile 3 \LV.DescriptorFromName) (240Q Y 200Q Y) ( 256Q "No such volume: " 232Q "Are you sure? " 166Q "? " 161Q " from " 155Q "?? file" 150Q "Pilot boot file" 137Q "germ" 122Q "Emulator microcode" 111Q "Interlisp or diagnostic microcode" 77Q "Set ") ShowBootFileLayout D1 (P 12Q pRunStart P 11Q vRunStart P 10Q DiskPage P 7 BootFilePage# P 5 label P 4 Buffer P 3 BootFileSize P 2 StartingPage P 0 FileDesc I 1 BootFileType I 0 volName)  @A @ A YI H kl oi i `"l KkjJjJ ONhMdl hOLgMki gMjM jOk_~oi Oi oi Oi oi Oi oi Oi oi i M mMmeOk_M M __o Ok_:(420Q ERROR 404Q \PV.DiskPageNumber 341Q TERPRI 334Q PRIN1 323Q PRIN1 314Q PRIN1 303Q PRIN1 274Q PRIN1 263Q PRIN1 254Q PRIN1 243Q PRIN1 234Q PRIN1 170Q \PFTransferPage 143Q \CLEARWORDS 102Q \ALLOCBLOCK 70Q TERPRI 63Q PRIN1 40Q \PFFindFileSize 31Q \PV.DiskPageNumber 17Q \LV.DiskFileIDOfBootFile 13Q \LV.DescriptorFromName 4 \LV.FileDescriptorForBootFile) (173Q OK 161Q VRR 150Q \label.GLOBALRESOURCE 133Q \label.GLOBALRESOURCE 73Q \label.GLOBALRESOURCE) ( 415Q "Bad disk read" 330Q "]" 310Q ".." 270Q "] --> [" 250Q ".." 230Q "[" 57Q "File pages ---> Disk pages") MakePageBad D1 (P 0 countBad I 0 physicalPage F 2 \LispOthello.BadPageTable) d`G`FH`I`HB@ o@R o` @ YlIll( ` ` @o(133Q TERPRI 124Q PRIN1 116Q \PFFetchString 101Q \PV.LVDescFromPageNumber 74Q PRIN1 62Q \PV.WriteBadPageTable 57Q MERGEINSERT 44Q MEMB 41Q \PV.ReadBadPageTable) (130Q PROMPTWINDOW 121Q PROMPTWINDOW 71Q PROMPTWINDOW 26Q \LispOthello.PhysicalVolumeRootPage 21Q \LispOthello.PhysicalVolumeRootPage 7 \LispOthello.PhysicalVolumeRootPage 2 \LispOthello.PhysicalVolumeRootPage) ( 141Q "Bad page table full!" 66Q "You should scavenge " 51Q "Already in bad page table") UnmakePageBad D1 (I 0 physicalPage F 1 \LispOthello.BadPageTable) H@ ;@Q co` @ HlHll( ` ` @o(77Q TERPRI 70Q PRIN1 61Q \PFFetchString 41Q \PV.LVDescFromPageNumber 34Q PRIN1 22Q \PV.WriteBadPageTable 15Q REMOVE 6 MEMB 3 \PV.ReadBadPageTable) (74Q PROMPTWINDOW 65Q PROMPTWINDOW 31Q PROMPTWINDOW) ( 105Q "Not in bad page table." 26Q "You should scavenge ") ListBadPages D1 NIL (2 \PV.ReadBadPageTable) NIL () (PRETTYCOMPRINT LISPOTHELLOCOMS) (RPAQQ LISPOTHELLOCOMS ((COMS (* Othello-like utility for Lisp) (DECLARE: DONTCOPY (FILES (LOADCOMP) LOCALFILE)) (CONSTANTS * BootFileTypes) (CONSTANTS * DiskPageSeals) (INITVARS ( \LispOthello.FileDescriptor (NCREATE (QUOTE FileDescriptor))) (\LispOthello.LeaderPage (NCREATE (QUOTE VMEMPAGEP))) (\LispOthello.Label (NCREATE (QUOTE VMEMPAGEP))) (\LispOthello.PhysicalVolumeRootPage ( NCREATE (QUOTE VMEMPAGEP))) (\LispOthello.MarkerPage (NCREATE (QUOTE VMEMPAGEP))) ( \LispOthello.BadPageTable)) (GLOBALVARS \LispOthello.LeaderPage \LispOthello.FileDescriptor \LispOthello.Label \LispOthello.PhysicalVolumeRootPage \LispOthello.MarkerPage BootFileTypes DiskPageSeals)) (COMS (* Physical volume functions) (FNS ShowVMemRunTable \PV.DiskFileIDOfBootFile \PV.DiskPageNumber \PV.FetchSubMarkerLabel \PV.LVDescFromDiskAddress \PV.LVDescFromPageNumber \PV.LeaderPageForBootFile \PV.MapSubVolumes \PV.ReadBadPageTable \PV.ReadPVRootPage \PV.SetPVBootFile \PV.UpdateMarkerPages \PV.WriteBadPageTable \PV.WritePVRootPage) (DECLARE: DONTCOPY (EXPORT (MACROS SwapFIXP \PV.SubVolumeDescFromVol#) (RECORDS MarkerPage PhysicalVolumeSubMarker PilotDiskAddress PilotLeaderPage)))) (COMS (* Logical volume functions) (FNS \LV.DiskFileIDOfBootFile \LV.DescriptorFromName \LV.FileDescriptorForBootFile \LV.LeaderPageForBootFile \LV.RenameVolume \LV.ReplaceSubMarkerLabel \VFMGenerateAllFileIDs) (DECLARE: DONTCOPY (EXPORT (MACROS \LVDescFromNumber \LV.FetchSubMarkerLabel \LV.NameFromLeaderPage) (RECORDS LogicalVolumeSubMarker Index Interval Key))) ) (COMS (* User functions) (FNS DescribePhysicalVolume LispOthelloEventFN PrintLVBootFiles PrintPVBootFiles RenameVolume SetPVBootFiles ShowBootFileLayout MakePageBad UnmakePageBad ListBadPages ) (ADDVARS (AROUNDEXITFNS LispOthelloEventFN))) (COMS (P (\PV.ReadPVRootPage))))) (RPAQQ BootFileTypes ((bftDiagnosticMicrocode 0) (bftEmulatorMicrocode 1) (bftGerm 2) ( bftPilotBootFile 3))) (RPAQQ bftDiagnosticMicrocode 0) (RPAQQ bftEmulatorMicrocode 1) (RPAQQ bftGerm 2) (RPAQQ bftPilotBootFile 3) (CONSTANTS (bftDiagnosticMicrocode 0) (bftEmulatorMicrocode 1) (bftGerm 2) (bftPilotBootFile 3)) (RPAQQ DiskPageSeals ((\PV.RootSeal 41610) (\PV.SMSeal 49932) (\LV.RootSeal 45771) (\LV.SMSeal 54093)) ) (RPAQQ \PV.RootSeal 41610) (RPAQQ \PV.SMSeal 49932) (RPAQQ \LV.RootSeal 45771) (RPAQQ \LV.SMSeal 54093) (CONSTANTS (\PV.RootSeal 41610) (\PV.SMSeal 49932) (\LV.RootSeal 45771) (\LV.SMSeal 54093)) (RPAQ? \LispOthello.FileDescriptor (NCREATE (QUOTE FileDescriptor))) (RPAQ? \LispOthello.LeaderPage (NCREATE (QUOTE VMEMPAGEP))) (RPAQ? \LispOthello.Label (NCREATE (QUOTE VMEMPAGEP))) (RPAQ? \LispOthello.PhysicalVolumeRootPage (NCREATE (QUOTE VMEMPAGEP))) (RPAQ? \LispOthello.MarkerPage (NCREATE (QUOTE VMEMPAGEP))) (RPAQ? \LispOthello.BadPageTable) (ADDTOVAR AROUNDEXITFNS LispOthelloEventFN) (\PV.ReadPVRootPage) (PUTPROPS LISPOTHELLO COPYRIGHT ("Xerox Corporation" 1985)) NIL