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)15void 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