中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS开发编程 & 发展交流（开发室） » 判断光驱是否装入的BASIC源程序

qb45
高级用户

积分 677
发帖 194
注册 2003-9-13
状态离线

『楼主』: 判断光驱是否装入的BASIC源程序

'$INCLUDE: 'qb.bi'
DIM SHARED ax, bx, cx, dx
PRINT "光驱的盘幅为";disk$

FUNCTION disk$
DIM d$(25)
d$(0) = "A:": d$(1) = "B:": d$(2) = "C:": d$(3) = "D:": d$(4) = "E:": d$(5) = "F:"
d$(6) = "G:": d$(7) = "H:": d$(8) = "I:": d$(9) = "J:": d$(10) = "K:": d$(11) = "L:"
ax = &H1500
int2f
IF bx = 0 THEN PRINT "没有找到光驱 --No CDRom" ELSE disk$ = d$(cx)
END FUNCTION

SUB int2f
InRegs.ax = ax
InRegs.bx = bx
InRegs.cx = cx
InRegs.dx = dx
InRegs.flags = flags
INTERRUPTX &H2F, InRegs, OutRegs
ax = OutRegs.ax
bx = OutRegs.bx
cx = OutRegs.cx
dx = OutRegs.dx
flags = OutRegs.flags
END SUB

[em09]