(FILECREATED "20-Sep-84 14:47:11" ("compiled on " {ERIS}DFS11>VOLUMEALLOCATIONMAP.;8) "15-Sep-84 03:34:49" tcompl'd in "INTERLISP-D 15-Sep-84 ..." dated "15-Sep-84 03:48:38") (FILECREATED "20-Sep-84 14:43:49" {ERIS}DFS11>VOLUMEALLOCATIONMAP.;8 13764 changes to: (FNS \DFSVAMAllocPageGroup) previous date: " 7-Sep-84 14:19:45" {ERIS}DFS11>VOLUMEALLOCATIONMAP.;7) \DFSVAMAllocPageGroupA0001 D1 (NAME ERRORSET P 16Q \INTERRUPTABLE P 10Q \INTERRUPTABLE P 7 allocated P 6 desiredPage P 5 page P 0 \INTERRUPTABLE F 24Q vol F 25Q groupPtr F 26Q filePtr F 27Q RESETY) ¥`hi ¿PW(l]ÐW(È^W(È]õW(È\W(È[õ ¿W(È^W(È]õ!MW(ÈW(ÈõkÙýñ³NiW(ÈkÙj2 OOñ³*W(lÐOÂ_¿OµOh__¿OkØ_°ÝO&_¿°òO l W(W,M ¥MkØ]°˜W*lÐM ¿MW*YÈIÈõW*ZÈJÈõÙؾMkØ]W(ÈW(ÈõkÙýñ³OiXW(ÈkÙj2O Oñ³*W(lÐO Â_&¿O$µO&h_$_"¿O kØ_ °ÝO&&_$¿°òO" l MN ©W(W,M ³’MW*[ÈKÈõÙ_¿W*lÐW*\ÈLÈõOØ ¿W(lWÐW(ÈXW(ÈWõO Ø ¿W(l]ÐM ¿W(jW( ¿``` hc.i(634Q \LvPutPage 617Q \LvPutPage 606Q \PUTSWAPPEDFIXP 574Q \PUTSWAPPEDFIXP 570Q MINUS 544Q \PUTSWAPPEDFIXP 467Q \DFSVAMAllocPage 456Q EQP 450Q \LISPERROR 443Q U-CASE 440Q PACKC 254Q \PUTSWAPPEDFIXP 231Q \DFSVAMAllocPage 220Q \LISPERROR 213Q U-CASE 210Q PACKC 50Q \PUTSWAPPEDFIXP 45Q MAX 7 OBTAIN.MONITORLOCK) (631Q \DFSVAMbuffer 626Q \DFSVAMbufferVolumePage 623Q \DFSVAMbufferVolume 527Q PageGroup 517Q PageGroup 477Q PageGroup 277Q PageGroup 263Q PageGroup 245Q PageGroup 2 \DFSVAMmonitor) () \DFSVAMAllocPageGroup D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 createFile I 2 groupPtr I 1 filePtr I 0 vol F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q \DFSVAMAllocPageGroupA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\DFSVAMAllocPageGroupA0001)) \DFSVAMFreePageGroupA0001 D1 (NAME ERRORSET P 14Q page P 12Q group P 0 \INTERRUPTABLE F 15Q vol F 16Q groupPtr F 17Q filePtr F 20Q RESETY) ó `hi ¿  W  OYÈIÈõOZÈJÈõýñ¢±¼O[ÈKÈõO\ÈLÈõO]ÈMÈõÙkÙØO^ÈNÈõ OOñ³WWO ¿OkØ_°ëWlWÐWÈXWÈWõO_ÈOÈõO_ÈOÈõÙØ ¿Wl]ÐO_ÈOÈõWÈ^WÈ]õ ¿WjW ¿W`` ¿hc i(351Q \LvPutPage 335Q \LvPutPage 324Q \PUTSWAPPEDFIXP 321Q MIN 261Q \PUTSWAPPEDFIXP 170Q \DFSVAMFreePage 20Q \DFSVAMAdjustGroup 7 OBTAIN.MONITORLOCK) (346Q \DFSVAMbuffer 343Q \DFSVAMbufferVolumePage 274Q PageGroup 243Q PageGroup 225Q PageGroup 136Q PageGroup 116Q PageGroup 102Q PageGroup 66Q PageGroup 44Q PageGroup 30Q PageGroup 2 \DFSVAMmonitor) () \DFSVAMFreePageGroup D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 deleteFile I 2 groupPtr I 1 filePtr I 0 vol F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q \DFSVAMFreePageGroupA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\DFSVAMFreePageGroupA0001)) \DFSVAMInitA0001 D1 (NAME ERRORSET F 0 RESETY) `hi ¿hci(7 OBTAIN.MONITORLOCK) (14Q \DFSVAMbufferVolumePage 2 \DFSVAMmonitor) () \DFSVAMInit D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q \DFSVAMInitA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\DFSVAMInitA0001)) \DFSVAMRecomputeFreePageCountA0001 D1 (NAME ERRORSET P 5 free P 3 firstFree P 2 page P 0 \INTERRUPTABLE F 6 vol F 7 RESETY) g`hi ¿VlWÐVÈVÈõkijJIñ³-VhJg jðM´KšVl]ÐJ ¿h»M“LkؼJkØZ°ÓL ¿VjV ¿VÈXVÈWõci(130Q \LvPutPage 121Q \PUTSWAPPEDFIXP 74Q \PUTSWAPPEDFIXP 52Q \DFSVAMUpdateVAM 7 OBTAIN.MONITORLOCK) (47Q read 2 \DFSVAMmonitor) () \DFSVAMRecomputeFreePageCount D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 vol F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q \DFSVAMRecomputeFreePageCountA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\DFSVAMRecomputeFreePageCountA0001)) \DFSVAMAllocPage D1 (P 0 page I 2 page# I 1 filePtr I 0 vol) <@ABg jð´/@B HÒáHÓãØ ¿@BH @ABg kð¥g i(70Q SHOULDNT 57Q \DFSVAMUpdateVAM 45Q \LvPutPage 36Q \ZEROPAGE 21Q \LvGetPage 10Q \DFSVAMUpdateVAM) (65Q fuckup 54Q read 5 alloc) () \DFSVAMUpdateVAM D1 (P 6 result P 5 VAMBit P 4 VAMWord P 3 VAMPage P 2 VAMBit# P 1 VAMWord# P 0 VAMPage# I 3 allocOrFree I 2 page I 1 filePtr I 0 vol) cBnÛBnÜlÛBlÜC@H [dIÐÈ\`JàÐÉÉ]LMåjð¡k€j^Cdgð–¿LMä\°gð—LMmÿæå\ˆCgð£¿KIÐLÍN(130Q SHOULDNT 30Q \DFSVAMGetVAMPageFor) (123Q read 105Q free 71Q alloc 42Q \MASKOUT.MARGIN) () \DFSVAMGetVAMPageFor D1 (P 3 \INTERRUPTABLE P 0 volumePage I 1 VAMPage# I 0 vol) k@ÈZ@ÈYõAØ!`²Aljº¹JIñ³`JÐÈ@JÐÈð¡h†JkØZ°èi›`H “``œ``` ¿@¿H¿``` (150Q \LvGetPage 116Q \LvPutPage 71Q EQP) (145Q \DFSVAMbuffer 142Q \DFSVAMbufferVolumePage 137Q \DFSVAMbufferVolume 133Q \DFSVAMbufferVolumePage 126Q \DFSVAMbufferVolume 113Q \DFSVAMbuffer 110Q \DFSVAMbufferVolumePage 105Q \DFSVAMbufferVolume 101Q \DFSVAMbufferVolumePage 75Q \DFSVAMbuffer 65Q \DFSVAMbufferVolumePage 35Q \DFSVAMbufferVolume 16Q \DFSVAMbufferVolumePage) () \DFSVAMAdjustGroup D1 (P 0 group I 0 groupPtr) T`@ 1HYÈIÈõjð²:HZÈJÈõjð™HlÐk°Hk ¿HlÐH[ÈKÈõkØ H(120Q \PUTSWAPPEDFIXP 70Q \PUTSWAPPEDFIXP 6 NCREATE2) (104Q PageGroup 75Q PageGroup 64Q PageGroup 52Q PageGroup 34Q PageGroup 15Q PageGroup 2 PageGroupTYPE#) () \DFSVAMFreePage D1 (I 2 page I 1 filePtr I 0 vol) @ABg jð´g (22Q SHOULDNT 10Q \DFSVAMUpdateVAM) (17Q pageAlreadyDeallocated 5 free) () \DFSVAMAtLoad D1 NIL g l hd(5 CREATE.MONITORLOCK) (26Q \DFSVAMbufferVolumePage 22Q \DFSVAMbufferVolume 16Q \DFSVAMbuffer 10Q \DFSVAMmonitor 2 \DFSVAMmonitor) () (PRETTYCOMPRINT VOLUMEALLOCATIONMAPCOMS) (RPAQQ VOLUMEALLOCATIONMAPCOMS ((* Implements the 1108 file system volume file map. Very roughly translates {idun}pilot>private>volAllocMapImpl.mesa, but omits a number of dubious optimizations.) (DECLARE: EVAL@COMPILE DONTCOPY (COMS * VOLUMEMALLOCATIONMAPCOMPILECOMS) (CONSTANTS ( BITSPERPAGE 4096)) (FILES (LOADCOMP) DLIONFS)) (* Public routines) (FNS \DFSVAMAllocPageGroup \DFSVAMFreePageGroup \DFSVAMInit \DFSVAMRecomputeFreePageCount) (* Private routines:) (FNS \DFSVAMAllocPage \DFSVAMUpdateVAM \DFSVAMGetVAMPageFor \DFSVAMAdjustGroup \DFSVAMFreePage) (GLOBALVARS \DFSVAMmonitor \DFSVAMbuffer \DFSVAMbufferVolume \DFSVAMbufferVolumePage) (FNS \DFSVAMAtLoad) (P ( \DFSVAMAtLoad)))) (\DFSVAMAtLoad) (PUTPROPS VOLUMEALLOCATIONMAP COPYRIGHT ("Xerox Corporation" 1984)) NIL