mirror of
https://github.com/cc65/cc65.git
synced 2024-10-31 20:06:11 +00:00
145 lines
2.9 KiB
C
145 lines
2.9 KiB
C
|
// --------------------------------------------------------------------------
|
||
|
// 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;
|
||
|
}
|