Intermec Janus 2010 Reference Manual page 132

im_receive_buffer_no_wait
im_message (status);
New_Line;
end if;
--fill the comm buffer structure
com_buff_rec.command
com_buff_rec.protocol_xfer_status := COMM_INUSE;
com_buff_rec.user_length
com_buff_rec.comm_length
com_buff_rec.data_ptr
com_buff_rec.protocol_mode := IM_NO_PROTOCOL;
com_buff_rec.eom_char
status := im_receive_buffer_no_wait(IM_COM1, com_buff_rec'Address);
if im_iserror(status) then
Put ("rec no wait = ");
im_message (status);
New_Line;
end if;
-- quit if first char in buffer is a 'Q' or a 'q'
if ((data_buffer(1) = 'Q') or (data_buffer(1) = 'q')) then
done := TRUE;
end if;
end loop;
status := im_cancel_rx_buffer (IM_COM1);
if im_iserror(status) then
Put ("canc rx last = ");
im_message (status);
New_Line;
end if;
status := im_cancel_tx_buffer (IM_COM1);
if im_iserror(status) then
Put ("canc tx last = ");
im_message (status);
New_Line;
end if;
end exnowait;
3-92
:= IM_CU_RECEIVE;
:= System.Word (data_buffer'Length);
:= 0;
:= data_buffer'Address;
:= 16#0d#; -- CR for terminating char