anchor.diff:        Inc(NativeInt(Cell), CellOffsets[Child]);
   
         // parent bits
  -      Child := Child shl 3;
  -      Child := Child + (NodeFlags and (4+2)) + (NativeUInt(Cardinal(Store.Current.Coordinates)) and 1);
  +      Child := Child shl 2;
  +      Child := Child + (NodeFlags and 2) + (NativeUInt(Cardinal(Store.Current.Coordinates)) and 1);
         ParentBits := PARENT_BITS[Child];
   
         // allocated new or use exists
  
positive.code: 
      // PARENT_BITS
      LookupLine;
      LookupLine('PARENT_BITS: array[0..63{oddy:1;hexagonal:1;simple:1;child:3}] of NativeUInt = (');
      for Child := 0 to 7 do
      begin
        AddParentBits(Child, Child = 7);
  
negative.code:     $70, $70, $70, $70, $F0, $F0, $F0, $F0, $70, $70, $70, $70, $F0, $F0, $F0, $F0
    );
  
    PARENT_BITS: array[0..31{oddy:1;hexagonal:1;child:3}] of NativeUInt = (
      $00C70004, $00C70004, $00C70004, $00000004,
      $008F0005, $008F0005, $004F0005, $00970005,
      $001F0006, $001F0006, $00000006, $001F0006,
      $003E0007, $003E0007, $003E0007, $005D0007,
      $007C0000, $007C0000, $00000000, $007C0000,
      $00F80001, $00F80001, $00790001, $00F40001,
      $00F10002, $00F10002, $00F10002, $00000002,
      $00E30003, $00E30003, $00D50003, $00E30003
    );
  
    ROUNDED_MASKS: array[Byte] of Byte = (
  