mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-05-28 15:41:27 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
158 lines
3.7 KiB
C
158 lines
3.7 KiB
C
/*
|
|
File: Loopback.c
|
|
|
|
Contains: Ethernet loopback test code
|
|
|
|
Written by: Sean Findley
|
|
|
|
Copyright: © 1990, 1992 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<1> 10/6/92 GDW New location for ROMLink tool.
|
|
<SM5> 6/22/92 mal Modified so ptr and size to loopback test data is passed from
|
|
the driver since shared by Sonic and Mace drivers.
|
|
<SM1> 6/11/92 CS Roll-in changes from Reality:
|
|
<2> 6/1/92 DTY Include TextUtils.h for the new home of EqualString.
|
|
TextUtils now contains the EqualString prototype, so include it.
|
|
<3> 3/26/92 FM Rolled into reality
|
|
<2> 2/11/92 RB Use the real EqualString to avoid having to link old C libraries
|
|
with this code.
|
|
<2> 4/21/91 CCH Rolled in Sean Findley's changes.
|
|
<1> 12/14/90 JK Added to build
|
|
|
|
To Do:
|
|
*/
|
|
|
|
#include <TextUtils.h>
|
|
|
|
#include "memory.h"
|
|
#include "devices.h"
|
|
#include "files.h"
|
|
#include "appletalk.h"
|
|
#include "OSUtils.h"
|
|
|
|
typedef struct
|
|
{
|
|
char Addr[6];
|
|
} Enet;
|
|
|
|
typedef struct
|
|
{
|
|
Enet Destination; /* Ethernet destination */
|
|
Enet Source; /* Ethernet source */
|
|
unsigned short EProtocoltype; /* Ethernet protocol type */
|
|
char testdata[255];
|
|
} LBpacket;
|
|
|
|
typedef union /* parameter block for calling .ENET */
|
|
{
|
|
CntrlParam ctl; /* for ctl calls */
|
|
struct
|
|
{
|
|
char filler[28];
|
|
unsigned short EprotType;
|
|
Ptr EBuffPtr;
|
|
unsigned short EBuffSize;
|
|
unsigned short EDataSize;
|
|
} info;
|
|
MPPParamBlock ecall;
|
|
} Edrvrparms;
|
|
|
|
#define Ehandler DDP.DDPptrs.listener
|
|
#define EWdsPointer DDP.DDPptrs.wdsPointer
|
|
#define EKillQEl EBuffPtr
|
|
|
|
#define ERdCancel 251
|
|
#define ERead 250
|
|
#define EWrite 249
|
|
#define EDetachPH 248
|
|
#define EAttachPH 247
|
|
|
|
#define Ethhdrsz 14
|
|
|
|
Boolean cmpdata(char *p1, char *p2, short len) /* true = data equal, false = data not equal */
|
|
{
|
|
short i;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
if(p1[i] != p2[i])
|
|
return(false);
|
|
}
|
|
return(true);
|
|
}
|
|
|
|
killtest(Edrvrparms *pbw, Edrvrparms *pb)
|
|
{
|
|
pbw->ctl.csCode = ERdCancel;
|
|
pbw->info.EKillQEl = (Ptr) pb;
|
|
PBControl((ParmBlkPtr) pbw,false);
|
|
pbw->ctl.csCode = EDetachPH;
|
|
PBControl((ParmBlkPtr) pbw,false);
|
|
}
|
|
|
|
Boolean LOOPBACKTEST(short refnum,Enet *enetaddr, int AppleData, short AppleDataSz)
|
|
{
|
|
LBpacket LBPR,LBPW;
|
|
Edrvrparms pb,pbw;
|
|
WDSElement wds[2];
|
|
unsigned long secs1,secs2;
|
|
|
|
pb.ctl.ioCRefNum = refnum;
|
|
pb.ctl.ioCompletion = nil;
|
|
|
|
pb.ctl.csCode = EAttachPH;
|
|
pb.info.EprotType = 0x809B;
|
|
pb.ecall.Ehandler = nil;
|
|
|
|
if (PBControl((ParmBlkPtr) &pb,false)) /* attach special protocol using default handler */
|
|
return(false);
|
|
|
|
pb.ctl.csCode = ERead;
|
|
pb.info.EBuffPtr = (Ptr) &LBPR;
|
|
pb.info.EBuffSize = sizeof(LBpacket);
|
|
|
|
if (PBControl((ParmBlkPtr) &pb,true)) /* setup a read using default handler */
|
|
{
|
|
pb.ctl.csCode = EDetachPH;
|
|
PBControl((ParmBlkPtr) &pb,false);
|
|
return(false);
|
|
}
|
|
|
|
pbw = pb;
|
|
wds[0].entryLength = Ethhdrsz + AppleDataSz;
|
|
wds[0].entryPtr = (Ptr) &LBPW;
|
|
wds[1].entryLength = 0;
|
|
LBPW.Destination = *enetaddr;
|
|
LBPW.Source = *enetaddr;
|
|
LBPW.EProtocoltype = 0x809B;
|
|
BlockMove((Ptr)AppleData,LBPW.testdata,AppleDataSz);
|
|
pbw.ecall.EWdsPointer = (Ptr) wds;
|
|
pbw.ctl.csCode = EWrite;
|
|
|
|
if (PBControl((ParmBlkPtr) &pbw,false)) /* write a packet to ourself */
|
|
{
|
|
killtest(&pbw,&pb);
|
|
return(false);
|
|
}
|
|
|
|
GetDateTime(&secs1);
|
|
while (pb.ctl.ioResult == 1) /* wait for default read to complete or timeout */
|
|
{
|
|
GetDateTime(&secs2);
|
|
if (secs2 - secs1 > 3)
|
|
{
|
|
killtest(&pbw,&pb);
|
|
return(false);
|
|
}
|
|
}
|
|
|
|
pbw.ctl.csCode = EDetachPH;
|
|
PBControl((ParmBlkPtr) &pbw,false);
|
|
|
|
if (!cmpdata(LBPR.testdata,LBPW.testdata,AppleDataSz)) /* check data looped back */
|
|
return(false);
|
|
|
|
return(true);
|
|
}
|