home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 405.lha / AppleII_Emulators_src / src-2 / ap_rtime.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-28  |  714 b   |  34 lines
  1. #include <cpu_prog_model.h>
  2.  
  3. short real_time( type)
  4. short type;
  5. {
  6.    /* 17:22:48 */
  7.    fortran timdat();
  8.  
  9.    short        array  [28];
  10.    char         buffer [16];
  11.    static short value  [3];
  12.  
  13.    timdat( array, (short) 28);
  14.    sprintf( buffer, "%02d %02d %02d", array [3] / 60,
  15.                                       array [3] % 60,
  16.                                       array [4]);
  17.    sscanf( buffer, "%02hx %02hx %02hx", &value [0],
  18.                                         &value [1],
  19.                                         &value [2]);
  20.    switch (type)
  21.    {
  22.       case SECOND:
  23.          return (value [2]);
  24.  
  25.       case MINUTE:
  26.          return (value [1]);
  27.  
  28.       case HOUR:
  29.          return (value [0]);
  30.    }
  31. }
  32.  
  33.  
  34.