MODULE nam$network_procedures;
*copyc osd$default_pragmats
*copyc nap$cn_deliver_datagram
*copyc nap$deliver_network_event
*copyc nap$gt_evaluate_connect_timers
*copyc nap$gt_evaluate_sap_timers
*copyc nap$gt_process_connection_event
*copyc nap$gt_process_sap_event
*copyc nap$monitor_server_connections
*copyc nap$se_evaluate_io_timers
*copyc nap$se_process_connection_event
*copyc nap$se_process_sap_event
*copyc nlp$sk_tcp_conn_event_processor
*copyc nlp$sk_tcp_event_processor
*copyc nlp$cc_monitor_timers
*copyc nlp$la_connect_event_processor
*copyc nlp$la_event_processor
*copyc nlp$la_retry_constrained_saps
*copyc nlp$na_connect_event_processor
*copyc nlp$na_event_processor
*copyc nlp$na_retry_constrained_saps
*copyc nlp$sl_clear_request_timer
*copyc nlp$sl_connect_event_processor
*copyc nlp$sl_sap_event_processor
*copyc nlp$sm_connect_event_processor
*copyc nlp$sm_event_processor
*copyc nlp$ta_connect_event_processor
*copyc nlp$ta_event_processor
*copyc nlp$tcp_connect_event_processor
*copyc nlp$tcp_event_processor
*copyc nlp$tcp_flush_release_timer
*copyc nlp$tm_connect_event_processor
*copyc nlp$tm_event_processor
*copyc nlp$udp_connect_event_processor
*copyc nlp$udp_event_processor

  PROCEDURE [XREF] cyp$nil;

  VAR
    nav$network_procedures: [XDCL, READ, oss$job_paged_literal] array [nat$network_procedure] of
          nat$network_procedures := [
          [nac$monitor_server_connections, ^nap$monitor_server_connections],                 { 0}
          [nac$cn_deliver_datagram, ^nap$cn_deliver_datagram],                               { 1}
          [nac$gt_evaluate_sap_timers, ^nap$gt_evaluate_sap_timers],                         { 2}
          [nac$gt_evaluate_connect_timers, ^nap$gt_evaluate_connect_timers],                 { 3}
          [nac$nil, ^cyp$nil],                                                               { 4}
          [nac$nil, ^cyp$nil],                                                               { 5}
          [nac$nil, ^cyp$nil], { XNS stack no longer supported (nlp$receive_channelnet_data)}{ 6}
          [nac$nil, ^cyp$nil],                                                               { 7}
          [nac$se_process_sap_event, ^nap$se_process_sap_event],                             { 8}
          [nac$se_process_connection_event, ^nap$se_process_connection_event],               { 9}
          [nac$nil, ^cyp$nil],                                                               {10}
          [nac$nil, ^cyp$nil],                                                               {11}
          [nlc$sl_clear_request_timer, ^nlp$sl_clear_request_timer],                         {12}
          [nac$nil, ^cyp$nil],                                                               {13}
          [nac$nil, ^cyp$nil],                                                               {14}
          [nac$nil, ^cyp$nil],                                                               {15}
          [nac$nil, ^cyp$nil],                                                               {16}
          [nac$se_evaluate_io_timers, ^nap$se_evaluate_io_timers],                           {17}
          [nac$nil, ^cyp$nil],                                                               {18}
          [nlc$ta_connect_event_processor, ^nlp$ta_connect_event_processor],                 {19}
          [nlc$ta_event_processor, ^nlp$ta_event_processor],                                 {20}
          [nac$osi_gt_process_sap_event, ^nap$gt_process_sap_event],                         {21}
          [nac$osi_gt_process_conn_event, ^nap$gt_process_connection_event],                 {22}
          [nlc$sm_connect_event_processor, ^nlp$sm_connect_event_processor],                 {23}
          [nlc$sm_event_processor, ^nlp$sm_event_processor],                                 {24}
          [nlc$cc_monitor_timers, ^nlp$cc_monitor_timers],                                   {25}
          [nlc$osi_sl_sap_event_processor, ^nlp$sl_sap_event_processor],                     {26}
          [nlc$osi_sl_conn_event_processor, ^nlp$sl_connect_event_processor],                {27}
          [nlc$na_connect_event_processor, ^nlp$na_connect_event_processor],                 {28}
          [nlc$na_event_processor, ^nlp$na_event_processor],                                 {29}
          [nlc$na_retry_constrained_saps, ^nlp$na_retry_constrained_saps],                   {30}
          [nac$deliver_network_event, ^nap$deliver_network_event],                           {31}
          [nac$nil, ^cyp$nil],                                                               {32}
          [nlc$la_connect_event_processor, ^nlp$la_connect_event_processor],                 {33}
          [nlc$la_event_processor, ^nlp$la_event_processor],                                 {34}
          [nlc$la_retry_constrained_saps, ^nlp$la_retry_constrained_saps],                   {35}
          [nlc$tm_connect_event_processor, ^nlp$tm_connect_event_processor],                 {36}
          [nlc$tm_event_processor, ^nlp$tm_event_processor],                                 {37}
          [nlc$tcp_connect_event_processor, ^nlp$tcp_connect_event_processor],               {38}
          [nlc$tcp_event_processor, ^nlp$tcp_event_processor],                               {39}
          [nlc$sk_tcp_conn_event_processor, ^nlp$sk_tcp_conn_event_processor],               {40}
          [nlc$sk_tcp_event_processor, ^nlp$sk_tcp_event_processor],                         {41}
          [nlc$udp_connect_event_processor, ^nlp$udp_connect_event_processor],               {42}
          [nlc$udp_event_processor, ^nlp$udp_event_processor],                               {43}
          [nlc$tcp_flush_release_timer, ^nlp$tcp_flush_release_timer],                       {44}
          [nac$nil, ^cyp$nil],
          [nac$nil, ^cyp$nil],
          [nac$nil, ^cyp$nil],
          [nac$nil, ^cyp$nil],
          [nac$nil, ^cyp$nil],
          [nac$nil, ^cyp$nil],
          [nac$nil, ^cyp$nil],
          [nac$nil, ^cyp$nil],
          [nac$nil, ^cyp$nil],
          [nac$nil, ^cyp$nil],
          REP 201 OF [nac$nil, ^cyp$nil]];

?? PUSH (LISTEXT := ON) ??
*copyc nat$network_procedures
*copyc nat$system_address
*copyc nlt$cl_connection
*copyc nat$data_length
*copyc nat$internet_address
*copyc nlt$user_interface
*copyc nlt$bm_message_id
*copyc nlt$sl_event
*copyc nlt$cl_connection
*copyc nat$cn_interface
*copyc nat$data_length
*copyc nlt$bm_message_id
*copyc oss$job_paged_literal
?? POP ??
MODEND
