home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l180 / 2.ddi / MOUSE.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-02-07  |  2.2 KB  |  88 lines
  1.  ; **********************************************
  2.  ; **  MOUSE.ASM              Macro Assembler  **
  3.  ; **                                          **
  4.  ; **  Assembly subprogram for accessing the   **
  5.  ; **  Microsoft Mouse from QuickBASIC 4.00    **
  6.  ; **                                          **
  7.  ; **  Use:  CALL MOUSE (M1%, M2%, M3%, M4%)   **
  8.  ; **********************************************
  9.  ;
  10.  ; EXAMPLE OF USE:  CALL Mouse (m1%, m2%, m3%, m4%)
  11.  ; PARAMETERS:      m1%        Passed in AX to the mouse driver
  12.  ;                  m2%        Passed in BX to the mouse driver
  13.  ;                  m3%        Passed in CX to the mouse driver
  14.  ;                  m4%        Passed in DX to the mouse driver
  15.  ; VARIABLES:       (none)
  16.  ; MODULE LEVEL
  17.  ;   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  18.  
  19. .MODEL  MEDIUM
  20. .CODE
  21.         public  mouse
  22.  
  23. mouse   proc
  24.  
  25. ; Standard entry
  26.         push    bp
  27.         mov     bp,sp
  28.  
  29. ; Get M1% and store it on the stack
  30.         mov     bx,[bp+12]
  31.         mov     ax,[bx]
  32.         push    ax
  33.  
  34. ; Get M2% and store it on the stack
  35.         mov     bx,[bp+10]
  36.         mov     ax,[bx]
  37.         push    ax
  38.  
  39. ; Get M3% into CX register
  40.         mov     bx,[bp+8]
  41.         mov     cx,[bx]
  42.  
  43. ; Get M4% into DX register
  44.         mov     bx,[bp+6]
  45.         mov     dx,[bx]
  46.  
  47. ; Move M2% from stack into BX register
  48.         pop     bx
  49.  
  50. ; Move M1% from stack into AX register
  51.         pop     ax
  52.  
  53. ; Set ES to same as DS (for mouse function 9)
  54.         push    ds
  55.         pop     es
  56.  
  57. ; Do the mouse interrupt
  58.         int     33h
  59.         
  60. ; Save BX (M2%) on stack to free register
  61.         push    bx
  62.         
  63. ; Return M1% from AX
  64.         mov     bx,[bp+12]
  65.         mov     [bx],ax
  66.         
  67. ; Return M2% from stack (was BX)
  68.         pop     ax
  69.         mov     bx,[bp+10]
  70.         mov     [bx],ax
  71.         
  72. ; Return M3% from CX
  73.         mov     bx,[bp+8]
  74.         mov     [bx],cx
  75.         
  76. ; Return M4% from DX
  77.         mov     bx,[bp+6]
  78.         mov     [bx],dx
  79.         
  80. ; Standard exit, assumes four variables passed
  81.         pop     bp
  82.         ret     8
  83.  
  84. ; End of this procedure
  85. mouse   endp
  86.         end
  87.         
  88.