/*****************************************************************************
 *                                                                           *
 *                Archimedes UMoria 5.4.0 Frontend Program                   *
 *                                                                           *
 *     UMoria Port and Frontend by edouard@nacjack.gen.nz (Edouard Poor)     *
 *                                                                           *
 *****************************************************************************/

/* #includes */

#include "kernel.h"    /* in the standard libraries */
#include "swicodes.h"

extern _kernel_oserror * Screen_CurrentNumberOfColours(int *number)
    {
    _kernel_swi_regs  regs;
    _kernel_oserror  *error;

    regs.r[0] = -1;
    regs.r[1] =  3;

    _kernel_swi(SWI_OS_ReadModeVariable, &regs, &regs);

    *number = regs.r[2]+1; /* Is this what we want? */

    return error;
    }
