home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / ROS / ROSMAC.LBR / RTC820-2.INC < prev    next >
Text File  |  2000-06-30  |  1KB  |  36 lines
  1. { ROSMAC.INC - Remote Operating System Machine Dependent Routines }
  2.  
  3.      {** Time and date routines - Xerox 820-II code by Steve Fox }
  4.  
  5. function find_clock: integer; external $F039;
  6. { Find the address of the 820's clock buffer which stores system time
  7.   in the following order:
  8.     day, month, year, hour, minute, second. }
  9.  
  10. procedure GetTAD(var t: tad_array);
  11. { Return a 6 element byte array of the current system time in
  12.     seconds, minutes, hours, day, month, and year. }
  13.   var
  14.     clock: integer;
  15.   begin
  16.     clock := find_clock;
  17.     t[0] := mem[clock + 5];
  18.     t[1] := mem[clock + 4];
  19.     t[2] := mem[clock + 3];
  20.     move(clock, t[3], 3)
  21.   end;
  22.  
  23. procedure SetTAD(var t: tad_array);
  24. { Set the system time using a 6 element byte array which contains
  25.     seconds, minutes, hours, day, month, and year. }
  26.   var
  27.     clock: integer;
  28.   begin
  29.     clock := find_clock;
  30.     mem[clock + 5] := t[0];
  31.     mem[clock + 4] := t[1];
  32.     mem[clock + 3] := t[2];
  33.     move(t[3], clock, 3)
  34.   end;
  35.  
  36.