home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c220 / 4.ddi / LIB / SRC / SYSTEM5.P < prev    next >
Encoding:
Text File  |  1990-12-16  |  1.0 KB  |  30 lines
  1. {*********************************************************************
  2. (C) Copyright 1983,84,85 MetaWare Incorporated;  Santa Cruz, CA 95060.
  3. *********************************************************************}
  4. Export(System,MSDOS,Fileh_type);
  5. pragma include('SYSTEM.pf');
  6. pragma include('MSDOS.pf');
  7. pragma fragmented_implementation(System);
  8. pragma fragmented_implementation(MSDOS);
  9.  
  10. program Implement_DOS_interface;
  11. pragma Alias(Implement_DOS_interface,Implement.RTE || 'dos_interface5');
  12. pragma off(emit_names); pragma on(optimize_for_space);
  13.  
  14. with Registers;
  15. with Loopholes:[Address,Adr,Retype,&];
  16.  
  17. function Lseek_(F: File_handle; Loc: Longint; Method: Seek_method):
  18.          Longint;
  19.    type Long_register = record Lo,Hi: Register; end;
  20.    begin
  21.    BX.R := F; AX.L := Ord(Method);
  22.    CX := Retype(Loc,Long_register).Hi;
  23.    DX := Retype(Loc,Long_register).Lo;
  24.    DOS(66);
  25.    Retype(Lseek_,Long_register).Hi := DX;
  26.    Retype(Lseek_,Long_register).Lo := AX;
  27.    end;
  28.  
  29. -- (C) Copyright 1983,84,85 MetaWare Incorporated;  Santa Cruz, CA 95060.
  30.