//------------------------------------------------------------------------------
// Copyright (c) David Welch, 1995
//------------------------------------------------------------------------------
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include "ipx.h"

IPXADDRESS myaddress;

IPXECB recb;
IPXECB secb;

IPXHEADER rheader;
IPXHEADER sheader;

unsigned char rbuffer[80];
unsigned char sbuffer[80];

int i;

//------------------------------------------------------------------------------
void main ( void )
{
    if(!ipxinit())
    {
        printf("IPX not installed\n");
        exit(1);
    }
    printf("ipxentry %08lX\n",ipxentry);
    printf("max packet size %u\n",ipxgetmaxpacketsize());

    ipxgetaddress(&myaddress);
    printf("%02X:%02X:%02X:%02X %02X:%02X:%02X:%02X:%02X:%02X\n",myaddress.netadd[0],myaddress.netadd[1],myaddress.netadd[2],myaddress.netadd[3],myaddress.nodeadd[0],myaddress.nodeadd[1],myaddress.nodeadd[2],myaddress.nodeadd[3],myaddress.nodeadd[4],myaddress.nodeadd[5]);

    myaddress.socket=0;
    switch(ipxopensocket(0x00,&myaddress.socket))
    {
        case 0x00: // Success
            printf("Socket %04X\n",reverseword(myaddress.socket));
            break;
        case 0xFE:
            printf("Socket Table Full\n");
            exit(1);
        case 0xFF:
            printf("Socket Already Open\n");
            exit(1);
    }

    recb.socket=myaddress.socket;
    recb.esraddress=NULL;
    recb.fragcount=2;
    recb.fragaddr1=&rheader;
    recb.fragsize1=sizeof(IPXHEADER);
    recb.fragaddr2=rbuffer;
    recb.fragsize2=sizeof(rbuffer);
    ipxlistenforpacket(&recb);

    for(i=0;i<4;i++) sheader.dest.netadd[i]=0x00;
    for(i=0;i<6;i++) sheader.dest.nodeadd[i]=0xFF;
    for(i=0;i<6;i++) secb.immedaddr[i]=0xFF;
    sheader.dest.socket=myaddress.socket;
    secb.socket=myaddress.socket;
    secb.esraddress=NULL;
    sheader.type=4;
    secb.fragcount=2;
    secb.fragaddr1=&sheader;
    secb.fragsize1=sizeof(IPXHEADER);
    secb.fragaddr2=sbuffer;
    secb.fragsize2=sizeof(sbuffer);
    ipxsendpacket(&secb);

    printf("Waiting for packet\n");
    while(!kbhit())
    {
        ipxrelenquishcontrol();
        if(!recb.inuse)
        {
            printf("Packet Received\n");
            printf("  from %02X:%02X:%02X:%02X  %02X:%02X:%02X:%02X:%02X:%02X\n",rheader.source.netadd[0],rheader.source.netadd[1],rheader.source.netadd[2],rheader.source.netadd[3],rheader.source.nodeadd[0],rheader.source.nodeadd[1],rheader.source.nodeadd[2],rheader.source.nodeadd[3],rheader.source.nodeadd[4],rheader.source.nodeadd[5]);
            printf("  from socket %04X\n",reverseword(rheader.source.socket));
            break;
        }
    }
    while(kbhit()) getch();
    ipxclosesocket(myaddress.socket);
}
//------------------------------------------------------------------------------
// Copyright (c) David Welch, 1995
//------------------------------------------------------------------------------