/* misc.c  - support routines - Phillip Lindsay (C) Commodore 1986
 *  You may freely distribute this source and use it for Amiga Development -
 *  as long as the Copyright notice is left intact.
 *
 * 30-SEP-86
 */

#include <exec/types.h>
#include <exec/nodes.h>
#include <exec/lists.h>
#include <exec/ports.h>
#include <libraries/dos.h>
#include <libraries/dosextens.h>
#include "tape.h"

#if defined AZTEC_C
  #include <functions.h>
#elif defined LATTICE
  #include <proto/exec.h>
#endif


/* returnpkt() - packet support routine
 * here is the guy who sends the packet back to the sender...
 * (I modeled this just like the BCPL routine [so its a little redundant] )
 */

void returnpkt(
   struct DosPacket *packet,
   ULONG  res1,
   ULONG  res2)
{
 struct Message *mess;
 struct MsgPort *replyport;
 struct Process *myproc;

 packet->dp_Res1          = res1;
 packet->dp_Res2          = res2;
 replyport                = packet->dp_Port;
 mess                     = packet->dp_Link;
 myproc                   = (struct Process *) FindTask(0L);
 packet->dp_Port          = &myproc->pr_MsgPort;
 mess->mn_Node.ln_Name    = (char *) packet;
 mess->mn_Node.ln_Succ    = NULL;
 mess->mn_Node.ln_Pred    = NULL;

 PutMsg(replyport,mess);
}


/*
 * taskwait() ... Waits for a message to arrive at your port and
 *   extracts the packet address which is returned to you.
 */

struct DosPacket *taskwait(void)
{
 struct Process *myproc;
 struct MsgPort *myport;
 struct Message *mymess;

 myproc = (struct Process *) FindTask(0L);
 myport = &myproc->pr_MsgPort;

 WaitPort(myport); /* wait for packet */
 mymess = (struct Message *) GetMsg(myport);

/* give them the pointer to the packet */
return((struct DosPacket *) mymess->mn_Node.ln_Name);
}

/* end of misc.c */