anchor.diff:  
   %% recieve and parse response
   get_response(Mod, Sock) ->
  +    ?debugFmt("get_response()~n", []),
       {ok, <<OpCode:32>>} = Mod:recv(Sock, 4),
       case op_name(OpCode) of
           op_response ->
  
positive.code:     convert_row(Mod, Sock, TransHandle, XSqlVars, Row, []).
  
  get_raw_value(Mod, Sock, XSqlVar) ->
      L = case XSqlVar#column.type of
              varying -> {ok, <<Num:32>>} = Mod:recv(Sock, 4), Num;
              text -> XSqlVar#column.length;
  
negative.code: 
  %%% create op_connect binary
  op_connect(Host, Username, _Password, Database) ->
      ?debugFmt("op_connect~n", []),
      %% PROTOCOL_VERSION,ArchType(Generic),MinAcceptType,MaxAcceptType,Weight
      Protocols = lists:flatten(
          [efirebirdsql_conv:byte4(10),
  