home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 4 / AUCD4.iso / acorn / riscos / releases / oslib / examples / Examples / p2-618 < prev    next >
Text File  |  1994-03-30  |  779b  |  38 lines
  1. #include <stdio.h>
  2.  
  3. #include "econet.h"
  4. #include "os.h"
  5.  
  6. void tx1 (void)
  7.  
  8. {  byte buf [20];
  9.    int status;
  10.    os_error error;
  11.  
  12.    status = econet_do_transmit (NONE, 99, 7, 0, buf, sizeof buf, 6, 100,
  13.          NULL);
  14.    if (status != econet_STATUS_TRANSMITTED)
  15.       econet_convert_status_to_error (status, &error, sizeof error,
  16.             SKIP, SKIP);
  17. }
  18.  
  19. os_error *tx2 (void)
  20.  
  21. {  byte buf [20];
  22.    int status;
  23.    os_error *error = NULL, error1;
  24.  
  25.    if ((error = xeconet_do_transmit (NONE, 99, 7, 0, buf, sizeof buf,
  26.          6, 100, &status, NULL)) != NULL)
  27.       goto finish;
  28.  
  29.    if (status != econet_STATUS_TRANSMITTED)
  30.    {  error = xeconet_convert_status_to_error (status, &error1,
  31.             sizeof error1, SKIP, SKIP);
  32.       goto finish;
  33.    }
  34.  
  35. finish:
  36.    return error;
  37. }
  38.