[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]

    {
    WIM VAN VOLLENHOVEN

    >No, I'm looking for an generic CD-ROM detection routine.
    >Thought it was some subfunction of int 2Fh. Don't know if it detected
    >the presence of a CD-Rom, or the presence of MSCDEX.
    }
    Uses
      Dos;

    Var
      Regs : Registers;

    Procedure IsCDRom;
    begin
       Regs.AX := $1500;
       Regs.BX := $0000;
       Regs.CX := $0000;
       Intr( $2F, Regs);
       writeln('CD Available : ', (Regs.BX > 0));
    end;

    begin
      IsCDRom;
    end.

[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]