🚀 go-pugleaf

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;