anchor.diff:      string:concat(Message, CRC).
   
   %%--------------------------------------------------------------------
  -%% Function for appending list length to begining of the list
  +%% Append list length to begining of the list
   %%--------------------------------------------------------------------
   append_length(L) ->
       Fun = fun([H|_]) -> H == $0 end,
  
positive.code:     string:right(integer_to_list(Val, 10), 2, $0).
  
  %%--------------------------------------------------------------------
  %% UCP message decoder
  %%--------------------------------------------------------------------
  decode_message(Msg = <<?STX, BinHeader:?UCP_HEADER_LEN/binary, _/binary>>) ->
      Len = size(Msg) - 2,
  
negative.code: 
  -include("ucp_syntax.hrl").
  
  -export([to_ira/1,
           from_ira/1,
           to_7bit/1,
           encode_sender/1,
           decode_sender/2,
           compose_message/2,
           get_next_trn/1,
           trn_to_str/1,
           decode_message/1,
           wrap/1,
           create_cmd_52/3]).
  
  -define(STX, 16#02).
  -define(ETX, 16#03).
  