home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / gnu / djgpp / go32 / evintr.asm < prev    next >
Encoding:
Assembly Source File  |  1993-05-31  |  2.8 KB  |  141 lines
  1. ;;;
  2. ;;; EVINTR.ASM
  3. ;;;
  4. ;;;  Copyright (C) 1992, Csaba Biegl
  5. ;;;    820 Stirrup Dr, Nashville, TN, 37221
  6. ;;;    csaba@vuse.vanderbilt.edu
  7. ;;;
  8. ;;;  This file is distributed under the terms listed in the document
  9. ;;;  "copying.cb", available from the author at the address above.
  10. ;;;  A copy of "copying.cb" should accompany this file; if not, a copy
  11. ;;;  should be available from where this file was obtained.  This file
  12. ;;;  may not be distributed without a verbatim copy of "copying.cb".
  13. ;;;  You should also have received a copy of the GNU General Public
  14. ;;;  License along with this program (it is in the file "copying");
  15. ;;;  if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16. ;;;  Cambridge, MA 02139, USA.
  17. ;;;
  18. ;;;  This program is distributed in the hope that it will be useful,
  19. ;;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
  20. ;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21. ;;;  GNU General Public License for more details.
  22. ;;;
  23.  
  24. _TEXT    segment byte public 'CODE'
  25. _TEXT    ends
  26.  
  27. _TEXT    segment byte public 'CODE'
  28.     assume  cs:_TEXT,ds:NOTHING
  29.  
  30. ;;
  31. ;; mouse interrupt routine -- called by the mouse handler callback mechanism
  32. ;;
  33. __ev_mouseint    proc    far
  34.     pushf
  35.     cli
  36.     push    cx
  37.     push    dx
  38.     mov    cx,sp
  39.     mov    dx,ss
  40.     mov    ss,WORD PTR cs:__ev_interss
  41.     mov    sp,WORD PTR cs:__ev_msintsp
  42.     sti
  43.     push    ax
  44.     push    bx
  45.     push    cx
  46.     push    dx
  47.     push    es
  48.     push    ds
  49.     mov    ds,WORD PTR cs:__ev_interds
  50.     push    di
  51.     push    si
  52.     push    bx
  53.     push    ax
  54.     call    FAR PTR __ev_mousehandler
  55.     add    sp,8
  56.     pop    ds
  57.     pop    es
  58.     pop    dx
  59.     pop    cx
  60.     pop    bx
  61.     pop    ax
  62.     cli
  63.     mov    ss,dx
  64.     mov    sp,cx
  65.     pop    dx
  66.     pop    cx
  67.     popf
  68.     ret
  69. __ev_mouseint    endp
  70.  
  71. ;;
  72. ;; keyboard interrupt handler -- replaces the int 9 vector
  73. ;;
  74. __ev_keybdint    proc    far
  75.     inc    WORD PTR cs:__ev_kbinter
  76.     jz    kbint_proceed
  77.     dec    WORD  PTR cs:__ev_kbinter
  78.     jmp    DWORD PTR cs:__ev_oldkbint
  79. kbint_proceed:
  80.     cli
  81.     push    cx
  82.     push    dx
  83.     mov    cx,sp
  84.     mov    dx,ss
  85.     mov    ss,WORD PTR cs:__ev_interss
  86.     mov    sp,WORD PTR cs:__ev_kbintsp
  87.     pushf
  88.     call    DWORD PTR cs:__ev_oldkbint
  89.     sti
  90.     push    ax
  91.     push    bx
  92.     push    cx
  93.     push    dx
  94.     push    es
  95.     push    ds
  96.     mov    ds,WORD PTR cs:__ev_interds
  97.     call    FAR PTR __ev_keybdhandler
  98.     pop    ds
  99.     pop    es
  100.     pop    dx
  101.     pop    cx
  102.     pop    bx
  103.     pop    ax
  104.     cli
  105.     mov    ss,dx
  106.     mov    sp,cx
  107.     pop    dx
  108.     pop    cx
  109.     dec    WORD PTR cs:__ev_kbinter
  110.     iret
  111. __ev_keybdint    endp
  112.  
  113. __ev_oldkbint    label    dword
  114.     db    4 dup (?)
  115. __ev_kbinter    label    word
  116.     db    2 dup (?)
  117. __ev_interss    label    word
  118.     db    2 dup (?)
  119. __ev_kbintsp    label    word
  120.     db    2 dup (?)
  121. __ev_msintsp    label    word
  122.     db    2 dup (?)
  123. __ev_interds    label    word
  124.     db    2 dup (?)
  125. _TEXT    ends
  126.  
  127.     public  __ev_keybdint
  128.     public  __ev_mouseint
  129.     public  __ev_msintsp
  130.     public  __ev_kbintsp
  131.     public  __ev_interss
  132.     public  __ev_interds
  133.     public  __ev_kbinter
  134.     public  __ev_oldkbint
  135.  
  136.     extrn    __ev_keybdhandler:far
  137.     extrn    __ev_mousehandler:far
  138.  
  139.     end
  140.  
  141.