DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦1afd746cc⟧ TextFile

    Length: 402 (0x192)
    Types: TextFile
    Notes: UNIX file
    Names: »book.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦0a3c255ba⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »graphics/book.c«

TextFile

#define TRUE 0xFF
#define ENABLE 0x0F
#define INDEXREG 0x3Ce

#define WIDTH 80L
#define XMAX 636
#define YMAX 199
#define XMIN 0
#define YMIN 0

points(x, y, xolor)
int x, y, color;
{
unsigned char mask = 0x80, exist_color;
char *base

if (x < XMIN || x > XMAX || y < YMIN || y > YMAX)
	return(-1);

base = (char *)(BASE + ((long)y * WIDTH + ((long)x / 8L)));

mask >>= x % 8

*base = *base | mask;

}