关闭

Turbo C使用的汇编函数 -- 鼠标管理函数

标签: 汇编cc++dos图形borland
2227人阅读 评论(3) 收藏 举报
分类:

         上面2篇文章《Turbo C使用的汇编函数 -- VGA 12H模式图形函数(一)》和《Turbo C使用的汇编函数 -- VGA 12H模式图形函数(一)》给出了图形代码,本篇给出鼠标管理TC函数汇编码文件。该代码很简单,而且对速度没很高的要求,完全可用纯C/C++写,但是在DOS年代,即使速度稍有提高以及代码长度缩短,也愿意用汇编码或插入汇编;鼠标功能使用int 33h,要在程序中使用鼠标,必须安装鼠标驱动程序(指纯DOS环境),鼠标驱动一般有2种形式,一是mouse.sys,必须在DOS下的config.sys文件中安装:device=mouse.sys,另外一种是mouse.com,不必在config.sys中安装,在autoexec.bat或者其它批命令文件或者直接在DOS命令行中运行后,以TSR形式驻留内存。

/*  mouse.h */

#ifndef    __MOUSE__
#define    __MOUSE__

extern int MouseFlag;

#ifdef    __cplusplus
extern "C" {
#endif

/* 初始化, 如鼠标存在, MouseFlag = 1, 否则 MouseFlag = 0, 返回该值 */
int Mouse_Init(void);
/* 置鼠标位置到 X, Y */
void Mouse_SetXY(int x, int y);
/* 取鼠标当前位置到 X, Y */
void Mouse_GetXY(int *x, int *y);
/* 打开鼠光标 */
void Mouse_Show(void);
/* 关闭鼠光标 */
void Mouse_Hide(void);
/* 如鼠光标在坐标(x1, y1) - (x2, y2)内返回 1, 否则返回 0 */
int Mouse_InBox(int x1, int y1, int x2, int y2);
/* 取按钮按下信息 b = 0 左按钮, b = 1 右按钮, b = 2 中按钮 */
int Mouse_Press(int b);
/* 取按钮放开信息 b = 0 左按钮, b = 1 右按钮, b = 2 中按钮 */
int Mouse_Rel(int b);
/* 返回当前按钮状态, 有按钮按下返回非 0, 否则返回 0 */
int Mouse_State(void);
/* 设置鼠光标类型, X, Y 为光标热点, Pattern 为光标点阵地址 */
void Mouse_SetCursor(int X, int Y, void far *Pattern);

#ifdef    __cplusplus
}
#endif

#endif

 

; mouse.asm

    include    tasm_c.inc

    DATASEG

    PUBLIC    _MouseFlag

_MouseFlag    dw    
0
MouseCurFlag    dw    
0

    CODESEG

    PUBLIC    _Mouse_Init
    PUBLIC    _Mouse_SetXY
    PUBLIC    _Mouse_GetXY
    PUBLIC    _Mouse_Show
    PUBLIC    _Mouse_Hide
    PUBLIC    _Mouse_State
    PUBLIC    _Mouse_Press
    PUBLIC    _Mouse_Rel
    PUBLIC    _Mouse_InBox
    PUBLIC    _Mouse_SetCursor
;
; Mouse_Init(
void)
;
PROC    _Mouse_Init

    cmp    [word _MouseFlag], 
0
    jne    @@
1
    xor    ax, ax
    
int    33h
    cmp    ax, 
0
    je    @@
1
    mov    [_MouseFlag], bx
    xor    cx, cx
    xor    dx, dx
    mov     ax, 
4
    
int    33h
@@
1:
    mov    ax, [_MouseFlag]
    ret
ENDP
;
void Mouse_SetXY(int x, int y)
;
PROC    _Mouse_SetXY

    ARG    x : word, y : word

    mov    cx, [x]
    mov    dx, [y]
    mov    ax, 
3
    
int    33h
    ret
ENDP
;
void Mouse_GetXY(int *x, int *y)
;
PROC    _Mouse_GetXY

    ARG    x : DPTR_, y : DPTR_

    mov    ax, 
3
    
int    33h
    LES_    bx, [x]
    mov    [ES_ bx], cx
    LES_    bx, [y]
    mov    [ES_ bx], dx
    ret
ENDP
;
void Mouse_Show(void)
;
PROC    _Mouse_Show

    cmp    [word _MouseFlag], 
0
    je    @@
1
    cmp     [word MouseCurFlag], 
0
    jne    @@
1
    mov    ax, 
1
    
int    33h
    mov    [word MouseCurFlag], 
1
@@
1:
    ret
ENDP
;
void Mouse_Hide(void)
;
PROC    _Mouse_Hide

    cmp    [word _MouseFlag], 
0
    je    @@
1
    cmp     [word MouseCurFlag], 
0
    je    @@
1
    mov    ax, 
2
    
int    33h
    mov    [word MouseCurFlag], 
0
@@
1:
    ret
ENDP
;
void Mouse_SetCursor(int x, int y, void far *prttern)
;
PROC    _Mouse_SetCursor

    ARG    x : word, y : word, prttern : far ptr

    mov    ax, 
9
    mov    bx, [x]
    mov    cx, [y]
    les    dx, [dword prttern]
    
int    33h
    ret
ENDP
;
int Mouse_State(void)
;
PROC    _Mouse_State

    mov    ax, 
3
    
int    33h
    mov    ax, bx
    ret
ENDP
;
int Mouse_Press(int b)
;
PROC    _Mouse_Press

    ARG    b : word

    mov    ax, 
5
    mov    bx, [b]
    
int    33h
    mov    ax, bx
    ret
ENDP
;
int Mouse_Rel(int b)
;
PROC    _Mouse_Rel

    ARG    b : word

    mov    ax, 
6
    mov    bx, [b]
    
int    33h
    mov    ax, bx
    ret
ENDP
;
int Mouse_InBox(int x1, int y1, int x2, int y2)
;
PROC    _Mouse_InBox

    ARG    x1 : word, y1 : word, x2 : word, y2 : word

    mov    ax, [_MouseFlag]
    cmp    ax, 
0
    je    @@
3
    mov    ax, 
3
    
int    33h
    xor    ax, ax
    mov    bx, [x1]
    cmp    bx, [x2]
    jle    @@
1
    xchg    bx, [x2]
@@
1:
    cmp    cx, bx
    jl    @@
3
    cmp    cx, [x2]
    jg    @@
3
    mov    bx, [y1]
    cmp    bx, [y2]
    jle    @@
2
    xchg    bx, [y2]
@@
2:
    cmp    dx, bx
    jl    @@
3
    cmp    dx, [y2]
    jg    @@
3
    mov    ax, 
1
@@
3:
    ret
ENDP
;
    END

        上面的文件中使用的插入文件tasm_c.inc和编译文件在《Turbo C使用的汇编函数 -- VGA 12H模式图形函数(一)》中,鼠标函数也可由C++(Trubo C++或者Borland C++)直接调用。如果有人喜欢OO,正好我发现还有个C++的鼠标汇编文件,一并贴在下面供参考,不过其中的函数都是static的:

//  mouse.hpp

#ifndef    __MOUSE_HPP
#define    __MOUSE_HPP

const    int
    
// 定义鼠标按钮状态常量
    MO_LEFT_PRESS    = -256,    // 左边按钮按下
    MO_RIGHT_PRESS    = -257// 右边按钮按下
    MO_LEFT_REL    = -258,    // 左边按钮放开
    MO_RIGHT_REL    = -259,    // 右边按钮放开
    MO_LEFT_DOUBLE    = -260,    // 左边按钮双击
    MO_RIGHT_DOUBLE    = -261,    // 右边按钮双击
    MO_STATE    = -262;    // 鼠标拖动

class    Mouse
{

public:

  
// 初始化, 如鼠标存在, 返回 1, 否则返回 0
  static int Init(void);
  
// 置鼠标位置到 X, Y
  static void SetXY(int x, int y);
  
// 返回鼠光标当前的位置
  static void GetXY( int &x, int &y );
  
// 返回鼠标驱动程序安装状态, 1 已安装, 0 未安装
  static int DriveFlag();
  
// 打开鼠光标
  static void Show(void);
  
// 关闭鼠光标
  static void Hide(void);
  
// 如鼠光标在坐标(x1, y1) - (x2, y2)内返回 1, 否则返回 0
  static int InBox(int x1, int y1, int x2, int y2);
  
// 如鼠光标在文本坐标(Row1, Col1) - (Row2, Col2)内返回 1, 否则返回 0
  static int InTextBox(int Row1, int Col1, int Row2, int Col2);
  
// 设置鼠光标类型, X, Y 为光标热点, Pattern 为光标点阵地址
  static void SetCursor(int X, int Y, void far *Pattern);
  
// 返回鼠标按钮状态, 如鼠标不存在或未动作, 返回 0, 否则返回状态值(见状态常量)
  static int GetMouse();

};

#endif

      下面是鼠标功能C++函数汇编码文件,其中可以看到C++函数名称管理的方式,这个文件没包括在《Turbo C使用的汇编函数 -- VGA 12H模式图形函数(一)》的MAKEFILE中,必须单独编译:

; mouse.asm

    include    tasm_c.inc

MO_LEFT_PRESS    equ    
-256
MO_RIGHT_PRESS    equ    
-257
MO_LEFT_REL    equ    
-258
MO_RIGHT_REL    equ    
-259
MO_LEFT_DOUBLE    equ    
-260
MO_RIGHT_DOUBLE    equ    
-261
MO_STATE    equ    
-262

    PUBLIC    @Mouse@Init$qv
    PUBLIC    @Mouse@SetXY$qii
    PUBLIC    @Mouse@Show$qv
    PUBLIC    @Mouse@Hide$qv
    PUBLIC    @Mouse@InBox$qiiii
    PUBLIC    @Mouse@InTextBox$qiiii
    PUBLIC    @Mouse@SetCursor$qiinv
    PUBLIC    @Mouse@GetMouse$qv
    PUBLIC    @Mouse@DriveFlag$qv
IF LDATA
    PUBLIC    @Mouse@GetXY$qmit1
ELSE
    PUBLIC    @Mouse@GetXY$qrit1
ENDIF

    DATASEG

MouseFlag    dw    
0
MouseCurFlag    dw    
0
MouseTime    dd    
0

    CODESEG

PROC    @Mouse@Init$qv

    mov    ax, [word MouseFlag]
    or    ax, ax
    jnz    @@
1
    
int    33h
    or    ax, ax
    jz    @@
1
    xor    cx, cx
    xor    dx, dx
    mov     ax, 
4
    
int    33h
    mov    ax, 
1
    mov    [MouseFlag], ax
@@
1:
    ret
ENDP

PROC    @Mouse@SetXY$qii

    ARG    x : word, y : word

    cmp    [word MouseFlag], 
0
    je    @@
1
    mov    cx, [x]
    mov    dx, [y]
    mov    ax, 
4
    
int    33h
@@
1:
    ret
ENDP

PROC    @Mouse@Show$qv

    cmp    [word MouseFlag], 
0
    je    @@
1
    cmp     [word MouseCurFlag], 
0
    jne    @@
1
    mov    ax, 
1
    
int    33h
    mov    [word MouseCurFlag], 
1
@@
1:
    ret
ENDP

PROC    @Mouse@Hide$qv

    cmp    [word MouseFlag], 
0
    je    @@
1
    cmp     [word MouseCurFlag], 
0
    je    @@
1
    mov    ax, 
2
    
int    33h
    mov    [word MouseCurFlag], 
0
@@
1:
    ret
ENDP

PROC    @Mouse@SetCursor$qiinv

    ARG    x : word, y : word, prttern : far ptr
    cmp    [word MouseFlag], 
0
    je    @@
1
    mov    ax, 
9
    mov    bx, [x]
    mov    cx, [y]
    les    dx, [dword prttern]
    
int    33h
@@
1:
    ret
ENDP

PROC    @Mouse@InBox$qiiii

    ARG    x1 : word, y1 : word, x2 : word, y2 : word

    cmp    [word MouseFlag], 
0
    jz    @@
3
    mov    ax, 
3
    
int    33h
    mov    ax, [x2]
    mov    bx, [x1]
    cmp    bx, ax
    jle    @@
1
    xchg    bx, ax
@@
1:
    cmp    bx, cx
    jg    @@
3
    cmp    ax, cx
    jl    @@
3
    mov    ax, [y2]
    mov    bx, [y1]
    cmp    bx, ax
    jle    @@
2
    xchg    bx, ax
@@
2:
    cmp    bx, dx
    jg    @@
3
    cmp    ax, dx
    jl    @@
3
    mov    ax, 
1
    jmp    
short @@4
@@
3:
    xor    ax, ax
@@
4:
    ret
ENDP

PROC    @Mouse@InTextBox$qiiii

    ARG    Row1 : word, Col1 : word, Row2 : word, Col2 : word

    cmp    [MouseFlag], 
0
    jz    @@
3
    mov    ax, 
3
    
int    33h
    mov    bx, cx
    mov    ax, [Row2]
    cmp    ax, [Row1]
    jge    @@
1
    xchg    ax, [Row1]
@@
1:
    mov    cl, 
3
    shl    ax, cl
    add    ax, 
7
    cmp    ax, dx
    jl    @@
3
    mov    ax, [Row1]
    shl    ax, cl
    cmp    ax, dx
    jg    @@
3
    mov    ax, [Col2]
    cmp    ax, [Col1]
    jge    @@
2
    xchg    ax, [Col1]
@@
2:
    shl    ax, cl
    add    ax, 
7
    cmp    ax, bx
    jl    @@
3
    mov    ax, [Col1]
    shl    ax, cl
    cmp    ax, bx
    jg    @@
3
    mov    ax, 
1
    jmp    
short @@4
@@
3:
    xor    ax, ax
@@
4:
    ret
ENDP

IF LDATA

PROC    @Mouse@GetXY$qmit1

ELSE

PROC    @Mouse@GetXY$qrit1

ENDIF

    ARG     x : DPTR_, y : DPTR_
    mov    ax, 
3
    
int    33h
    LES_    bx, [x]
    mov    [ES_ bx], cx
    LES_    bx, [y]
    mov    [ES_ bx], dx
    ret
ENDP

PROC    @Mouse@DriveFlag$qv

    mov    ax, [MouseFlag]
    ret
ENDP

PROC    @Mouse@GetMouse$qv

    mov    ax, [MouseFlag]
    or    ax, ax
    jz    @@
5
    xor    bx, bx
    mov    ax, 
5
    
int    33h
    mov    ax, MO_LEFT_PRESS
    or    bx, bx
    jnz    @@
3
    mov    bx, 
1
    mov    ax, 
5
    
int    33h
    mov    ax, MO_RIGHT_PRESS
    or    bx, bx
    jnz    @@
3
    xor    bx, bx
    mov    ax, 
6
    
int    33h
    or    bx, bx
    jz    @@
1
    mov    ax, MO_LEFT_REL
    jmp    
short @@5
@@
1:
    mov    bx, 
1
    mov    ax, 
6
    
int    33h
    jz    @@
2
    mov    ax, MO_RIGHT_REL
    jmp    
short @@5
@@
2:
    mov    ax, 
3
    
int    33h
    xor    ax, ax
    test    bx, 
3
    jz    @@
5
    mov    ax, MO_STATE
    jmp    
short @@5
@@
3:
    push    ax
    mov    ah, 2ch
    
int    21h
    pop    ax
    sub    dx, [word MouseTime]
    sbb    cx, [word MouseTime
+2]
    or    cx, cx
    jnz    @@
4
    cmp    dx, 
30
    jg    @@
4
    sub    ax, 
4
    mov    [word MouseTime], cx
    mov    [word MouseTime
+2], cx
    jmp    
short @@5
@@
4:
    add    [word MouseTime], dx
    adc    [word MouseTime
+2], cx
@@
5:
    ret
ENDP
;
    END

        下一篇给出一个XMS内存管理文件代码。

        再次声明,这几篇文章的代码是1995年前的东西,用现在的眼光去看它们,还不知道是不是C函数,只能供初学者们借鉴参考。至于是否有错误,我就不得而知了,不过,我以前使用时,没出过什么问题。有错误或建议,请来信:maozefa@hotmail.com

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:900181次
    • 积分:12228
    • 等级:
    • 排名:第1213名
    • 原创:134篇
    • 转载:0篇
    • 译文:0篇
    • 评论:1062条
    最新评论