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 / ENTERPRS / CPM / UTILS / S / SGTOOL13.ARC / CIA.ARC / CIATODST.C < prev   
C/C++ Source or Header  |  1993-08-28  |  777b  |  43 lines
  1. /*
  2. SG C Tools 1.3
  3.  
  4. (C) 1993 Steve Goldsmith
  5. All Rights Reserved
  6.  
  7. Compiled with HI-TECH C 3.09 (CP/M-80).
  8. */
  9.  
  10. #include <hitech.h>
  11. #include <cia.h>
  12.  
  13. /* convert bcd byte to 2 char base 10 */
  14.  
  15. void todcharcia (uchar Bcd, char *TODStr)
  16. {
  17.   TODStr[0] = (Bcd >> 4)+48;
  18.   TODStr[1] = (Bcd & 0x0F)+48;
  19. }
  20.  
  21. /* convert cia tod bcd format to string */
  22.  
  23. void todstrcia (uchar *TOD, char *TODStr)
  24. {
  25.   if((TOD[0] & 0x80) == 0)
  26.   {
  27.     todcharcia(TOD[0],&TODStr[0]);
  28.     TODStr[9] = 'A';
  29.   }
  30.   else
  31.   {
  32.     todcharcia((TOD[0] & 0x7F),&TODStr[0]);
  33.     TODStr[9] = 'P';
  34.   }
  35.   TODStr[8] = ' ';
  36.   TODStr[10] = 'M';
  37.   TODStr[2] = ':';
  38.   todcharcia(TOD[1],&TODStr[3]);
  39.   TODStr[5] = ':';
  40.   todcharcia(TOD[2],&TODStr[6]);
  41.   TODStr[sizeof(ciaTODStr)-1] = 0;
  42. }
  43.