source: buchla-68k/orig/IOLIB/VSETPAL.C@ 0170798

/*
   =============================================================================
        vsetpal.c -- Buchla 700 color palette setup
        Version 2 -- 1987-11-20 -- D.N. Lynx Crowe
   =============================================================================
*/

#define PALETTE         ((unsigned *)0x280000L)

short   dfltpal[16][3] = {

/*       R  G  B          color */

        {0, 0, 0},      /*  0: Black */
        {0, 1, 0},      /*  1: Dark Gray */
        {0, 0, 2},      /*  2: Dark Blue */
        {0, 0, 3},      /*  3: Light Blue */
        {0, 2, 0},      /*  4: Dark Green */
        {0, 3, 0},      /*  5: Light Green */
        {0, 2, 2},      /*  6: Dark Cyan */
        {0, 3, 3},      /*  7: Light Cyan */
        {3, 0, 0},      /*  8: Red */
        {3, 1, 0},      /*  9: Orange */
        {3, 0, 3},      /* 10: Purple */
        {3, 1, 2},      /* 11: Magenta */
        {3, 2, 0},      /* 12: Brown */
        {2, 3, 0},      /* 13: Yellow */
        {2, 2, 2},      /* 14: Light Gray */
        {3, 3, 3},      /* 15: White */
};

/* 

*/

/*
   =============================================================================
        vsetpal() -- set a palette RAM entry to a specific color

        slot    0..15   color entry number
        red     0..3    red value
        grn     0..3    green value
        blu     0..3    blue value
   =============================================================================
*/

vsetpal(slot, red, grn, blu)
register unsigned slot, red, grn, blu;
{
        register unsigned palval;
        unsigned *pal;

        pal = PALETTE;

        palval = (slot << 6) |
                 ((red & 1) << 5) | ((red & 2) << 1) |
                 ((grn & 1) << 4) | (grn & 2) |
                 ((blu & 1) << 3) | ((blu & 2) >> 1);

        *pal = palval ^ 0x003F;
}

/* 

*/

/*
   =============================================================================
        vsndpal() -- send a palette table to the video palette RAM

        pp      pointer to a short [16][3] array,

                where:
                        pp[n][0]        = blue value
                        pp[n][1]        = green value
                        pp[n][2]        = red value

                                n       = slot number (0..15)
   =============================================================================
*/

vsndpal(pp)
short pp[16][3];
{
        register short i;

        for (i = 0; i < 16; i++)
                vsetpal(i, pp[i][0], pp[i][1], pp[i][2]);
}