##base _DiskBase
##bias 6
##public
AllocUnit(unitNum)(d0)
FreeUnit(unitNum)(d0)
GetUnit(unitPointer)(a1)
GiveUnit()()
GetUnitID(unitNum)(d0)
*------ new for V37 ------
ReadUnitID(unitNum)(d0)
##end
