// Real Time Clock demo on MT-ARM Boards

main()
{
   int   h,m,s;
   
   writes("RTC Demo", 1000);
   writes("~XCEOL", 0);			// disable the 'clear to end of line' feature of MT LCD 

/*
   writei('d', readsys(11), 1000);      // get year
   writei('d', readsys(12), 1000);      // get month
   writei('d', readsys(13), 1000);      // get day
   writei('d', readsys(17), 1000);      // get DOW
   writei('d', readsys(18), 1000);      // get DOY
*/
/*
   sys(11, 2006);                       // set year, 0..4095 
   sys(12, 10);                         // set month, 1..12 
   sys(13, 02);                         // set day, 1..28~31 
   sys(14, 03);                         // set hours, 0..23 
   sys(15, 29);                         // set minutes, 0..59 
   sys(16, 00);                         // set seconds, 0..59 
   sys(17,  1);                         // set day-of-week, 0..6, Sunday=0
*/
   writec(2, ':', 0);                   // show separator
   writec(5, ':', 0);                   // show separator
   loop {
     h = readsys(14);                   // get hours
     m = readsys(15);                   // get minutes
     s = readsys(16);                   // get seconds
     writec(0, h/10+'0', 0);
     writec(1, h%10+'0', 0);
     writec(3, m/10+'0', 0);
     writec(4, m%10+'0', 0);
     writec(6, s/10+'0', 0);
     writec(7, s%10+'0', 0);
   }
}