;*************
;MACROS SOURIS
;*************
IFDEF MACROSOURIS        ;‚vite une erreur si le fichier
ELSE                     ;et impl‚ment‚ plusieur fois,
                         ;en ne l'impl‚mentant que la premiere fois.
MACROSOURIS=0
;*******************************
;Fonctions et variables externes
;*******************************
    EXTRN SR_INIT_SOURIS:FAR
    EXTRN SR_RESTORE_SOURIS:FAR
    EXTRN MOUSEX:WORD,MOUSEY:WORD
    EXTRN BOUTONG:BYTE,BOUTOND:BYTE


;****************************
;Initialise le driver souris.
;****************************
    INIT_SOURIS MACRO
     CALL SR_INIT_SOURIS
    ENDM

;*****************************
;reinitialise le driver souris.
;*****************************
    RESTORE_SOURIS MACRO
     CALL SR_RESTORE_SOURIS
    ENDM

;************************************************************************
;Test si le bouton gauche de la souris est pr‚ss‚ dans la zone sp‚cifi‚e.
;************************************************************************

    PRESSE_MOUSE_G MACRO X1,Y1,X2,Y2
    LOCAL @NOT_PRESSE,@PRESSE
     
     CMP BOUTONG,0
     JE @NOT_PRESSE
     CMP MOUSEX,X1
     JL @NOT_PRESSE
     CMP MOUSEX,X2
     JG @NOT_PRESSE
     CMP MOUSEY,Y1
     JL @NOT_PRESSE
     CMP MOUSEY,Y2
     JG @NOT_PRESSE
      STC
     JMP @PRESSE
     @NOT_PRESSE:
      CLC
     @PRESSE:
    ENDM

;***********************************************************************
;Test si le bouton droit de la souris est pr‚ss‚ dans la zone sp‚cifi‚e.
;***********************************************************************
    PRESSE_MOUSE_D MACRO X1,Y1,X2,Y2
    LOCAL @NOT_PRESSE,@PRESSE
     
     CMP BOUTOND,0
     JE @NOT_PRESSE
     CMP MOUSEX,X1
     JL @NOT_PRESSE
     CMP MOUSEX,X2
     JG @NOT_PRESSE
     CMP MOUSEY,Y1
     JL @NOT_PRESSE
     CMP MOUSEY,Y2
     JG @NOT_PRESSE
      STC
     JMP @PRESSE
     @NOT_PRESSE:
      CLC
     @PRESSE:
    ENDM

ENDIF
