PAM Programming Manual

Link-Level Programming Examples
PAM Programming Manual—142482
B-35
Testing the L2S Interface
?ENDIF
buffer_lst[ buffer_lst_ndx ].in_use_flag := False;
buffer_lst[ buffer_lst_ndx ].test_char := 0;
buffer_lst[ buffer_lst_ndx ].user_data_size_b := 0;
pending_request_cnt := ( pending_request_cnt - 1 );
Aggr_SDUs_left := ( Aggr_SDUs_left - 1 );
END
UNTIL ( Aggr_SDUs_left <= 0 );
END; { FOR loop_cnt }
end_time := JulianTimeStamp;
Close_;
?IF SEND
WriteLn ( Output, ’Send Complete ’ );
?ELSE
WriteLn ( Output, ’Receive Complete. ’ );
?ENDIF
total_SDUs := 1.0 * number_of_loops * SDU_cnt *
( end_user_data_size_b - begin_user_data_size_b );
ave_bytes_per_SDU := ( end_user_data_size_b +
begin_user_data_size_b ) DIV 2;
d_time := Subtract_Quad_ ( end_time, start_time );
d_days := InterpretInterval ( d_time, , d_minutes, d_seconds );
total_seconds := ( d_minutes * 60 ) + d_seconds;
IF ( total_seconds <= 0 ) THEN
total_seconds := 1;
k_bytes_per_second := ( ( total_SDUs * ave_bytes_per_SDU ) /
total_seconds ) / 1000;
WriteLn ( Output, ’Throughput = ’,
K_bytes_per_second:8:1, ’ K Bytes per second.’ );
END.