#include <setjmp.h>

#include "extern.h"

extern jmp_buf env;

rsout()    /* send sentence to RS232C with sendpac char  *ssent->RS232C  */

        {
		 int flg = 0;
         if ( ! chkcd() ) { *(ssent) = NULL; longjmp(env,1); }
							   /* con ¼Þ®³À² ÃÞ Å¹ÚÊÞ ÓÄÞÙ */
		 rsoutm();
		 if ( rshit() ) { flg = rsbread(); }
         return(flg);
        }