Newsgroups: comp.lang.modula2
Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!sharkey!msuinfo!cpsin1!draper
From: draper@cpsin1.uucp (Patrick J Draper)
Subject: Help with Mouse Function Please
Message-ID: <1990Jul22.053526.26846@msuinfo.cl.msu.edu>
Sender: news@msuinfo.cl.msu.edu
Organization: Michigan State University, East Lansing
Date: Sun, 22 Jul 90 05:35:26 GMT

I'm trying to use the Dos Interrupt 33H, function 18H to set an
alternate mouse handler that is written in Modula-2.

I can't seem to get it to work no matter what I do. The compiler that
I'm working with is FST version 2.0. (by the way, does anybody know if
FST is still around? I sent them a letter a few weeks ago, but they
haven't responded. I sure would hate to send off a registration check
without knowing if they are still in business.)

Can anybody help me out?

Thanks in advance,

Patrick Draper   -   Michigan State University

-------CODE FOLLOWS-------------

PROCEDURE SetAlternateMouseUserHandler (mask   : BITSET;
                                        p      : PROC;
                                        wspace : CARDINAL);
VAR
   a, p2 : ADDRESS;

BEGIN
   IF Available (wspace) THEN
      ALLOCATE (a, wspace);
   END;
   NEWPROCESS (p, a, wspace, p2);

   AX := 0018H;
   CX := CARDINAL (mask);
   DX := OFFSET (p2);
   Trap (33H);
END SetAlternateMouseUserHandler;