コミット: 3beac033cf70cabacfb722bcde919574506edb13 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

コミットメタ情報

• リビジョン: 3beac033cf70cabacfb722bcde919574506edb13 (tree)
• 日時: 2019-05-26 11:28:20
• 作者: Katsumi <kmorimatsu@sour...>
• コミッター: Katsumi

ログメッセージ

Debug: Exception when using CLIB in MSRA

変更サマリ

• modified: mips/megalopa/clib.c
• modified: mips/megalopa/compiler.h
• modified: mips/megalopa/file.c
• modified: mips/megalopa/run.c
• add: mips/protozoea/clib.c
• add: mips/protozoea/clib.txt
• modified: mips/protozoea/compiler.h
• add: mips/protozoea/hexfile.c
• modified: mips/protozoea/run.c
• add: mips/zoea/clib.c
• add: mips/zoea/clib.txt
• modified: mips/zoea/compiler.h
• add: mips/zoea/hexfile.c
• modified: mips/zoea/run.c

差分

--- a/mips/megalopa/clib.c
+++ b/mips/megalopa/clib.c
@@ -112,11 +112,14 @@ const void* const g_data_clib[]={
 // CLIB name used (name as 31 bit integer)
 static unsigned int g_clib;
 
+void init_clib(){
+	// Initialize g_data_clib_var[]
+	g_data_clib_var[0]=(void*)g_gp;
+}
+
 char* useclib_statement(){
 	int i;
 	int* cmpdata;
-	// Initialize g_data_clib_var[]
-	g_data_clib_var[0]=(void*)g_gp;
 	do {
 		next_position();
 		i=check_var_name();
@@ -266,7 +269,9 @@ char* clib_main(){
 	g_object[g_objpos++]=0x3C050000|((((unsigned int)(0xA0008000+adjust))>>16)&0x0000FFFF); // lui   a1,xxxx
 	g_object[g_objpos++]=0x34A50000|(((unsigned int)(0xA0008000+adjust))&0x0000FFFF);       // ori a1,a1,xxxx
 	call_quicklib_code(call_clib_init,ASM_ADDIU_A0_ZERO_ | 0);
-	// All done
+	// All done. Shift g_object as the beginning of main BASIC code.
+	g_object+=g_objpos;
+	g_objpos=0;
 	return 0;
 }
 

--- a/mips/megalopa/compiler.h
+++ b/mips/megalopa/compiler.h
@@ -398,6 +398,7 @@ char* coretimer_statement();
 char* coretimer_function();
 char* interrupt_statement();
 
+void init_clib();
 char* useclib_statement();
 char* useclib_begin(char* buff);
 char* clib_method(char type);

--- a/mips/megalopa/file.c
+++ b/mips/megalopa/file.c
@@ -89,6 +89,8 @@ char* compile_file(){
 	char* err;
 	// Read first 512 bytes
 	read_file(512);
+	// Skip BOM (UTF-8) if exists
+	if (0xEF==g_source[0] && 0xBB==g_source[1] && 0xBF==g_source[2]) g_srcpos=3;
 	// Compile line by line
 	while (g_size==512) {
 		err=compile_line();

--- a/mips/megalopa/run.c
+++ b/mips/megalopa/run.c
@@ -46,7 +46,7 @@ int runbasic(char *appname,int mode){
 //　　-1:ファイルエラー
 //　　-2:リンクエラー
 //　　1以上:コンパイルエラーの発生行（行番号ではなくファイル上の何行目か）
-	int i;
+	int i,j;
 	char* buff;
 	char* err;
 
@@ -85,19 +85,23 @@ int runbasic(char *appname,int mode){
 	// Initialize music system
 	init_music();
 
+	// Initialize clib
+	init_clib();
+
 	printstr("BASIC "BASVER"\n");
 	wait60thsec(15);
 
 	printstr("Compiling...");
 
 	if (mode==RUNMODE_COPY_AND_RUN) {
-		// Copy the object from MOS
-		appname=(char*)MACHIKANIA_OBJ_ADDRESS;
-		for(i=0;i<RAMSIZE;i++) RAM[i]=appname[i];
 		// Set g_object/g_objpos for library functions like lib_read().
 		// The g_object/g_objpos values are stoared just before MOS.
 		g_object=(int*)g_object_mos;
 		g_objpos=g_objpos_mos;
+		// Copy the object from MOS
+		j=(int)(&g_object[g_objpos])-(int)(&RAM[0]);
+		appname=(char*)MACHIKANIA_OBJ_ADDRESS;
+		for(i=0;i<j;i++) RAM[i]=appname[i];
 	} else {
 		// Initialize compiler
 		cmpdata_init();

--- /dev/null
+++ b/mips/protozoea/clib.c
@@ -0,0 +1,431 @@
+/*
+   This file is provided under the LGPL license ver 2.1.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
+   http://hp.vector.co.jp/authors/VA016157/
+*/
+
+/*
+	This file is shared by Megalopa and Zoea
+*/
+
+#include "compiler.h"
+#include "api.h"
+#include "main.h"
+
+/*
+	CMPDATA_USECLIB structure
+		type:      CMPDATA_USECLIB (8)
+		len:       2
+		data16:    n/a (0)
+		record[1]: clib name as integer
+
+	CMPDATA_CLIBFUNC structure
+		type:      CMPDATA_CLIBFUNC (9)
+		len:       4
+		data16:    n/a (0)
+		record[1]: clib name as integer
+		record[2]: func name as integer
+		record[3]: pointer to function
+*/
+
+/*
+ * g_data_clib[] contains the data from MachiKania compiler for this library
+ */
+void* g_data_clib_var[]={
+	0, // will be g_gp, g_data[0][0],"0"
+};
+
+const void* const g_data_clib_core[]={
+	lib_calloc_memory,//  g_data[1][0],"0"
+	lib_delete,       //  g_data[1][1],"4"
+};
+
+const void* const g_data_clib_file[]={
+#ifdef __DEBUG
+	0 // Disabled in debug mode
+#else
+	FSInit,   // g_data[2][0],"0"
+	FSfopen,  // g_data[2][1],"4"
+	FSfclose, // g_data[2][2],"8"
+	FSfread,  // g_data[2][3],"12"
+	FSfwrite, // g_data[2][4],"16"
+	FSfeof,   // g_data[2][5],"20"
+	FSftell,  // g_data[2][6],"24"
+	FSfseek,  // g_data[2][7],"28"
+	FSrewind, // g_data[2][8],"32"
+	FindFirst,// g_data[2][9],"36"
+	FindNext, // g_data[2][10],"40"
+	FSmkdir,  // g_data[2][11],"44"
+	FSgetcwd, // g_data[2][12],"48"
+	FSchdir,  // g_data[2][13],"52"
+	FSremove, // g_data[2][14],"56"
+	FSrename, // g_data[2][15],"60"
+#endif
+};
+
+const void* const g_data_clib_video[]={
+	start_composite,// g_data[3][0],"0"
+	stop_composite, // g_data[3][1],"4"
+	printchar,      // g_data[3][2],"8"
+	printstr,       // g_data[3][3],"12"
+	printnum,       // g_data[3][4],"16"
+	printnum2,      // g_data[3][5],"20"
+	cls,            // g_data[3][6],"24"
+	vramscroll,     // g_data[3][7],"28"
+	setcursorcolor, // g_data[3][8],"32"
+	setcursor,      // g_data[3][9],"36"
+	set_palette,    // g_data[3][10],"40"
+	set_bgcolor,    // g_data[3][11],"44"
+};
+
+const void* const g_data_clib_graphic[]={
+	g_pset,         // g_data[4][0],"0"
+	g_putbmpmn,     // g_data[4][1],"4"
+	g_clrbmpmn,     // g_data[4][2],"8"
+	g_gline,        // g_data[4][3],"12"
+	g_hline,        // g_data[4][4],"16"
+	g_circle,       // g_data[4][5],"20"
+	g_circlefill,   // g_data[4][6],"24"
+	g_boxfill,      // g_data[4][7],"28"
+	g_putfont,      // g_data[4][8],"32"
+	g_printstr,     // g_data[4][9],"36"
+	g_printnum,     // g_data[4][10],"40"
+	g_printnum2,    // g_data[4][11],"44"
+	g_color,        // g_data[4][12],"48"
+};
+
+const void* const g_data_clib_keyboard[]={
+	shiftkeys, //  g_data[5][0],"0"
+	ps2readkey,//  g_data[5][1],"4"
+};
+
+const void* const g_data_clib[]={
+	&g_data_clib_var[0],     // g_data[0],"0"
+	&g_data_clib_core[0],    // g_data[1],"4"
+	&g_data_clib_file[0],    // g_data[2],"8"
+	&g_data_clib_video[0],   // g_data[3],"12"
+	&g_data_clib_graphic[0], // g_data[4],"16"
+	&g_data_clib_keyboard[0],// g_data[5],"20"
+};
+
+// CLIB name used (name as 31 bit integer)
+static unsigned int g_clib;
+
+void init_clib(){
+	// Initialize g_data_clib_var[]
+	g_data_clib_var[0]=(void*)g_gp;
+}
+
+char* useclib_statement(){
+	int i;
+	int* cmpdata;
+	do {
+		next_position();
+		i=check_var_name();
+		if (i<65536) return ERR_SYNTAX;
+		// Check if the clib already exists
+		cmpdata_reset();
+		while(cmpdata=cmpdata_find(CMPDATA_USECLIB)){
+			if (cmpdata[1]==i) {
+				// The clib was already defined.
+				i=0;
+				break;
+			}
+		}
+		if (i) {
+			// Load new file to define clib.
+			g_clib=i;
+			return ERR_COMPILE_CLIB;
+		}
+		if (g_source[g_srcpos]==',') {
+			g_srcpos++;
+		} else {
+			break;
+		}
+	} while(1);
+	return 0;
+}
+
+void* call_clib_init(void** data, void* address){
+	// Store gp and ra
+	asm volatile("#":::"s0");
+	asm volatile("#":::"ra");
+	asm volatile("addu $t9,$a1,$zero");
+	asm volatile("addu $s0,$gp,$zero");
+	asm volatile("jalr $ra,$t9");
+	asm volatile("addu $gp,$s0,$zero");
+}
+
+char* clib_main(){
+	char* err;
+	unsigned int begin,end,addr;
+	void* clibdata;
+	int* functions;
+	int* got;
+	int i,opos,adjust;
+	char* clib;
+	int record[3];
+	// Insert CMPDATA_USELIB
+	record[0]=g_clib;
+	err=cmpdata_insert(CMPDATA_USECLIB,0,&record[0],1);
+	if (err) return err;
+	// Determine begin and end addresses
+	begin=0x000fffff;
+	end=0;
+	while(1){
+		err=hex_read_line();
+		if (err) return err;
+		if (g_hexline.type==1) {
+			// EOF
+			break;
+		} else if (g_hexline.type==4) {
+			// extended linear address
+			addr=g_hexline.data[0];
+			addr=addr<<8;
+			addr|=g_hexline.data[0];
+			addr=addr<<16;
+		} else if (g_hexline.type==0) {
+			// data
+			addr&=0xffff0000;
+			addr|=g_hexline.address;
+			if (addr<begin) begin=addr;
+			if (end<addr && addr<0x000fffff) {
+				end=addr+g_hexline.size;
+			}
+		} else {
+			// Unknown type
+			return ERR_HEX_ERROR;
+		}
+	}
+	hex_reinit_file();
+	// Assign and clear region
+	check_obj_space((end-begin+3)>>2);
+	clib=(char*)&g_object[g_objpos];
+	got=(int*)&g_object[g_objpos];
+	for(i=0;i<((end-begin+3)>>2);i++) g_object[g_objpos++]=0;
+	// Load binary from HEX file
+	while(1){
+		err=hex_read_line();
+		if (err) return err;
+		if (g_hexline.type==1) {
+			// EOF
+			break;
+		} else if (g_hexline.type==4) {
+			// extended linear address
+			addr=g_hexline.data[0];
+			addr=addr<<8;
+			addr|=g_hexline.data[0];
+			addr=addr<<16;
+		} else if (g_hexline.type==0) {
+			// data
+			addr&=0xffff0000;
+			addr|=g_hexline.address;
+			for(i=0;i<g_hexline.size;i++){
+				clib[addr-begin+i]=g_hexline.data[i];
+			}
+		} else {
+			// Unknown type
+			return ERR_HEX_ERROR;
+		}
+	}
+	// Calculate the adjustment value.
+	// Note that the address of clib_init() is 0x8000.
+	adjust=(int)clib+0x8000-begin-0xA0008000;
+	// Modify Global Offset Table (GOT)
+	for(i=0;i<(0x8000-begin)>>2;i++){
+		if ((got[i]&0xFFF00000)==0xA0000000) {
+			got[i]+=adjust;
+		}
+	}
+	// Call the clib_init() to get the address of clibdata array.
+	clibdata=call_clib_init((void**)&g_data_clib[0],(void*)(0xA0008000+adjust));
+	// Check version
+	if (((int*)clibdata)[0]>SYSVERI) {
+		return "Newer version of C library than MachiKania cannot be used.";
+	}
+	// Get functions array
+	clibdata=(void*)(((int*)clibdata)[2])+adjust;
+	functions=clibdata;
+	// Construct CMPDATA_CLIBFUNC records.
+	while(clib=(char*)functions[0]){
+		clibdata=(void*)functions[1];
+		functions+=2;
+		// clib is function name as string
+		// clibdata is address of C function
+		clib+=adjust;
+		clibdata+=adjust;
+		i=str_to_name_int(clib);
+		if (i<65536) return "Wrong C library function name";
+		record[0]=g_clib;
+		record[1]=i;
+		record[2]=(int)clibdata;
+		err=cmpdata_insert(CMPDATA_CLIBFUNC,0,&record[0],3);
+		if (err) return err;
+	}
+	// Initial assembly is a jump statement to jump to the the following routine.
+	g_object[0]=0x08000000 | ((((int)(&g_object[g_objpos]))&0x0FFFFFFF)>>2); // j xxxxxxxx
+	// Insert initialization code
+	g_object[g_objpos++]=0x3C050000|((((unsigned int)(0xA0008000+adjust))>>16)&0x0000FFFF); // lui   a1,xxxx
+	g_object[g_objpos++]=0x34A50000|(((unsigned int)(0xA0008000+adjust))&0x0000FFFF);       // ori a1,a1,xxxx
+	call_quicklib_code(call_clib_init,ASM_ADDIU_A0_ZERO_ | 0);
+	// All done. Shift g_object as the beginning of main BASIC code.
+	g_object+=g_objpos;
+	g_objpos=0;
+	return 0;
+}
+
+char* useclib_begin(char* buff){
+	int i,j,cwd_id;
+	char* err;
+	char* clibname;
+	char filename[11];
+	int* record;
+	// Remove a objects before USECLIB statement
+	g_objpos=0;
+	// Insert twp NOP assemblies. This will be replaced by branch statement.
+	check_obj_space(2);
+	g_object[g_objpos++]=0x00000000; // nop
+	g_object[g_objpos++]=0x00000000; // nop
+	// Construct HEX file name to open
+	clibname=resolve_label(g_clib);
+	for(i=0;filename[i]=clibname[i];i++);
+	filename[i++]='.';
+	filename[i++]='H';
+	filename[i++]='E';
+	filename[i++]='X';
+	filename[i++]=0;
+	// Open file in current directory
+	err=hex_init_file(buff,filename);
+	if (!err) {
+		// HEX file found in current directory.
+		err=clib_main();
+		hex_close_file();
+	} else {
+		// Hex file not found in current directory.
+		// Find it in LIB directory.
+		if (!FSgetcwd(buff,256)) return ERR_UNKNOWN;
+		for(i=0;buff[i];i++);
+		cwd_id=cmpdata_get_id();
+		if (!cwd_id) return ERR_UNKNOWN;
+		err=cmpdata_insert(CMPDATA_TEMP,cwd_id,(int*)(&buff[0]),(i+1+3)>>2);
+		if (err) return err;
+		// Change current directory to class library directory
+		for(i=0;buff[i]="\\LIB\\"[i];i++);
+		for(j=0;buff[i++]=clibname[j];j++);
+		buff[i]=0;
+		FSchdir(buff);
+		err=hex_init_file(buff,filename);
+		if (!err) {
+			// HEX file found in LIB directory
+			err=clib_main();
+			hex_close_file();
+		} else {
+			err=ERR_NO_CLIB;
+		}
+		// Restore current dirctory
+		cmpdata_reset();
+		while(record=cmpdata_find(CMPDATA_TEMP)){
+			if ((record[0]&0xffff)==cwd_id) break;
+		}
+		if (!record) return ERR_UNKNOWN;
+		FSchdir((char*)(&record[1]));
+		cmpdata_delete(record);
+	}
+	return err;
+}
+
+void lib_clib(int* params, void* address){
+	// Store gp and ra
+	asm volatile("#":::"s0");
+	asm volatile("#":::"ra");
+	asm volatile("addu $t9,$a1,$zero");
+	asm volatile("addu $s0,$gp,$zero");
+	asm volatile("lw $a3,16($a0)");
+	asm volatile("lw $a2,12($a0)");
+	asm volatile("lw $a1,8($a0)");
+	asm volatile("lw $a0,4($a0)");
+	asm volatile("jalr $ra,$t9");
+	asm volatile("addu $gp,$s0,$zero");
+}
+
+char* clib_method(char type){
+	char* err;
+	int* record;
+	int clib,func;
+	int numparams,stack,spos;
+	// CLIB name
+	next_position();
+	spos=g_srcpos;
+	clib=check_var_name();
+	if (clib<65536) return ERR_SYNTAX;
+	// Check if the clib exists
+	cmpdata_reset();
+	while (record=cmpdata_find(CMPDATA_USECLIB)){
+		if (record[1]==clib) break;
+	}
+	if (!record) {
+		g_srcpos=spos;
+		return ERR_NO_CLIB;
+	}
+	if (g_source[g_srcpos++]!=':') return ERR_SYNTAX;
+	if (g_source[g_srcpos++]!=':') return ERR_SYNTAX;
+	// Function name
+	func=check_var_name();
+	if (func<65536) return ERR_SYNTAX;
+	cmpdata_reset();
+	while (record=cmpdata_find(CMPDATA_CLIBFUNC)){
+		if (record[1]==clib && record[2]==func) break;
+	}
+	if (!record) return "Function not found in the C library";
+	// Check type and following syntax
+	if (type==',') {
+		// This is CLIB(CLASS:METHOD) style
+	} else {		
+		// Type is either 0 (integer), $ (string), or # (float)
+		// This is CLASS::METHOD() style
+		if (type) {
+			if (g_source[g_srcpos++]!=type) return ERR_SYNTAX;
+		}
+		if (g_source[g_srcpos++]!='(') return ERR_SYNTAX;
+	}
+	// Construct parameter(s)
+	next_position();
+	numparams=0;
+	if (','==type && g_source[g_srcpos]!=',') {
+		// This is CLIB(CLASS:METHOD) style
+		// no parameter
+	} else if (','!=type && g_source[g_srcpos]==')') {
+		// This is CLASS::METHOD() style
+		// no parameter
+	} else {
+		// There is parameter(s)
+		do {
+			numparams++;
+			if (4<numparams) return ERR_SYNTAX;
+			else if (1==numparams) {
+				check_obj_space(1);
+				stack=g_objpos++;
+			}
+			if (g_source[g_srcpos]==',') g_srcpos++;
+			g_object[stack]=0x27BD0000|(65536-numparams*4);                     // addiu sp,sp,-xx
+			err=get_stringFloatOrValue();
+			if (err) return err;
+			check_obj_space(1);
+			g_object[g_objpos++]=0xAFA20000|(numparams*4);                      // sw    v0,xx(sp)
+			next_position();
+		} while (g_source[g_srcpos]==',');
+	}
+	// Call CLIB
+	check_obj_space(2);
+	g_object[g_objpos++]=0x3C050000|(((unsigned int)record[3])>>16);        // lui   a1,xxxx
+	g_object[g_objpos++]=0x34A50000|(((unsigned int)record[3])&0x0000FFFF); // ori   a1,a1,xxxx
+	call_quicklib_code(lib_clib,ASM_ADDU_A0_SP_ZERO);
	// All done
+	check_obj_space(1);
+	if (numparams) g_object[g_objpos++]=0x27BD0000|(numparams*4);           // addiu sp,sp,xx
+	return 0;
+}
+
+char* clib_statement(){
+	return clib_method(',');
+}
\ No newline at end of file

--- /dev/null
+++ b/mips/protozoea/clib.txt
@@ -0,0 +1,108 @@
+＜Cライブラリーの利用方法＞
+
+まず、Cライブラリーの使い方について述べます。作成方法については、下の方を参照して
+下さい。
+
+Cライブラリーの本体は、「*.HEX」ファイルです。拡張子が「HEX」のファイルが、BASIC
+プログラムが置かれているのと同じディレクトリーか、LIBディレクトリーの所定の場所に
+ある事を確認して下さい。
+
+BASICプログラム中では、まず冒頭でUSECLIBステートメントを記述して下さい。
+
+USECLIB x[,y[,z[, ... ]]]
+	Cライブラリーの利用を宣言する。x,y,z等は、ライブラリー名を6文字以内の英数字
+	で指定。
+
+ここでは、「*.HEX」ファイルのファイル名を、指定します。「TCLIB.HEX」なら
+「USECLIB TCLIB」と記述します。
+
+Cライブラリー内の関数を呼び出すには、以下のいずれかの方法を取ります。それぞれの
+関数の詳しい使用方法については、Cライブラリーに付属のドキュメントを参照して下さ
+い。
+
+CLIB xxx::yyy[,z1[,z2 ...]]
+	Cライブラリー内の関数を呼び出す。xxxはライブラリー名、yyyは関数名。z1, z2等
+	は引数（オプション）。
+CLIB(xxx::yyy[,z1[,z2 ... ]])
+	Cライブラリー内の関数を呼び出し、整数を返す。xxxはライブラリー名、yyyは関数
+	名。z1, z2等は引数（オプション）。xxx::yyy([z1[,z2 ... ]])と書いても同じ。
+CLIB$(xxx::yyy[,z1[,z2 ... ]])
+	Cライブラリー内の関数を呼び出し、文字列を返す。xxxはライブラリー名、yyyは関
+	数名。z1, z2等は引数（オプション）。xxx::yyy$([z1[,z2 ... ]])と書いても同じ。
+CLIB#(xxx::yyy[,z1[,z2 ... ]])
+	Cライブラリー内の関数を呼び出し、実数を返す。xxxはライブラリー名、yyyは関
+	数名。z1, z2等は引数（オプション）。xxx::yyy#([z1[,z2 ... ]])と書いても同じ。
+
+＜使用例＞
+
+USECLIB TCLIB
+PRINT TCLIB::TEST$(0)
+PRINT TCLIB::TEST$(1)
+
+＜Cライブラリーの作成方法＞
+
+Cライブラリーを作製する場合には、MPLAB X IDEとXC32コンパイラーのver 1.42以降が
+必要です。
+
+まず、ライブラリー作成用のテンプレートをダウンロードして下さい。少なくとも、次の
+ファイルが含まれているはずです。
+
+clib.c
+clib.h
+clib_p32MX370F512H.ld
+example.c
+
+「File->Project Properties」を選択します。次の設定を確認し、異なっていれば値を
+変更してください。
+	Categories: Conf
+		Compiler Toochains: XC32 (v1.42以降)
+	Categories: xc32-gcc
+		Additinal options: -mgen-pie-static
+		Option categories: Optimization
+			optimization-level: 1
+		Generated Command Line: -g -O1
+	Categories: xc32-ld
+		Additional options: --no-data-init
+		Option categories: General
+			Remove unused sections: チェックを入れる
+		Option categories: Libraries
+			Exclude Standard Libraries: チェックを入れる
+		Generated Command Line: --gc-sections --no-code-in-dinit --no-dinit-in-serial-mem -nostdlib -Map="${DISTDIR}/${PROJECTNAME}.${IMAGE_TYPE}.map"
+
+clib.c, clib.h, clib_p32MX370F512H.ldの３つは、通常は編集せずにそのまま使います。
+example.cを編集(必要ならばファイル名を変更)する事で、Cライブラリーを作製して下さ
+い。コンパイルして出来たHEXファイルが、完成した本体です。
+
+＜Cライブラリーの仕様＞
+
+Cライブラリーを作成するにあたり、以下の規約に従って下さい。
+
+１．グローバル変数・スタティック変数領域の容量は、128バイト。
+　・２０個ほどのグローバル変数・スタティック変数が使用可能。
+　・大きなメモリー領域が必要な場合は、malloc(), calloc(), free()を使用する。
+　・グローバル変数の初期化は、init()関数で行なわなければならない。
+　・スタティック変数は実行前の初期化はできない（常に０で初期化される）。
+
+２．パブリック関数を、その呼び出し名と共にリストアップする事。
+　・functions[]グローバル変数に指定する。
+　・フォーマットについては、example.cを参照。
+
+３．パブリック関数の引数は、４つまで。
+
+４．割り込みは使用出来ない。
+
+＜グローバル変数領域のサイズ変更＞
+
+より大きな変数領域が必要な場合は、calloc()で領域を割り当てる事が推奨されます。
+それでも、グローバル変数領域が足りない場合は、以下の方法でサイズ変更出来ます。
+
+１．clib_p[32MC370F512H.ldを編集する。
+　・「kseg1_data_mem」の設定の所、「-0x080」と「LENGTH = 0x080」となっている所
+　　を適当なサイズに変更する。
+
+２．clib.hを編集する。
+　・「#define CLIB_DATA_MEM_SIZE 0x0080」の所、上記で変更した値と同じになるよう
+　　に、編集する。
+
+＜バージョン履歴＞
+・KM-1209/KM1304 2019年？月公開。

--- a/mips/protozoea/compiler.h
+++ b/mips/protozoea/compiler.h
@@ -398,6 +398,7 @@ char* coretimer_statement();
 char* coretimer_function();
 char* interrupt_statement();
 
+void init_clib();
 char* useclib_statement();
 char* useclib_begin(char* buff);
 char* clib_method(char type);

--- /dev/null
+++ b/mips/protozoea/hexfile.c
@@ -0,0 +1,271 @@
+/*
+   This file is provided under the LGPL license ver 2.1.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
+   http://hp.vector.co.jp/authors/VA016157/
+*/
+
+/*
+	This file is shared by Megalopa and Zoea
+*/
+
+#include "compiler.h"
+#include "api.h"
+
+/*
+ Intel HEX format example
+ :040bf000ffffffcf35
+    +--------------------- Byte count
+    |    +---------------- Address
+    |    |  +------------- Record type (00:Data, 01:EOF, 04: Extended linear addres
+    |    |  |        +---- Data
+    |    |  |        |  +- Checksum
+    |    |  |        |  |
+ : 04 0bf0 00 ffffffcf 35
+ : 02 0000 04 1fc0     1b
+ : 00 0000 01          FF
+
+	Record types:
+		case 0:  // data
+		case 4:  // extended linear address
+		case 1:  // EOF
+
+*/
+
+/*
+	Example of HEX file
+
+:020000040000fa
+:1080000000001c3c707f9c2721e09903e0ffbd2706
+:108010001c00bfaf1000bcaf0e0080101880828f14
+:10802000000044ac1c80828f80ff42241c80848f1f
+:10803000000040a0010042242b184400fdff6054c2
+:10804000000040a02080998f09f820030000000064
+:108050001000bc8f2480828f1c00bf8f0800e003bb
+:048060002000bd2718
+:020000040000fa
+:107f80000000000000000080a47f00a0008000a08e
+:107f9000708000a0fc8000a0000001a0788000a0fc
+:047fa00000000000dd
+:020000040000fa
+:108070000800e0030000000000001c3cf87e9c2784
+:1080800021e09903040080542880828f2880828f09
+:108090000800e003d48042240800e003e480422486
+:1080a00000001c3cd07e9c2721e09903e0ffbd2707
+:1080b0001c00bfaf1000bcaf2c80998f09f82003c3
+:1080c000000000001000bc8f1c00bf8f0800e00300
+:0480d0002000bd27a8
+:020000040000fa
+:1080d40048656c6c6f20576f726c6421000000005f
+:1080e4005468697320697320612074657374000097
+:0880f400544553540000000044
+:020000040000fa
+:1080fc0040010000800000001c8100a00000000076
+:020000040000fa
+:10810c0000000000222222222222222222222222cb
+:020000040000fa
+:0c811c00f48000a0a08000a00000000083
+:00000001FF
+*/
+
+// Use the same global vars in file.c
+extern FSFILE* g_fhandle;
+extern char* g_fbuff;
+extern int g_size;
+extern int g_filepoint;
+// Vars used only in this file
+static unsigned char g_checksum;
+
+void hex_read_file(int blocklen){
+	int i;
+	if (blocklen==512) {
+		// This is first read. Initialize parameter(s).
+		g_srcpos=0;
+		g_filepoint=0;
+	} else if (g_size<512) {
+		// Already reached the end of file.
+		return;
+	} else {
+		// Shift buffer and source position 256 bytes.
+		for(i=0;i<256;i++) g_fbuff[i]=g_fbuff[i+256];
+		g_srcpos-=256;
+		g_filepoint+=256;
+	}
+	// Read 512 or 256 bytes from SD card.
+	g_size=512-blocklen+FSfread((void*)&g_fbuff[512-blocklen],1,blocklen,g_fhandle);
+	// All lower cases
+	for(i=512-blocklen;i<512;i++){
+		if ('A'<=g_fbuff[i] && g_fbuff[i]<='F') g_fbuff[i]+=0x20;
+	}
+}
+
+int hex_read_byte(){
+	unsigned char b1,b2;
+	b1=g_fbuff[g_srcpos++];
+	b2=g_fbuff[g_srcpos++];
+	if ('0'<=b1 && b1<='9') {
+		b1-='0';
+	} else if ('a'<=b1 && b1<='f') {
+		b1-='a';
+		b1+=0x0a;
+	} else {
+		return -1;
+	}
+	if ('0'<=b2 && b2<='9') {
+		b2-='0';
+	} else if ('a'<=b2 && b2<='f') {
+		b2-='a';
+		b2+=0x0a;
+	} else {
+		return -1;
+	}
+	b1=(b1<<4)|b2;
+	g_checksum+=b1;
+	return b1;
+}
+
+char* hex_read_line(){
+	int i,j;
+	// Initialize checksum
+	g_checksum=0;
+	// Maintain at least 256 characters in cache.
+	if (256<=g_srcpos) hex_read_file(256);
+	// Read a hex file line
+	if (g_fbuff[g_srcpos++]!=':') return ERR_HEX_ERROR;
+	// Read size
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	g_hexline.size=(unsigned char)i;
+	// Read address
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	g_hexline.address=(unsigned short)(i<<8);
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	g_hexline.address|=(unsigned short)(i);
+	// Ready type
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	g_hexline.type=(unsigned char)i;
+	// Read data
+	for(j=0;j<g_hexline.size;j++){
+		i=hex_read_byte();
+		if (i<0) return ERR_HEX_ERROR;
+		g_hexline.data[j]=(unsigned char)i;
+	}
+	// Read checksum
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	if (g_checksum) return ERR_HEX_ERROR;
+	// All done. Remove enter.
+	if (g_fbuff[g_srcpos]=='\r') g_srcpos++;
+	if (g_fbuff[g_srcpos]=='\n') g_srcpos++;
+	return 0;
+}
+
+static char g_hex_line[47]=":";
+void hex_construct_byte(unsigned char data,int pos){
+	g_hex_line[pos+0]="0123456789abcdef"[data>>4];
+	g_hex_line[pos+1]="0123456789abcdef"[data&15];
+	g_checksum+=data;
+}
+char* hex_construct_line(){
+	int i;
+	g_checksum=0;
+	// Write size
+	hex_construct_byte(g_hexline.size,1);
+	// Write address
+	hex_construct_byte(g_hexline.address>>8,3);
+	hex_construct_byte(g_hexline.address&0xff,5);
+	// Write type
+	hex_construct_byte(g_hexline.type,7);
+	// Write data
+	for(i=0;i<g_hexline.size;i++){
+		hex_construct_byte(g_hexline.data[i],9+i*2);
+	}
+	// Write checksum
+	hex_construct_byte(0-g_checksum,9+i*2);
+	// All done. Add CRLF and 0x00
+	g_hex_line[11+i*2]=0x0d;
+	g_hex_line[12+i*2]=0x0a;
+	g_hex_line[13+i*2]=0;
+	return (char*)&g_hex_line[0];
+}
+
+void hex_reinit_file(){
+	// Go to point 0
+	FSfseek(g_fhandle,0,SEEK_SET);
+	// Initialize parameters
+	g_srcpos=0;
+	g_filepoint=0;
+	// Read first 512 bytes
+	hex_read_file(512);
+}
+
+char* hex_init_file(char* buff,char* filename){
+	// Open file
+	g_fhandle=FSfopen(filename,"r");
+	if (!g_fhandle) {
+		return ERR_UNKNOWN;
+	}
+	// Initialize parameters
+	g_fbuff=buff;
+	g_source=buff;
+	g_srcpos=0;
+	g_filepoint=0;
+	// Read first 512 bytes
+	hex_read_file(512);
+	return 0;
+}
+
+void hex_close_file(){
+	FSfclose(g_fhandle);
+}
+
+char* hex_write(FSFILE* fhandle){
+	int i,j;
+	char* str;
+	// Construct the line string.
+	str=hex_construct_line();
+	// Determine string length
+	for(i=0;str[i];i++);
+	j=FSfwrite(str,1,i,fhandle);
+	if (j<i) return ERR_FILE;
+	return 0;
+}
+
+
+char* hex_write_address(FSFILE* fhandle,unsigned short addr){
+	int i,j;
+	char* str;
+	addr&=0x7fff; // Write 0x1d00 instead of 0x9d00.
+	g_hexline.size=2;
+	g_hexline.type=4;
+	g_hexline.address=0;
+	g_hexline.data[0]=addr>>8;
+	g_hexline.data[1]=addr&0xff;
+	return hex_write(fhandle);
+}
+
+char* hex_write_data_16(FSFILE* fhandle,unsigned short addr,unsigned int* object){
+	int i,j;
+	char* str;
+	g_hexline.size=16;
+	g_hexline.type=0;
+	g_hexline.address=addr;
+	for(i=0;i<4;i++){
+		g_hexline.data[i*4+0]=object[i];
+		g_hexline.data[i*4+1]=object[i]>>8;
+		g_hexline.data[i*4+2]=object[i]>>16;
+		g_hexline.data[i*4+3]=object[i]>>24;
+	}
+	return hex_write(fhandle);
+}
+
+char* hex_write_eof(FSFILE* fhandle){
+	int i;
+	i=FSfwrite(":00000001FF\x0d\x0a",1,13,fhandle);
+	if (i<13) return ERR_FILE;
+	return 0;
+}
+

--- a/mips/protozoea/run.c
+++ b/mips/protozoea/run.c
@@ -46,7 +46,7 @@ int runbasic(char *appname,int mode){
 //　　-1:ファイルエラー
 //　　-2:リンクエラー
 //　　1以上:コンパイルエラーの発生行（行番号ではなくファイル上の何行目か）
-	int i;
+	int i,j;
 	char* buff;
 	char* err;
 
@@ -85,19 +85,23 @@ int runbasic(char *appname,int mode){
 	// Initialize music system
 	init_music();
 
+	// Initialize clib
+	init_clib();
+
 	printstr("BASIC "BASVER"\n");
 	wait60thsec(15);
 
 	printstr("Compiling...");
 
 	if (mode==RUNMODE_COPY_AND_RUN) {
-		// Copy the object from MOS
-		appname=(char*)MACHIKANIA_OBJ_ADDRESS;
-		for(i=0;i<RAMSIZE;i++) RAM[i]=appname[i];
 		// Set g_object/g_objpos for library functions like lib_read().
 		// The g_object/g_objpos values are stoared just before MOS.
 		g_object=(int*)g_object_mos;
 		g_objpos=g_objpos_mos;
+		// Copy the object from MOS
+		j=(int)(&g_object[g_objpos])-(int)(&RAM[0]);
+		appname=(char*)MACHIKANIA_OBJ_ADDRESS;
+		for(i=0;i<j;i++) RAM[i]=appname[i];
 	} else {
 		// Initialize compiler
 		cmpdata_init();

--- /dev/null
+++ b/mips/zoea/clib.c
@@ -0,0 +1,431 @@
+/*
+   This file is provided under the LGPL license ver 2.1.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
+   http://hp.vector.co.jp/authors/VA016157/
+*/
+
+/*
+	This file is shared by Megalopa and Zoea
+*/
+
+#include "compiler.h"
+#include "api.h"
+#include "main.h"
+
+/*
+	CMPDATA_USECLIB structure
+		type:      CMPDATA_USECLIB (8)
+		len:       2
+		data16:    n/a (0)
+		record[1]: clib name as integer
+
+	CMPDATA_CLIBFUNC structure
+		type:      CMPDATA_CLIBFUNC (9)
+		len:       4
+		data16:    n/a (0)
+		record[1]: clib name as integer
+		record[2]: func name as integer
+		record[3]: pointer to function
+*/
+
+/*
+ * g_data_clib[] contains the data from MachiKania compiler for this library
+ */
+void* g_data_clib_var[]={
+	0, // will be g_gp, g_data[0][0],"0"
+};
+
+const void* const g_data_clib_core[]={
+	lib_calloc_memory,//  g_data[1][0],"0"
+	lib_delete,       //  g_data[1][1],"4"
+};
+
+const void* const g_data_clib_file[]={
+#ifdef __DEBUG
+	0 // Disabled in debug mode
+#else
+	FSInit,   // g_data[2][0],"0"
+	FSfopen,  // g_data[2][1],"4"
+	FSfclose, // g_data[2][2],"8"
+	FSfread,  // g_data[2][3],"12"
+	FSfwrite, // g_data[2][4],"16"
+	FSfeof,   // g_data[2][5],"20"
+	FSftell,  // g_data[2][6],"24"
+	FSfseek,  // g_data[2][7],"28"
+	FSrewind, // g_data[2][8],"32"
+	FindFirst,// g_data[2][9],"36"
+	FindNext, // g_data[2][10],"40"
+	FSmkdir,  // g_data[2][11],"44"
+	FSgetcwd, // g_data[2][12],"48"
+	FSchdir,  // g_data[2][13],"52"
+	FSremove, // g_data[2][14],"56"
+	FSrename, // g_data[2][15],"60"
+#endif
+};
+
+const void* const g_data_clib_video[]={
+	start_composite,// g_data[3][0],"0"
+	stop_composite, // g_data[3][1],"4"
+	printchar,      // g_data[3][2],"8"
+	printstr,       // g_data[3][3],"12"
+	printnum,       // g_data[3][4],"16"
+	printnum2,      // g_data[3][5],"20"
+	cls,            // g_data[3][6],"24"
+	vramscroll,     // g_data[3][7],"28"
+	setcursorcolor, // g_data[3][8],"32"
+	setcursor,      // g_data[3][9],"36"
+	set_palette,    // g_data[3][10],"40"
+	set_bgcolor,    // g_data[3][11],"44"
+};
+
+const void* const g_data_clib_graphic[]={
+	g_pset,         // g_data[4][0],"0"
+	g_putbmpmn,     // g_data[4][1],"4"
+	g_clrbmpmn,     // g_data[4][2],"8"
+	g_gline,        // g_data[4][3],"12"
+	g_hline,        // g_data[4][4],"16"
+	g_circle,       // g_data[4][5],"20"
+	g_circlefill,   // g_data[4][6],"24"
+	g_boxfill,      // g_data[4][7],"28"
+	g_putfont,      // g_data[4][8],"32"
+	g_printstr,     // g_data[4][9],"36"
+	g_printnum,     // g_data[4][10],"40"
+	g_printnum2,    // g_data[4][11],"44"
+	g_color,        // g_data[4][12],"48"
+};
+
+const void* const g_data_clib_keyboard[]={
+	shiftkeys, //  g_data[5][0],"0"
+	ps2readkey,//  g_data[5][1],"4"
+};
+
+const void* const g_data_clib[]={
+	&g_data_clib_var[0],     // g_data[0],"0"
+	&g_data_clib_core[0],    // g_data[1],"4"
+	&g_data_clib_file[0],    // g_data[2],"8"
+	&g_data_clib_video[0],   // g_data[3],"12"
+	&g_data_clib_graphic[0], // g_data[4],"16"
+	&g_data_clib_keyboard[0],// g_data[5],"20"
+};
+
+// CLIB name used (name as 31 bit integer)
+static unsigned int g_clib;
+
+void init_clib(){
+	// Initialize g_data_clib_var[]
+	g_data_clib_var[0]=(void*)g_gp;
+}
+
+char* useclib_statement(){
+	int i;
+	int* cmpdata;
+	do {
+		next_position();
+		i=check_var_name();
+		if (i<65536) return ERR_SYNTAX;
+		// Check if the clib already exists
+		cmpdata_reset();
+		while(cmpdata=cmpdata_find(CMPDATA_USECLIB)){
+			if (cmpdata[1]==i) {
+				// The clib was already defined.
+				i=0;
+				break;
+			}
+		}
+		if (i) {
+			// Load new file to define clib.
+			g_clib=i;
+			return ERR_COMPILE_CLIB;
+		}
+		if (g_source[g_srcpos]==',') {
+			g_srcpos++;
+		} else {
+			break;
+		}
+	} while(1);
+	return 0;
+}
+
+void* call_clib_init(void** data, void* address){
+	// Store gp and ra
+	asm volatile("#":::"s0");
+	asm volatile("#":::"ra");
+	asm volatile("addu $t9,$a1,$zero");
+	asm volatile("addu $s0,$gp,$zero");
+	asm volatile("jalr $ra,$t9");
+	asm volatile("addu $gp,$s0,$zero");
+}
+
+char* clib_main(){
+	char* err;
+	unsigned int begin,end,addr;
+	void* clibdata;
+	int* functions;
+	int* got;
+	int i,opos,adjust;
+	char* clib;
+	int record[3];
+	// Insert CMPDATA_USELIB
+	record[0]=g_clib;
+	err=cmpdata_insert(CMPDATA_USECLIB,0,&record[0],1);
+	if (err) return err;
+	// Determine begin and end addresses
+	begin=0x000fffff;
+	end=0;
+	while(1){
+		err=hex_read_line();
+		if (err) return err;
+		if (g_hexline.type==1) {
+			// EOF
+			break;
+		} else if (g_hexline.type==4) {
+			// extended linear address
+			addr=g_hexline.data[0];
+			addr=addr<<8;
+			addr|=g_hexline.data[0];
+			addr=addr<<16;
+		} else if (g_hexline.type==0) {
+			// data
+			addr&=0xffff0000;
+			addr|=g_hexline.address;
+			if (addr<begin) begin=addr;
+			if (end<addr && addr<0x000fffff) {
+				end=addr+g_hexline.size;
+			}
+		} else {
+			// Unknown type
+			return ERR_HEX_ERROR;
+		}
+	}
+	hex_reinit_file();
+	// Assign and clear region
+	check_obj_space((end-begin+3)>>2);
+	clib=(char*)&g_object[g_objpos];
+	got=(int*)&g_object[g_objpos];
+	for(i=0;i<((end-begin+3)>>2);i++) g_object[g_objpos++]=0;
+	// Load binary from HEX file
+	while(1){
+		err=hex_read_line();
+		if (err) return err;
+		if (g_hexline.type==1) {
+			// EOF
+			break;
+		} else if (g_hexline.type==4) {
+			// extended linear address
+			addr=g_hexline.data[0];
+			addr=addr<<8;
+			addr|=g_hexline.data[0];
+			addr=addr<<16;
+		} else if (g_hexline.type==0) {
+			// data
+			addr&=0xffff0000;
+			addr|=g_hexline.address;
+			for(i=0;i<g_hexline.size;i++){
+				clib[addr-begin+i]=g_hexline.data[i];
+			}
+		} else {
+			// Unknown type
+			return ERR_HEX_ERROR;
+		}
+	}
+	// Calculate the adjustment value.
+	// Note that the address of clib_init() is 0x8000.
+	adjust=(int)clib+0x8000-begin-0xA0008000;
+	// Modify Global Offset Table (GOT)
+	for(i=0;i<(0x8000-begin)>>2;i++){
+		if ((got[i]&0xFFF00000)==0xA0000000) {
+			got[i]+=adjust;
+		}
+	}
+	// Call the clib_init() to get the address of clibdata array.
+	clibdata=call_clib_init((void**)&g_data_clib[0],(void*)(0xA0008000+adjust));
+	// Check version
+	if (((int*)clibdata)[0]>SYSVERI) {
+		return "Newer version of C library than MachiKania cannot be used.";
+	}
+	// Get functions array
+	clibdata=(void*)(((int*)clibdata)[2])+adjust;
+	functions=clibdata;
+	// Construct CMPDATA_CLIBFUNC records.
+	while(clib=(char*)functions[0]){
+		clibdata=(void*)functions[1];
+		functions+=2;
+		// clib is function name as string
+		// clibdata is address of C function
+		clib+=adjust;
+		clibdata+=adjust;
+		i=str_to_name_int(clib);
+		if (i<65536) return "Wrong C library function name";
+		record[0]=g_clib;
+		record[1]=i;
+		record[2]=(int)clibdata;
+		err=cmpdata_insert(CMPDATA_CLIBFUNC,0,&record[0],3);
+		if (err) return err;
+	}
+	// Initial assembly is a jump statement to jump to the the following routine.
+	g_object[0]=0x08000000 | ((((int)(&g_object[g_objpos]))&0x0FFFFFFF)>>2); // j xxxxxxxx
+	// Insert initialization code
+	g_object[g_objpos++]=0x3C050000|((((unsigned int)(0xA0008000+adjust))>>16)&0x0000FFFF); // lui   a1,xxxx
+	g_object[g_objpos++]=0x34A50000|(((unsigned int)(0xA0008000+adjust))&0x0000FFFF);       // ori a1,a1,xxxx
+	call_quicklib_code(call_clib_init,ASM_ADDIU_A0_ZERO_ | 0);
+	// All done. Shift g_object as the beginning of main BASIC code.
+	g_object+=g_objpos;
+	g_objpos=0;
+	return 0;
+}
+
+char* useclib_begin(char* buff){
+	int i,j,cwd_id;
+	char* err;
+	char* clibname;
+	char filename[11];
+	int* record;
+	// Remove a objects before USECLIB statement
+	g_objpos=0;
+	// Insert twp NOP assemblies. This will be replaced by branch statement.
+	check_obj_space(2);
+	g_object[g_objpos++]=0x00000000; // nop
+	g_object[g_objpos++]=0x00000000; // nop
+	// Construct HEX file name to open
+	clibname=resolve_label(g_clib);
+	for(i=0;filename[i]=clibname[i];i++);
+	filename[i++]='.';
+	filename[i++]='H';
+	filename[i++]='E';
+	filename[i++]='X';
+	filename[i++]=0;
+	// Open file in current directory
+	err=hex_init_file(buff,filename);
+	if (!err) {
+		// HEX file found in current directory.
+		err=clib_main();
+		hex_close_file();
+	} else {
+		// Hex file not found in current directory.
+		// Find it in LIB directory.
+		if (!FSgetcwd(buff,256)) return ERR_UNKNOWN;
+		for(i=0;buff[i];i++);
+		cwd_id=cmpdata_get_id();
+		if (!cwd_id) return ERR_UNKNOWN;
+		err=cmpdata_insert(CMPDATA_TEMP,cwd_id,(int*)(&buff[0]),(i+1+3)>>2);
+		if (err) return err;
+		// Change current directory to class library directory
+		for(i=0;buff[i]="\\LIB\\"[i];i++);
+		for(j=0;buff[i++]=clibname[j];j++);
+		buff[i]=0;
+		FSchdir(buff);
+		err=hex_init_file(buff,filename);
+		if (!err) {
+			// HEX file found in LIB directory
+			err=clib_main();
+			hex_close_file();
+		} else {
+			err=ERR_NO_CLIB;
+		}
+		// Restore current dirctory
+		cmpdata_reset();
+		while(record=cmpdata_find(CMPDATA_TEMP)){
+			if ((record[0]&0xffff)==cwd_id) break;
+		}
+		if (!record) return ERR_UNKNOWN;
+		FSchdir((char*)(&record[1]));
+		cmpdata_delete(record);
+	}
+	return err;
+}
+
+void lib_clib(int* params, void* address){
+	// Store gp and ra
+	asm volatile("#":::"s0");
+	asm volatile("#":::"ra");
+	asm volatile("addu $t9,$a1,$zero");
+	asm volatile("addu $s0,$gp,$zero");
+	asm volatile("lw $a3,16($a0)");
+	asm volatile("lw $a2,12($a0)");
+	asm volatile("lw $a1,8($a0)");
+	asm volatile("lw $a0,4($a0)");
+	asm volatile("jalr $ra,$t9");
+	asm volatile("addu $gp,$s0,$zero");
+}
+
+char* clib_method(char type){
+	char* err;
+	int* record;
+	int clib,func;
+	int numparams,stack,spos;
+	// CLIB name
+	next_position();
+	spos=g_srcpos;
+	clib=check_var_name();
+	if (clib<65536) return ERR_SYNTAX;
+	// Check if the clib exists
+	cmpdata_reset();
+	while (record=cmpdata_find(CMPDATA_USECLIB)){
+		if (record[1]==clib) break;
+	}
+	if (!record) {
+		g_srcpos=spos;
+		return ERR_NO_CLIB;
+	}
+	if (g_source[g_srcpos++]!=':') return ERR_SYNTAX;
+	if (g_source[g_srcpos++]!=':') return ERR_SYNTAX;
+	// Function name
+	func=check_var_name();
+	if (func<65536) return ERR_SYNTAX;
+	cmpdata_reset();
+	while (record=cmpdata_find(CMPDATA_CLIBFUNC)){
+		if (record[1]==clib && record[2]==func) break;
+	}
+	if (!record) return "Function not found in the C library";
+	// Check type and following syntax
+	if (type==',') {
+		// This is CLIB(CLASS:METHOD) style
+	} else {		
+		// Type is either 0 (integer), $ (string), or # (float)
+		// This is CLASS::METHOD() style
+		if (type) {
+			if (g_source[g_srcpos++]!=type) return ERR_SYNTAX;
+		}
+		if (g_source[g_srcpos++]!='(') return ERR_SYNTAX;
+	}
+	// Construct parameter(s)
+	next_position();
+	numparams=0;
+	if (','==type && g_source[g_srcpos]!=',') {
+		// This is CLIB(CLASS:METHOD) style
+		// no parameter
+	} else if (','!=type && g_source[g_srcpos]==')') {
+		// This is CLASS::METHOD() style
+		// no parameter
+	} else {
+		// There is parameter(s)
+		do {
+			numparams++;
+			if (4<numparams) return ERR_SYNTAX;
+			else if (1==numparams) {
+				check_obj_space(1);
+				stack=g_objpos++;
+			}
+			if (g_source[g_srcpos]==',') g_srcpos++;
+			g_object[stack]=0x27BD0000|(65536-numparams*4);                     // addiu sp,sp,-xx
+			err=get_stringFloatOrValue();
+			if (err) return err;
+			check_obj_space(1);
+			g_object[g_objpos++]=0xAFA20000|(numparams*4);                      // sw    v0,xx(sp)
+			next_position();
+		} while (g_source[g_srcpos]==',');
+	}
+	// Call CLIB
+	check_obj_space(2);
+	g_object[g_objpos++]=0x3C050000|(((unsigned int)record[3])>>16);        // lui   a1,xxxx
+	g_object[g_objpos++]=0x34A50000|(((unsigned int)record[3])&0x0000FFFF); // ori   a1,a1,xxxx
+	call_quicklib_code(lib_clib,ASM_ADDU_A0_SP_ZERO);
	// All done
+	check_obj_space(1);
+	if (numparams) g_object[g_objpos++]=0x27BD0000|(numparams*4);           // addiu sp,sp,xx
+	return 0;
+}
+
+char* clib_statement(){
+	return clib_method(',');
+}
\ No newline at end of file

--- /dev/null
+++ b/mips/zoea/clib.txt
@@ -0,0 +1,108 @@
+＜Cライブラリーの利用方法＞
+
+まず、Cライブラリーの使い方について述べます。作成方法については、下の方を参照して
+下さい。
+
+Cライブラリーの本体は、「*.HEX」ファイルです。拡張子が「HEX」のファイルが、BASIC
+プログラムが置かれているのと同じディレクトリーか、LIBディレクトリーの所定の場所に
+ある事を確認して下さい。
+
+BASICプログラム中では、まず冒頭でUSECLIBステートメントを記述して下さい。
+
+USECLIB x[,y[,z[, ... ]]]
+	Cライブラリーの利用を宣言する。x,y,z等は、ライブラリー名を6文字以内の英数字
+	で指定。
+
+ここでは、「*.HEX」ファイルのファイル名を、指定します。「TCLIB.HEX」なら
+「USECLIB TCLIB」と記述します。
+
+Cライブラリー内の関数を呼び出すには、以下のいずれかの方法を取ります。それぞれの
+関数の詳しい使用方法については、Cライブラリーに付属のドキュメントを参照して下さ
+い。
+
+CLIB xxx::yyy[,z1[,z2 ...]]
+	Cライブラリー内の関数を呼び出す。xxxはライブラリー名、yyyは関数名。z1, z2等
+	は引数（オプション）。
+CLIB(xxx::yyy[,z1[,z2 ... ]])
+	Cライブラリー内の関数を呼び出し、整数を返す。xxxはライブラリー名、yyyは関数
+	名。z1, z2等は引数（オプション）。xxx::yyy([z1[,z2 ... ]])と書いても同じ。
+CLIB$(xxx::yyy[,z1[,z2 ... ]])
+	Cライブラリー内の関数を呼び出し、文字列を返す。xxxはライブラリー名、yyyは関
+	数名。z1, z2等は引数（オプション）。xxx::yyy$([z1[,z2 ... ]])と書いても同じ。
+CLIB#(xxx::yyy[,z1[,z2 ... ]])
+	Cライブラリー内の関数を呼び出し、実数を返す。xxxはライブラリー名、yyyは関
+	数名。z1, z2等は引数（オプション）。xxx::yyy#([z1[,z2 ... ]])と書いても同じ。
+
+＜使用例＞
+
+USECLIB TCLIB
+PRINT TCLIB::TEST$(0)
+PRINT TCLIB::TEST$(1)
+
+＜Cライブラリーの作成方法＞
+
+Cライブラリーを作製する場合には、MPLAB X IDEとXC32コンパイラーのver 1.42以降が
+必要です。
+
+まず、ライブラリー作成用のテンプレートをダウンロードして下さい。少なくとも、次の
+ファイルが含まれているはずです。
+
+clib.c
+clib.h
+clib_p32MX370F512H.ld
+example.c
+
+「File->Project Properties」を選択します。次の設定を確認し、異なっていれば値を
+変更してください。
+	Categories: Conf
+		Compiler Toochains: XC32 (v1.42以降)
+	Categories: xc32-gcc
+		Additinal options: -mgen-pie-static
+		Option categories: Optimization
+			optimization-level: 1
+		Generated Command Line: -g -O1
+	Categories: xc32-ld
+		Additional options: --no-data-init
+		Option categories: General
+			Remove unused sections: チェックを入れる
+		Option categories: Libraries
+			Exclude Standard Libraries: チェックを入れる
+		Generated Command Line: --gc-sections --no-code-in-dinit --no-dinit-in-serial-mem -nostdlib -Map="${DISTDIR}/${PROJECTNAME}.${IMAGE_TYPE}.map"
+
+clib.c, clib.h, clib_p32MX370F512H.ldの３つは、通常は編集せずにそのまま使います。
+example.cを編集(必要ならばファイル名を変更)する事で、Cライブラリーを作製して下さ
+い。コンパイルして出来たHEXファイルが、完成した本体です。
+
+＜Cライブラリーの仕様＞
+
+Cライブラリーを作成するにあたり、以下の規約に従って下さい。
+
+１．グローバル変数・スタティック変数領域の容量は、128バイト。
+　・２０個ほどのグローバル変数・スタティック変数が使用可能。
+　・大きなメモリー領域が必要な場合は、malloc(), calloc(), free()を使用する。
+　・グローバル変数の初期化は、init()関数で行なわなければならない。
+　・スタティック変数は実行前の初期化はできない（常に０で初期化される）。
+
+２．パブリック関数を、その呼び出し名と共にリストアップする事。
+　・functions[]グローバル変数に指定する。
+　・フォーマットについては、example.cを参照。
+
+３．パブリック関数の引数は、４つまで。
+
+４．割り込みは使用出来ない。
+
+＜グローバル変数領域のサイズ変更＞
+
+より大きな変数領域が必要な場合は、calloc()で領域を割り当てる事が推奨されます。
+それでも、グローバル変数領域が足りない場合は、以下の方法でサイズ変更出来ます。
+
+１．clib_p[32MC370F512H.ldを編集する。
+　・「kseg1_data_mem」の設定の所、「-0x080」と「LENGTH = 0x080」となっている所
+　　を適当なサイズに変更する。
+
+２．clib.hを編集する。
+　・「#define CLIB_DATA_MEM_SIZE 0x0080」の所、上記で変更した値と同じになるよう
+　　に、編集する。
+
+＜バージョン履歴＞
+・KM-1209/KM1304 2019年？月公開。

--- a/mips/zoea/compiler.h
+++ b/mips/zoea/compiler.h
@@ -398,6 +398,7 @@ char* coretimer_statement();
 char* coretimer_function();
 char* interrupt_statement();
 
+void init_clib();
 char* useclib_statement();
 char* useclib_begin(char* buff);
 char* clib_method(char type);

--- /dev/null
+++ b/mips/zoea/hexfile.c
@@ -0,0 +1,271 @@
+/*
+   This file is provided under the LGPL license ver 2.1.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
+   http://hp.vector.co.jp/authors/VA016157/
+*/
+
+/*
+	This file is shared by Megalopa and Zoea
+*/
+
+#include "compiler.h"
+#include "api.h"
+
+/*
+ Intel HEX format example
+ :040bf000ffffffcf35
+    +--------------------- Byte count
+    |    +---------------- Address
+    |    |  +------------- Record type (00:Data, 01:EOF, 04: Extended linear addres
+    |    |  |        +---- Data
+    |    |  |        |  +- Checksum
+    |    |  |        |  |
+ : 04 0bf0 00 ffffffcf 35
+ : 02 0000 04 1fc0     1b
+ : 00 0000 01          FF
+
+	Record types:
+		case 0:  // data
+		case 4:  // extended linear address
+		case 1:  // EOF
+
+*/
+
+/*
+	Example of HEX file
+
+:020000040000fa
+:1080000000001c3c707f9c2721e09903e0ffbd2706
+:108010001c00bfaf1000bcaf0e0080101880828f14
+:10802000000044ac1c80828f80ff42241c80848f1f
+:10803000000040a0010042242b184400fdff6054c2
+:10804000000040a02080998f09f820030000000064
+:108050001000bc8f2480828f1c00bf8f0800e003bb
+:048060002000bd2718
+:020000040000fa
+:107f80000000000000000080a47f00a0008000a08e
+:107f9000708000a0fc8000a0000001a0788000a0fc
+:047fa00000000000dd
+:020000040000fa
+:108070000800e0030000000000001c3cf87e9c2784
+:1080800021e09903040080542880828f2880828f09
+:108090000800e003d48042240800e003e480422486
+:1080a00000001c3cd07e9c2721e09903e0ffbd2707
+:1080b0001c00bfaf1000bcaf2c80998f09f82003c3
+:1080c000000000001000bc8f1c00bf8f0800e00300
+:0480d0002000bd27a8
+:020000040000fa
+:1080d40048656c6c6f20576f726c6421000000005f
+:1080e4005468697320697320612074657374000097
+:0880f400544553540000000044
+:020000040000fa
+:1080fc0040010000800000001c8100a00000000076
+:020000040000fa
+:10810c0000000000222222222222222222222222cb
+:020000040000fa
+:0c811c00f48000a0a08000a00000000083
+:00000001FF
+*/
+
+// Use the same global vars in file.c
+extern FSFILE* g_fhandle;
+extern char* g_fbuff;
+extern int g_size;
+extern int g_filepoint;
+// Vars used only in this file
+static unsigned char g_checksum;
+
+void hex_read_file(int blocklen){
+	int i;
+	if (blocklen==512) {
+		// This is first read. Initialize parameter(s).
+		g_srcpos=0;
+		g_filepoint=0;
+	} else if (g_size<512) {
+		// Already reached the end of file.
+		return;
+	} else {
+		// Shift buffer and source position 256 bytes.
+		for(i=0;i<256;i++) g_fbuff[i]=g_fbuff[i+256];
+		g_srcpos-=256;
+		g_filepoint+=256;
+	}
+	// Read 512 or 256 bytes from SD card.
+	g_size=512-blocklen+FSfread((void*)&g_fbuff[512-blocklen],1,blocklen,g_fhandle);
+	// All lower cases
+	for(i=512-blocklen;i<512;i++){
+		if ('A'<=g_fbuff[i] && g_fbuff[i]<='F') g_fbuff[i]+=0x20;
+	}
+}
+
+int hex_read_byte(){
+	unsigned char b1,b2;
+	b1=g_fbuff[g_srcpos++];
+	b2=g_fbuff[g_srcpos++];
+	if ('0'<=b1 && b1<='9') {
+		b1-='0';
+	} else if ('a'<=b1 && b1<='f') {
+		b1-='a';
+		b1+=0x0a;
+	} else {
+		return -1;
+	}
+	if ('0'<=b2 && b2<='9') {
+		b2-='0';
+	} else if ('a'<=b2 && b2<='f') {
+		b2-='a';
+		b2+=0x0a;
+	} else {
+		return -1;
+	}
+	b1=(b1<<4)|b2;
+	g_checksum+=b1;
+	return b1;
+}
+
+char* hex_read_line(){
+	int i,j;
+	// Initialize checksum
+	g_checksum=0;
+	// Maintain at least 256 characters in cache.
+	if (256<=g_srcpos) hex_read_file(256);
+	// Read a hex file line
+	if (g_fbuff[g_srcpos++]!=':') return ERR_HEX_ERROR;
+	// Read size
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	g_hexline.size=(unsigned char)i;
+	// Read address
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	g_hexline.address=(unsigned short)(i<<8);
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	g_hexline.address|=(unsigned short)(i);
+	// Ready type
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	g_hexline.type=(unsigned char)i;
+	// Read data
+	for(j=0;j<g_hexline.size;j++){
+		i=hex_read_byte();
+		if (i<0) return ERR_HEX_ERROR;
+		g_hexline.data[j]=(unsigned char)i;
+	}
+	// Read checksum
+	i=hex_read_byte();
+	if (i<0) return ERR_HEX_ERROR;
+	if (g_checksum) return ERR_HEX_ERROR;
+	// All done. Remove enter.
+	if (g_fbuff[g_srcpos]=='\r') g_srcpos++;
+	if (g_fbuff[g_srcpos]=='\n') g_srcpos++;
+	return 0;
+}
+
+static char g_hex_line[47]=":";
+void hex_construct_byte(unsigned char data,int pos){
+	g_hex_line[pos+0]="0123456789abcdef"[data>>4];
+	g_hex_line[pos+1]="0123456789abcdef"[data&15];
+	g_checksum+=data;
+}
+char* hex_construct_line(){
+	int i;
+	g_checksum=0;
+	// Write size
+	hex_construct_byte(g_hexline.size,1);
+	// Write address
+	hex_construct_byte(g_hexline.address>>8,3);
+	hex_construct_byte(g_hexline.address&0xff,5);
+	// Write type
+	hex_construct_byte(g_hexline.type,7);
+	// Write data
+	for(i=0;i<g_hexline.size;i++){
+		hex_construct_byte(g_hexline.data[i],9+i*2);
+	}
+	// Write checksum
+	hex_construct_byte(0-g_checksum,9+i*2);
+	// All done. Add CRLF and 0x00
+	g_hex_line[11+i*2]=0x0d;
+	g_hex_line[12+i*2]=0x0a;
+	g_hex_line[13+i*2]=0;
+	return (char*)&g_hex_line[0];
+}
+
+void hex_reinit_file(){
+	// Go to point 0
+	FSfseek(g_fhandle,0,SEEK_SET);
+	// Initialize parameters
+	g_srcpos=0;
+	g_filepoint=0;
+	// Read first 512 bytes
+	hex_read_file(512);
+}
+
+char* hex_init_file(char* buff,char* filename){
+	// Open file
+	g_fhandle=FSfopen(filename,"r");
+	if (!g_fhandle) {
+		return ERR_UNKNOWN;
+	}
+	// Initialize parameters
+	g_fbuff=buff;
+	g_source=buff;
+	g_srcpos=0;
+	g_filepoint=0;
+	// Read first 512 bytes
+	hex_read_file(512);
+	return 0;
+}
+
+void hex_close_file(){
+	FSfclose(g_fhandle);
+}
+
+char* hex_write(FSFILE* fhandle){
+	int i,j;
+	char* str;
+	// Construct the line string.
+	str=hex_construct_line();
+	// Determine string length
+	for(i=0;str[i];i++);
+	j=FSfwrite(str,1,i,fhandle);
+	if (j<i) return ERR_FILE;
+	return 0;
+}
+
+
+char* hex_write_address(FSFILE* fhandle,unsigned short addr){
+	int i,j;
+	char* str;
+	addr&=0x7fff; // Write 0x1d00 instead of 0x9d00.
+	g_hexline.size=2;
+	g_hexline.type=4;
+	g_hexline.address=0;
+	g_hexline.data[0]=addr>>8;
+	g_hexline.data[1]=addr&0xff;
+	return hex_write(fhandle);
+}
+
+char* hex_write_data_16(FSFILE* fhandle,unsigned short addr,unsigned int* object){
+	int i,j;
+	char* str;
+	g_hexline.size=16;
+	g_hexline.type=0;
+	g_hexline.address=addr;
+	for(i=0;i<4;i++){
+		g_hexline.data[i*4+0]=object[i];
+		g_hexline.data[i*4+1]=object[i]>>8;
+		g_hexline.data[i*4+2]=object[i]>>16;
+		g_hexline.data[i*4+3]=object[i]>>24;
+	}
+	return hex_write(fhandle);
+}
+
+char* hex_write_eof(FSFILE* fhandle){
+	int i;
+	i=FSfwrite(":00000001FF\x0d\x0a",1,13,fhandle);
+	if (i<13) return ERR_FILE;
+	return 0;
+}
+

--- a/mips/zoea/run.c
+++ b/mips/zoea/run.c
@@ -46,7 +46,7 @@ int runbasic(char *appname,int mode){
 //　　-1:ファイルエラー
 //　　-2:リンクエラー
 //　　1以上:コンパイルエラーの発生行（行番号ではなくファイル上の何行目か）
-	int i;
+	int i,j;
 	char* buff;
 	char* err;
 
@@ -85,19 +85,23 @@ int runbasic(char *appname,int mode){
 	// Initialize music system
 	init_music();
 
+	// Initialize clib
+	init_clib();
+
 	printstr("BASIC "BASVER"\n");
 	wait60thsec(15);
 
 	printstr("Compiling...");
 
 	if (mode==RUNMODE_COPY_AND_RUN) {
-		// Copy the object from MOS
-		appname=(char*)MACHIKANIA_OBJ_ADDRESS;
-		for(i=0;i<RAMSIZE;i++) RAM[i]=appname[i];
 		// Set g_object/g_objpos for library functions like lib_read().
 		// The g_object/g_objpos values are stoared just before MOS.
 		g_object=(int*)g_object_mos;
 		g_objpos=g_objpos_mos;
+		// Copy the object from MOS
+		j=(int)(&g_object[g_objpos])-(int)(&RAM[0]);
+		appname=(char*)MACHIKANIA_OBJ_ADDRESS;
+		for(i=0;i<j;i++) RAM[i]=appname[i];
 	} else {
 		// Initialize compiler
 		cmpdata_init();