************************************
*                                  *
*    MAUS-MODUL FUER FONT-EDITOR   *
*     VERSION DATE: 28-04-1987     *
*                                  *
************************************

TERMI  OPD    $4E41          TERMINATE TASK
TRIGEV OPD    $A026          INTERRUPT TRIGGERN
RETN   OPD    $4E4C          UNLINK LWSP & RETURN

EPAR   OPD.V  19             HYP: END OF PARAMETER-LIST
ENTR   OPD.V  29             HYP: ALLOC LWSP

* EV 00000001 WENN RECHTE MAUSTASTE GEDRUECKT WIRD
* EV 00000002 WENN LINKE  MAUSTASTE GEDRUECKT WIRD
* EV 00000004 WENN MAUS BEWEGT WIRD

MDLE:  DC.L   MOUSE          VORWARD-LINK
       DC.L   0              BACK-LINK
       DC.W   $10            TYP: MODUL
       DC.B   'MOUSE '       NAME (DIREKT ANGEGEBEN)

*      GLOBALE VARIABLEN:
*
*      MX,MY: FIXED(15)      = AKT. MAUSPOS.
*      ML,MR: BIT            = STATUS DER MAUSTASTEN

MOUSE: DC.L   0              VORWARD-LINK
       DC.L   MDLE           BACK-LINK
       DC.W   $81            RESIDENT TASK
       DC.B   'MOUSE '       NAME
       DC.W   -6             PRIO  > #ACIA1  (GUTE IDEE ?)
       DC.L   120            WSP-LAENGE (!>=120)
       DC.L   0,0
       DC.W   -6             AKT. LAUFPRIO
       DC.L   MTASK          ADR. DER TASK
       DC.L   0,0,0,0        64 BYTES FUER DISPATCHER-PUFFER
       DC.L   0,0,0,0
       DC.L   0,0,0,0
       DC.L   0,0,0,0

MTASK: MOVE.B $8E6,D0        MAUSSTATUS HOLEN

       MOVE.B >MR,D1         RECHTE MAUSTASTE BEHANDELN
       EOR.B  D0,D1
       BTST   =0,D1          AENDERTE SICH DIE RECHTE TASTE ?
       BEQ.S  MT1
       NOT    >MR            RECHTE TASTE WURDE VERAENDERT
       BEQ.S  MT3
       MOVE.L =$00000001,D1
       TRIGEV                IRPT, WENN TASTE GEDRUECKT WURDE
MT3:   TERMI

MT1:   LSR.B  =1,D0
       MOVE.B >ML,D1         LINKE MAUSTASTE BEHANDELN
       EOR.B  D0,D1
       BTST   =0,D1          AENDERTE SICH DIESE TASTE ?
       BEQ.S  MT2
       NOT    >ML            LINKE TASTE WURDE VERAENDERT
       BEQ.S  MT4
       MOVE.L =$00000002,D1
       TRIGEV                IRPT, WENN TASTE GEDRUECKT WURDE
MT4:   TERMI

MT2:   MOVE.B $8E7,D0        X-BEWEGG BEARBEITEN
       EXT.W  D0             ERWEITERN AUF WORD-BREITE
       ADD.W  D0,>MX

       MOVE.B $8E8,D0        Y-BEWEGUNG
       EXT.W  D0
       ADD.W  D0,>MY

       MOVE.L =$00000004,D1  INTERRUPT 4 TRIGGERN
       TRIGEV
       TERMI

* PROZEDUR TRIGGERT $00000008

>KICK: ENTR   2.L            DUMMY ... &%$@&%$@&$
       EPAR
       MOVE.L =$00000008,D1
       TRIGEV
       RETN                  RETURN

* ZUGRIFF AUF DEN SYSTEM-FOND:
*
* SPC SYSF(,) BIT(16) GLOBAL;
*
* DER 1. INDEX IST DER INNERSTE

>SYSF: DC.W   256            2. DIM
       DC.W   8              1. DIM
       DC.L   $80000000      PTR -> SYSF(0,0)   (DUMMY->BUS-ERROR)
*//*   DC.L   $D6F3A

* INITIALISIERUNGS-ROUTINE DAZU:

>SYSI: ENTR   2.L            DUMMY &/$%(&$(%$($(/$(
       EPAR
       MOVE.L $81E,D0
       ADD.L  =$320-$12,D0
       MOVE.L D0,>SYSF+$4
       RETN          


       END    MOUSE