anchor.diff:        end
         else
         begin
  -        ProfileEvent('Special code');
           // special code
           DebugString := '[' + IntToHex( LocalDictIndex, 2 );
           case LocalDictIndex of
  
positive.code: 
      if ( pExtendedInfo^.w1 and 8 ) > 0 then
        // skip window controls
        inc( p, 2 );
  
      if ( pExtendedInfo^.w2 and 4 ) > 0 then
      begin
        _ContentsGroupIndex := pint16(p)^;
        // read group
        inc(p, sizeof(int16));
      end;
    end;
  
    // Read slot indices
    for i := 0 to _NumSlots-1 do
    begin
      SlotNumber:= pint16( p )^;
      if SlotNumber < FileHeader.nslots then
      begin
        pSlotOffsets := FileData + FileHeader.slotsstart;
        // point to correct slot offset
        pSlotData := pSlotHeader( FileData + pSlotOffsets^[ SlotNumber ] );
        if pSlotData^.stuff <> Byte(0) then
  
negative.code: 
        if LocalDictIndex < Slot.LocalDictSize then
        begin
          // Normal word lookup: local dict i item = global dict i item
          GlobalDictIndex := Slot.pLocalDictionary^[ LocalDictIndex ];
          // normal lookup
          if GlobalDictIndex < _GlobalDictionary.Count then
            Word := _GlobalDictionary[ GlobalDictIndex ]
  