home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / hardware.swg / 0025_HD Type.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  371 b   |  21 lines
  1. {
  2. > Does anyone know how to get the hard drive type(s) from CMOS ?
  3. }
  4.  
  5. Function GetFixedDrive(DriveNum : Byte) : Byte; Assembler;
  6. Asm
  7.   mov  al, DriveNum
  8.   and  al, 1
  9.   add  al, $19
  10.   out  $70, al
  11.   in   al, $71
  12. end;
  13.  
  14. {
  15. You specify what drive you want (0/1) and you'll get the
  16. disk type as specified in CMOS.
  17. }
  18.  
  19. begin
  20.   Writeln(GetFixedDrive(3));
  21. end.