anchor.diff:  
   : read-inode ( inode# -- )
     1- inodes/group @ u/mod
  -  20 * group-descriptors @ +
  +  desc-size @ * group-descriptors @ +
     8 + l@-le               \ reads bg_inode_table_lo
     block-size @ *          \ # in group, inode table
     swap inode-size @ * + xlsplit seek drop  inode @ inode-size @ read drop
  
positive.code:      data @ 58 + w@-le inode-size !
    THEN
    data @ 20 + l@-le blocks-per-group !
  
    \ Read the group descriptor table:
    first-block @ 1+ block-size @ *
  
negative.code:   inode @ 04 + l@-le 9 .r \ size
    r> base ! ;
  
  80 CONSTANT EXT4_INCOMPAT_64BIT
  : super-feature-incompat ( data -- flags ) 60 + l@-le ;
  : super-desc-size ( data -- size ) FE + w@-le ;
  : super-feature-incompat-64bit ( data -- true|false )
      super-feature-incompat EXT4_INCOMPAT_64BIT and 0<>
  ;
  
  : do-super ( -- )
    400 400 read-data
    data @ 14 + l@-le first-block !
  