home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / pcwk_09_96.iso / demo / wgelectr / pk51demo / files.2 / EXAMPLES / WHETS / TIME.C < prev    next >
C/C++ Source or Header  |  1995-06-08  |  695b  |  35 lines
  1. /*------------------------------------------------------------------------------
  2. TIME.C:  Time Function for DHRYSTONE and WHEATSTONE Benchmarks
  3.  
  4. Copyright 1995 KEIL Software, Inc.
  5. ------------------------------------------------------------------------------*/
  6.  
  7. #include <reg51.h>
  8.  
  9. long timeval;
  10.  
  11. timerint () interrupt 1 {
  12.   TH0 = -250;             /* 125 Hz at 12 MHz 8051 */
  13.   timeval++;
  14. }
  15.  
  16. long time (long *t)  {
  17.   long tval;
  18.  
  19.   t = (long *) 0;
  20.   EA   = 0;
  21.   tval = timeval;
  22.   IE   = 0x82;
  23.   TR0  = 1;
  24.   return (tval);
  25. }
  26.  
  27.  
  28. initserial ()  {
  29.   SCON = 0x52;    /* SCON */
  30.   TMOD = 0x20;    /* TMOD */
  31.   TCON = 0x69;    /* TCON */
  32.   TH1 =  0xf3;    /* TH1 */
  33. }
  34.  
  35.