**********
*
* JMinstall and JoyMouse driver by Derek Taubert (July 1990)
* Prodos Quit routine must be found and changed to an RTL to change application
* compiled by TML Pascal II to an initilization routine.  Resources were removed
* from the application as well (not necessary).  Program will run as an 
  application,
* one could be written to remove the JoyMouse driver as well.
*
* Place JMinstall in */system/system.setup and JoyMouse in */system/desk.accs
* to use.  JoyMouse moves the cursor with atari-style relative movements.
*
**********

Program JMinstall;

USES	Types,
		GSOS,
		TMLUtils,
		Locator,
		Memory,
		MiscTool;

VAR
	gMyMemoryID,
	gNewMemoryID		: integer;
	gStartStopRef		: ref;
	gDriverHndl			: Handle;
	F						: Str255;
	i						: integer;
	DriverFileName		: GSString255;
	parmsInfo				: FileInfoRecGS;
	parmsOpen			: OpenRecGS;
	parmsEOF				: EOFRecGS;
	parmsRead			: IORecGS;
	parmsClose			: RefNumRecGS;
	fake					: integer;
	location				: integer;

BEGIN
	gMyMemoryID := MMStartup;
	MTStartUp;

	F := '*:SYSTEM:DRIVERS:JOYMOUSE';
	DriverFileName.length := length(F);
	for i := 1 to length(F) do
		DriverFileName.text[i] := F[i];

	parmsInfo.pCount := 4;
	parmsInfo.pathname := @DriverFileName;
	GetFileInfoGS(parmsInfo);
	if (BAND(parmsInfo.auxType,$8000) = $8000) or (_ToolErr <> noError) 
    then Exit;
	{this checks to see if driver has been "inactivated" by the finder's
     Get Info}
	
	parmsOpen.pCount := 2;
	parmsOpen.pathname := @DriverFileName;
	OpenGS(parmsOpen);
	if _ToolErr <> noError then Exit;

	parmsEOF.pCount := 2;
	parmsEOF.refNum := parmsOpen.refNum;
	GetEOFGS(parmsEOF);
	if _ToolErr <> noError then begin
		parmsClose.pcount := 1;
		parmsClose.refNum := parmsOpen.refNum;
		CloseGS(parmsClose);
		Exit
	end;
	
	gNewMemoryID := GetNewID($dd00);
	gDriverHndl := NewHandle(parmsEOF.eof,gNewMemoryID,attrFixed+attrNoCross+
			attrLocked+attrNoSpec+attrNoPurge,nil);
	if _ToolErr <> noError then begin
		parmsClose.pcount := 1;
		parmsClose.refNum := parmsOpen.refNum;
		CloseGS(parmsClose);
		Exit
	end;
	
	parmsRead.pcount := 4;
	parmsRead.refNum := parmsOpen.refNum;
	parmsRead.dataBuffer := gDriverHndl^;
	parmsRead.requestCount := parmsEOF.eof;
	ReadGS(parmsRead);
	if _ToolErr <> noError then begin
		HUnlock(gDriverHndl);
		DisposeHandle(gDriverHndl);
		parmsClose.pcount := 1;
		parmsClose.refNum := parmsOpen.refNum;
		CloseGS(parmsClose);
		Exit
	end;

	parmsClose.pcount := 1;
	parmsClose.refNum := parmsOpen.refNum;
	CloseGS(parmsClose);

	SetHeartBeat(gDriverHndl^);
	if _ToolErr <> noError then Exit;

	MTShutDown;
	MMShutDown(gMyMemoryID)
END.