anchor.diff:  %%%  API
   %%%=========================================================================
   
  --type server_cmd() :: {clear} | {pop} | {push, atom()}.
  +-type server_cmd() :: {clear} | {reset, atom()} | {pop} | {push, atom()}.
       
   -type noreply_type() ::
           {noreply, NewState :: term()} |
  
positive.code:     loop(Parent, Name, State, Mod, hibernate, Debug, true).
  
  
      
  debug_reply(_Name, From, Reply, _State, []) ->
      reply(From, Reply),
      [];    
  debug_reply(Name, From, Reply, State, Debug) ->
      reply(Name, From, Reply, State, Debug).
      
  reply(Name, {To, Tag}, Reply, State, Debug) ->
      reply({To, Tag}, Reply),
      sys:handle_debug(Debug, fun print_event/3, Name,
              {out, Reply, To, State} ).
  
     
  %%% ---------------------------------------------------
  %%% Send/receive functions
  
negative.code:     
  loop(Parent, Name, {SrvrState, ClntState} = State, Mod, Time, Debug, Hib) ->
      Category = bugnutz,
      ProcessAll = true,
      DefaultBehav = false,
      {RFrom, RprtMsg, Reply} = receive
                      %% system
                  {system, From, Req} = M                 ->
                      sys:handle_system_msg(Req, From, Parent, ?MODULE, Debug, [Name, State, Mod, Time], Hib),
                      {undefined, M, idle}
              ;   {'EXIT', Parent, Reason} = M            ->
                      terminate(Reason, Name, M, Mod, ClntState, Debug)
              
                      %% gen_call
              ;   {'$gen_call', From, Msg}                -> {From, Msg, catch Mod:handle_call(Msg, From, ClntState)}
              ;   {{'$gen_call', always}, From, Msg}      -> {From, Msg, catch Mod:handle_call(Msg, From, ClntState)}
              ;   {{'$gen_call', _}, From, Msg} when DefaultBehav -> {From, Msg, catch Mod:handle_call(Msg, From, ClntState)}
              ;   {{'$gen_call', Category}, From, Msg}    -> {From, Msg, catch Mod:handle_call(Msg, From, ClntState)}
              
                      %% gen_cast
              ;   {'$gen_cast', Msg}                      -> {undefined, Msg, Mod:handle_cast(Msg, ClntState)}
              ;   {'$gen_cast', always, Msg}              -> {undefined, Msg, Mod:handle_cast(Msg, ClntState)}
              ;   {'$gen_cast', _, Msg} when DefaultBehav -> {undefined, Msg, Mod:handle_cast(Msg, ClntState)}
              ;   {'$gen_cast', Category, Msg}            -> {undefined, Msg, Mod:handle_cast(Msg, ClntState)}
              
                      %% common system info
  