home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1991
/
number6
/
bootdriv.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-12-16
|
703b
|
27 lines
program BootDriv;
{-Display drive machine booted from. Requires DOS 4.0 or greater.}
function GetBootDrive : Char; Assembler;
{-Return boot drive letter.}
asm
mov ah,52h {get DOS list of lists}
int 21h
mov al,es:[bx+43h] {boot drive at offset 43}
add al,64 {convert to letter}
end;
function DosMajor : Byte; Assembler;
{-Return major DOS version number.}
asm
mov ah,30h {get DOS version number}
int 21h
end;
begin
if DosMajor < 4 then begin
WriteLn('This program requires DOS 4 or greater.');
Halt;
end;
WriteLn('This machine booted from drive ', GetBootDrive, ':');
end.