this is pr #2194 - removed ramfont.o

samples/kim1/kimLife.c

@@ -0,0 +1,144 @@
+// --------------------------------------------------------------------------
+// Conway's Game of Life for KIM-1
+//
+// Assumes the MTU Visible Memory Board mapped at 0x8000 for 8K of video RAM
+//
+// Dave Plummer on a rainy Thursday
+//
+// davepl@davepl.com
+// --------------------------------------------------------------------------
+
+#include <stdio.h>                  // For printf
+#include <stdlib.h>                 // For rand, srand
+#include <string.h>                 // For memcpy
+
+typedef unsigned char byte;
+
+// World size
+
+#define WIDTH      320
+#define HEIGHT     200
+#define NUMBITS  64000
+#define NUMBYTES  8000
+#define DENSITY     50
+
+// Screen memory is placed at 8000, our world copy at A000, and they use the same layout so
+// that we can memcpy from one to the other without translating
+
+byte * world     = (byte *) 0x8000;
+byte * new_world = (byte *) 0xA000;
+
+// BITARRAY
+//
+// Access individual bits in a block of memory
+
+// Access to the screen bitmap
+
+byte GETBIT(byte *p, int n)
+{
+   return (p[n >> 3] & (1 << (n & 7))) ? 1 : 0;
+}
+
+void SETBIT(byte *p, int n)
+{
+   p[n >> 3] |=  (1 << (n & 7));
+}
+
+void CLRBIT(byte *p, int n)
+{
+   p[n >> 3] &= ~(1 << (n & 7));
+}
+
+void SETPIXEL(byte * p, int x, int y, byte b)
+{
+   if (b)
+      SETBIT(p, y * WIDTH + x);
+   else
+      CLRBIT(p, y * WIDTH + x);
+}
+
+byte GETPIXEL(byte *p, int x, int y)
+{
+   return GETBIT(p, y * WIDTH + x);
+}
+
+// RandomFillWorld
+//
+// Populates the initial world with random cells
+
+void RandomFillWorld()
+{
+   int x, y;
+
+   // I need a better way to see the RNG or it'll be the same game every time!
+   srand(0);
+   for (x = 0; x < WIDTH; x++)
+   {
+      for (y = 0; y < HEIGHT; y++)
+      {
+         byte b = ((rand() % 100) < DENSITY) ? 1 : 0;
+         SETPIXEL(world, x, y, b);
+      }
+   }
+}
+
+// CountNeighbors
+//
+// Count the number of live cells around the given spot, excluding the actual spot specified
+
+int CountNeighbors(int x, int y)
+{
+   int i, j, nx, ny, count = 0;
+
+   for (j = -1; j <= 1; j++)
+   {
+      for (i = -1; i <= 1; i++)
+      {
+         if (i != 0 || j != 0)
+         {
+            nx = (x + i + WIDTH) % WIDTH;
+            ny = (y + j + HEIGHT) % HEIGHT;
+            count += GETPIXEL(world, nx, ny) ? 1 : 0;
+         }
+      }
+   }
+   return count;
+}
+
+// UpdateWorld
+//
+// Applies the rules of Conway's Game of Life to the cells
+
+void UpdateWorld()
+{
+   int x, y;
+
+   for (y = 0; y < HEIGHT; y++)
+   {
+       for (x = 0; x < WIDTH; x++)
+       {
+         int neighbors = CountNeighbors(x, y);
+         if (GETPIXEL(world, x, y))
+            SETPIXEL(new_world, x, y, (neighbors == 2 || neighbors == 3));
+         else
+            SETPIXEL(new_world, x, y, (neighbors == 3));
+       }
+   }
+}
+
+int main (void)
+{
+   printf("\r\nStarting Conway's Game of Life: Randomizing World...\r\n");
+   RandomFillWorld();
+   printf("World Ready, Running!\r\n");
+
+   for (;;)
+   {
+      UpdateWorld();
+      printf("[");
+      memcpy(world, new_world, NUMBYTES);
+      printf("]");
+   }
+
+   return 0;
+}