func.pas

   1 unit func;
   2
   3 interface
   4
   5 procedure farjump(eip, cs: integer);
   6 procedure load_tr(tr: integer);
   7
   8 implementation
   9
  10 procedure farjump(eip, cs: integer);
  11 begin
  12
  13 end;
  14
  15 procedure load_tr(tr: integer);
  16 begin
  17
  18 end;
  19
  20 end.