(FILECREATED " 3-NOV-83 23:00:45" ("compiled on " {PHYLUM}SOURCES>LLBFS.;29) " 2-NOV-83 17:00:02" recompiled changes: \DISKERROR \ACTONVMEMPAGES \WRITEVMEMPAGES in WORK dated " 2-NOV-83 18:52:12") (FILECREATED " 3-NOV-83 22:59:48" {PHYLUM}SOURCES>LLBFS.;29 71613 changes to: (VARS LLBFSCOMS) (FNS \DISKERROR \ACTONVMEMPAGES \WRITEVMEMPAGES) previous date: "18-JUL-83 15:28:10" {PHYLUM}SOURCES>LLBFS.;28) \INITBFS D1 (P 3 DD P 2 CB P 1 CBSTART P 0 DSK I 2 AFTER I 1 NWORDS I 0 BASE) `1@nbAnbj`. o `lлHYZ@@lbAlbJZdIH`llHdn`H` HKHK HK!HK"Hl#BHdj jdkj @Al lj`/ o hd l`l``` `l`lĿ`jj(321Q RAID 52Q RAID) (416Q \SWAPREQUESTBLOCK 407Q \ISFMAP 401Q \SWAPREQUESTBLOCK 371Q \ISFMAP 366Q \SWAPREQUESTBLOCK 362Q \ISFCHUNKSIZE 355Q \ISFMAP 351Q \ISFSCRATCHCAS 340Q \ISFMAP 335Q \ISFSCRATCHDAS 310Q \ISFMAP 302Q \InterfacePage 276Q \MAXDISKDAs 263Q \EMUSCRATCH 164Q \SYSDISK 153Q \SYSDISK 127Q \SYSDISK 56Q \SYSDISK 41Q \SYSDISK 33Q \InterfacePage 11Q \SPAREDISKWRITEBUFFER 2 \MAINDISK) (316Q "No ISF map" 47Q "Can't find sysDisk") \TESTPARTITION D1 (L (0 NUM)) }@}jH}ihNIL (11Q SMALLP) NIL \ACTONDISKPAGES D1 (P 24Q EMUBUF P 23Q BUF P 22Q N P 21Q DA P 17Q BUF P 16Q \INTERRUPTABLE P 15Q REQUEST P 14Q FIXEDBUF P 13Q BUF P 12Q N P 10Q \INTERRUPTABLE I 14Q CAs I 13Q HINTLASTPAGE I 12Q ReturnOnCheckError I 11Q LASTACTION I 10Q LASTNUMCHARSCONS I 7 ACTION I 6 LASTPAGE I 5 FIRSTPAGE I 4 FID I 3 DAorigin I 2 DAs I 1 BUFFERS I 0 DSK)  ``bD`D^ b`l. CEk BECkbGGECkbEkbBjBHBFjClĿHdFjClиGAdHjEкAE" OjCк_HOOjOӰoOOhIOFGGdndndnihOIOnĎII I_InY`I`I`o HkиO_Ok_[AjA-GnGnGnAIAnĉII I@``b` OJOLOKjCOD OlDlĿOE OF OGj OGkjOGOGG`g0`@2`O4l~`6O_A7On/jM*nMFGGL jJMOOn BjBKFjClĿAdUJE#O ]jpGm_&"O&jnO$FGGO&O(nĿO _ O"k_"O$k_$AjnGALnĿ`l `l0 `l.jMjMNO GMdnnkdGOO(1332Q \DISKERROR 1304Q \CLOCK0 1066Q \ZEROBYTES 535Q \ZEROPAGE 423Q ERROR 351Q \ZEROPAGE 44Q \CLOCK0) (1307Q \MISCSTATS 1276Q \MISCSTATS 1270Q \MISCSTATS 764Q \InterfacePage 750Q \InterfacePage 741Q \InterfacePage 733Q \DOACTONDISKPAGES 730Q \InterfacePage 557Q \DISKREQUESTBLOCK 551Q \MAINDISK 544Q \SYSDISK 411Q \EMUDISKBUFEND 401Q \EMUDISKBUFEND 371Q \EMUDISKBUFEND 36Q \MISCSTATS 15Q STREAMTYPE# 5 \EMUDISKBUFFERS 2 \EMUSCRATCH) (420Q "Attempt to act on too many disk pages") \WRITEDISKPAGES D1 (P 15Q \INTERRUPTABLE P 14Q REQUEST P 13Q FIXEDBUF P 12Q BUF P 11Q N P 7 \INTERRUPTABLE I 13Q CAs I 12Q HINTLASTPAGE I 11Q LASTNUMCHARS I 10Q LASTNUMCHARSCONS I 7 LASTACTION I 6 LASTPAGE I 5 FIRSTPAGE I 4 FID I 3 DAorigin I 2 DAs I 1 BUFFERS I 0 DSK) ' ``R@``bD`D^ b@ `l. CEk BECkbGGECkbEkbBjBHBFjClĿHdFjClиGAdHjEкAE" OjCк_HOOjOӰpOOiIOFGndndndnihOIOnĎII I_InY`I`I`o HkиO_Ok_ZAjAAIAnĉII I` OJOLOKjCOD OlDlĿOE OF OGj OGnkjOGn `g0`@2`O4l~`6BjBKFjClĿ`l `l0 `l.jMjMN Mdnnk(1026Q \DISKERROR 1002Q \CLOCK0 530Q \ZEROPAGE 444Q ERROR 372Q \ZEROPAGE 64Q \CLOCK0 50Q \OPENDISKDESCRIPTOR) (1005Q \MISCSTATS 774Q \MISCSTATS 766Q \MISCSTATS 735Q \InterfacePage 721Q \InterfacePage 712Q \InterfacePage 704Q \DOWRITEDISKPAGES 701Q \InterfacePage 536Q \DISKREQUESTBLOCK 432Q \EMUDISKBUFEND 422Q \EMUDISKBUFEND 412Q \EMUDISKBUFEND 56Q \MISCSTATS 31Q STREAMTYPE# 21Q \MAINDISK 14Q \SYSDISK 5 \EMUDISKBUFFERS 2 \EMUSCRATCH) (441Q "Attempt to act on too many disk pages") \DISKERROR D1 (I 3 DSK I 2 LASTNC I 1 STREAM I 0 ERRCODE) _AK@dnMAl nNAl oA nNo o@ @dnMoC(112Q RAID 101Q RAID 64Q ERROR 46Q \LISPERROR 25Q \LISPERROR) (57Q STREAM 37Q STREAM 16Q STREAM) ( 130Q "Hard Disk Error in Lisp.virtualmem. Page = " 106Q "Unknown disk error in Lisp.virtualmem" 76Q "Disk Full" 53Q "Disk Error") \ACTONVMEMPAGES D1 (P 1 RESULT P 0 REQUEST I 14Q CAs I 13Q HINTLASTPAGE I 12Q notused I 11Q LASTACTION I 10Q notused I 7 ACTION I 6 LASTPAGE I 5 FIRSTPAGE I 4 notused I 3 DAorigin I 2 DAs I 1 BUFFERS I 0 DSK) ^ `HGdGjChAHBjCHE HF HGj HGHGGj@H YjIhd@ jGI(121Q \DISKERROR 104Q \DOACTONDISKPAGES) (2 \SWAPREQUESTBLOCK) () \WRITEVMEMPAGES D1 (P 2 REQUEST P 1 \INTERRUPTABLE P 0 RESULT I 13Q CAs I 12Q HINTLASTPAGE I 11Q LASTNUMCHARS I 10Q notused I 7 notused I 6 LASTPAGE I 5 FIRSTPAGE I 4 FID I 3 DAorigin I 2 DAs I 1 BUFFERS I 0 DSK)  @``b `GJGjCJAJBjCJD JlDlĿJE JF JGj JjJGn@J XjHjHhd@ Hdnnk(170Q \DISKERROR 151Q \DOWRITEDISKPAGES) (24Q \DISKREQUESTBLOCK 13Q \MAINDISK 6 \SYSDISK) () \DOACTONDISKPAGES D1 (P 16Q PAGENO P 13Q THISACTION P 12Q RESULT P 11Q NEXTCB P 10Q CB P 7 CURRENTPAGE P 6 RETURNONCHECKERROR P 5 HINTLASTPAGE P 4 BUFFER P 3 LASTPAGE P 2 FIRSTPAGE P 1 DAS P 0 CAS I 2 CLEANUPFN I 1 REQUEST I 0 DSK) AAA A AA Ajhg @A@I@j @j ABMJMMKKJ_@h@dd_O@ _M_OOOIOnBOk_@@OoO @O@ d@ @#@OKAA_N"@ jAOkjOl?n_OnQ@ _OIOknOl Ol @OL jHOIOOO O_Ok_ iPOKIOknKOk_AOOo(500Q \DODISKCOMMAND 373Q \GETDISKCB 246Q \CLEANUPDISKQUEUE 233Q RAID 137Q \GETDISKCB) NIL (600Q -2115Q 226Q "Inconsistency in CBFREEPTR") \DOWRITEDISKPAGES D1 (P 20Q PAGENO P 16Q I P 11Q LAB P 10Q LASTVDA P 7 FIRSTNEWPAGE P 6 CB P 5 CURRENTPAGE P 4 BUFFER P 3 LASTPAGE P 2 FIRSTPAGE P 1 DAS P 0 CAS I 1 REQUEST I 0 DSK)  AAA A A AjIJnJCJKIJkn/AdnnAj@A ZKAAKjJJJk_KA`AdnnIOk_KOOO!@O _oIOOOk_AO @Ag KO__OO'IO_nIOOOk_Ok_OK@A@I@j @j AhJ@h@dd_OKMO O@ ^O KAnIO knIO knNl _@IO k O@IO k OO KAnNO@NL jHO IO O n O k_ di@ d@ @#@-AKKo(751Q \CLEANUPDISKQUEUE 727Q \DODISKCOMMAND 636Q \REALDISKDA 615Q \REALDISKDA 515Q \GETDISKCB 314Q \DOACTONDISKPAGES 244Q \ASSIGNDISKPAGE 122Q \DOACTONDISKPAGES) (311Q \CHECKFREEPAGE 165Q \SPAREDISKWRITEBUFFER) (1007Q -2115Q 253Q -2116Q) \CHECKFREEPAGE D1 (P 0 FID I 1 CB I 0 DSK) 7jAlldj"Hn@AnhHkиkٰiNIL NIL NIL \DODISKCOMMAND D1 (L (6 NEXTCB 5 ACTION 4 PAGENO 3 VDA 2 BUFFER 1 CB 0 DSK)) @A1HdlHBHYjHFCAl YjIYdl@l lIDADCnH@C HEdnnHll nnH@\EdnnHPOnnHEEdnnHh8nnHX.EdnnH!nkHd nk nHoE @oQZdjjJdjWjJHoQj1JjHCj%@ZJn[jKljoQHAk@A`l kh(310Q RAID 115Q \REALDISKDA) (464Q \MISCSTATS) (304Q "Invalid disk action") \GETDISKCB D1 (P 0 CB I 0 DSK) (@X@H@hHH H@ h(42Q \CLEANUPDISKQUEUE 34Q \CLEARCB) NIL NIL \CLEARCB D1 (I 0 CB) @@l @j@(13Q \ZEROWORDS) NIL NIL \CLEANUPDISKQUEUE D1 (L (0 DSK)) h@@RHdIiJnHZCj$oQjJCjHko @HH@@hJjI@HYJd kknnoQj@dn@dk@d k] M@#`oH Jl@k @H@ @#$oSn@d h@J @nk hjJѻ@K@j @j @d@@HlN1Hk\dnL@K LnL@K H(542Q \VIRTUALDISKDA 517Q \VIRTUALDISKDA 377Q \DODISKCOMMAND 365Q \VIRTUALDISKDA 355Q \GETDISKCB 276Q RAID 102Q RAID) (260Q \DISKDEBUG) (272Q "Hard Disk Error. ^N to continue" 77Q "No free CB's") \VIRTUALDISKDA D1 (L (1 REALDA 0 DSK)) 0Adjnk@ An@!Ak@"ANIL NIL NIL \REALDISKDA D1 (L (1 VDA 0 DSK)) 8Anj@"@!@ AHAHbIAIbJAJNIL NIL NIL \M44ACTONVMEMFILE D1 (P 7 I P 5 CHUNK P 4 BUF P 3 PAGE P 2 CAs P 1 DAs P 0 LASTPAGE I 3 WRITEFLG I 2 NPAGES I 1 BUFFER I 0 FIRSTPAGE) @Bk``@AH`d @ nzo ``B]kjON'JOLIOKO LnмOk_IMn`hIKhKdMkCnnhdddJ BMbKMػBdjH(226Q \ACTONVMEMPAGES 134Q \LOOKUPFMAP 60Q RAID 43Q \LOOKUPFMAP) (172Q \MAINDISK 71Q \ISFCHUNKSIZE 64Q \ISFCHUNKSIZE 23Q \ISFMAP 12Q \ISFSCRATCHCAS 7 \ISFSCRATCHDAS) (55Q "Can't complete swap operation--page not in isf map") \INSUREVMEMFILE D1 (I 1 LASTPAGE I 0 FIRSTPAGE) `lA`d @Ai h(32Q \EXTENDVMEMFILE) (13Q \ISFMAP 2 \MACHINETYPE) NIL \MAYBE.EXTENDVMEMFILE D1 (P 1 \INTERRUPTABLE P 0 \EXTENDINGVMEMFILE I 0 LASTPAGE F 2 \EXTENDINGVMEMFILE) @`l7@`d )R&i`g0`@2`@4l~`6hNIL (72Q \InterfacePage 57Q \InterfacePage 50Q \InterfacePage 42Q \EXTENDVMEMFILE 37Q \InterfacePage 13Q \ISFMAP 2 \MACHINETYPE) NIL \LOOKUPFMAP D1 (P 2 MID P 1 LO P 0 HI I 0 PAGE) Y` l@` `@`HnIHm@`JJJHIl`IYd@INIL (112Q \ISFMAP 63Q \ISFMAP 33Q \ISFMAP 24Q \ISFMAP 15Q \ISFMAP 2 \ISFMAP) NIL \EXTENDVMEMFILE D1 (P 17Q I P 15Q CAs P 12Q P1 P 11Q LASTPAGEOFFSET P 10Q LASTPAGEADDR P 7 LASTPAGEWRITTEN P 6 LASTPAGEREAD P 5 NP P 4 LASTNEEDEDPAGE P 3 LASTFULLPAGE P 2 FIRSTDA P 1 DAs P 0 SCRATCHBUF I 2 MAPONLY I 1 LASTPAGE I 0 FIRSTPAGE) ``@ `d kA LK`lٽIKdjnk IK Mll__OOIOnOk_`HIKkhKdMnhdd` ^Kl_`nIOnOdlL @J `j` InI`I`I`OHO`O}`hImhjdnhdddO `O``OO`jjDl]MkOO*KOIOk KO@IOkOk_KMػk_`hImhOknhdddO h(626Q \ACTONVMEMPAGES 531Q \EXTENDISFMAP 426Q \ACTONVMEMPAGES 270Q \EXTENDISFMAP 262Q \BCPL.EXTENDVMEMFILE 202Q \ACTONVMEMPAGES 76Q \LOOKUPFMAP 66Q \LOOKUPFMAP 11Q \LOOKUPFMAP) (601Q \MAINDISK 462Q \EMUSWAPBUFFERS 445Q \EMUSWAPBUFFERS 442Q \ISFMAP 432Q \EMUSWAPBUFFERS 402Q \MAINDISK 367Q \ISFMAP 346Q \ISFMAP 335Q \ISFMAP 324Q \ISFMAP 306Q \ISFSCRATCHCAS 273Q \ISFMAP 216Q \SWAPREQUESTBLOCK 174Q \ISFMAP 151Q \MAINDISK 42Q \ISFCHUNKSIZE 14Q \ISFMAP 5 \ISFSCRATCHDAS 2 \SPAREDISKWRITEBUFFER) NIL \BCPL.EXTENDVMEMFILE D1 (I 0 LASTPAGE) ,` `j jdh` @ ` h(50Q \WARN.OF.BADVMEM 33Q \MOREVMEMFILE 5 \M44FLUSHDISKDESCRIPTOR) (37Q \ISFMAP 25Q \ISFMAP 10Q \MAINDISK 2 \MAINDISK) NIL \EXTENDISFMAP D1 (P 2 LASTMAP P 1 LASTPAGE P 0 LASTOFFSET I 1 DA I 0 PAGE) _` !`@ `A`HlZdY@hAJIJJIk$H` JAJIk`Hl i(105Q \WARN.OF.BADVMEM) (125Q \ISFMAP 75Q \ISFMAP 26Q \ISFMAP 20Q \ISFMAP 12Q \ISFMAP 2 \ISFMAP) NIL \WARN.OF.BADVMEM D1 NIL `o` ll ih(26Q RAID) (32Q \FRAGMENTATIONWARNED 13Q \ISFMAP 2 \FRAGMENTATIONWARNED) (10Q "Extending {DSK}LISP.VIRTUALMEM. This fragmentation will likely degrade swapping performance, so you may want to rebuild your LISP.VIRTUALMEM, making it larger. ----- ^N to continue now ----- Number of segments that are now in your vmem:") (PRETTYCOMPRINT LLBFSCOMS) (RPAQQ LLBFSCOMS ((COMS (* Low-level subr calls) (FNS \INITBFS \TESTPARTITION \ACTONDISKPAGES \WRITEDISKPAGES \DISKERROR) (DECLARE: EVAL@COMPILE DONTCOPY (MACROS .SETUPDISKBUFFERS. DISKWRITEACTION? DISKREADACTION?) (CONSTANTS * DISKCOMMANDS) (CONSTANTS * DISKERRORS) (* Other records of interest are on MOD44IO) (RECORDS DISKREQUEST ALTODSKOBJ DDHEADER CB DISKLABEL REALDA SHORTCB FP DSKOBJ \M44LeaderPage M44STREAM FID) (CONSTANTS (\FILLINDA 65534) (\EOFDA 65535) (\LENFP 5) ( \FP.DIRECTORYP 32768) (\INITPROPPTR 6866) (\DDBITTABSTART 32) (\NBYTES.DISKINFO 12) ( \OFFSET.DISKLASTSERIAL# 8) (\NWORDS.DSKOBJ 36)) (FILES (LOADCOMP) MOD44IO) (GLOBALVARS \EMUDISKBUFEND \EMUDISKBUFFERS \EMUSCRATCH \EMUSWAPBUFFERS \EXTRAISFBUF \ISFMAP \ISFMAXCHUNK \ISFSCRATCHCAS \ISFSCRATCHDAS \#DISKBUFFERS \MAXDISKDAs \#SWAPBUFFERS \SYSDISK \ISFCHUNKSIZE \MAINDISK \DISKREQUESTBLOCK \SWAPREQUESTBLOCK \DISKDEBUG \MAXSWAPBUFFERS \SPAREDISKWRITEBUFFER \FREEPAGEFID \#EMUBUFFERS \EMUBUFFERS))) (COMS (* Super low level) (FNS \ACTONVMEMPAGES \WRITEVMEMPAGES \DOACTONDISKPAGES \DOWRITEDISKPAGES \CHECKFREEPAGE \DODISKCOMMAND \GETDISKCB \CLEARCB \CLEANUPDISKQUEUE \VIRTUALDISKDA \REALDISKDA) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS * CBSTATUSCONSTANTS) (CONSTANTS * IDISKCOMMANDS) (CONSTANTS (\EM.DISKCOMMAND 337) (\EM.DISKADDRESS 339) (\FIXEDLENDISKREQUEST 42) (\DEFAULTDASTORAGELENGTH 60) (\LENCB 6) (\LENDSKOBJ 34) (\LENSHORTCB 18)) ( CONSTANTS (\CB.PENDING 1) (\CB.FREE 0)))) (COMS (* At MAKEINIT time) (FNS MAKEINITBFS) (DECLARE: DONTCOPY (ADDVARS (INITPTRS (\MAINDISK) (\SWAPREQUESTBLOCK) (\DISKREQUESTBLOCK) (\FREEPAGEFID)) ( INEWCOMS (FNS MAKEINITBFS))) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS MAKEINITBFS)))) (COMS (* Swap stuff ) (FNS \M44ACTONVMEMFILE \INSUREVMEMFILE \MAYBE.EXTENDVMEMFILE \LOOKUPFMAP \EXTENDVMEMFILE \LISP.EXTENDVMEMFILE \BCPL.EXTENDVMEMFILE \EXTENDISFMAP \WARN.OF.BADVMEM) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS ISFMAP) (CONSTANTS (\ISFMAPOFFSET 18)) (ADDVARS (DONTCOMPILEFNS \LISP.EXTENDVMEMFILE )) (GLOBALVARS \FRAGMENTATIONWARNED)) (INITVARS (\DISKDEBUG) (\EXTENDINGVMEMFILE) (\MAXSWAPBUFFERS 1) (\FRAGMENTATIONWARNED)) (ADDVARS (\SYSTEMCACHEVARS \FRAGMENTATIONWARNED))) (DECLARE: DONTCOPY (ADDVARS (INEWCOMS (ALLOCAL (ADDVARS (LOCKEDFNS ERROR RAID \M44ACTONVMEMFILE \ACTONVMEMFILESUBR \ACTONVMEMPAGES \CLEANUPDISKQUEUE \CLEARCB \DISKERROR \DOACTONDISKPAGES \DODISKCOMMAND \EXTENDISFMAP \EXTENDVMEMFILE \GETDISKCB \INITBFS \INSUREVMEMFILE \LISPERROR \LOOKUPFMAP \REALDISKDA \VIRTUALDISKDA \WARN.OF.BADVMEM \ZEROPAGE \ZEROWORDS \TESTPARTITION) (LOCKEDVARS \DISKREQUESTBLOCK \SWAPREQUESTBLOCK \MAINDISK \ISFCHUNKSIZE \EMUSCRATCH \EMUDISKBUFFERS \EMUSWAPBUFFERS \EMUDISKBUFEND \MAXSWAPBUFFERS \#DISKBUFFERS \InterfacePage \ISFMAP \ISFSCRATCHCAS \ISFSCRATCHDAS \SYSDISK \#SWAPBUFFERS \MAXDISKDAs %%STREAMTYPE# \DISKDEBUG \MAXSWAPBUFFERS \SPAREDISKWRITEBUFFER \#EMUBUFFERS \EMUBUFFERS \FRAGMENTATIONWARNED)))))))) (RPAQ? \DISKDEBUG) (RPAQ? \EXTENDINGVMEMFILE) (RPAQ? \MAXSWAPBUFFERS 1) (RPAQ? \FRAGMENTATIONWARNED) (ADDTOVAR \SYSTEMCACHEVARS \FRAGMENTATIONWARNED) (PUTPROPS LLBFS COPYRIGHT ("Xerox Corporation" 1982 1983)) NIL