home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c329 / 2.img / EXAMPLES / MOUSEASM.S < prev    next >
Encoding:
Text File  |  1989-10-23  |  5.7 KB  |  213 lines
  1. ;  MOUSEASM.S
  2. ;  copyright 1989, MicroWay, Inc.
  3. ; ------------------------------------- ; 
  4.     name    t2            ;
  5.     .387                ;
  6.     assume    cs:codeseg        ;
  7.     assume    ds:dataseg        ;
  8. codeseg    segment dword er use32 public     ;
  9.                     ;
  10. extrn    _init_mouse:near        ;
  11. extrn   _show_mouse_cursor:near         ;
  12. extrn   _hide_mouse_cursor:near         ;
  13. extrn    _get_mouse:near            ;
  14. extrn    _set_mouse:near            ;
  15. extrn    _get_press:near            ;
  16. extrn    _get_release:near        ;
  17. extrn    _mouse_viewport:near        ;
  18. extrn    _read_motion:near        ;
  19. extrn    _set_mp_ratio:near        ;
  20. extrn   _set_mouse_cursor:near          ;
  21. extrn    _set_subroutine:near        ;
  22.                     ;
  23. dataseg    segment dword rw use32 public     ;
  24.                     ;
  25. intno    dw    33h            ; This is a data area to 
  26. rds    dw    (?)            ; hold the values of registers
  27. res    dw    (?)            ; for the Phar Lap service,
  28. rfs    dw    (?)            ; int 21, number 2511, issue
  29. rgs    dw    (?)            ; real mode interrupt with 
  30. reax    dd    (?)            ; specified register values
  31. redx    dd    (?)            ;
  32.                     ;
  33. dataseg    ends                ;
  34.     align    4            ;
  35.                     ;
  36. _mouse    proc near            ;
  37.     public    _mouse            ; C & Pascal entry
  38. _mouse_:                ;
  39.     public    _mouse_            ; FORTRAN entry
  40.     push    ebp            ;
  41.     mov    ebp,esp            ; save all registers - 
  42.     push    eax            ;   we don't know what kind
  43.     push    ebx            ;   of trouble the mouse 
  44.     push    ecx            ;   interrupt may produce
  45.     push    edx            ;
  46.     push    edi            ;
  47.     push    esi            ;
  48.     pushf                ;
  49. ; 
  50. ; int 21 service function 2511 requires that an area in memory be
  51. ; used to specify the contents of the eax, ds, es, fs, gs, and edx
  52. ; registers, as these cannot be loaded at the time the function is
  53. ; invoked.  edx points at the location.
  54. ;
  55. ; For most functions, we only need to save the contents of eax and
  56. ; edx in this place, but for functions 9, 12, 18, and 'R', es will
  57. ; also have to be specified.  ds is loaded with a copy of es in these
  58. ; cases as a matter of safety.
  59. ; 
  60. ; In the case of graphics cursor, we assume it is at an offset of 0
  61. ; into its segment (each such cursor will require, for that reason,
  62. ; its own segment).  We cannot do this in the case of a routine, so
  63. ; the programmer will have to pass the entry point as an argument.
  64. ;
  65.     mov    esi,[ebp+08h]        ; 
  66.     mov    eax,[esi]        ; first parameter
  67.     mov    reax,eax        ; into memory
  68.     mov    esi,[ebp+0ch]        ; 
  69.     mov    ebx,[esi]        ; second parameter
  70.     mov    esi,[ebp+10h]        ;
  71.     mov    ecx,[esi]        ; third parameter
  72.     mov    esi,[ebp+14h]        ;
  73.     mov    eax,[esi]        ; fourth paramter
  74.     cmp    reax,9            ; if the first parameter is 
  75.     je    short m1        ;   9, 12, 18 or 'R', then 
  76.     cmp    reax,12            ;   load es
  77.     je    short m2        ;
  78.     cmp    reax,18            ;
  79.     je    short m1        ;
  80.     cmp    reax,'R'        ;
  81.     je    short m1        ;
  82.     mov    redx,eax        ; 
  83.     jmp    short m4        ;
  84. m1:                    ;
  85.     mov    redx,0            ; array of data - offset 0
  86.     jmp    short m3        ;
  87. m2:                    ;
  88.     mov    redx,ebx        ; entry into routine
  89. m3:                    ;
  90.     mov    rds,ax            ;
  91.     mov    res,ax            ;
  92. m4:                    ;
  93.     mov    edx,offset intno    ; offset of memory area
  94.     mov    ax,2511h        ;
  95.     int    21h            ; do the interrupt
  96.     mov    eax,redx        ; now, replace parameters with
  97.     mov    edi,[ebp+14h]        ;   return values
  98.     mov    [edi],eax        ; last parameter
  99.     mov    edi,[ebp+10h]        ;
  100.     mov    [edi],ecx        ; third
  101.     mov    edi,[ebp+0ch]        ;
  102.     mov    [edi],ebx        ; second
  103.     mov    eax,reax        ;
  104.     mov    edi,[ebp+08h]        ;
  105.     mov    [edi],eax        ; first
  106.     popf                ; restore registers
  107.     pop    esi            ;
  108.     pop    edi            ;
  109.     pop    edx            ;
  110.     pop    ecx            ;
  111.     pop    ebx            ;
  112.     pop    eax            ;
  113.     pop    ebp            ;
  114.     ret                ; return
  115. _mouse    endp                ;
  116.                     ;
  117.                     ;
  118. _realbuf_    proc    near        ;
  119.     public    _realbuf_        ; FORTRAN entry
  120. _realbuf:                ;
  121.     public    _realbuf        ; C & Pascal entry
  122.     push    ebx             ;
  123.     push    edi            ;
  124.     push    esi            ;
  125.     mov    edx,[esp+10h]        ; address of parameter
  126.     mov    ebx,[edx]        ; parameter
  127.     shr    ebx,4            ; we want to request paragraphs
  128.     inc    ebx            ; round up
  129.     mov    ax,25c0h         ; request rm memory function
  130.     int    21h            ;
  131.     jnc    short rb1        ; carry indicates failure
  132.     mov    eax,-1            ; for failure, return -1
  133.     jmp    short rb2        ;
  134. rb1:                    ;
  135.     movzx    eax,ax            ;
  136. rb2:                    ;
  137.     mov    [edx],ax        ; the parameter value has been
  138.     pop    esi            ; replaced with the segment value
  139.     pop    edi            ;
  140.     pop    ebx            ;
  141.     ret                ; return
  142. _realbuf_    endp            ;
  143.     align    4            ;
  144. ; 
  145. ; The following are FORTRAN entry points - it would have been 
  146. ; a tiny bit faster to doctor the output of the Pascal compilation
  147. ; (the Assembly file) to insert labels, but it would also be more
  148. ; likely that errors would result in the release product.
  149. ;
  150.                     ;
  151. _init_mouse_    proc near        ;
  152.     public    _init_mouse_        ;
  153.     jmp    _init_mouse        ;
  154. _init_mouse_    endp            ;
  155.                     ;
  156. _show_mouse_cursor_   proc near         ;
  157.         public  _show_mouse_cursor_     ;
  158.         jmp     _show_mouse_cursor      ;
  159. _show_mouse_cursor_   endp              ;
  160.                     ;
  161. _hide_mouse_cursor_   proc near         ;
  162.         public  _hide_mouse_cursor_     ;
  163.         jmp     _hide_mouse_cursor      ;
  164. _hide_mouse_cursor_   endp              ;
  165.                     ;
  166. _get_mouse_    proc near        ;
  167.     public    _get_mouse_        ;
  168.     jmp    _get_mouse        ;
  169. _get_mouse_    endp            ;
  170.                     ;
  171. _set_mouse_    proc near        ;
  172.     public    _set_mouse_        ;
  173.     jmp    _set_mouse        ;
  174. _set_mouse_    endp            ;
  175.                     ;
  176. _get_press_    proc near        ;
  177.     public    _get_press_        ;
  178.     jmp    _get_press        ;
  179. _get_press_    endp            ;
  180.                     ;
  181. _get_release_    proc near        ;
  182.     public    _get_release_        ;
  183.     jmp    _get_release        ;
  184. _get_release_    endp            ;
  185.                     ;
  186. _mouse_viewport_    proc near    ;
  187.     public    _mouse_viewport_    ;
  188.     jmp    _mouse_viewport        ;
  189. _mouse_viewport_    endp        ;
  190.                     ;
  191. _read_motion_    proc near        ;
  192.     public    _read_motion_        ;
  193.     jmp    _read_motion        ;
  194. _read_motion_    endp            ;
  195.                     ;
  196. _set_mp_ratio_    proc near        ;
  197.     public    _set_mp_ratio_        ;
  198.     jmp    _set_mp_ratio        ;
  199. _set_mp_ratio_    endp            ;
  200.                     ;
  201. _set_mouse_cursor_   proc near          ;
  202.         public  _set_mouse_cursor_      ;
  203.         jmp     _set_mouse_cursor       ;
  204. _set_mouse_cursor_   endp               ;
  205.                     ;
  206. _set_subroutine_    proc near    ;
  207.     public    _set_subroutine_    ;
  208.     jmp    _set_subroutine        ;
  209. _set_subroutine_    endp        ;
  210.                     ;
  211. codeseg    ends                ;
  212.     end                ;
  213.