中国DOS联盟

'$INCLUDE: 'qb.bi' 
DIM SHARED ax, bx, cx, dx, bp, si, di, ds, flags, es  '// 全局共享
BUFFdat$ = STRING$(512, 0)   '// 建立一个读写扇区缓冲区(512字节)
d1% = varSEG(buffdat$) '// 获得缓冲区的段地址
d2% = SADD(buffdat$) '// 获得缓冲区的偏移地址
'// 把段地址,偏移地址,读写命令等数据按要求写入数据包(DAP)
dat1$ = CHR$(&H10) + CHR$(0) + MKI$(1) + MKI$(d2%) + MKI$(d1%) + MKL$(0) + MKL$(0)

ds = varSEG(dat1$)   '// DS=数据包(DAP)的段地址
si = SADD(dat1$)      '// SI=数据包(DAP)的偏移地址
ax = &H4200            '// AX=调用扩展INT13的读扇区命令
dx = &H80               '// DX=第一个硬盘
xint &H13                '// 调用INT13中断

'//------把读出的MBR扇区内容保存到D盘的TESTHD.DAT文件中------
OPEN "d:\testhd.dat" FOR BINARY AS #1
PUT 1,1,BUFFDAT$
CLOSE #1
'//----------------------------------------------------------------------
END

'//中断调用的子程序
SUB xint (num%)
    DIM inregs AS RegTypeX
    DIM outregs AS RegTypeX
    inregs.ax = ax
    inregs.bx = bx
    inregs.cx = cx
    inregs.dx = dx
    inregs.si = si
    inregs.di = di
    inregs.ds = ds
    inregs.es = es
CALL INTERRUPTX(num%, inregs, outregs)
ax = outregs.ax
bx = outregs.bx
cx = outregs.cx
dx = outregs.dx
si = outregs.si
di = outregs.di
ds = outregs.ds
es = outregs.es
END SUB