Intermec Janus 2010 Reference Manual page 124

im_protocol_extended_status
Example
With System, Intrmecd_IO, Intrmecp_IO, Text_IO;
Use System, Intrmecd_IO, Intrmecp_IO, Text_IO;
procedure protstat Is
package SYSBYTE_IO is new INTEGER_IO (System.Byte);
package LONGINT_IO is new INTEGER_IO (Long_integer);
package IM_PROTOCOL_ID_IO is new ENUMERATION_IO (enum => IM_PROTOCOL_ID);
package IM_PROTO_MODE_ID is new ENUMERATION_IO (enum => IM_PROTO_MODE);
package IM_PH_ID_IO is new ENUMERATION_IO (enum => IM_PH_ID);
serial_status_buffer_ptr : System.Address;
serial_buffer : IM_COMM_STATUS_BUFFER_S;
status : System.Word;
begin
-- PHIMEC must be installed for this sample program to work correctly with COM1.
serial_buffer.status_structure_version := IM_STATUS_STRUCT_VERSION;
serial_buffer.handler_ver := "
serial_status_buffer_ptr := serial_buffer'Address;
status := im_protocol_extended_status (IM_COM1, serial_status_buffer_ptr);
im_message (status);
New_Line;
Put ("Struct Ver:");
SYSBYTE_IO.Put (serial_buffer.status_structure_version);
New_Line;
Put("Handler ver: ");
Put(serial_buffer.handler_ver);
New_Line;
Put("Type: ");
IM_PH_ID_IO.Put(serial_buffer.handler_type);
New_Line;
Put("Baud: ");
LONGINT_IO.Put(serial_buffer.sb.baud_rate, WIDTH => 6);
New_Line;
Put("Parity:");
SYSBYTE_IO.Put (serial_buffer.sb.parity);
New_Line;
Put("Stop bits:");
SYSBYTE_IO.Put (serial_buffer.sb.stop_bits);
New_Line;
Put("Data bits:");
SYSBYTE_IO.Put (serial_buffer.sb.data_bits);
New_Line;
Put("Act prot: ");
IM_PROTOCOL_ID_IO.Put(serial_buffer.sb.active_prot);
New_Line;
end protstat;
3-84
";