(FILECREATED "28-May-84 14:40:01" ("compiled on " {PHYLUM}SOURCES>LLBFS.;3) "21-May-84 01:09:37" brecompiled explicitly: nothing in WORK dated "21-May-84 01:21:39") (FILECREATED "28-May-84 14:35:00" {PHYLUM}SOURCES>LLBFS.;3 72576 changes to: (VARS LLBFSCOMS ) (RECORDS \M44LeaderPage M44STREAM) (FNS \ACTONDISKPAGES \DOWRITEDISKPAGES) (MACROS .SETUPDISKBUFFERS.) previous date: " 3-NOV-83 22:59:48" {PHYLUM}SOURCES>LLBFS.;2) \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 BUF P 23Q N P 22Q CA P 20Q BUF P 17Q \INTERRUPTABLE P 16Q REQUEST P 15Q FIXEDBUF P 14Q BUF P 13Q N P 11Q \INTERRUPTABLE P 10Q LASTNC P 7 STREAM P 6 RESULT P 5 EMFIXEDCA P 4 EMFID P 3 EMDAs P 2 EMCAs P 1 EMBUFS P 0 EMBLOCK 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)  ``rD`D_ b `l. CEk BECkbGGECkbEkbBjBHBFjClĿHdFjClиGAdAbAjAjCкHjEкAE" O_HOOjOӰoOOhIOFGGdndndnihOIOnĎII I_InY`I`I`o HkиO_Ok_cGnGnGnAIAnĉII I@``b`OJOMOKjCOD OlDlĿOE OF OGj OGkjOGOGG`g0`@2`O4l~`6O_A7On/jN*nNFGGM jJNO On BjBKFjClĿAdYJEO"ajpGm_(&O(jnO&FGGO(jO$nĿO"_"O$k_$O&k_&AjnGAMnĿ`l `l0 `l.jNjNOO GNdnnkdGOO(1352Q \DISKERROR 1323Q \CLOCK0 1101Q \ZEROBYTES 550Q \ZEROPAGE 447Q ERROR 375Q \ZEROPAGE 45Q \CLOCK0) (1326Q \MISCSTATS 1315Q \MISCSTATS 1307Q \MISCSTATS 777Q \InterfacePage 763Q \InterfacePage 754Q \InterfacePage 746Q \DOACTONDISKPAGES 743Q \InterfacePage 572Q \DISKREQUESTBLOCK 564Q \MAINDISK 557Q \SYSDISK 435Q \EMUDISKBUFEND 425Q \EMUDISKBUFEND 415Q \EMUDISKBUFEND 37Q \MISCSTATS 15Q STREAMTYPE# 5 \EMUDISKBUFFERS 2 \EMUSCRATCH) ( 444Q "Attempt to act on too many disk pages") \WRITEDISKPAGES D1 (P 16Q \INTERRUPTABLE P 15Q REQUEST P 14Q FIXEDBUF P 13Q BUF P 12Q N P 10Q \INTERRUPTABLE P 7 STREAM P 6 RESULT P 5 EMFIXEDCA P 4 EMFID P 3 EMDAs P 2 EMCAs P 1 EMBUFS P 0 EMBLOCK 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) 3 ``b@``bD`D_ b@ `l. CEk BECkbGGECkbEkbBjBHBFjClĿHdFjClиGAdAbAjAjCкHjEкAE" O_HOOjOӰpOOiIOFGndndndnihOIOnĎII I_InY`I`I`o HkиO_Ok_bAIAnĉII I` OJOMOKjCOD OlDlĿOE OF OGj OGnkjOGn`g0`@2`O4l~`6BjBKFjClĿ`l `l0 `l.jNjNO Ndnnk(1042Q \DISKERROR 1015Q \CLOCK0 543Q \ZEROPAGE 470Q ERROR 416Q \ZEROPAGE 65Q \CLOCK0 51Q \OPENDISKDESCRIPTOR) (1020Q \MISCSTATS 1007Q \MISCSTATS 1001Q \MISCSTATS 750Q \InterfacePage 734Q \InterfacePage 725Q \InterfacePage 717Q \DOWRITEDISKPAGES 714Q \InterfacePage 551Q \DISKREQUESTBLOCK 456Q \EMUDISKBUFEND 446Q \EMUDISKBUFEND 436Q \EMUDISKBUFEND 57Q \MISCSTATS 31Q STREAMTYPE# 21Q \MAINDISK 14Q \SYSDISK 5 \EMUDISKBUFFERS 2 \EMUSCRATCH) ( 465Q "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 AjIJnJ?IJkn/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(745Q \CLEANUPDISKQUEUE 723Q \DODISKCOMMAND 632Q \REALDISKDA 611Q \REALDISKDA 511Q \GETDISKCB 310Q \DOACTONDISKPAGES 240Q \ASSIGNDISKPAGE 116Q \DOACTONDISKPAGES) (305Q \CHECKFREEPAGE 161Q \SPAREDISKWRITEBUFFER) ( 1003Q -2115Q 247Q -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) (* Some of these are also used by 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)) (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 1984)) NIL