
  FUNCTION [INLINE] sfp$routing_control
    (    statistic_code: sft$statistic_code;
         routing_control_table: sft$routing_control_table): ^sft$routing_control;

?? PUSH (LISTEXT := ON) ??
    VAR
      current_routing_control: ^sft$routing_control;

    current_routing_control := routing_control_table^
          [(statistic_code MOD sfc$routing_control_table_size)];

  /search_for_routing_control/
    WHILE (current_routing_control <> NIL) AND
          (current_routing_control^.statistic_code <> statistic_code) DO
      current_routing_control := current_routing_control^.forward;
    WHILEND /search_for_routing_control/;
    sfp$routing_control := current_routing_control;

  FUNCEND sfp$routing_control;

*copyc sft$routing_control
*copyc sft$routing_control_table
*copyc sft$statistic_code
?? POP ??
