anchor.diff:  	       end,
       case Typename of
   	['EXTERNAL'] ->
  -	    emit({{var,asn1ct_name:next(val)},
  +	    emit({{next,val},
   		  " = asn1rt_check:transform_to_EXTERNAL1990(",
  -		  {var,asn1ct_name:curr(val)},"),",nl}),
  +		  {curr,val},"),",nl}),
   	    asn1ct_name:new(val);
   	_ ->
   	    ok
  
positive.code: 	    mkvlist(textual_order(to_encoding_order(CompList),asn1ct_name:all(term))),
  	    emit("},")
      end,
      emit({{var,asn1ct_name:curr(bytes)},"}"}),
      emit({".",nl,nl}).
  
  textual_order([#'ComponentType'{textual_order=undefined}|_],TermList) ->
  
negative.code: 	    case extgroup_pos_and_length(CompList) of
  		{extgrouppos,ExtGroupPos,ExtGroupLen} ->
  		    Elements = make_elements(ExtGroupPos+1,
  					     "Val1",lists:seq(1,ExtGroupLen)),
  		    emit([
  			  {next,val}," = case [X || X <- [",Elements,
  			  "],X =/= asn1_NOVALUE] of",nl,
  			  "[] -> ",{curr,val},";",nl,
  			  "_ -> setelement(",{asis,ExtGroupPos+1},",",
  			  {curr,val},",",
  			  "{extaddgroup,", Elements,"})",nl,
  			  "end,",nl]),
  		    asn1ct_name:new(val);
  		_ -> % no extensionAdditionGroup
  		    ok
  	    end,
  	    asn1ct_name:new(tmpval),
  	    emit(["Extensions = ?RT_PER:fixextensions(",{asis,Ext},",",
  		  {curr,val},"),",nl]);
  	_ -> true
      end,
      EncObj =
  