anchor.diff:  : read-inode ( inode# -- )
     1- inodes/group @ u/mod \ # in group, group #
     20 * group-descriptors @ + 8 + l@-le block-size @ * \ # in group, inode table
  -  swap 80 * + xlsplit seek drop  inode @ 80 read drop ;
  +  swap inode-size @ * + xlsplit seek drop  inode @ inode-size @ read drop
  +;
   
   : .rwx ( bits last-char-if-special special? -- )
     rot dup 4 and IF ." r" ELSE ." -" THEN
  
positive.code:   data @ 14 + l@-le first-block !
    400 data @ 18 + l@-le lshift block-size !
    data @ 28 + l@-le inodes/group !
    first-block @ 1+ read-block data @ group-descriptors ! data off ;
  
  INSTANCE VARIABLE current-pos
  
  
negative.code: 
  INSTANCE VARIABLE data
  INSTANCE VARIABLE #data
  INSTANCE VARIABLE indirect-block
  INSTANCE VARIABLE dindirect-block
  
  : free-data
    data @ ?dup IF #data @ free-mem  0 data ! THEN ;
  