anchor.diff:      end;
     end;
   
  -  S := Format('  $%0.8x, $%0.8x, $%0.8x, $%0.8x, $%0.8x, $%0.8x, $%0.8x, $%0.8x',
  -    [Buffer[0], Buffer[1], Buffer[2], Buffer[3],
  -     Buffer[4], Buffer[5], Buffer[6], Buffer[7]]);
  +  S := Format('  $%0.8x, $%0.8x, $%0.8x, $%0.8x',
  +    [Buffer[0], Buffer[1], Buffer[2], Buffer[3]]);
   
     if (not Finalize) then S := S + ',';
     LookupLine(S);
  
positive.code:     $70, $70, $70, $70, $F0, $F0, $F0, $F0, $70, $70, $70, $70, $F0, $F0, $F0, $F0
    );
  
    PARENT_BITS: array[0..63{oddy:1;hexagonal:1;simple:1;child:3}] of NativeUInt = (
      $00C70004, $00C70004, $00C70004, $00000004, $00000004, $00000004, $00000004, $00000004,
      $00070005, $00070005, $004F0005, $00970005, $00DF0005, $00DF0005, $00DF0005, $00DF0005,
      $001F0006, $001F0006, $00000006, $001F0006, $00000006, $00000006, $00000006, $00000006,
      $001C0007, $001C0007, $003E0007, $005D0007, $007F0007, $007F0007, $007F0007, $007F0007,
      $007C0000, $007C0000, $00000000, $007C0000, $00000000, $00000000, $00000000, $00000000,
      $00700001, $00700001, $00790001, $00F40001, $00FD0001, $00FD0001, $00FD0001, $00FD0001,
      $00F10002, $00F10002, $00F10002, $00000002, $00000002, $00000002, $00000002, $00000002,
      $00C10003, $00C10003, $00D50003, $00E30003, $00F70003, $00F70003, $00F70003, $00F70003
    );
  
    ROUNDED_MASKS: array[Byte] of Byte = (
  
negative.code: procedure AddParentBits(Child: Integer; Finalize: Boolean);
  var
    Parent: Integer;
    Buffer: array[0..3] of Cardinal;
    Hexagonal, OddY: Boolean;
    Item: PCardinal;
    S: string;
  
  