一个检测硬盘容量的QB程序

Author: 邓国政 Date: 1997-01-01

　　很多检测程序能测出硬盘的容量，下面就是一个用ＱＵＩＣＫ　ＢＡＳＩＣ编制的检测程序清单。
#3　　用法：
　　运行ＱＢ／Ｌ，然后调入以下程序，按Ｆ５运行。
#3　　注意事项：
　　运行ＱＢ时必须要加上／Ｌ参数（用于调用ＱＢ．ＱＬＢ中的ＤＯＳ中断例程），同时ＱＵＩＣＫ　ＢＡＳＩＣ　中必须要有ＱＢ．ＢＩ和ＱＢ．ＱＬＢ两个文件，不然无法运行。本程序也可以检测软盘的容量。
　　＇＄ＩＮＣＬＵＤＥ：＇ｑｂ．ｂｉ＇
　　ＤＩＭ　ｒｅｇ　ＡＳ　ＲｅｇＴｙｐｅ
　　ＩＮＰＵＴ　＂请输入盘符（Ｃ，Ｄ，Ｅ……）：＂；ｄｒｉｖｅ＄
　　ｒｅｇ．ｄｘ＝ＡＳＣ（ＵＣＡＳＥ＄（ｄｒｉｖｅ＄））－６４
　　ｒｅｇ．ａｘ＝＄Ｈ３６００
　　ＩＮＴＥＲＲＵＰＴ　＆Ｈ２１，ｒｅｇ，ｒｅｇ　　调用２１号ＤＯＳ中断
　　ｓｅｃｔｏｒｓ＝ｒｅｇ．ａｘ　　求每簇的扇区数
　　ｂｙｔｅｓ＝ｒｅｇ．ｃｘ　　求每扇区的字节数
　　ＩＦ　ｒｅｇ．ｄｘ＞＝０　ＴＨＥＮ
　　　　ｃｌｕｓｔｅｒｓ＝ｒｅｇ．ｄｘ　　求磁盘的总簇数
　　ＥＬＳＥ
　　　　ｃｌｕｓｔｅｒｓ＝ｒｅｇ．ｄｘ＋６５５３６
　　ＥＮＤ　ＩＦ
　　ｄｉｓｋｓｐａｃｅ＝ｓｅｃｔｏｒｓ＊ｂｙｔｅｓ＊ｃｌｕｓｔｅｒｓ
　　ｄｓｐＭ＝ＩＮＴ（ｄｉｓｋｓｐａｃｅ／１００００）／１００
　　ＰＲＩＮＴ：ＰＲＩＮＴ
　　ＰＲＩＮＴ　ｄｒｉｖｅ＄；＂盘的容量是＂；ｄａｐＭ；＂Ｍ＂
　　本程序已在ＱＵＩＣＫ　ＢＡＳＩＣ　４．５下运行通过。