home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s220 / 2.ddi / EXAMPLE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-09-14  |  4.0 KB  |  114 lines
  1. /* EXAMPLE.C:  Some sample code for the Archimedes C-51 compiler kit.
  2.  * See the file EXAMPLE.DOC and the Tutorial Introduction to the 
  3.  * manual for more information.  Revised 9-14-87, VC.  */
  4.  
  5. #include <stdio.h>      /* required header for printf, putchar */
  6. #include <io51.h>       /* required header for output, bit_set, etc. */
  7.  
  8. #define TRUE 1
  9. #define FALSE 0
  10. #define BELL 7          /* ASCII terminal bell */
  11.  
  12. /* The following is a function prototype for the assembly
  13.  * language routine, pulse.  See the source file PULSE.S03 */
  14.  
  15. extern int pulse(int count, char value);
  16.  
  17.  
  18. /* ------------------------------------------------------------ */
  19. void set_timer()   /* initialize Timer 0 to generate interupts */
  20. { 
  21.   output(TMOD,1);       /* Timer-0: mode 1 (16-bit timer) */
  22.   output(TH0,0x4C);     /* load 4C00h for interrupt every 50 ms */
  23.   output(TL0,0);
  24.   set_bit(TR0_bit);        /* set Timer 0 run control bit */
  25.   set_bit(ET0_bit);        /* set interrupt mask bit ET0 */
  26.   set_bit(EA_bit);        /* enable interrupts bit EA */
  27. }
  28.  
  29.  
  30. /* ------------------------------------------------------------ */
  31. void ring_bell()   /* Timer-0 interrupt handler, rings the CRT
  32.                     * bell approximately every 3 seconds; called
  33.                     * from vector in CSTARTUP module */
  34. {
  35.   static int intr_ctr = 0;  /* counter for number of interrupts */
  36.  
  37.   output(TH0,0x4C);     /* reload timer again, hi byte */
  38.   output(TL0,0);        /* low byte */
  39.   if(++intr_ctr == 60)  /* only do every 60 interrupts */
  40.   {
  41.     putchar(BELL);      /* ring the bell, or do some useful task */
  42.     intr_ctr = 0;
  43.   }
  44. }
  45.  
  46.  
  47. /* ------------------------------------------------------------ */
  48.  
  49. #define BIT_VAR 0    /* 1st bit address in internal RAM (20.0 hex) */
  50.  
  51. void do_io()      /* demonstrate 8051 I/O functions */
  52. { 
  53.   char c;
  54.  
  55.     /* write and read Port 1 */
  56.   output(P1,0x0F);
  57.   printf("\nPort 1: %02X\n",input(P1));
  58.     /* Write and read an absolute external data address,
  59.      * such as a UART or other memory-mapped I/O device.  
  60.      * "(char *)" casts the int constant to a char pointer. */
  61.   *(char *)0xE000 = c;      /* write */
  62.   c = *(char *)0xE000;   /* read */
  63.   c = read_XDATA(0xE00);    /* another way, for SMALL model */
  64.   printf("Data at E000h = %02Xh\n",c);
  65.     /* read a byte of CODE memory */
  66.   printf("Location 0 in code memory is: %02X",read_CODE(0));
  67.     /* show use of bit-addressable RAM variables */
  68.   if(read_bit(P1_0_bit) || read_bit(P1_1_bit))
  69.     set_bit(BIT_VAR);    
  70. }
  71.  
  72. /* ------------------------------------------------------------
  73.  * Eratosthenese Sieve program from BYTE, 1/83  */
  74.  
  75. #define SIZE 8190        /* size of array for sieve routine */
  76. char flags[SIZE+1];     /* array for sieve */
  77.  
  78. void sieve()  
  79. {
  80.   register int i,k;     /* register class NOT supported -- ignored */
  81.   int prime,count,iter;
  82.  
  83.   printf("\nSieve: 10 iterations...\n");
  84.   for (iter = 1; iter <= 10; iter++)        /* do program 10 times */
  85.   {
  86.     count = 0;          /* initialize prime counter */
  87.     for (i = 0; i <= SIZE; i++)   /* set all flags true */
  88.       flags[i] = TRUE;
  89.     for (i = 0; i <= SIZE; i++)
  90.     {
  91.       if (flags[i])     /* found a prime */
  92.       {
  93.         prime = i + i + 3;        /* twice index + 3 */
  94.         for (k = i + prime; k <= SIZE; k += prime)
  95.           flags[k] = FALSE;       /* kill all multiples */
  96.         count++;        /* primes found */
  97.         }
  98.       }
  99.   }
  100.   printf("%d primes, sieve done.\n",count); /* found in 10th pass */
  101. }
  102.  
  103. /* ------------------------------------------------------------ */
  104. void main()   /* Main EXAMPLE.C program */
  105. {
  106.   printf("EXAMPLE.C sample program.\n");
  107.   set_timer();          /* turn on timer and interrupts */
  108.   printf("Timer enabled, bell should ring every 3 seconds.\n\n");
  109.   do_io();               /* display RAM, Port1, etc. */
  110.   printf("\nPulsing Port 1.7 (8051 pin 8)\n");
  111.   pulse(200,0xA5);      /* call assembler routine pulse P1 */
  112.   sieve();              /* do the Sieve benchmark */
  113. }
  114.