Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!usc!wuarchive!uunet!munnari.oz.au!murdu!ucsvc.ucs.unimelb.edu.au!lu!chegc
From: CHEGC@lure.latrobe.edu.au
Newsgroups: comp.os.msdos.programmer
Subject: Re: MS mouse, TurboPascal 5.5, Hercules (problem)
Message-ID: <4755@lure.latrobe.edu.au>
Date: 16 Oct 90 12:46:08 GMT
References: <isaacso.656001552@copper>
Distribution: comp
Organization: VAX Cluster, Computer Centre, La Trobe University
Lines: 36

In article <isaacso.656001552@copper>, isaacso@copper.ucs.indiana.edu (Eric J. Isaacson) writes:
> I am adding mouse routines to an existing application.  This
> appication is written in TurboPascal 5.5 and runs in graphics
> mode--EGA, VGA, or Hercules.  Using the standard SetGraphicsCursor
> routine (listed below), I can successfully get a cursor in EGA and
> VGA.  But the Hercules cursor looks like it's being mapped to memory
> all wrong--actually, as looks as if the mouse was using the text
> cursor instead of the graphics cursor.  This hunch is reinforced by
> the fact that the x and y coords of the mouse move in increments of 8.
> My guess is that the mouse driver isn't getting word of the shift to
> graphics mode
> 
> Eric Isaacson
> 
> 

To make the Hercules graphics screen display a mouse cursor, run the following
procedure *AFTER* intialising the graphics, and *BEFORE* setting up the mouse.

The paramter ScreenPage is the graphics page that you want the mouse cursor to
appear on - either a 0 or 1.

PROCEDURE Herc_Init(ScreenPage : Byte);

BEGIN
  Mem[$0040:$0049] := (6 - ScreenPage);
END;

For further information, refer to the Microsoft Mouse Programmer's Guide -
there is info about the Hercules screen in one of the appendices.


                Hope this helps!

				- graeme cross -
				- la trobe university - australia -