home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c221 / 5.ddi / MWHC.005 / Z3 < prev   
Encoding:
Text File  |  1992-12-09  |  1.0 KB  |  30 lines
  1. {*********************************************************************
  2. (C) Copyright 1983-92 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):Longint;
  18.    type Long = record Lo,Hi: Cardinal; end;
  19.    begin
  20.    BX.R := F; AX.L := Ord(Method);
  21.    CX.R := Retype(Loc,Long).Hi;
  22.    DX.R := Retype(Loc,Long).Lo;
  23.    DOS(66);
  24.    Retype(Lseek_,Long).Hi := DX.R;
  25.    Retype(Lseek_,Long).Lo := AX.R;
  26.    end;
  27.  
  28. -- (C) Copyright 1983,84,85 MetaWare Incorporated;  Santa Cruz, CA 95060.
  29.  
  30.