PAM Programming Manual

Link-Level Programming Examples
PAM Programming Manual—142482
B-27
Procedures
{-------------------------- Get P/F flag -------------------------}
IF Get_Int ( Scan_Blanks ( ( ndx + 1 ) ),
ndx,
10,
P_F_flag,
0,
1 ) THEN
BEGIN
WriteLn ( Output, ’P F flag is bad’ );
AbEnd_;
END;
{---------------------- Get response flag ------------------------}
IF Get_Int ( Scan_Blanks ( ( ndx + 1 ) ),
ndx,
10,
rsp_flag,
0,
1 ) THEN
BEGIN
WriteLn ( Output, ’Response flag is bad’ );
AbEnd_;
END;
{---------------------- Look for Loop Count ----------------------}
IF Get_Int ( Scan_Blanks ( ( ndx + 1 ) ),
ndx,
10,
number_of_loops,
0,
MaxInt ) THEN
BEGIN
WriteLn ( Output, ’Loop count is bad’ );
AbEnd_;
END;
{----------------------- Look for SDU count ----------------------}
IF Get_Int ( Scan_Blanks ( ( ndx + 1 ) ),
ndx,
10,
SDU_cnt,
0,
22 ) THEN
BEGIN
WriteLn ( Output, ’SDU count is bad’ );
AbEnd_;
END;