home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / EVENT.ZIP / PROCPARM.P < prev   
Encoding:
Text File  |  1986-08-24  |  696 b   |  26 lines
  1.  
  2. {                        Version 1.0                   86/05/09
  3.  This is the "glue" that is $Included in your program to allow you to
  4.  use the PARM.BIN routines in your program }
  5.  
  6. CONST   NEAR    =  0;
  7.         FAR     =  5;
  8.         FAROfs  = $D;
  9.  
  10. TYPE ProcPtr = integer;
  11.      FarProcPtr = ^integer;
  12.  
  13. PROCEDURE  ProcParm; EXTERNAL 'PROCPARM.BIN';
  14.  
  15. PROCEDURE OffsetProc(p:FarProcPtr; Offset:integer); EXTERNAL ProcParm [FAROfs];
  16.  
  17.  
  18. FUNCTION AddrOffset(p:FarProcPtr; Offset:integer):FarProcPtr;
  19.   { calculate  p + Offset }
  20.   var proc : record ofs, seg : integer; end absolute p;
  21.   begin
  22.     with proc do begin
  23.       ofs := ofs + Offset;
  24.     end;
  25.     AddrOffset := p;
  26.   end;