您所在位置：主题：[原创]一个QB嵌入汇编的小程序
强强
[专家分：4740] 发布于 2007-01-31 02:17:00
用汇编代码取得系统日期：
CLS
DEFINT A-Z
DIM asmprog(1 TO 20)
DATA &h55,&h89,&he5,&hb4,&h2a,&hcd,&h21,&h8b
DATA &h5e,&h06,&h88,&h17,&h8b,&h5e,&h08,&h88,&h37,&h5d
DATA &hca,&h02
RESTORE
DEF SEG = VARSEG(asmprog(1))
p = VARPTR(asmprog(1))
FOR i = 0 TO 19
READ j
POKE (p + i), j
NEXT i
CALL absolute(x, y, VARPTR(asmprog(1)))
DEF SEG
PRINT
PRINT "The month is:"; x, "The day is:"; y
END
本来以为要用到EXE2BIN，但是发现有别的办法：DEBUG命令A进行汇编，再用命令U反汇编时得到机器码。（启动QB时要加/L[em1]）
CLS
DEFINT A-Z
DIM asmprog(1 TO 20)
DATA &h55,&h89,&he5,&hb4,&h2a,&hcd,&h21,&h8b
DATA &h5e,&h06,&h88,&h17,&h8b,&h5e,&h08,&h88,&h37,&h5d
DATA &hca,&h02
RESTORE
DEF SEG = VARSEG(asmprog(1))
p = VARPTR(asmprog(1))
FOR i = 0 TO 19
READ j
POKE (p + i), j
NEXT i
CALL absolute(x, y, VARPTR(asmprog(1)))
DEF SEG
PRINT "The month is:"; x, "The day is:"; y
END
本来以为要用到EXE2BIN，但是发现有别的办法：DEBUG命令A进行汇编，再用命令U反汇编时得到机器码。（启动QB时要加/L[em1]）
