void main(){
    int tempX10;
    unsigned char data[2];
    // Enable interrupt
    __builtin_enable_interrupts();

    // Initializing 7 seg LED system. 
    led7seg_init(0x00); // No key input
    //led7seg_init(0x01); // Use only RB0 for key input
    //led7seg_init(0x08); // Use only RB3 for key input
    //led7seg_init(0x0f); // Use all RB0-3 for key input

    // Example of initializing ADC. RB0 (AN2) and RB1 (AN3) are used.
    //adc_init((1<<2)|(1<<3));
    
    // Initialize I2C if required
    i2c_init();

    // Infinite loop until reset switch will be pressed
    while(1){
    	// Read temperature (doesn't support below 0 degree)
        // Temperature = (UpperByte x 16 + LowerByte / 16)
    	i2c_write8(0x67,0x00);
    	i2c_read(0x67,(char*)&data[0],2);
    	tempX10=(((int)data[1])*10+8)/16;
    	tempX10+=((int)data[0])*160;
    	// Show temperature
        led7seg_dec4(tempX10);
        led7seg_point(2);
        asm volatile("wait");
    }
}

    int tempX10;
    unsigned char data[2];

    	// Read temperature (doesn't support below 0 degree)
        // Temperature = (UpperByte x 16 + LowerByte / 16)
    	i2c_write8(0x67,0x00);
    	i2c_read(0x67,(char*)&data[0],2);
    	tempX10=(((int)data[1])*10+8)/16;
    	tempX10+=((int)data[0])*160;
    	// Show temperature
        led7seg_dec4(tempX10);
        led7seg_point(2);

// ADC settings
#define VOLUME_COARSE 2
#define VOLUME_FINE 3


void main(){
    int power,select,max;
	// Enable interrupt
	__builtin_enable_interrupts();
    // Initialize LEDs outputs, connected to RA0-RA3. First, all off (output L)
    TRISACLR=LATACLR=0x000F;

    // Initialize 7 seg LED system. Use only RB3 for key input
    led7seg_init(0x08);

    // Initialize ADC. RB0 (AN2; coarse) and RB1 (AN3; fine) are used.
    adc_init((1<<VOLUME_COARSE)|(1<<VOLUME_FINE));

    // Detect key
    while(1){
        // Power reading.
        max=5000;
        power=5*adc_read(VOLUME_COARSE)+(adc_read(VOLUME_FINE)>>5);
        if (max<power) power=max;
        // Display power
        led7seg_dec4(power);
        // Key scan
        select=0; // 468 nm
        max=5000;
        if (KEY24ON) break;
        select=1; // 522 nm
        max=3925;
        if (KEY25ON) break; 
        select=2; // 574 nm
        max=3500;
        if (KEY26ON) break; 
        select=3; // 639 nm
        max=4200;
        if (KEY27ON) break;
        wait_display();
    }
    
    // Output selection
    select_led(select,max);

    // Infinite loop until reset switch will be pressed
    while(1){
        // Power reading.
        power=5*adc_read(VOLUME_COARSE)+(adc_read(VOLUME_FINE)>>5);
        if (max<power) power=max;
        // Display power
        led7seg_dec4(power);
        // PWM setting
        set_power(power);
        // Wait for a display round
        wait_display();
    }
}

*** CP/KM BIOS KM-2010  1952K bytes x 4 Drives ***


To start CP/M 2.2, a valid disk image containing CPM.SYS is required.
To bobain the disk image, go to:
http://www.rad51.net/projects/cpm/

MEMORY
{
  kseg0_program_mem     (rx)  : ORIGIN = 0xA0003000+0x0490, LENGTH = (0xD000-0x0490) /* modified (ORIGIN = 0x9D001000, LENGTH = 0x1F000) */
  exception_mem               : ORIGIN = 0xA0002000, LENGTH = 0x1000 /* modified  (ORIGIN = 0x9D01F000, LENGTH = 0x1000) */
  debug_exec_mem              : ORIGIN = 0x9FC00490, LENGTH = 0x0 /* dummy (LENGTH = 0x760) */
  kseg0_boot_mem              : ORIGIN = 0x9FC00490, LENGTH = 0x0
  kseg1_boot_mem              : ORIGIN = 0xA0003000, LENGTH = 0x490 /* modified (ORIGIN = 0xBFC00000)*/
  config3                     : ORIGIN = 0xBFC00BF0, LENGTH = 0x4
  config2                     : ORIGIN = 0xBFC00BF4, LENGTH = 0x4
  config1                     : ORIGIN = 0xBFC00BF8, LENGTH = 0x4
  config0                     : ORIGIN = 0xBFC00BFC, LENGTH = 0x4
  kseg1_data_mem       (w!x)  : ORIGIN = 0xA0000000, LENGTH = 0x2000 /* modified (LENGTH = 0x8000) */
  sfrs                        : ORIGIN = 0xBF800000, LENGTH = 0x100000
  configsfrs                  : ORIGIN = 0xBFC00BF0, LENGTH = 0x10
}

char* get_value_sub(int pr){
	char* err;
	enum operator op;
	int prevpos;
	// Get a value in $v0.
	err=get_simple_value();
	if (err) return err;
	while(1){
		// Get the operator in op. If not valid operator, simply return without error.
		prevpos=g_srcpos;
		err=get_operator();
		if (err) return 0;
		op=g_last_op;
		// Compair current and previous operators.
		// If the previous operator has higher priolity, return.
		if (pr>=priority(op)) {
			g_srcpos=prevpos;
			return 0;
		}
		// Store $v0 in stack
		g_sdepth+=4;
		if (g_maxsdepth<g_sdepth) g_maxsdepth=g_sdepth;
		check_obj_space(1);
		g_object[g_objpos++]=0xAFA20000|g_sdepth; // sw v0,xx(sp)
		// Get next value.
		err=get_value_sub(priority(op));
		if (err) return err;
		// Get value from stack to $v1.
		check_obj_space(1);
		g_object[g_objpos++]=0x8FA30000|g_sdepth; // lw v1,xx(sp)
		g_sdepth-=4;
		// Calculation. Result will be in $v0.
		err=calculation(op);
		if (err) return err;
	}
}

__attribute__((address(0x9D005FD0))) static const int g_addresses[]={
	(int)setcursorcolor,
	(int)printstr,
	(int)setcursor,
	(int)clearscreen,
	(int)init_composite,
	(int)FindNext,
	(int)FindFirst,
	(int)FSfclose,
	(int)FSfread,
	(int)FSfopen,
	(int)FSInit,
	(int)MDD_MediaDetect
};

/* 9D00_0220 */
.section .vector_1,code
	.long MDD_SDSPI_MediaDetect
	.long FSInit
	.long FSfopen
	.long FSfread
	.long FSfclose
	.long FindFirst
	.long FindNext

/* 9D00_0240 */
.section .vector_2,code
	.long drawcount
	.long TVRAM
	.long init_composite
	.long clearscreen
	.long setcursor
	.long printchar
	.long setcursorcolor

#define fsdpointer ((int**)0x9D000220)
#define fvpointer ((int**)0x9D000240)

void printchar(unsigned char n){
	void (*f)(unsigned char n);
	f=(void (*)(unsigned char n))fvpointer[5];
	f(n);
}

.section .vector_6,code
	nop;
	j 0x9d0002c0;
.section .vector_8,code
	nop;
	j 0x9d000300;
.section .vector_10,code
	nop;
	j 0x9d000340;
.section .vector_14,code
	nop;
	j 0x9d0003c0;

  kseg1_data_mem       (w!x) : ORIGIN = 0xA0002000, LENGTH = 0x6000

  _gp = ALIGN(16) + 0x7ff0 - 0x2000;