(FILECREATED "11-Oct-84 11:42:49" ("compiled on " {ERIS}VAM>VOLUMEALLOCATIONMAP.;3) " 3-Oct-84 17:18:04" tcompl'd in "INTERLISP-D 3-Oct-84 ..." dated " 3-Oct-84 17:45:45") (FILECREATED "11-Oct-84 11:38:05" {ERIS}OS>VOLUMEALLOCATIONMAP.;1 13732 changes to: (FNS \DFSVAMFreePage) (VARS VOLUMEALLOCATIONMAPCOMS) (RESOURCES \DFSVAMpage) previous date: " 5-Oct-84 23:31:30" {ERIS}VAM>VOLUMEALLOCATIONMAP.;1) \DFSVAMAllocPageGroupA0001 D1 (NAME ERRORSET P 16Q \INTERRUPTABLE P 10Q \INTERRUPTABLE P 0 \INTERRUPTABLE F 24Q vol F 25Q groupPtr F 26Q filePtr F 27Q RESETY) `hi ¿PW(È^W(È]õW*YÈIÈõMW(ÈW(ÈõkÙýñ³NiW(ÈkÙj2 OOñ³*W(lÐOÂ_¿OµOh__¿OkØ_°ÝO&_¿°òO l W(MW,N ¥MkØ]°—W*lÐM ¿MkؽNkؾMW(ÈW(ÈõkÙýñ³NiW(ÈkÙj2O Oñ³*W(lÐO Â_&¿O$µO&h_$_"¿O kØ_ °ÝO&&_$¿°òO" l NW*ZÈJÈõ ªW(MW,N ³‚MW*[ÈKÈõÙ_¿W*lÐW*\ÈLÈõOØ ¿W(lWÐW(ÈXW(ÈWõO Ø ¿W(l]ÐM ¿W(jW( ¿hc.i(566Q \DFSVAMBufferSave 562Q \LvPutPage 551Q \PUTSWAPPEDFIXP 537Q \PUTSWAPPEDFIXP 533Q MINUS 507Q \PUTSWAPPEDFIXP 432Q \DFSVAMAllocPage 420Q EQP 377Q \LISPERROR 372Q U-CASE 367Q PACKC 233Q \PUTSWAPPEDFIXP 210Q \DFSVAMAllocPage 176Q \LISPERROR 171Q U-CASE 166Q PACKC 7 OBTAIN.MONITORLOCK) (472Q PageGroup 462Q PageGroup 442Q PageGroup 406Q PageGroup 224Q PageGroup 31Q PageGroup 2 \DFSVAMmonitor) () \DFSVAMAllocPageGroup D1 (L (3 createFile) P 1 RESETY P 0 LISPXHIST 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 0 \INTERRUPTABLE F 15Q vol F 16Q groupPtr F 17Q filePtr F 20Q RESETY) á `hi ¿  W _YÈIÈõOZÈJÈõýñ¢±®O[ÈKÈõkÙO\ÈLÈõO]ÈMÈõ OOñ³WOWO ¿OkØ_¿OkØ_¿°ßWlWÐWÈXWÈWõO^ÈNÈõO_ÈOÈõÙØ ¿Wl]ÐO_ÈOÈõWÈ^WÈ]õ ¿WjW ¿¿hc i(330Q \DFSVAMBufferSave 324Q \LvPutPage 313Q \PUTSWAPPEDFIXP 310Q MIN 250Q \PUTSWAPPEDFIXP 151Q \DFSVAMFreePage 20Q \DFSVAMAdjustGroup 7 OBTAIN.MONITORLOCK) (263Q PageGroup 232Q PageGroup 216Q PageGroup 115Q PageGroup 101Q PageGroup 63Q PageGroup 41Q PageGroup 25Q PageGroup 2 \DFSVAMmonitor) () \DFSVAMFreePageGroup D1 (L (3 deleteFile) P 1 RESETY P 0 LISPXHIST 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 ¿ci(13Q \DFSVAMBufferInit 7 OBTAIN.MONITORLOCK) (2 \DFSVAMmonitor) () \DFSVAMInit D1 (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 L (0 NIL) F 5 vol F 6 RESETY) _`hi ¿UlWÐUÈUÈõkijIHñ³)UhIg jð\²JšUl]ÐI ¿hºL“KkØ»IkØY°×K ¿UjU ¿UÈXUÈWõc i(121Q \LvPutPage 112Q \PUTSWAPPEDFIXP 66Q \PUTSWAPPEDFIXP 47Q \DFSVAMUpdateVAM 7 OBTAIN.MONITORLOCK) (44Q read 2 \DFSVAMmonitor) () \DFSVAMRecomputeFreePageCount D1 (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 (L (3 filePage# 2 filePtr 1 volPage# 0 vol)) @BAg jð(10Q \DFSVAMUpdateVAM) (5 alloc) () \DFSVAMUpdateVAM D1 (L (3 allocOrFree 2 page 1 filePtr 0 vol)) fBnÛBnÜlÛBlÜC@H [dIÐÈ\`lJÕàÐÉÉ]LMåjð¡k€j^Cdgð–¿LMä\°gð—LMmÿæå\ˆCgð£¿KIÐLÍN(133Q SHOULDNT 30Q \DFSVAMGetVAMPageFor) (126Q read 110Q free 74Q alloc 42Q \MASKOUT.MARGIN) () \DFSVAMFreePage D1 (L (3 filePageNumber 2 filePtr 1 volPageNumber 0 vol)) 4`µ)l HÒáHÓãØ ¿@AH ¿H@BAg h¿°×(52Q \DFSVAMUpdateVAM 33Q \LvPutPage 24Q \ZEROPAGE) (57Q \\DFSVAMpage.GLOBALRESOURCE 47Q free 40Q \\DFSVAMpage.GLOBALRESOURCE 2 \\DFSVAMpage.GLOBALRESOURCE) () \DFSVAMAdjustGroup D1 (L (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#) () \DFSVAMGetVAMPageFor D1 (L (1 VAMPage# 0 vol) P 3 \INTERRUPTABLE) k@ÈZ@ÈYõAØ!`²>ljº¹JIñ³`JÐÈ@JÐÈð¡h†JkØZ°èi˜`H ³,`œ``` ¿@¿H¿``` `(145Q \LvGetPage 113Q \LvPutPage 71Q EQP) (150Q \DFSVAMbuffer 142Q \DFSVAMbuffer 137Q \DFSVAMbufferVolumePage 134Q \DFSVAMbufferVolume 130Q \DFSVAMbufferVolumePage 123Q \DFSVAMbufferVolume 110Q \DFSVAMbuffer 105Q \DFSVAMbufferVolumePage 102Q \DFSVAMbufferVolume 76Q \DFSVAMbufferVolumePage 65Q \DFSVAMbufferVolumePage 35Q \DFSVAMbufferVolume 16Q \DFSVAMbufferVolumePage) () \DFSVAMBufferInit D1 NIL l hdNIL (15Q \DFSVAMbufferVolumePage 11Q \DFSVAMbufferVolume 5 \DFSVAMbuffer) () \DFSVAMBufferSave D1 NIL ``` (13Q \LvPutPage) (10Q \DFSVAMbuffer 5 \DFSVAMbufferVolumePage 2 \DFSVAMbufferVolume) () (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)) (DECLARE: ( LOCALVARS . T)) (* * Public routines) (FNS \DFSVAMAllocPageGroup \DFSVAMFreePageGroup \DFSVAMInit \DFSVAMRecomputeFreePageCount) (* * Private routines:) (FNS \DFSVAMAllocPage \DFSVAMUpdateVAM \DFSVAMFreePage \DFSVAMAdjustGroup) (RESOURCES \DFSVAMpage) (GLOBALVARS \DFSVAMmonitor) (INITVARS ( \DFSVAMmonitor (CREATE.MONITORLOCK (QUOTE VAMmonitor)))) (* * buffer management) (FNS \DFSVAMGetVAMPageFor \DFSVAMBufferInit \DFSVAMBufferSave) (GLOBALVARS \DFSVAMbuffer \DFSVAMbufferVolume \DFSVAMbufferVolumePage) (* * Initialize VAM) (P (\DFSVAMInit)))) (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS)) (PUTDEF (QUOTE \DFSVAMpage) (QUOTE RESOURCES) (QUOTE (NEW (create Page)))) (RPAQ? \DFSVAMmonitor (CREATE.MONITORLOCK (QUOTE VAMmonitor))) (\DFSVAMInit) (PUTPROPS VOLUMEALLOCATIONMAP COPYRIGHT ("Xerox Corporation" 1984)) NIL