DP Tool Club 18/CD_ASCQ_18_111294_W.iso/dos/prg/pas/gpro105/gri.pas

Pascal/Delphi Source File | 1994-10-24 | 2KB | 95 lines

{ GRI.pas :  unité Pascal d'interfaçage entre PASCAL et GRI    }
{ Les diverses fonctions et procedures ne font qu'appeler GRI  }
{ Pour les valeurs retournées par les fonctions, voir GPRO.DOC }
{ (c) 1994 Guillaume PERNOT                                    }


unit GRI;

Interface

const StopProcess:word=0;            { Valeurs pour StopChrono }
      ContinueProcess:word=1;

function GRI_StartChrono:word;
function GRI_StopChrono(Time:word):word;
procedure GRI_Int3Call;
procedure GRI_PlanteSys;
function GRI_CheckInstall:word;
function GRI_FindDebugger(reaction:word):word;
procedure GRI_StopDebugger;
procedure GRI_NOP;
function GRI_CheckSum:word;

Implementation

function GRI_StartChrono:word;assembler;
asm
   mov  ax,4400h
   xor  bx,bx
   int  3
end;

function GRI_StopChrono(Time:word):word;assembler;
asm
   mov  ax,4403h
   mov  bx,1
   mov  cx,[Time]
   int  3
end;

procedure GRI_Int3Call;assembler;
asm
   mov  ah,3eh
   mov  bx,2
   int  3
end;

procedure GRI_PlanteSys;assembler;
asm
   mov  ax,4c01h
   mov  bx,3
   int  3
end;

function GRI_CheckInstall:word;assembler;
asm
   xor  ax,ax
   mov  bx,4
   int  3
end;

function GRI_FindDebugger(reaction:word):word;assembler;
asm
   mov  ax,[reaction]
   mov  bx,5
   int  3
   mov  ax,bx
end;

procedure GRI_StopDebugger;assembler;
asm
   mov  bx,6
   int  3
end;

procedure GRI_NOP;assembler;
asm
   mov  bx,7
   int  3
end;

function GRI_CheckSum;assembler;
asm
   int  60h
   int  0ebh
   int  0ebh
   db   0
end;

begin
end.