procedure async_init(
     async_buffer_max : integer;
     async_obuffer_max: integer;
     async_high_lev1  : integer;
     async_high_lev2  : integer;
     async_low_lev    : integer
   );

   Set up the asynchronous communications port and initialize it.
   It is not opened until you issue the open command.