home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / MKEY12.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  2KB  |  93 lines
  1.     page    66,132
  2. ;******************************** MKEY12.ASM *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. ;----------------------------------------------------------------------------
  13.     extrn    move_mouse:far
  14.     extrn    box_the_mouse:far
  15.     extrn    lib_info:byte
  16. comment 
  17. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  18. SETUP_MOUSE -  initializes mouse driver if mouse present
  19. ;
  20. ; inputs:    none
  21. ; 
  22. ; output:    no carry - mouse is initialized
  23. ;               carry - mouse was not found
  24. ;* * * * * * * * * * * * * *
  25. 
  26.     PUBLIC    SETUP_MOUSE
  27. SETUP_MOUSE    PROC    FAR
  28.     APUSH   BX,CX,DX,ES
  29.     XOR     AX,AX
  30.     INT     33h            ;reset mouse & get status
  31.     AND     AX,BX
  32.     JZ        mi_no_mouse        ;jmp if no mouse installed
  33.     MOV     cs:lib_info.mouse_present,al
  34. ;
  35. ; position mouse cursor to left edge
  36. ;
  37.     mov    dx,0101h
  38.     call    move_mouse
  39. ;
  40. ; set range of mouse movement
  41. ;
  42.     mov    dx,0000h    ;upper left corner of box (row/col)
  43.     mov    bx,184fh    ;box size 24 rows, 79 columns
  44.     call    box_the_mouse
  45.     clc
  46.     jmp    mi_exit            
  47. mi_no_mouse:
  48.     stc    
  49. mi_exit:
  50.     APOP    ES,DX,CX,BX
  51.     RETF
  52. SETUP_MOUSE    ENDP
  53. comment 
  54. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  55. MOUSE_PARMS - determine mouse position & buttons pressed
  56. ;
  57. ; inputs:    none
  58. ; 
  59. ; output:    if ZF = 1, no buttons are pressed
  60. ;            if ZF = 0, BX = button code
  61. ;             BX bit 0 if set = left button is down
  62. ;             BX bit 1 if set = right button is down
  63. ;             BX bit 2 if set = center button is down
  64. ;            CX = horizontal (x) coordinate
  65. ;            DX = vertical (y) coordinate
  66. ;            
  67. ; Note that mouse positions are expressed as a pixel location
  68. ;* * * * * * * * * * * * * *
  69. 
  70.     PUBLIC    MOUSE_PARMS
  71. MOUSE_PARMS    PROC    FAR
  72.    PUSH    AX
  73.    PUSH    ES
  74.    MOV     AX,0003        ;return mouse status
  75.    INT     33h            ;return cx=column dx=row bx=button (left=0001)
  76.    AND     BX,+07
  77.    XOR     AX,AX
  78.    MOV     ES,AX
  79.    MOV     AL,BYTE PTR ES:[0449h]    ;get current video mode
  80.    CMP     AL,04
  81.    JB      X_0034            ;
  82.    CMP     AL,05
  83.    JA      X_0034
  84.    SHR     CX,1                ;adjust row if crt mode 5
  85. X_0034:
  86.    POP     ES
  87.    POP     AX
  88.    RETF
  89. MOUSE_PARMS    ENDP
  90.  
  91. LIBSEG    ENDS
  92.     end
  93.