'===========================================================================
' 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