anchor.diff:    end;
   
     // block comments 2
  -  if (fCurrRange.rangeKinds = []) or (fCurrRange.rangeKinds = [rkTokString])
  -    then if readDelim(reader, fTokStop, '/+') then
  +  if (fCurrRange.rangeKinds = []) or (fCurrRange.rangeKinds = [rkTokString]) or
  +    (fCurrRange.rangeKinds = [rkAsm]) then if readDelim(reader, fTokStop, '/+') then
     begin
       fTokKind := tkCommt;
       if readDelim(reader, fTokStop, '+') then
  
positive.code:     if readUntil(reader, fTokStop, '*/') then
      begin
        fCurrRange.rangeKinds -= [rkBlockDoc1, rkBlockCom1];
        EndCodeFoldBlock(fkComments1 in fFoldKinds );
        exit;
      end;
      readLine(reader, fTokStop);
  
negative.code:     else
        fCurrRange.rangeKinds += [rkBlockCom2];
      readLine(reader, fTokStop);
      if (fTokKind = tkCommt) and (fkComments2 in fFoldKinds) then
        StartCodeFoldBlock(nil)
      else if (fTokKind = tkDDocs) and (fkDDoc in fFoldKinds) then
        StartCodeFoldBlock(nil);
      exit;
    end else readerReset;
    if (rkBlockCom2 in fCurrRange.rangeKinds) or (rkBlockDoc2 in fCurrRange.rangeKinds) then
  