/*
 * CopyRight 1995. Nicholas Poljakov all rights reserved.
 */
#include <malloc.h>
#include <stdio.h>
#include <dos.h>
#include <sender.h>
#include <state1.h>
send_error (tp_id,
           conv_id,
           type,
           p_data,
           length,
           p_rc,
           p_rts)

 unsigned char tp_id[8];
 unsigned long conv_id;
  char far     *p_data;
 unsigned   int length ;
 unsigned  char *p_rts  ;
 unsigned  char type  ;

 struct   rc {
 unsigned   int   prim ;
 unsigned   long  sec  ; }  *p_rc;

         {
       union REGS inregs,outregs;
       struct SREGS segregs;
       struct send_error *ptr;
       char _near *dp1;
       char _near *dp2;
       int l;

     l = sizeof(struct send_error);
     if ((ptr = (char *)calloc(1,l)) == NULL)
       {
        p_rc->prim = PORT_BUSY; /* нет доступной памяти */
        p_rc->sec = 0x00;
        return(0);
        }

    ptr->code=Send_error; /* kod primitiv */
    ptr->e_cd=0x0000; /*  ex   */

    memcpy (ptr->tp_id,tp_id,8);

    ptr->conv_id = conv_id;
    ptr->data_addr=p_data ;
    ptr->data_lt=length   ;
    ptr->type=type   ;
/*
     inregs.x.dx = FP_OFF(ptr);
     segregs.ds = FP_SEG(ptr);
     inregs.x.ax = ptr->code;

         int86x(0x68,&inregs,&outregs,&segregs);
 */
     dp1 = FP_OFF( ptr );
     dp2 = FP_SEG( ptr );
     _asm
         {
            push  ds
            mov   dx, word ptr dp1[0]
            mov   ax, word ptr dp2[0]
	    mov   ds, ax
        mov   ax, Send_error
            int   68h
            pop   ds
         }

    *p_rts=ptr->rts;      /* возвращаемые param в стуктуру*/
     p_rc->prim = ptr->prim_rc;
     p_rc->sec  = ptr->sec_rc;
               free(ptr);
               return(0);
         }