PAM Programming Manual

Link-Level Programming Examples
PAM Programming Manual—142482
B-26
Procedures
{--------- Look for Port type ( ZLAM_Val_Port_Type_... ) ---------}
IF Get_Int ( Scan_Blanks ( ( ndx + 1 ) ),
ndx,
10,
Port_Type,
ZLAM_Val_Min_Port_Type,
ZLAM_Val_Max_Port_Type ) THEN
BEGIN
WriteLn ( Output, ’Port type is bad’ );
AbEnd_;
END;
{-------- Look for Command Code ( ZLAM_Val_SDU_Type_... ) --------}
IF Get_Int ( Scan_Blanks ( ( ndx + 1 ) ),
ndx,
10,
command_code,
ZL2S_Val_Min_SDU_Type,
ZL2S_Val_Max_SDU_Type ) THEN
BEGIN
WriteLn ( Output, ’Command Code is bad’ );
AbEnd_;
END;