Commit: 98d48ce13ededa77468aaa3f6af73c953618344d - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Révision: 98d48ce13ededa77468aaa3f6af73c953618344d (tree)
• l'heure: 2019-05-20 08:14:14
• Auteur: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Message de Log

New MSRA mode.

Change Summary

• modified: mips/megalopa/app_p32MX370F512H.ld
• modified: mips/megalopa/clib.c
• modified: mips/megalopa/cmpdata.c
• modified: mips/megalopa/compiler.h
• modified: mips/megalopa/editor.c
• modified: mips/megalopa/envspecific.h
• modified: mips/megalopa/file.c
• modified: mips/megalopa/globalvars.c
• modified: mips/megalopa/hexfile.c
• modified: mips/megalopa/main.c
• modified: mips/megalopa/run.c
• modified: mips/megalopa/string.c
• modified: mips/megalopa/value.c

Modification

--- a/mips/megalopa/app_p32MX370F512H.ld
+++ b/mips/megalopa/app_p32MX370F512H.ld
@@ -102,9 +102,9 @@ _GEN_EXCPT_ADDR                = _ebase_address + 0x180;
  *************************************************************************/
 MEMORY
 {
-  kseg0_program_mem     (rx)  : ORIGIN = (0x9D006000+0x1000+0x490), LENGTH = (0x80000-0x6000-0x1000-0x490-0x1000-(0x19000-4))
+  kseg0_program_mem     (rx)  : ORIGIN = (0x9D006000+0x1000+0x490), LENGTH = (0x80000-0x6000-0x1000-0x490-0x1000-0x19000)
   /* PERSISTENT_RAM_SIZE: 0x19000, MachiKania object section (MOS) size: 0xD000 (to fit to Zoea) */
-  kseg2_program_mem     (rx)  : ORIGIN = (0x9D080000 - (0x19000-4)), LENGTH = (0xD000-4) /* Some C Functions (editor and compiler) will be located here */
+  kseg2_program_mem     (rx)  : ORIGIN = (0x9D080000 - 0x19000), LENGTH = 0xD000 /* Some C Functions (editor and compiler) will be located here */
   kseg0_boot_mem              : ORIGIN = (0x9D006000+0x1000+0x490), LENGTH = 0 /* dummy */
   exception_mem               : ORIGIN = 0x9D006000, LENGTH = 0x1000
   kseg1_boot_mem              : ORIGIN = (0x9D006000+0x1000), LENGTH = 0x490
@@ -145,13 +145,19 @@ SECTIONS
   {
     KEEP (*\statement.o(.text))
     KEEP (*\function.o(.text))
+    KEEP (*\value.o(.text))
+    KEEP (*\string.o(.text))
     KEEP (*\float.o(.text))
+    KEEP (*\cmpdata.o(.text))
   } >kseg2_program_mem
   .machikaniaobjrodata :
   {
     KEEP (*\statement.o(.rodata))
     KEEP (*\function.o(.rodata))
+    KEEP (*\value.o(.rodata))
+    KEEP (*\string.o(.rodata))
     KEEP (*\float.o(.rodata))
+    KEEP (*\cmpdata.o(.rodata))
   } >kseg2_program_mem
 
   /* Boot Sections */

--- a/mips/megalopa/clib.c
+++ b/mips/megalopa/clib.c
@@ -116,7 +116,7 @@ char* useclib_statement(){
 	int i;
 	int* cmpdata;
 	// Initialize g_data_clib_var[]
-	g_data_clib_var[0]=g_gp;
+	g_data_clib_var[0]=(void*)g_gp;
 	do {
 		next_position();
 		i=check_var_name();

--- a/mips/megalopa/cmpdata.c
+++ b/mips/megalopa/cmpdata.c
@@ -9,6 +9,13 @@
 	This file is shared by Megalopa and Zoea
 */
 
+/*
+	All the code from this file will be assigned in MachiKania Object Section (MOS).
+	MOS will be replaced by BASIC object when constructing self-running HEX file.
+	Therefore, DO NOT place any run-time routine/romdata in this file.
+	See the MOS definition in liker script.
+*/
+
 #include "compiler.h"
 
 /*

--- a/mips/megalopa/compiler.h
+++ b/mips/megalopa/compiler.h
@@ -195,6 +195,8 @@ enum functions{
 };
 
 /* Global vars (see globalvers.c) */
+extern const volatile int g_object_mos;
+extern const volatile int g_objpos_mos;
 extern int g_intconst;
 extern char g_valueisconst;
 extern unsigned int g_rnd_seed;
@@ -256,6 +258,7 @@ char* compile_file();
 int compile_and_link_file(char* buff,char* appname);
 int compile_and_link_main_file(char* buff,char* appname);
 int compile_and_link_class(char* buff,int class);
+int create_self_running_hex(char* hexfilename);
 
 void err_break(void);
 void err_music(char* str);
@@ -404,6 +407,12 @@ void hex_reinit_file();
 void hex_close_file();
 char* hex_read_line();
 char* hex_construct_line();
+#ifdef  FS_DOT_H
+	char* hex_write(FSFILE* fhandle);
+	char* hex_write_address(FSFILE* fhandle,unsigned short addr);
+	char* hex_write_data_16(FSFILE* fhandle,unsigned short addr,unsigned int* object);
+	char* hex_write_eof(FSFILE* fhandle);
+#endif
 
 /* Error messages */
 #define ERR_SYNTAX (char*)(g_err_str[0])

--- a/mips/megalopa/editor.c
+++ b/mips/megalopa/editor.c
@@ -1839,7 +1839,8 @@ void msra(void){
 	setcursor(0,0,COLOR_NORMALTEXT);
 	printstr("Make Self-Running Application\n\n");
 	printstr("(Work on Root Directory)\n");
-
+// MOS: delete region not required
+/*
 	//カレントディレクトリを変数cwdpathにコピー
 	while(1){
 		if(FSgetcwd(cwdpath,PATHNAMEMAX)) break;
@@ -1859,30 +1860,44 @@ void msra(void){
 	pd=tempfile;
 	while(*ps!=0) *pd++=*ps++;
 	*pd=0;
-
+//*/
 	while(1){
 		setcursorcolor(COLOR_NORMALTEXT);
-		printstr("Input File Name (xxx.BAS)\n");
+// MOS: modification
+		printstr("Input File Name (xxx.HEX)\n");
+//		printstr("Input File Name (xxx.BAS)\n");
+
 		if(lineinput(tempfile,8+1+3)<0){
 			//ESCキーが押された
-			FSchdir(cwdpath); //カレントディレクトリを元に戻す
+// MOS: delete region not required
+//			FSchdir(cwdpath); //カレントディレクトリを元に戻す
 			return;
 		}
 		ps=tempfile;
 		while(*ps!='.' && *ps!=0) ps++;
 		if(ps+4>=tempfile+13 ||
 			*ps!='.' ||
-			(*(ps+1)!='b' && *(ps+1)!='B') ||
-			(*(ps+2)!='a' && *(ps+2)!='A') ||
-			(*(ps+3)!='s' && *(ps+3)!='S') ||
+// MOS: modification
+			(*(ps+1)!='h' && *(ps+1)!='H') ||
+			(*(ps+2)!='e' && *(ps+2)!='E') ||
+			(*(ps+3)!='x' && *(ps+3)!='X') ||
+//			(*(ps+1)!='b' && *(ps+1)!='B') ||
+//			(*(ps+2)!='a' && *(ps+2)!='A') ||
+//			(*(ps+3)!='s' && *(ps+3)!='S') ||
 			*(ps+4)!=0){
 				setcursorcolor(COLOR_ERRORTEXT);
-				printstr("File Name Must Be xxx.BAS\n");
+// MOS: modification
+				printstr("File Name Must Be xxx.HEX\n");
+//				printstr("File Name Must Be xxx.BAS\n");
 				continue;
 		}
 		if(overwritecheck(tempfile)) continue;
-		printstr("Writing BASIC File\n");
-		er=savetextfile(tempfile); //ファイル保存、er:エラーコード
+// MOS: modification
+		printstr("Writing HEX File\n");
+//		printstr("Writing BASIC File\n");
+// MOS: modification
+		er=create_self_running_hex(tempfile); //ファイル保存、er:エラーコード
+//		er=savetextfile(tempfile); //ファイル保存、er:エラーコード
 		if(er==0) break;
 		setcursorcolor(COLOR_ERRORTEXT);
 		if(er==ERR_CANTFILEOPEN) printstr("Bad File Name or File Error\n");
@@ -1898,6 +1913,8 @@ void msra(void){
 		}
 	}
 	printstr("OK\n\n");
+// MOS: delete region not required
+/*
 	FSremove(TEMPFILENAME); //実行時に生成する一時ファイルを削除
 	//tempfileからcurrentfileにコピーして終了
 	ps=tempfile;
@@ -1933,6 +1950,7 @@ void msra(void){
 	else if(er==ERR_CANTWRITEFILE){
 		printstr("Write Error\n");
 	}
+//*/
 	setcursorcolor(COLOR_NORMALTEXT);
 	printstr((unsigned char *)Message1);// Hit Any Key
 	inputchar(); //1文字入力待ち
@@ -2044,7 +2062,7 @@ void changewidth(void){
 }
 void run(int test){
 //KM-BASICコンパイル＆実行
-// test 0:コンパイルと実行、0以外:コンパイルのみで終了
+// test 0:コンパイルと実行、1:コンパイルのみで終了、2:コンパイルの後、HEXファイルを作製
 	int er,er2;
 	FSFILE *fp;
 	unsigned int disptoppos,cursorpos;
@@ -2120,7 +2138,18 @@ void run(int test){
 	// Enable Break key
 	g_disable_break=0;
 	//KM-BASIC実行
-	er2=runbasic(TEMPFILENAME,test);
+// MOS: modification
+	switch(test){
+		case 2:
+			er2=runbasic(TEMPFILENAME,1);
+			break;
+		case 0:
+		case 1:
+		default:
+			er2=runbasic(TEMPFILENAME,test);
+			break;
+	}
+//	er2=runbasic(TEMPFILENAME,test);
 
 	stopPCG();//システムフォントに戻す
 	setcursorcolor(COLOR_NORMALTEXT);
@@ -2163,6 +2192,12 @@ void run(int test){
 		FSremove(WORKDIRFILE); //パス名保存ファイル削除
 		break;
 	}
+// MOS: insertion
+	if (2==test) {
+		// Create HEX file as Self Running Apprication
+		msra();
+	}
+//*/
 	while(1){
 		//カレントディレクトリを元に戻す
 		if(FSchdir(cwdpath)){
@@ -2459,7 +2494,7 @@ void control_code_process(unsigned char k,unsigned char sh){
 			break;
 		case VK_F2: //F2キー
 			if(num==0) break;
-			if(sh & CHK_SHIFT) msra(); //create direct running file
+			if(sh & CHK_SHIFT) run(2); //create direct running file
 			else save_as(0); //ファイル名を付けて保存
 			break;
 		case VK_F3: //F3キー

--- a/mips/megalopa/envspecific.h
+++ b/mips/megalopa/envspecific.h
@@ -11,6 +11,7 @@
 #define CPU_CLOCK_HZ 95454533
 #define PERSISTENT_RAM_SIZE (1024*100) // 0x19000
 #define MACHIKANIA_OBJ_ADDRESS (0x9D080000 - (0x19000))
+#define MACHIKANIA_OBJ_INFO (MACHIKANIA_OBJ_ADDRESS-16)
 
 int readbuttons();
 void scroll(int x, int y);

--- a/mips/megalopa/file.c
+++ b/mips/megalopa/file.c
@@ -300,4 +300,4 @@ int compile_and_link_main_file(char* buff,char* appname){
 		to use the same long var name in different files (note that g_long_name_var_num is not reseted after
 		compiling each class code).
 	*/
-}
\ No newline at end of file
+}

--- a/mips/megalopa/globalvars.c
+++ b/mips/megalopa/globalvars.c
@@ -12,10 +12,12 @@
 #include "compiler.h"
 #include "main.h"
 
-// Insert NOP assembly at the begging of MACHIKANIA_OBJ_ADDRESS
-const unsigned int const _obj_start_address[] __attribute__((address(MACHIKANIA_OBJ_ADDRESS))) ={
-	0x00000000, // NOP
-};
+// Store g_object/g_objpos values for MOS at jest before MACHIKANIA_OBJ_ADDRESS.
+// When these values are 0, MOS code is not loaded.
+const volatile int __attribute__((address(MACHIKANIA_OBJ_ADDRESS-16))) _reserved1_mos=0;
+const volatile int __attribute__((address(MACHIKANIA_OBJ_ADDRESS-12))) _reserved2_mos=0;
+const volatile int __attribute__((address(MACHIKANIA_OBJ_ADDRESS-8)))  g_object_mos=0;
+const volatile int __attribute__((address(MACHIKANIA_OBJ_ADDRESS-4)))  g_objpos_mos=0;
 
 // Contain the valus of $gp and $s6 (GPR of MIPS32)
 int g_gp;

--- a/mips/megalopa/hexfile.c
+++ b/mips/megalopa/hexfile.c
@@ -22,6 +22,8 @@
     |    |  |        |  +- Checksum
     |    |  |        |  |
  : 04 0bf0 00 ffffffcf 35
+ : 02 0000 04 1fc0     1b
+ : 00 0000 01          FF
 
 	Record types:
 		case 0:  // data
@@ -161,9 +163,9 @@ char* hex_read_line(){
 	return 0;
 }
 
-static char g_hex_line[46];
+static char g_hex_line[47]=":";
 void hex_construct_byte(unsigned char data,int pos){
-	g_hex_line[pos]  ="0123456789abcdef"[data>>8];
+	g_hex_line[pos+0]="0123456789abcdef"[data>>4];
 	g_hex_line[pos+1]="0123456789abcdef"[data&15];
 	g_checksum+=data;
 }
@@ -171,22 +173,22 @@ char* hex_construct_line(){
 	int i;
 	g_checksum=0;
 	// Write size
-	hex_construct_byte(g_hexline.size,0);
+	hex_construct_byte(g_hexline.size,1);
 	// Write address
-	hex_construct_byte(g_hexline.address>>8,2);
-	hex_construct_byte(g_hexline.address&15,4);
+	hex_construct_byte(g_hexline.address>>8,3);
+	hex_construct_byte(g_hexline.address&0xff,5);
 	// Write type
-	hex_construct_byte(g_hexline.type,6);
+	hex_construct_byte(g_hexline.type,7);
 	// Write data
 	for(i=0;i<g_hexline.size;i++){
-		hex_construct_byte(g_hexline.data[i],8+i);
+		hex_construct_byte(g_hexline.data[i],9+i*2);
 	}
 	// Write checksum
-	hex_construct_byte(0-g_checksum,8+i);
+	hex_construct_byte(0-g_checksum,9+i*2);
 	// All done. Add CRLF and 0x00
-	g_hex_line[10+i]=0x0d;
-	g_hex_line[11+i]=0x0a;
-	g_hex_line[12+i]=0;
+	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];
 }
 
@@ -220,3 +222,50 @@ 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/megalopa/main.c
+++ b/mips/megalopa/main.c
@@ -267,6 +267,7 @@ void printhex32(unsigned int d){
 
 int main(void){
 	char *appname,*s;
+	int use_editor;
 
 	/* ポートの初期設定 */
 	CNPUB = 0xFFFF; // PORTB全てプルアップ(I/O)
@@ -305,6 +306,18 @@ int main(void){
 	// Show blue screen if exception before soft reset.
 	blue_screen();
 
+	// 実行中HEXファイル名がHEXFILEと一致するかどうか
+	use_editor=0;
+	appname=(char*)FILENAME_FLASH_ADDRESS;
+	s=HEXFILE;
+	while(*s++==*appname++) {
+		if(*s==0) {
+			//テキストエディター呼び出し
+			use_editor=1;
+			break;
+		}
+	}
+
 	printstr("MachiKania BASIC System\n");
 	printstr(" Ver "SYSVER1" "SYSVER2" by KENKEN\n");
 	printstr("BASIC Compiler "BASVER"\n");
@@ -314,12 +327,17 @@ int main(void){
 	printstr("Init File System...");
 	// Initialize the File System
 	if(FSInit()==FALSE){ //ファイルシステム初期化
-		//エラーの場合停止
-		setcursorcolor(COLOR_ERRORTEXT);
-		printstr("\nFile System Error\n");
-		printstr("Insert Correct Card\n");
-		printstr("And Reset\n");
-		while(1) asm("wait");
+		if (use_editor) {
+			//エラーの場合停止
+			setcursorcolor(COLOR_ERRORTEXT);
+			printstr("\nFile System Error\n");
+			printstr("Insert Correct Card\n");
+			printstr("And Reset\n");
+			while(1) asm("wait");
+		} else {
+			// MOSモードの場合は、エラー表示の後、続ける
+			printstr("Not Initialized\n");
+		}
 	}
 	printstr("OK\n");
 
@@ -345,19 +363,23 @@ int main(void){
 	set_videomode(initialvmode,0); //ビデオモード切替
 
 	// 実行中HEXファイル名がHEXFILEと一致した場合はエディタ起動
-	appname=(char*)FILENAME_FLASH_ADDRESS;
-	s=HEXFILE;
-	while(*s++==*appname++) if(*s==0) texteditor(); //テキストエディター呼び出し
+	if(use_editor) texteditor(); //テキストエディター呼び出し
 
-	// 実行中HEXファイル名の「.HEX」を「.BAS」に置き換えてBASファイルを実行
-	appname=(char*)FILENAME_FLASH_ADDRESS;
-	s=tempfile;
-	while(*appname!='.') *s++=*appname++;
-	appname=".BAS";
-	while(*appname!=0) *s++=*appname++;
-	*s=0;
-	// buttonmode(); //ボタン有効化
-	g_disable_break=1; // Breakキー無効化
-	runbasic(tempfile,0);
+	if (g_objpos_mos) {
+		// MOSからコードをコピーして実行
+		g_disable_break=1; // Breakキー無効化
+		runbasic(0,2);
+	} else {
+		// 実行中HEXファイル名の「.HEX」を「.BAS」に置き換えてBASファイルを実行
+		appname=(char*)FILENAME_FLASH_ADDRESS;
+		s=tempfile;
+		while(*appname!='.') *s++=*appname++;
+		appname=".BAS";
+		while(*appname!=0) *s++=*appname++;
+		*s=0;
+		// buttonmode(); //ボタン有効化
+		g_disable_break=1; // Breakキー無効化
+		runbasic(tempfile,0);
+	}
 	while(1) asm(WAIT);
 }

--- a/mips/megalopa/run.c
+++ b/mips/megalopa/run.c
@@ -32,10 +32,14 @@ char* printdec(int num){
 	}
 }
 
-int runbasic(char *appname,int test){
+#define RUNMODE_COMPILE_AND_RUN 0
+#define RUNMODE_COMPILE_ONLY    1
+#define RUNMODE_COPY_AND_RUN    2
+
+int runbasic(char *appname,int mode){
 // BASICソースのコンパイルと実行
 // appname 実行するBASICソースファイル
-// test 0:コンパイルと実行、0以外:コンパイルのみで終了
+// mode 0:コンパイルと実行、1:コンパイルのみで終了、2:コンパイル済みオブジェクトを実行
 //
 // 戻り値
 //　　0:正常終了
@@ -57,16 +61,18 @@ int runbasic(char *appname,int test){
 	// Clear object area
 	for(i=0;i<RAMSIZE/4;i++) g_object[i]=0x00000000;
 
-	// Check file error
-	err=init_file(buff,appname);
-	if (err) {
-		setcursorcolor(COLOR_ERRORTEXT);
-		printstr("Can't Open ");
-		printstr(appname);
-		printchar('\n');
-		return -1;
+	if (mode!=RUNMODE_COPY_AND_RUN) {
+		// Check file error
+		err=init_file(buff,appname);
+		if (err) {
+			setcursorcolor(COLOR_ERRORTEXT);
+			printstr("Can't Open ");
+			printstr(appname);
+			printchar('\n');
+			return -1;
+		}
+		close_file();
 	}
-	close_file();	
 
 	// Initialize parameters
 	g_pcg_font=0;
@@ -75,7 +81,6 @@ int runbasic(char *appname,int test){
 	clearscreen();
 	setcursor(0,0,7);
 	g_long_name_var_num=0;
-	cmpdata_init();
 
 	// Initialize music system
 	init_music();
@@ -85,13 +90,24 @@ int runbasic(char *appname,int test){
 
 	printstr("Compiling...");
 
-	// Compile the file
-	i=compile_and_link_main_file(buff,appname);
-	if (i) return i;
-
+	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;
+	} else {
+		// Initialize compiler
+		cmpdata_init();
+		// Compile the file
+		i=compile_and_link_main_file(buff,appname);
+		if (i) return i;
+	}
 	// All done
 	printstr("done\n");
-	if(test) return 0; //コンパイルのみの場合
+	if(mode==RUNMODE_COMPILE_ONLY) return 0; //コンパイルのみの場合
 	wait60thsec(15);
 
 	// Initialize the other parameters
@@ -131,3 +147,114 @@ int runbasic(char *appname,int test){
 
 	return 0;
 }
+
+int create_self_running_hex(char* hexfilename){
+	int i,j,fpos;
+	FSFILE* dst_file;
+	char* buff;
+	char* err;
+	unsigned int* object;
+	unsigned int addr,adjust;
+	unsigned int data[4];
+	// Set buffer positions
+	buff=(char*)&(RAM[RAMSIZE-512]);
+	// Open original and destination HEX files.
+	if (hex_init_file(buff,HEXFILE)) return -1;
+	dst_file=FSfopen(hexfilename,"w");
+	if (!dst_file) {
+		hex_close_file();
+		return -1;
+	}
+	// Copy the HEX file from original MachiKania, except for MOS.
+	addr=0;
+	fpos=0;
+	while(1) {
+		if (0==((fpos++)&0x3ff)) {
+			// Indicator works every 1024 lines
+			printchar('.');
+		}
+		err=hex_read_line();
+		if (err) break;
+		// Determine type and current address.
+		// If address is OK, write it to destination.
+		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[1];
+			addr=addr<<16;
+			// Highest bit will be 1 for 0x9D0xxxxx instead of 0x1D0xxxxx
+			addr|=0x80000000;
+			// Write this anyway
+			err=hex_write(dst_file);
+			if (err) break;
+		} else if (g_hexline.type==0) {
+			// data
+			addr&=0xffff0000;
+			addr|=g_hexline.address;
+			// Write this line if not in MOS
+			if (addr<MACHIKANIA_OBJ_INFO || FILENAME_FLASH_ADDRESS<=addr) {
+				err=hex_write(dst_file);
+				if (err) break;
+			}
+		} else {
+			// Unknown type
+			err=ERR_HEX_ERROR;
+			break;
+		}
+	}
+	hex_close_file();
+	if (err) {
+		FSfclose(dst_file);
+		printstr(err);
+		return -1;
+	}
+	// Save MACHIKANIA_OBJ_INFO
+	addr=MACHIKANIA_OBJ_INFO;
+	err=hex_write_address(dst_file,addr>>16);
+	if (!err) {
+		data[2]=(int)g_object;
+		data[3]=(int)g_objpos;
+		err=hex_write_data_16(dst_file,addr&0xffff,&data[0]);
+	}
+	if (err) {
+		FSfclose(dst_file);
+		printstr(err);
+		return -1;
+	}
+	// Add MOS. Adjustment is for changing address from RAM area to MOS.
+	addr=-1;
+	object=(unsigned int*)(&RAM[0]);
+	adjust=(unsigned int)MACHIKANIA_OBJ_ADDRESS-(unsigned int)object;
+	while(object<(unsigned int*)(&g_object[g_objpos])){
+		if (0==((fpos++)&0x3ff)) {
+			// Indicator works every 1024 lines
+			printchar('.');
+		}
+		if ((0x7fff0000 & ((unsigned int)object+adjust)) != addr) {
+			// Construct a hex line for providing Extended linear addres
+			addr=0x7fff0000 & ((unsigned int)object+adjust);
+			err=hex_write_address(dst_file,addr>>16);
+			if (err) break;
+		}
+		// Construct a hex line for data
+		err=hex_write_data_16(dst_file,((unsigned int)object+adjust)&0xffff,object);
+		if (err) break;
+		// All OK for these 4 words (16 bytes).
+		object+=4;
+		err=0;
+	}
+	if (err) {
+		FSfclose(dst_file);
+		printstr(err);
+		return -1;
+	}
+	// All done. Write EOF
+	err=hex_write_eof(dst_file);
+	FSfclose(dst_file);
+	if (err) return -1;
+	return 0;
+}

--- a/mips/megalopa/string.c
+++ b/mips/megalopa/string.c
@@ -15,6 +15,13 @@
 	char* simple_string(void);
 */
 
+/*
+	All the code from this file will be assigned in MachiKania Object Section (MOS).
+	MOS will be replaced by BASIC object when constructing self-running HEX file.
+	Therefore, DO NOT place any run-time routine/romdata in this file.
+	See the MOS definition in liker script.
+*/
+
 #include "api.h"
 #include "compiler.h"
 

--- a/mips/megalopa/value.c
+++ b/mips/megalopa/value.c
@@ -13,6 +13,13 @@
   Public function is only get_value().
 */
 
+/*
+	All the code from this file will be assigned in MachiKania Object Section (MOS).
+	MOS will be replaced by BASIC object when constructing self-running HEX file.
+	Therefore, DO NOT place any run-time routine/romdata in this file.
+	See the MOS definition in liker script.
+*/
+
 #include "compiler.h"
 
 char* get_value();