paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented do_read for i8086-msdos

Browse Source 
git-svn-id: branches/i8086@24045 -
This commit is contained in:
nickysn 2013-03-28 22:22:47 +00:00
parent 1077093b08
commit d8af51fdab
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/msdos/sysfile.inc
View File

@ -52,7 +52,21 @@ end;
function do_read(h:thandle;addr:pointer;len : longint) : longint;
var
regs: Registers;
begin
regs.AH := $3F;
regs.BX := h;
regs.CX := len;
regs.DS := DSeg;
regs.DX := Word(addr);
MsDos(regs);
if (regs.Flags and FCarry) <> 0 then
begin
GetInOutRes(regs.AX);
exit(0);
end;
do_read := regs.AX;
end;