home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
Geneve
/
9640news
/
CAT10
/
CLOCKMBP.ARK
< prev
next >
Wrap
Text File
|
2006-10-19
|
3KB
|
77 lines
?
/**************************************************************************
* This c99 program shows how to access the MBP kit with this language. *
* It was developed using Edition 2 : 86/04/01 of c99 developed by *
* Clint Pulley. c99 is available from: *
* Clint Pulley *
* 38 Townsend Avenue *
* Burlington, Ontario *
* *
* The MBP Clock/Calendar - Analog to Digital Converter Kit is *
* available from: *
* Disk Only Software *
* P.O. Box 4170 *
* Rockville, MD 20850 *
* *
**************************************************************************/
#define MOADD -31154 /* hardware address of month */
#define DATEADD -31156 /* " " " date */
#define DAYADD -31158 /* " " " day */
#define HOURADD -31160 /* " " " hour */
#define MINADD -31162 /* " " " minute */
#define SECADD -31164 /* " " " second */
extern printf();
main()
{
int mbp[6]; /* data vector */
int *mbpptr; /* vector pointer */
int temp;
putchar(12);
for(;;) /* loop forever */
{
mbpptr = MOADD; /* G */
mbp[0] = *mbpptr; /* E D */
mbpptr = DATEADD; /* T A */
mbp[1] = *mbpptr; /* T */
mbp[2] = 86; /* A */
mbpptr = HOURADD;
mbp[3] = *mbpptr;
mbpptr = MINADD;
mbp[4] = *mbpptr;
mbpptr = SECADD;
mbp[5] = *mbpptr;
for(temp=0;temp<6;++temp)
{
mbp[temp] = mbp[temp] & 255; /* good data only in right hand byte */
/* printf("mbp[%d] = %d\n",temp,mbp[temp]); */
}
for (temp=0;temp<6;++temp) /* convert data from binary coded decimal */
if (temp !=2 ) /* to integer */
mbp[temp] = BCDtoINT(mbp[temp]);
locate(8,10);
printf ("%d/%d/%d\n\n",mbp[0],mbp[1],mbp[2]); /* print date */
locate(12,10);
printf ("%d:%d:%d\n\n\n",mbp[3],mbp[4],mbp[5]); /* print time */
}
} /* end of main */
BCDtoINT(x) /* function to convert BCD to integer */
int x;
{
x = x - 6*(x/16);
return(x);
}
Download complete. Turn off Capture File.