... what's your application, if you 
Tweet
Type DiskBuffer
Info AS STRING * 512
End Type
Type DriveParameters
Size AS WORD
InformationFlagTable AS WORD
CylindersTotal AS DWORD
HeadsTotal AS DWORD
SectorsPerTrack AS DWORD
SectorsTotal AS QUAD
BytesPerSector AS WORD
End Type
TYPE XInt13BufferStructure
PacketSize AS BYTE
Reserved AS BYTE
BlocksToTransfer AS WORD
TransferBuffer AS BYTE PTR
StartingBlock AS QUAD
END TYPE
%FALSE = 0
%TRUE = NOT %FALSE
$INCLUDE "REGNAMES.INC"
DIM DI AS DriveParameters
DIM GetBack AS DiskBuffer
CLS
Int13_Parameter &H0080, DI
PRINT DI.Size;" Buffer Size"
Temp% = LEN(BIN$(DI.InformationFlagTable))
PRINT STRING$(8-Temp%, "0");BIN$(DI.InformationFlagTable);" Flag Table"
PRINT DI.CylindersTotal;" Total Cylinders"
PRINT DI.HeadsTotal;" Heads Total "
PRINT DI.SectorsPerTrack;" SectorsPerTrack"
PRINT DI.BytesPerSector;" BytesPerSector"
PRINT CQUD(DriveInfo.SectorsTotal)
X&& = DI.CylindersTotal * DI.HeadsTotal * DI.SectorsPerTrack * DI.BytesPerSector
PRINT X&&; "Bytes Total"
FOR I&& = 1024 TO 1025
Int13_READ &H0080, GetBack, I&&
PRINT GetBack.Info
NEXT I&&
END
FUNCTION Int13_Check(DriveNum AS INTEGER)
REG %AX, &H4100
REG %BX, &H55AA
REG %DX, DriveNum
CALL INTERRUPT 13
FLAGM?? = REG(%FLAGS)
ACCUM?? = REG(%AX)
BASEM?? = REG(%BX)
COUNT?? = REG(%CX)
DATAM?? = REG(%DX)
IF BIT(FLAGM??, 0) = 1 THEN
FUNCTION = %FALSE
EXIT FUNCTION
END IF
SHIFT RIGHT ACCUM??, 8
FUNCTION = %TRUE
END FUNCTION
SUB Int13_READ(DriveNum AS INTEGER, Sector AS DiskBuffer, SectorNumber AS QUAD)
DIM XInt13Buffer AS XInt13BufferStructure
XInt13Buffer.PacketSize = &H10
XInt13Buffer.Reserved = &H00
XInt13Buffer.BlocksToTransfer = 1
XInt13Buffer.TransferBuffer = VARPTR32(Sector)
XInt13Buffer.StartingBlock = SectorNumber
REG %AX, &H4200
REG %DX, DriveNum '&H0080
REG %DS, VARSEG(XInt13Buffer)
REG %SI, VARPTR(XInt13Buffer)
CALL INTERRUPT &H13
END SUB
SUB Int13_WRITE(DriveNum AS INTEGER, Sector AS DiskBuffer, SectorNumber AS QUAD)
DIM XInt13Buffer AS XInt13BufferStructure
'Initialize Buffer Information For Write
XInt13Buffer.PacketSize? = &H10
XInt13Buffer.Reserved? = &H00
XInt13Buffer.BlocksToTransfer?? = 1
XInt13Buffer.TransferBuffer = VARPTR32(Sector)
XInt13Buffer.StartingBlock&& = SectorNumber&&
REG %AX,&H4300
REG %DX, DriveNum
' REG %DX,&H0080
'Load Segment Pointer For Disk Address Packet Buffer Into DS Register
REG %DS,VARSEG(XInt13Buffer)
'Load Offset Pointer For Disk Address Packet Buffer Into SI Register
REG %SI,VARPTR(XInt13Buffer)
CALL INTERRUPT &H13
END SUB
SUB Int13_SEEK(DriveNum AS INTEGER, Sector AS DiskBuffer, SectorNumber AS QUAD)
DIM XInt13Buffer AS XInt13BufferStructure
'Initialize Buffer Information For Write
XInt13Buffer.PacketSize? = &H10
XInt13Buffer.Reserved? = &H00
XInt13Buffer.BlocksToTransfer?? = 1
XInt13Buffer.TransferBuffer = VARPTR32(Sector)
XInt13Buffer.StartingBlock&& = SectorNumber&&
REG %AX,&H4700
REG %DX, DriveNum
' REG %DX,&H0080
'Load Segment Pointer For Disk Address Packet Buffer Into DS Register
REG %DS,VARSEG(XInt13Buffer)
'Load Offset Pointer For Disk Address Packet Buffer Into SI Register
REG %SI,VARPTR(XInt13Buffer)
CALL INTERRUPT &H13
END SUB
SUB Int13_VERIFY(DriveNum AS INTEGER, Sector AS DiskBuffer, SectorNumber AS QUAD)
DIM XInt13Buffer AS XInt13BufferStructure
'Initialize Buffer Information For Write
XInt13Buffer.PacketSize? = &H10
XInt13Buffer.Reserved? = &H00
XInt13Buffer.BlocksToTransfer?? = 1
XInt13Buffer.TransferBuffer = VARPTR32(Sector)
XInt13Buffer.StartingBlock&& = SectorNumber&&
REG %AX,&H4400
REG %DX, DriveNum
' REG %DX,&H0080
'Load Segment Pointer For Disk Address Packet Buffer Into DS Register
REG %DS,VARSEG(XInt13Buffer)
'Load Offset Pointer For Disk Address Packet Buffer Into SI Register
REG %SI,VARPTR(XInt13Buffer)
CALL INTERRUPT &H13
END SUB
SUB Int13_PARAMETER(DriveNum AS INTEGER, DriveInfo AS DriveParameters)
DriveInfo.size = SIZEOF(DriveInfo)
REG %AX, &H4800
REG %DX, DriveNum
REG %DS, VARSEG(DriveInfo)
REG %SI, VARPTR(DriveInfo)
CALL INTERRUPT &H13
END SUB
Comment