'===========================================================================
' Subject: DISABLE/ENABLE DRIVE              Date: Unknown Date           
' Author:  Dave Navarro, Jr.                 Code: PB                     
' Origin:  dave@powerbasic.com             Packet: DISK.ABC
'===========================================================================
'Disables/Enables the specified drive.  DOS 5+ ONLY.
'Drive = (0 = A:, 1 = B:, etc.)
'
'Public Domain source by Dave Navarro, Jr.


SUB DisableDrive(BYVAL Drive AS INTEGER) PUBLIC

  ! push DS
  ! mov  DX, Drive
  ! mov  AX, &H5F08
  ! int  &H21
  ! pop  DS

END SUB

SUB EnableDrive(BYVAL Drive AS INTEGER) PUBLIC

  ! push DS
  ! mov  DX, Drive
  ! mov  AX, &H5F07
  ! int  &H21
  ! pop  DS

END SUB