anchor.diff:    private
       FCommentState: TCommentState;
       FOrigin: PChar;
  -    FProcTable: array[#0..#255] of procedure of object;
  +    FProcTable: array[#0..#127] of procedure of object;
       Run: Integer;
       RunAhead: Integer;
       TempRun: Integer;
  
positive.code: 
  procedure TmwBasePasLex.DoProcTable(AChar: Char);
  begin
    if Ord(AChar) <= 255 then
      FProcTable[AChar]
    else
    begin
  
negative.code: var
    I, J: Char;
  begin
    for I := #0 to #127 do
    begin
      case I of
        '_', '0'..'9', 'a'..'z', 'A'..'Z': Identifiers[I] := True;
  