|
@@ -86,8 +86,8 @@ type
|
|
|
{$DEFINE HAS_SETVERIFY}
|
|
{$DEFINE HAS_SETVERIFY}
|
|
|
{$DEFINE HAS_GETVERIFY}
|
|
{$DEFINE HAS_GETVERIFY}
|
|
|
{//$DEFINE HAS_SWAPVECTORS}
|
|
{//$DEFINE HAS_SWAPVECTORS}
|
|
|
-{//$DEFINE HAS_GETINTVEC}
|
|
|
|
|
-{//$DEFINE HAS_SETINTVEC}
|
|
|
|
|
|
|
+{$DEFINE HAS_GETINTVEC}
|
|
|
|
|
+{$DEFINE HAS_SETINTVEC}
|
|
|
{//$DEFINE HAS_KEEP}
|
|
{//$DEFINE HAS_KEEP}
|
|
|
{$DEFINE HAS_GETSHORTNAME}
|
|
{$DEFINE HAS_GETSHORTNAME}
|
|
|
{$DEFINE HAS_GETLONGNAME}
|
|
{$DEFINE HAS_GETLONGNAME}
|
|
@@ -1060,7 +1060,7 @@ end;
|
|
|
--- Get/SetIntVec ---
|
|
--- Get/SetIntVec ---
|
|
|
******************************************************************************}
|
|
******************************************************************************}
|
|
|
|
|
|
|
|
-(*procedure GetIntVec(intno: Byte; var vector: farpointer); assembler;
|
|
|
|
|
|
|
+procedure GetIntVec(intno: Byte; var vector: farpointer); assembler;
|
|
|
asm
|
|
asm
|
|
|
mov al, intno
|
|
mov al, intno
|
|
|
mov ah, 35h
|
|
mov ah, 35h
|
|
@@ -1092,7 +1092,7 @@ asm
|
|
|
lds dx, word [vector]
|
|
lds dx, word [vector]
|
|
|
int 21h
|
|
int 21h
|
|
|
pop ds
|
|
pop ds
|
|
|
-end;*)
|
|
|
|
|
|
|
+end;
|
|
|
|
|
|
|
|
{******************************************************************************
|
|
{******************************************************************************
|
|
|
--- Keep ---
|
|
--- Keep ---
|
nickysn