home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c221 / 5.ddi / MWHC.005 / 04 < prev    next >
Encoding:
Text File  |  1992-12-09  |  1.2 KB  |  44 lines
  1. {*********************************************************************
  2. (C) Copyright 1983-1992 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_interface6');
  12.  
  13. with Registers;
  14. with Loopholes:[Address,Adr,Retype,&];
  15. pragma off(emit_names); pragma on(optimize_for_space);
  16.  
  17. procedure Get_date(var Day,Month,Year:Cardinal);
  18.    begin
  19.    DOS(42);
  20.    Year := CX.R;
  21.    Day := DX.L; Month := DX.H;
  22.    end;
  23.  
  24. procedure Get_time(var Hrs, Mins, Secs:Cardinal);
  25.    begin
  26.    DOS(44);
  27.    Hrs := CX.H; Mins := CX.L;
  28.    Secs := DX.H;
  29. -- Hundredths := DX.L;
  30.    end;
  31.  
  32. function Clock:Longint; { Time in 100ths of a second. }
  33.    var L:Longint;
  34.    begin
  35.    DOS(44);
  36.    L := 3600; L := CX.H*L + CX.L*60;
  37.    L := L+DX.H;
  38.    L := 100*L + DX.L;
  39.    Clock := L;
  40.    end;
  41.  
  42. -- (C) Copyright 1983,84,85 MetaWare Incorporated;  Santa Cruz, CA 95060.
  43.  
  44.