home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / SND_TOOL / FUNK108A.ZIP / DOS32V30.ZIP / LIB / MOUSE.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-05-27  |  5.1 KB  |  177 lines
  1. ;
  2. ;                        Mouse routines for DOS32
  3. ;
  4. ;                        Written by Adam Seychell
  5. ;
  6. ;
  7. ;Comments:      All mouse functions here except "MouseDriver" must not be
  8. ;               called unlease a mouse driver is installed in the system.
  9. ;
  10. ;****************************************************************************
  11. ;    Function: int MouseDriver();
  12. ; Description: Resets the mouse driver.
  13. ;      Return: nonzero if mouse driver is installed and zero if not.
  14. ;
  15. ;****************************************************************************
  16. ;    Function: void SetMouseHandler(void * event_hanlder);
  17. ; Description: Sets the current mouse event handler and will be called when
  18. ;              the mouse is moved or a button is pressed/released.
  19. ;              When the handler is called the following external
  20. ;              varibles are set with the mouse information
  21. ;
  22. ;              integer  Micky_X              ; Horizontal micky count
  23. ;              integer  Micky_Y              ; Vertical micky count
  24. ;              byte     LeftButton           ; 1 if pressed and 0 if released
  25. ;              byte     RightButton          ; 1 if pressed and 0 if released
  26. ;
  27. ;              To free the current mouse event handler simply reset the
  28. ;              mouse driver by calling "MouseDriver"
  29. ;
  30. ;    Returns: nothing
  31. ;      Notes: When the program terminates it must reset the mouse driver
  32. ;              (by calling MosueDriver) to disable the current mouse event 
  33. ;              handler. Otherwise the mouse driver will continue calling the
  34. ;              mouse event procedure.
  35. ;****************************************************************************
  36. ;
  37. .386
  38. .Model Flat ,C
  39.  
  40. Include MOUSE.INC
  41.  
  42.         .CODE
  43.  
  44.  
  45. ;----------------------------------------------------------------------------
  46. MouseDriver PROC
  47.         Mov     Ax,0000h
  48.         Int     33h
  49.         Movsx   Eax,ax
  50.         Ret
  51. MouseDriver ENDP
  52.  
  53.  
  54.  
  55. ;----------------------------------------------------------------------------
  56. ;
  57. ;  Format of the Real Mode Call frame used by the DPMI service for switching
  58. ; to and from Real Mode
  59. ;
  60. Real_mode_Call_Struct STRUC
  61. RealMode_EDI         DD     ?
  62. RealMode_ESI         DD     ?
  63. RealMode_EBP         DD     ?
  64.                      DD     ?                  ; Unused
  65. RealMode_EBX         DD     ?
  66. RealMode_EDX         DD     ?
  67. RealMode_ECX         DD     ?
  68. RealMode_EAX         DD     ?
  69. RealMode_flags       DW     ?
  70. RealMode_ES          DW     ?
  71. RealMode_DS          DW     ?
  72. RealMode_FS          DW     ?
  73. RealMode_GS          DW     ?
  74. RealMode_IP          DW     ?
  75. RealMode_CS          DW     ?
  76. RealMode_SP          DW     ?
  77. RealMode_SS          DW     ?
  78. Real_mode_Call_Struct ENDS
  79.  
  80. Align 4
  81.  
  82. Micky_X                 DD      ?
  83. Micky_Y                 DD      ?
  84. Current_Event_Handler   DD      ?
  85. LeftButton              DB      ?
  86. RightButton             DB      ?
  87. MiddleButton            DB      ?
  88.  
  89.  
  90. Mouse_RM_CallStruct     Real_mode_Call_Struct <>
  91.  
  92.  
  93.  
  94. SetMouseHandler PROC  Event_HandlerPtr :Dword
  95.  
  96.         mov     eax,Event_HandlerPtr
  97.         mov     Current_Event_Handler,eax
  98.  
  99.         mov     Esi,Offset ISR_Handler
  100.         mov     Ax,0EE20h               ; Set real mode call back ( RETF )
  101.         int     31h
  102.         jc ExitError                  ; returns CX:DX -> real mode call back
  103.  
  104.         mov     BX,CX
  105.  
  106.  
  107.         Mov     ax,000Ch               ; DEFINE mouse event handler
  108.         mov     cx,01111111b
  109.                                        ; ES:DX -> handler
  110.  
  111.  
  112.         push dword ptr   0              ; set  SS:SP = 00:00
  113.         sub     esp,10                  ; ignore  CS, IP ,FS, GS, DS
  114.         push    BX
  115.         db 66h,9Ch                  ; pushf  16bit
  116.         pushad
  117.         mov     edi,esp
  118.         mov     ax,0300h
  119.         xor     cx,cx
  120.         mov     bl,33h                  ; call mouse handler
  121.         int     31h                     ; Emulate V86 interrupt
  122.         popad
  123.         db 66h,9Dh                      ; popf  16bit
  124.         lea     esp,[esp+16]            ; Ignore SS,SP,CS,IP,FS,GS,ES & DS
  125.         dec     ax
  126.         jz ExitError
  127.  
  128. okk:
  129.         mov     eax,-1
  130.         Ret
  131.  
  132. ExitError:
  133.         xor     eax,eax
  134.         Ret
  135.  
  136. SetMouseHandler ENDP
  137.  
  138.  
  139.  
  140.  
  141. ;-------------------------------------------------------------------------
  142. ;
  143. ;                        THE  MAIN  MOUSE  HANDLER
  144. ;
  145. ;-------------------------------------------------------------------------
  146. ISR_Handler PROC FAR
  147.         retf
  148.         push    es
  149.         push    ds
  150.  
  151.         mov     ax,SEG ISR_Handler
  152.         mov     ds,ax
  153.         mov     es,ax
  154.  
  155.         Test    bl, 001b
  156.         Setne   LeftButton
  157.         Test    bl, 010b
  158.         Setne   RightButton
  159.         Test    bl, 100b
  160.         Setne   MiddleButton
  161.         Movsx   Edi,di
  162.         Movsx   Esi,si
  163.         Mov     Micky_X, esi
  164.         Mov     Micky_Y, edi
  165.  
  166.         Call    [Current_Event_Handler]
  167.         pop     ds
  168.         pop     es
  169.         retf
  170.  
  171. ;                       MOUSE HANDLER ENDS
  172. ;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
  173. ISR_Handler ENDP
  174.  
  175.  
  176. End
  177.