home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV2N6.ZIP / BOOTDRIV.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-12-16  |  703 b   |  27 lines
  1. program BootDriv;
  2.   {-Display drive machine booted from. Requires DOS 4.0 or greater.}
  3.  
  4. function GetBootDrive : Char; Assembler;
  5.   {-Return boot drive letter.}
  6. asm
  7.   mov       ah,52h           {get DOS list of lists}
  8.   int       21h
  9.   mov       al,es:[bx+43h]   {boot drive at offset 43}
  10.   add       al,64            {convert to letter}
  11. end;
  12.  
  13. function DosMajor : Byte; Assembler;
  14.   {-Return major DOS version number.}
  15. asm
  16.   mov       ah,30h           {get DOS version number}
  17.   int       21h
  18. end;
  19.  
  20. begin
  21.   if DosMajor < 4 then begin
  22.     WriteLn('This program requires DOS 4 or greater.');
  23.     Halt;
  24.   end;
  25.   WriteLn('This machine booted from drive ', GetBootDrive, ':');
  26. end.
  27.