unit absdisk;
{$I-,R-,S-,V-}

interface
const unitID: string[20] = 'absdisk #1.0 (wiz.)'#0;
procedure diskread (var buf; drive, sector, count: word);
procedure diskwrite(var buf; drive, sector, count: word);

implementation
procedure diskread (var buf; drive, sector, count: word); assembler;
asm
	push	ds
	lds	bx,buf
	mov	dx,sector
	mov	cx,count
	mov	al,byte ptr drive
	int	25h
	pop	ax
	pop	ds
end;

procedure diskwrite(var buf; drive, sector, count: word); assembler;
asm
	push	ds
	lds	bx,buf
	mov	dx,sector
	mov	cx,count
	mov	al,byte ptr drive
	int	26h
	pop	ax
	pop	ds
end;

end.