paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 18:19:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented dos.GetIntVec and SetIntVec for i8086-msdos

Browse Source 
git-svn-id: trunk@24720 -
This commit is contained in:
nickysn 2013-06-01 14:32:03 +00:00
parent cb81153cc4
commit 896d2f2bd5
2 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/dosh.inc
View File

@ -134,8 +134,8 @@ Procedure SetVerify(verify: boolean);
{Do Nothing Functions}
Procedure SwapVectors;
Procedure GetIntVec(intno: byte; var vector: pointer);
Procedure SetIntVec(intno: byte; vector: pointer);
Procedure GetIntVec(intno: byte; var vector: {$ifdef i8086}farpointer{$else}pointer{$endif});
Procedure SetIntVec(intno: byte; vector: {$ifdef i8086}farpointer{$else}pointer{$endif});
Procedure Keep(exitcode: word);
{Additional (non-TP) function for quick access to system timer - for FV etc.}

29
rtl/msdos/dos.pp
View File

@ -14,6 +14,7 @@
**********************************************************************}
{$inline on}
{$asmmode intel}
unit dos;
@ -86,6 +87,8 @@ type
{$DEFINE HAS_SETVERIFY}
{$DEFINE HAS_GETVERIFY}
{$DEFINE HAS_SWAPVECTORS}
{$DEFINE HAS_GETINTVEC}
{$DEFINE HAS_SETINTVEC}
{$DEFINE HAS_GETSHORTNAME}
{$DEFINE HAS_GETLONGNAME}
@ -925,6 +928,32 @@ begin
end;
end;
{******************************************************************************
--- Get/SetIntVec ---
******************************************************************************}
procedure GetIntVec(intno: Byte; var vector: farpointer); assembler;
asm
mov al, intno
mov ah, 35h
int 21h
xchg ax, bx
mov bx, vector
mov [bx], ax
mov ax, es
mov [bx + 2], ax
end;
procedure SetIntVec(intno: Byte; vector: farpointer); assembler;
asm
push ds
mov al, intno
mov ah, 25h
lds dx, word [vector]
int 21h
pop ds
end;
{$ifdef DEBUG_LFN}
begin
LogLFN:=(GetEnv('LOGLFN')<>'');