1 /*
2 
3 Based on the SG C Tools 1.7
4 (C) 1993 Steve Goldsmith
5 
6 $Id: todstrcia.c,v 1.1 2008-06-23 17:34:35 stefano Exp $
7 
8 */
9 
10 #include <stdlib.h>
11 #include <c128/cia.h>
12 
13 /* convert cia tod bcd format to string */
14 
todstrcia(uchar * TOD,char * TODStr)15 void todstrcia (uchar *TOD, char *TODStr)
16 {
17   if((TOD[0] & 0x80) == 0)
18   {
19     todcharcia(TOD[0],&TODStr[0]);
20     TODStr[9] = 'A';
21   }
22   else
23   {
24     todcharcia((TOD[0] & 0x7F),&TODStr[0]);
25     TODStr[9] = 'P';
26   }
27   TODStr[8] = ' ';
28   TODStr[10] = 'M';
29   TODStr[2] = ':';
30   todcharcia(TOD[1],&TODStr[3]);
31   TODStr[5] = ':';
32   todcharcia(TOD[2],&TODStr[6]);
33   //TODStr[sizeof(ciaTODStr)-1] = 0;
34   TODStr[11] = 0;
35 }
36 
37