［原创］批处理版汇编语言开发工具 - 中国DOS联盟论坛

贴子要沉了，写了个批处理的鼠标三方工具mous.com，生成目录程序只有80个字节。
源码如下：

;com程序汇编开发工具，批处理版。版本2.0 演示程序（十）
;一个给批处理写的鼠标三方工具
;主要是调用鼠标中断 33 来完成


;//////////////在批处理中的用法：
;mous.com
;set lie=%errorlevel%
;mous.com 1
;set han=%errorlevel%
;mous.com 12
;set anj=%errorlevel%
;echo %anj% - %han% . %lie%
;///////////////////////////////////


;/////////////////////
set equ=nz
set gtr=b
;////////个性if条件定义


mov al,	;///////取命令行参数个数

if al equ 0	;//////不带参数初始化，循环等待按键，并读取列坐标
  MOV     AX,0
  INT     33
#lp		;**** if语句内可以定义标号
    MOV     AX,1
    INT     33
    MOV     AX,5
    INT     33
    TEST    AX,3
    JZ      #lp	;**** 并使用跳转
    MOV     AX,3
    INT     33
    MOV     AX,CX
    MOV     BL,08
    DIV     BL
else al equ 2	;//////一个参数（空格占一位），读取行坐标
    MOV     AX,0003
    INT     33
    MOV     AX,DX
    MOV     BL,08
    DIV     BL
else al equ 3	;//////二个参数，读取按键（左1/右2）
   MOV     AX,0003
   INT     33
   MOV     AL,BL
else al gtr 3
  mov al,0	;出错返回值为0
endif

;////////////
mov ah,4c
int 21
;/////返回DOS

第16楼　darkkid	发表于 2009-04-15 01:43
初级用户　发帖 12　积分 34
大哥相当牛b,奉你为神了

第17楼　jasonshaw	发表于 2009-04-16 02:41
新手上路　发帖 2　积分 3
太牛x！

第18楼　asp	发表于 2009-04-22 05:13
初级用户　发帖 24　积分 69
好东西,做个记号

第19楼　bbsjohn	发表于 2009-04-22 07:56
新手上路　发帖 3　积分 5
顶你了先下来看看

第20楼　a794685135	发表于 2009-04-27 06:55
初级用户　发帖 34　积分 71
很好很强大，膜拜了~~~~~~~

第21楼　knight1006	发表于 2009-05-04 22:26
初级用户　发帖 16　积分 29
强！没想到汇编也可以用批处理来生成

第22楼　zgrhcf	发表于 2009-05-05 04:23
初级用户　发帖 20　积分 29
我是新手，看到楼主这么好的东西，可不晓得做啥用的？也不知道咋使用？

第23楼　wangjunhai	发表于 2009-05-06 10:26
新手上路　发帖 4　积分 11
支持一下，小弟正在学习当中

第24楼　hjh700913	发表于 2009-05-06 22:40
新手上路　发帖 29　积分 2
谢谢分享,太好了!

第25楼　hjh700913	发表于 2009-05-06 22:49
新手上路　发帖 29　积分 2
批处理版汇编语言开发工具批处理版汇编语言开发工具

第26楼　s11ss	发表于 2009-07-31 15:03
银牌会员　发帖 566　积分 2,098
阳春白雪，望尘莫及

第27楼　rootkit	发表于 2009-08-06 21:41
初级用户　发帖 32　积分 63
竟然有如此强人！

第28楼　netbenton	发表于 2009-09-21 10:49
银牌会员　发帖 752　积分 1,916　来自广西
贴子要沉了，写了个批处理的鼠标三方工具mous.com，生成目录程序只有80个字节。源码如下： ;com程序汇编开发工具，批处理版。版本2.0 演示程序（十） ;一个给批处理写的鼠标三方工具 ;主要是调用鼠标中断 33 来完成 ;//////////////在批处理中的用法： ;mous.com ;set lie=%errorlevel% ;mous.com 1 ;set han=%errorlevel% ;mous.com 12 ;set anj=%errorlevel% ;echo %anj% - %han% . %lie% ;/////////////////////////////////// ;///////////////////// set equ=nz set gtr=b ;////////个性if条件定义 mov al, ;///////取命令行参数个数 if al equ 0 ;//////不带参数初始化，循环等待按键，并读取列坐标 MOV AX,0 INT 33 #lp ;** if语句内可以定义标号 MOV AX,1 INT 33 MOV AX,5 INT 33 TEST AX,3 JZ #lp ;** 并使用跳转 MOV AX,3 INT 33 MOV AX,CX MOV BL,08 DIV BL else al equ 2 ;//////一个参数（空格占一位），读取行坐标 MOV AX,0003 INT 33 MOV AX,DX MOV BL,08 DIV BL else al equ 3 ;//////二个参数，读取按键（左1/右2） MOV AX,0003 INT 33 MOV AL,BL else al gtr 3 mov al,0 ;出错返回值为0 endif ;//////////// mov ah,4c int 21 ;/////返回DOS

第29楼　523066680	发表于 2009-09-21 11:18
银牌会员　发帖 1,133　积分 2,362
(图像来自外链) 这么猛！我现在懵懵地。内牛满面。。。 [ Last edited by 523066680 on 2009-9-21 at 21:26 ]

第30楼　pcbfans	发表于 2009-10-02 15:56
新手上路　发帖 8　积分 11
好啊，长见识了！