Commit: e62bfb9afe5abbf484a001aff3884f25d648c448 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Revisão: e62bfb9afe5abbf484a001aff3884f25d648c448 (tree)
• Hora: 2019-04-14 09:21:02
• Autor: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Mensagem de Log

Accept "_" for label/varnames. Correct protozoa button direction.

Mudança Sumário

• modified: mips/megalopa/compiler.h
• modified: mips/megalopa/debug.c
• modified: mips/megalopa/envspecific.h
• modified: mips/megalopa/error.c
• modified: mips/megalopa/linker.c
• modified: mips/megalopa/reservednames.js
• modified: mips/megalopa/statement.c
• modified: mips/megalopa/varname.c
• add: mips/protozoa/class.txt
• modified: mips/protozoa/compiler.h
• modified: mips/protozoa/debug.c
• modified: mips/protozoa/error.c
• modified: mips/protozoa/interface/videoout.h
• modified: mips/protozoa/linker.c
• modified: mips/protozoa/reservednames.js
• modified: mips/protozoa/statement.c
• modified: mips/protozoa/varname.c
• modified: mips/zoea/compiler.h
• modified: mips/zoea/debug.c
• modified: mips/zoea/error.c
• modified: mips/zoea/linker.c
• modified: mips/zoea/reservednames.js
• modified: mips/zoea/statement.c
• modified: mips/zoea/varname.c

Diff

--- a/mips/megalopa/compiler.h
+++ b/mips/megalopa/compiler.h
@@ -519,5 +519,9 @@ extern int g_int_vector[];
 #define div36_32(x) div32(x,0xe38e38e4,37)
 #define rem36_32(x) (x-36*div36_32(x))
 
+// Divide by 37 (valid for 31 bits)
+#define div37_31(x) div32(x,0xdd67c8a7,37)
+#define rem37_31(x) (x-37*div37_31(x))
+
 // Check if within RAM
 #define withinRAM(x) ((&RAM[0])<=((char*)(x)) && ((char*)(x))<(&RAM[RAMSIZE]))

--- a/mips/megalopa/debug.c
+++ b/mips/megalopa/debug.c
@@ -228,14 +228,11 @@ static const char initext[]=
 "#PRINT\n";
 
 static const char bastext[]=
-"I=1:WHILE I<=10\n"
-"I=I+1:WEND\n"
+"CLS\n"
+"LABEL TEST_:i=0/0\n"
+"\n"
 "\n"
-"I=1:DO\n"
-"I=I+1:LOOP UNTIL I=11\n"
 "\n"
-"FOR I=1 TO 10\n"
-"NEXT\n"
 "\n"
 "\n"
 "\n";

--- a/mips/megalopa/envspecific.h
+++ b/mips/megalopa/envspecific.h
@@ -63,20 +63,19 @@ void err_peri_not_init(void);
 
 #define ADDITIONAL_STR_FUNCTIONS
 #define ADDITIONAL_RESERVED_VAR_NAMES \
-	0x00015045, /*OUT*/ \
-	0x01975e81, /*OUT8H*/ \
-	0x01975e85, /*OUT8L*/ \
-	0x01975d7a, /*OUT16*/ \
-	0x0001015b, /*IN*/ \
-	0x0007dde1, /*IN8H*/ \
-	0x0007dde5, /*IN8L*/ \
-	0x0007dcda, /*IN16*/ \
-	0x05f0a740, /*ANALOG*/ \
-	0x00015596, /*PWM*/ \
-	0x45f58f5d, /*SERIAL*/ \
-	0x000163c6, /*SPI*/ \
-	0x00012de4, /*I2C*/
-
+	0x000154aa, /*OUT*/ \
+	0x01c5c253, /*OUT8H*/ \
+	0x01c5c257, /*OUT8L*/ \
+	0x01c5c145, /*OUT16*/ \
+	0x00010164, /*IN*/ \
+	0x000870fd, /*IN8H*/ \
+	0x00087101, /*IN8L*/ \
+	0x00086fef, /*IN16*/ \
+	0x06bd06f3, /*ANALOG*/ \
+	0x00015a46, /*PWM*/ \
+	0x502e9b15, /*SERIAL*/ \
+	0x0001694a, /*SPI*/ \
+	0x00013077, /*I2C*/ \
 
 #define EXTRA_MASK 0x003F
 #define EXTRA_STEP 0x0001

--- a/mips/megalopa/error.c
+++ b/mips/megalopa/error.c
@@ -62,15 +62,16 @@ char* resolve_label(int s6){
 		s6-=65536;
 		str[6]=0x00;
 		for(i=5;0<=i;i--){
-			if (s6<36) {
-				// First character must be A-Z, corresponding to 1-26 but not 10-35.
+			if (s6<37) {
+				// First character must be A-Z or _, corresponding to 1-27 but not 10-36.
 				// See get_label() for the detail.
-				str[i]=s6-1+'A';
+				if (s6==27) str[i]='_';
+				else str[i]=s6-1+'A';
 				break;
 			} else {
-				// From second, 0-9 corresponds to 0-9 and A-Z corresponds to 10-35.
-				str[i]="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"[rem36_32(s6)];
-				s6=div36_32(s6);
+				// From second, 0-9 corresponds to 0-9 and A-Z corresponds to 10-36.
+				str[i]="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_"[rem37_31(s6)];
+				s6=div37_31(s6);
 			}
 		}
 		return (char*)(str+i);

--- a/mips/megalopa/linker.c
+++ b/mips/megalopa/linker.c
@@ -44,17 +44,19 @@ char* get_label(void){
 			g_label=0;
 			return 0;
 		}
-	} else if ('A'<=b1 && b1<='Z') {
+	} else if ('A'<=b1 && b1<='Z' || b1=='_') {
 		// May be label
+		// When changing here, see also chech_var_name()
 		do {
-			// First character must be A-Z
-			// From second, A-Z and 0-9 can be used.
-			i*=36;
+			// First character must be A-Z or _
+			// From second, A-Z, _, and 0-9 can be used.
+			i*=37;
+			if (b1=='_') b1='Z'+1;
 			if ('0'<=b1 && b1<='9') {
 				i+=b1-'0';
 			} else if (g_srcpos==prevpos) {
-				// First character must be A-Z.
-				// Subtract 9, resulting 1-26 but not 10-35.
+				// First character must be A-Z or _.
+				// Subtract 9, resulting in 1-27 but not 10-36.
 				// This subtraction is required to maintain
 				// final number being <0x80000000.
 				i+=b1-'A'+1;
@@ -63,7 +65,7 @@ char* get_label(void){
 			}
 			g_srcpos++;
 			b1=g_source[g_srcpos];
-		} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z');
+		} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z' || b1=='_');
 		// Length of the label must be between 2 and 6.
 		if (g_srcpos-prevpos<2 || 6<g_srcpos-prevpos) {
 			g_srcpos=prevpos;

--- a/mips/megalopa/reservednames.js
+++ b/mips/megalopa/reservednames.js
@@ -16,14 +16,15 @@ function name2int(name){
 	var i=0;
 	var b1=g_source.charCodeAt(0);
 	do {
-		// First character must be A-Z
-		// From second, A-Z and 0-9 can be used.
-		i*=36;
+		// First character must be A-Z or _
+		// From second, A-Z, _, and 0-9 can be used.
+		i*=37;
+		if (b1=='_'.charCodeAt(0)) b1='Z'.charCodeAt(0)+1;
 		if ('0'.charCodeAt(0)<=b1 && b1<='9'.charCodeAt(0)) {
 			i+=b1-'0'.charCodeAt(0);
 		} else if (g_srcpos==prevpos) {
-			// First character must be A-Z.
-			// Subtract 9, resulting 1-26 but not 10-35.
+			// First character must be A-Z or _.
+			// Subtract 9, resulting in 1-27 but not 10-36.
 			// This subtraction is required to maintain
 			// final number being <0x80000000.
 			i+=b1-'A'.charCodeAt(0)+1;
@@ -32,10 +33,58 @@ function name2int(name){
 		}
 		g_srcpos++;
 		b1=g_source.charCodeAt(g_srcpos);
-	} while ('0'.charCodeAt(0)<= b1 && b1<='9'.charCodeAt(0) || 'A'.charCodeAt(0)<=b1 && b1<='Z'.charCodeAt(0));
+	} while ('0'.charCodeAt(0)<= b1 && b1<='9'.charCodeAt(0) || b1=='_'.charCodeAt(0) ||
+		'A'.charCodeAt(0)<=b1 && b1<='Z'.charCodeAt(0));
 	return i+65536;
 }
 
+function int2name(s6){
+	var rem37_31=function(s6){
+		return s6 % 37;
+	};
+	var div37_31=function(s6){
+		return (s6-(s6 % 37))/37;
+	};
+	var str=new Array();
+	var i,res;
+	s6-=65536;
+	str[6]=0;
+	for(i=5;0<=i;i--){
+		if (s6<37) {
+			// First character must be A-Z or _, corresponding to 1-27 but not 10-36.
+			// See get_label() for the detail.
+			if (s6==27) str[i]='_'.charCodeAt(0);
+			else str[i]=s6-1+'A'.charCodeAt(0);
+			break;
+		} else {
+			// From second, 0-9 corresponds to 0-9 and A-Z corresponds to 10-36.
+			str[i]="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_".charCodeAt(rem37_31(s6));
+			s6=div37_31(s6);
+		}
+	}
+	//return (char*)(str+i);
+	for(res='';str[i];i++) {
+		res+=String.fromCharCode(str[i]);
+	}
+	return res;
+}
+
+// Show max number by this system.
+//WScript.Echo(name2int('______').toString(16));
+
+// Test functions for 10000 times with randomized var names
+for(i=0;i<10000;i++){
+	t="ABCDEFGHIJKLMNOPQRSTUVWXYZ_".charAt(Math.random()*27);
+	for(j=0;j<1+Math.random()*4;j++){
+		t+="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_".charAt(Math.random()*37);
+	}
+	j=name2int(t);
+	if (int2name(j)!=t || j<0 || 0x7fffffff<j) {
+		WScript.Echo('ERROR: '+t+' ('+j+'; 0x'+j.toString(16)+') '+i);
+		WScript.Quit();
+	}
+}
+
 var namearray=[
 	'ABS',
 	'ACOS',
@@ -168,14 +217,16 @@ var namearray=[
 	'I2C',
 ];
 var result='';
+var commented=0;
 for(key in namearray){
 	var nameint='0000'+name2int(namearray[key]).toString(16);
 	nameint=nameint.substr(nameint.length-8);
 	if (namearray[key].substr(0,2)=='//') {
 		// This is a comment
 		result+=namearray[key]+"\r\n";
+		commented=1;
 	} else {
-		result+="\t0x"+nameint+", /*"+namearray[key]+"*/\r\n";
+		result+="\t0x"+nameint+", /*"+namearray[key]+"*/"+(commented ? " \\\r\n" : "\r\n");
 	}
 }
 

--- a/mips/megalopa/statement.c
+++ b/mips/megalopa/statement.c
@@ -313,7 +313,7 @@ char* label_statement(){
 	char* err;
 	char b1;
 	b1=g_source[g_srcpos];
-	if (b1<'A' || 'Z'<b1) return ERR_SYNTAX; // Number is not allowed here.
+	if ('0'<=b1 && b1<='9') return ERR_SYNTAX; // Number is not allowed here.
 	err=get_label();
 	if (err) return err;
 	// Check existing label with the same name here.

--- a/mips/megalopa/varname.c
+++ b/mips/megalopa/varname.c
@@ -18,120 +18,120 @@
 */
 
 static const int reserved_var_names[]={
-	0x000106b8, /*ABS*/
-	0x0001f67c, /*ACOS*/
-	0x0002414c, /*ARGS*/
-	0x0001090c, /*ASC*/
-	0x0002469f, /*ASIN*/
-	0x00024a8f, /*ATAN*/
-	0x002f7c1e, /*ATAN2*/
-	0x0047c31c, /*BREAK*/
-	0x00035869, /*CALL*/
-	0x00575afe, /*CDATA*/
-	0x00036c3d, /*CEIL*/
-	0x000111af, /*CHR*/
-	0x0cb1b682, /*CIRCLE*/
-	0x005d1ea3, /*CLEAR*/
-	0x00011240, /*CLS*/
-	0x005f66cb, /*COLOR*/
-	0x000112ac, /*COS*/
-	0x0003a041, /*COSH*/
-	0x00616415, /*CREAD*/
-	0x0de593fb, /*CURSOR*/
-	0x00040fbe, /*DATA*/
-	0x00011644, /*DEC*/
-	0x0fe19c42, /*DELETE*/
-	0x000116de, /*DIM*/
-	0x000100a8, /*DO*/
-	0x0004fd8e, /*ELSE*/
-	0x1434a177, /*ELSEIF*/
-	0x00011c99, /*END*/
-	0x0091c927, /*ENDIF*/
-	0x00053854, /*EXEC*/
-	0x00011e0d, /*EXP*/
-	0x000579c8, /*FABS*/
-	0x16e3d4be, /*FCLOSE*/
-	0x00058fcf, /*FEOF*/
-	0x00059895, /*FGET*/
-	0x00a67500, /*FGETC*/
-	0x00a7e061, /*FIELD*/
-	0x0005a3a2, /*FILE*/
-	0x177f0ca5, /*FINPUT*/
-	0x0005b1df, /*FLEN*/
-	0x00aa3445, /*FLOAT*/
-	0x00aa363b, /*FLOOR*/
-	0x0005b84d, /*FMOD*/
-	0x00ac5c9f, /*FOPEN*/
-	0x000121db, /*FOR*/
-	0x18352839, /*FPRINT*/
-	0x0005c865, /*FPUT*/
-	0x00ad2e40, /*FPUTC*/
-	0x00aefdec, /*FSEEK*/
-	0x00063b90, /*GCLS*/
-	0x1a808bcb, /*GCOLOR*/
-	0x1ab733b3, /*GETDIR*/
-	0x00c60f03, /*GOSUB*/
-	0x0006796c, /*GOTO*/
-	0x1bcfcc39, /*GPRINT*/
-	0x00012a99, /*HEX*/
-	0x0007ad12, /*IDLE*/
-	0x00010153, /*IF*/
-	0x00f8701a, /*INKEY*/
-	0x00f88ba5, /*INPUT*/
-	0x000130e9, /*INT*/
-	0x00092084, /*KEYS*/
-	0x013be43d, /*LABEL*/
-	0x00013ecf, /*LEN*/
-	0x00013ed5, /*LET*/
-	0x0009e96a, /*LINE*/
-	0x00014030, /*LOG*/
-	0x0145f324, /*LOG10*/
-	0x000a07f9, /*LOOP*/
-	0x000abca3, /*MODF*/
-	0x016418d4, /*MUSIC*/
-	0x000b4321, /*NEXT*/
-	0x000148f8, /*NEW*/
-	0x00014a5d, /*NOT*/
-	0x38a658d7, /*OPTION*/
-	0x000152c0, /*PCG*/
-	0x000cacec, /*PEEK*/
-	0x3b1c6aea, /*PEEK16*/
-	0x3b1c6b2e, /*PEEK32*/
-	0x00010252, /*PI*/
-	0x01ac8479, /*POINT*/
-	0x000ce05e, /*POKE*/
-	0x3c20dc0a, /*POKE16*/
-	0x3c20dc4e, /*POKE32*/
-	0x00015480, /*POW*/
-	0x01aea739, /*PRINT*/
-	0x000cf3d5, /*PSET*/
-	0x3cb45fa4, /*PUBLIC*/
-	0x3cc0fe21, /*PUTBMP*/
-	0x000e18d5, /*READ*/
-	0x00015d2e, /*REM*/
-	0x425c9703, /*RETURN*/
-	0x00015e69, /*RND*/
-	0x45c26d49, /*SCROLL*/
-	0x45f6e3b3, /*SETDIR*/
-	0x00016287, /*SGN*/
-	0x000162cf, /*SIN*/
-	0x000ee52d, /*SINH*/
-	0x01f9a429, /*SOUND*/
-	0x000f0e49, /*SQRT*/
-	0x47f711de, /*SYSTEM*/
-	0x000166bf, /*TAN*/
-	0x000f72ed, /*TANH*/
-	0x020ed5f3, /*TIMER*/
-	0x02182fee, /*TVRAM*/
-	0x022c2a2d, /*UNTIL*/
-	0x4e8887d0, /*USEPCG*/
-	0x4e88a5f3, /*USEVAR*/
-	0x000170dd, /*VAL*/
-	0x000170e3, /*VAR*/
-	0x00119505, /*WAIT*/
-	0x0011a9e9, /*WEND*/
-	0x025aef62, /*WHILE*/
-	0x025b8d75, /*WIDTH*/
+	0x0001070c, /*ABS*/
+	0x0002099d, /*ACOS*/
+	0x000258ac, /*ARGS*/
+	0x00010971, /*ASC*/
+	0x00025e4a, /*ASIN*/
+	0x0002627b, /*ATAN*/
+	0x00343bc9, /*ATAN2*/
+	0x004f5c95, /*BREAK*/
+	0x00038a2f, /*CALL*/
+	0x006110c1, /*CDATA*/
+	0x00039f24, /*CEIL*/
+	0x0001129b, /*CHR*/
+	0x0e7f3303, /*CIRCLE*/
+	0x0067525f, /*CLEAR*/
+	0x00011330, /*CLS*/
+	0x0069cb6b, /*COLOR*/
+	0x0001139f, /*COS*/
+	0x0003d60c, /*COSH*/
+	0x006bf57f, /*CREAD*/
+	0x0fd6b45b, /*CURSOR*/
+	0x00045129, /*DATA*/
+	0x00011776, /*DEC*/
+	0x122a52c0, /*DELETE*/
+	0x00011814, /*DIM*/
+	0x000100ac, /*DO*/
+	0x000551b8, /*ELSE*/
+	0x171a03a1, /*ELSEIF*/
+	0x00011e1d, /*END*/
+	0x00a20bbe, /*ENDIF*/
+	0x00058fdc, /*EXEC*/
+	0x00011f9b, /*EXP*/
+	0x0005da5b, /*FABS*/
+	0x1a358bdd, /*FCLOSE*/
+	0x0005f193, /*FEOF*/
+	0x0005fae1, /*FGET*/
+	0x00b94291, /*FGETC*/
+	0x00bacd24, /*FIELD*/
+	0x00060687, /*FILE*/
+	0x1ae2b2ef, /*FINPUT*/
+	0x00061598, /*FLEN*/
+	0x00bd52ae, /*FLOAT*/
+	0x00bd54b2, /*FLOOR*/
+	0x00061c59, /*FMOD*/
+	0x00bfaa2c, /*FOPEN*/
+	0x000123a9, /*FOR*/
+	0x1badd288, /*FPRINT*/
+	0x00062d52, /*FPUT*/
+	0x00c08ce6, /*FPUTC*/
+	0x00c286ca, /*FSEEK*/
+	0x0006ac5c, /*GCLS*/
+	0x1e59e7b7, /*GCOLOR*/
+	0x1e96cb44, /*GETDIR*/
+	0x00dc556c, /*GOSUB*/
+	0x0006edac, /*GOTO*/
+	0x1fcfed5d, /*GPRINT*/
+	0x00012cef, /*HEX*/
+	0x00083d61, /*IDLE*/
+	0x0001015c, /*IF*/
+	0x01149470, /*INKEY*/
+	0x0114b178, /*INPUT*/
+	0x00013391, /*INT*/
+	0x0009d063, /*KEYS*/
+	0x016022dc, /*LABEL*/
+	0x00014249, /*LEN*/
+	0x0001424f, /*LET*/
+	0x000aa9ff, /*LINE*/
+	0x000143b4, /*LOG*/
+	0x016b0db9, /*LOG10*/
+	0x000aca45, /*LOOP*/
+	0x000b8e81, /*MODF*/
+	0x018c8c85, /*MUSIC*/
+	0x000c21d6, /*NEXT*/
+	0x00014d04, /*NEW*/
+	0x00014e73, /*NOT*/
+	0x40e24fde, /*OPTION*/
+	0x0001575c, /*PCG*/
+	0x000daac8, /*PEEK*/
+	0x43be47b3, /*PEEK16*/
+	0x43be47f9, /*PEEK32*/
+	0x00010262, /*PI*/
+	0x01dd7f7a, /*POINT*/
+	0x000de11a, /*POKE*/
+	0x44e0c435, /*POKE16*/
+	0x44e0c47b, /*POKE32*/
+	0x00015928, /*POW*/
+	0x01dfd111, /*PRINT*/
+	0x000df5af, /*PSET*/
+	0x45858d00, /*PUBLIC*/
+	0x459341b1, /*PUTBMP*/
+	0x000f35e7, /*READ*/
+	0x0001625e, /*REM*/
+	0x4c0e4e9d, /*RETURN*/
+	0x000163a2, /*RND*/
+	0x4ff58ae0, /*SCROLL*/
+	0x50300d40, /*SETDIR*/
+	0x00016802, /*SGN*/
+	0x0001684c, /*SIN*/
+	0x0010130d, /*SINH*/
+	0x02338a69, /*SOUND*/
+	0x00103e75, /*SQRT*/
+	0x526b8f2e, /*SYSTEM*/
+	0x00016c7d, /*TAN*/
+	0x0010ae22, /*TANH*/
+	0x024b5425, /*TIMER*/
+	0x02557a82, /*TVRAM*/
+	0x026bf064, /*UNTIL*/
+	0x59f94768, /*USEPCG*/
+	0x59f9673f, /*USEVAR*/
+	0x0001772d, /*VAL*/
+	0x00017733, /*VAR*/
+	0x0012ff0c, /*WAIT*/
+	0x00131519, /*WEND*/
+	0x02a044ad, /*WHILE*/
+	0x02a0f0f8, /*WIDTH*/
 	// Additional names follow
 	ADDITIONAL_RESERVED_VAR_NAMES
 };
@@ -150,16 +150,18 @@ int check_var_name(){
 	int prevpos=g_srcpos;
 	next_position();
 	b1=g_source[g_srcpos];
-	if (b1<'A' || 'Z'<b1) return -1;
+	// When changing here, see also get_label()
+	if ((b1<'A' || 'Z'<b1) && b1!='_') return -1;
 	do {
-		// First character must be A-Z
-		// From second, A-Z and 0-9 can be used.
-		i*=36;
+		// First character must be A-Z or _
+		// From second, A-Z, _, and 0-9 can be used.
+		i*=37;
+		if (b1=='_') b1='Z'+1;
 		if ('0'<=b1 && b1<='9') {
 			i+=b1-'0';
 		} else if (g_srcpos==prevpos) {
-			// First character must be A-Z.
-			// Subtract 9, resulting 1-26 but not 10-35.
+			// First character must be A-Z or _.
+			// Subtract 9, resulting 1-27 but not 10-36.
 			// This subtraction is required to maintain
 			// final number being <0x80000000.
 			i+=b1-'A'+1;
@@ -168,7 +170,7 @@ int check_var_name(){
 		}
 		g_srcpos++;
 		b1=g_source[g_srcpos];
-	} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z');
+	} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z' || b1=='_');
 	// Length of the label must be between 2 and 6.
 	if (g_srcpos-prevpos<2) {
 		// One letter var name, A-Z

--- /dev/null
+++ b/mips/protozoa/class.txt
@@ -0,0 +1,170 @@
+＜クラスとオブジェクトの利用方法＞
+
+ここでは、オブジェクト指向プログラミングについて述べます。MachiKaniaでは、クラス
+ベースのオブジェクト指向プログラミングが可能です。次のような特徴があります。
+
+　１）オブジェクトは、フィールド(public もしくは private)とメソッド(public のみ)
+　を持つ。
+　２）クラスの記述は別ファイルに於いて行ない、１ファイルに１クラスの記述とする。
+　３）複数のクラスを利用出来る。また、クラス中で別のクラスを利用出来る。
+　４）クラスの継承は、未実装。
+　５）フィールド名とメソッド名には、２文字以上６文字以内の英数字が指定出来る。
+
+別ファイルとしてクラスを記述し、このファイルをクラス指定する事で、複数のファイル
+からなるプログラムを作成する事が可能です。クラス間の接続はフィールドとメソッドを
+介してのみ行なわれます。したがって、同じ名前の変数やラベルが複数のファイルに於い
+て存在していたとしても、それぞれファイルごとに制御が行なわれますので、名前の衝突
+が起きる事はありません。
+
+＜クラスの記述の仕方＞
+
+クラスを作成するには、"クラス名.BAS"の名でテキストファイルを準備します。ただし、
+クラス名は２文字以上６文字以内の英数字です。クラスファイルでは、FIELD, STATIC, 
+METHOD命令が必須です(どれか１種類だけでも使えます)。
+
+FIELD [PUBLIC] x[,y[,z[, ... ]]]
+	クラスファイル中で、パブリックフィールドを宣言する。"PUBLIC"は省略可。
+	x,y,z等はフィールド名を6文字以内の英数字で指定。ただし、フィールドを文字列型
+	で使う場合は、「$」をフィールド名の後ろに付ける。
+FIELD PRIVATE x[,y[,z[, ... ]]]
+	クラスファイル中で、プライベートフィールドを宣言する。x,y,z等はフィールド
+	名を6文字以内の英数字で指定。ただし、フィールドを文字列型で使う場合は「$」を
+	フィールド名の後ろに付け、配列として使う場合は「()」を付ける。
+STATIC [PUBLIC] x[,y[,z[, ... ]]]
+	クラスファイル中で、パブリックスなタティック変数を宣言する。"PUBLIC"は省略可。
+STATIC PRIVATE x[,y[,z[, ... ]]]
+	クラスファイル中で、プライベートなスタティック変数を宣言する。USEVARと同じ。
+METHOD x
+	クラスファイル中で、メソッドを宣言する。xは、メソッド名を6文字以内の英
+	数字で指定。
+
+クラスファイル中でフィールド値（パブリック・プライベートの両方）にアクセスする場
+合は、FIELD指定した長い名前の変数に直接アクセス(読み込み及び書き込み)して下さい。
+「THIS」などの表記は必要ありません。
+
+オブジェクトのフィールドではないスタティックな変数を扱いたい時は、STATICもしくは
+USEVAR命令を使って下さい。ここで使用した長い名前の変数は、他のファイルでの同一名
+の変数の値に影響しません。ただし、変数A-Zの読み出し・変更は、他のファイルで使用
+する値に影響します。
+
+METHOD命令で宣言されたメソッドは、すべてパブリックです。プライベートなサブルー
+チン呼び出しには、LABEL命令とGOSUB命令/関数を用いて下さい。メソッド呼び出しの際
+の引数は、ARGS()関数で取り出す事が可能です。メソッド中で自身のオブジェクトへの
+ポインターが必要な場合は、ARGS(-2)で取り出す事が出来ます。
+
+コンストラクターを指定する場合は、「METHOD INIT」として下さい。このようにINIT
+メソッドが指定された場合、オブジェクト作成時に、このメソッドが呼ばれます。INIT
+メソッドに引数を与える事も可能です(引数は必須ではありません)。
+
+クラス中でオブジェクトへのポインターが必要な場合は、ARGS(-2)で取り出す事が出来
+ます。
+
+記述例(CLASS1.BASの名前で保存)：
+　FIELD PUBLIC TEST1,TEST2
+　FIELD PRIVATE TEST3
+　STATIC PUBLIC TEST7
+　METHOD INIT
+　　IF ARGS(0)=2 THEN
+　　　TEST1=ARGS(1)
+　　　TEST2=ARGS(2)
+　　ENDIF
+　RETURN
+　METHOD TEST4
+　　TEST1=ARGS(1)
+　　TEST2=ARGS(2)
+　RETURN
+　METHOD TEST5
+　　TEST3=TEST1+TEST2+TEST7
+　RETURN
+　METHOD TEST6
+　RETURN TEST3
+　METHOD TEST8
+　RETURN TEST7
+
+＜オブジェクトの作成方法＞
+
+オブジェクトを作成するためには、まずUSECLASS命令で使用するクラスを指定し、次に
+NEW関数を用います。
+
+USECLASS x[,y[,z[, ... ]]]
+	クラスの利用を宣言する。x,y,z等は、クラス名を6文字以内の英数字で指定。
+NEW(x[,y[,z[, ... ]]])
+	クラスオブジェクトを作成し、オブジェクトへのポインターを返す。xはクラス名
+	を指定。y,z等はコンストラクターがある際に利用される引数。
+
+記述例１：
+　USECLASS CLASS1
+　A=NEW(CLASS1)
+
+記述例２（コンストラクターに引数を指定する場合）：
+　USECLASS CLASS1
+　A=NEW(CLASS1,123,456)
+
+＜オブジェクトの破棄方法＞
+
+作成したオブジェクトは、DELETE命令を用いて破棄する事も出来ます。ただし、デストラ
+クターは実装していませんので、必要ならば、それ用のメソッドを作成して破棄する直前に
+呼び出して下さい。
+
+オブジェクトのフィールドに文字列もしくは配列を用いている場合、オブジェクトを
+DELETEするだけではこれらの領域は破棄されません。その場合、まずメソッド内でこれら
+のフィールドを破棄(DELETE命令が使えます)してから、オブジェクトを破棄するようにし
+て下さい。
+
+記述例：
+　USECLASS CLASS1
+　A=NEW(CLASS1)
+　DELETE A
+
+＜フィールドへのアクセス方法＞
+
+パブリックフィールドへアクセスする場合は、オブジェクトを含む変数に続けて「.」と
+フィールド名を記述して下さい。フィールドが文字列の場合は「$」を、実数の場合は
+「#」を、それぞれ後ろに付けて下さい。
+
+記述例：
+　USECLASS CLASS1
+　A=NEW(CLASS1)
+　A.TEST1=123
+　PRINT A.TEST2
+
+＜メソッドへのアクセス方法＞
+
+パブリックメソッドへアクセスする場合は、オブジェクトを含む変数に続けて「.」と
+メソッド名、続けて「( )」を記述して下さい。メソッドが戻り値として文字列を返す場
+合、メソッド名の後ろに「$」を付けて下さい（実数の場合は「#」）。メソッドは関数
+と同じ扱いですが、戻り値を利用しない場合は、CALL命令により呼び出す事も出来ます。
+
+CALL x
+	xで指定されたオブジェクトのメソッドを呼び出す。
+
+記述例（579が表示される）：
+　USECLASS CLASS1
+　A=NEW(CLASS1)
+　CALL A.TEST4(123,456)
+　CALL A.TEST5()
+　PRINT A.TEST6()
+
+＜スタティック変数・スタティックメソッドの利用＞
+
+クラス中で"STATIC PUBLIC"で指定された変数は、外部から値を参照したり、値を変更
+したりすることが出来ます。この場合、クラス名に続けて「::」と変数名を記述して下
+さい。
+
+また、それぞれのメソッドは、スタティックメソッドとして利用する事も出来ます。こ
+の場合、クラス名に続けて「::」とメソッド名、続けて「( )」を記述して下さい。
+
+記述例（123が表示される）:
+　USECLASS CLASS1
+　CLASS1::TEST6=123
+　PRINT CLASS1::TEST7()
+
+＜ライブラリーについて＞
+
+クラスファイルは、カレントディレクトリーに「クラス名.BAS」ファイルが有れば、読み
+出されます。もしカレントディレクトリーに無ければ、「\LIB\クラス名\クラス名.BAS」
+を探し、有ればそれが読み出されます。従って、「\LIB」ディレクトリーにクラス群を
+配置しておけば、いつでも使用可能なライブラリーとして使えます。
+
+＜バージョン履歴＞
+・KM-1207/KM1302 2019年3月公開。

--- a/mips/protozoa/compiler.h
+++ b/mips/protozoa/compiler.h
@@ -519,5 +519,9 @@ extern int g_int_vector[];
 #define div36_32(x) div32(x,0xe38e38e4,37)
 #define rem36_32(x) (x-36*div36_32(x))
 
+// Divide by 37 (valid for 31 bits)
+#define div37_31(x) div32(x,0xdd67c8a7,37)
+#define rem37_31(x) (x-37*div37_31(x))
+
 // Check if within RAM
 #define withinRAM(x) ((&RAM[0])<=((char*)(x)) && ((char*)(x))<(&RAM[RAMSIZE]))

--- a/mips/protozoa/debug.c
+++ b/mips/protozoa/debug.c
@@ -228,14 +228,11 @@ static const char initext[]=
 "#PRINT\n";
 
 static const char bastext[]=
-"I=1:WHILE I<=10\n"
-"I=I+1:WEND\n"
+"CLS\n"
+"LABEL TEST_:i=0/0\n"
+"\n"
 "\n"
-"I=1:DO\n"
-"I=I+1:LOOP UNTIL I=11\n"
 "\n"
-"FOR I=1 TO 10\n"
-"NEXT\n"
 "\n"
 "\n"
 "\n";

--- a/mips/protozoa/error.c
+++ b/mips/protozoa/error.c
@@ -62,15 +62,16 @@ char* resolve_label(int s6){
 		s6-=65536;
 		str[6]=0x00;
 		for(i=5;0<=i;i--){
-			if (s6<36) {
-				// First character must be A-Z, corresponding to 1-26 but not 10-35.
+			if (s6<37) {
+				// First character must be A-Z or _, corresponding to 1-27 but not 10-36.
 				// See get_label() for the detail.
-				str[i]=s6-1+'A';
+				if (s6==27) str[i]='_';
+				else str[i]=s6-1+'A';
 				break;
 			} else {
-				// From second, 0-9 corresponds to 0-9 and A-Z corresponds to 10-35.
-				str[i]="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"[rem36_32(s6)];
-				s6=div36_32(s6);
+				// From second, 0-9 corresponds to 0-9 and A-Z corresponds to 10-36.
+				str[i]="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_"[rem37_31(s6)];
+				s6=div37_31(s6);
 			}
 		}
 		return (char*)(str+i);

--- a/mips/protozoa/interface/videoout.h
+++ b/mips/protozoa/interface/videoout.h
@@ -26,10 +26,10 @@
 	#define KEYRIGHT 0x0010
 	#define KEYUP    0x0020
 #else
-	#define KEYLEFT  0x0004
-	#define KEYUP    0x0008
-	#define KEYDOWN  0x0010
-	#define KEYRIGHT 0x0020
+	#define KEYRIGHT 0x0004
+	#define KEYDOWN  0x0008
+	#define KEYUP    0x0010
+	#define KEYLEFT  0x0020
 #endif
 #define KEYSTART 0x0080
 #define KEYFIRE  0x0100

--- a/mips/protozoa/linker.c
+++ b/mips/protozoa/linker.c
@@ -44,17 +44,19 @@ char* get_label(void){
 			g_label=0;
 			return 0;
 		}
-	} else if ('A'<=b1 && b1<='Z') {
+	} else if ('A'<=b1 && b1<='Z' || b1=='_') {
 		// May be label
+		// When changing here, see also chech_var_name()
 		do {
-			// First character must be A-Z
-			// From second, A-Z and 0-9 can be used.
-			i*=36;
+			// First character must be A-Z or _
+			// From second, A-Z, _, and 0-9 can be used.
+			i*=37;
+			if (b1=='_') b1='Z'+1;
 			if ('0'<=b1 && b1<='9') {
 				i+=b1-'0';
 			} else if (g_srcpos==prevpos) {
-				// First character must be A-Z.
-				// Subtract 9, resulting 1-26 but not 10-35.
+				// First character must be A-Z or _.
+				// Subtract 9, resulting in 1-27 but not 10-36.
 				// This subtraction is required to maintain
 				// final number being <0x80000000.
 				i+=b1-'A'+1;
@@ -63,7 +65,7 @@ char* get_label(void){
 			}
 			g_srcpos++;
 			b1=g_source[g_srcpos];
-		} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z');
+		} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z' || b1=='_');
 		// Length of the label must be between 2 and 6.
 		if (g_srcpos-prevpos<2 || 6<g_srcpos-prevpos) {
 			g_srcpos=prevpos;

--- a/mips/protozoa/reservednames.js
+++ b/mips/protozoa/reservednames.js
@@ -16,14 +16,15 @@ function name2int(name){
 	var i=0;
 	var b1=g_source.charCodeAt(0);
 	do {
-		// First character must be A-Z
-		// From second, A-Z and 0-9 can be used.
-		i*=36;
+		// First character must be A-Z or _
+		// From second, A-Z, _, and 0-9 can be used.
+		i*=37;
+		if (b1=='_'.charCodeAt(0)) b1='Z'.charCodeAt(0)+1;
 		if ('0'.charCodeAt(0)<=b1 && b1<='9'.charCodeAt(0)) {
 			i+=b1-'0'.charCodeAt(0);
 		} else if (g_srcpos==prevpos) {
-			// First character must be A-Z.
-			// Subtract 9, resulting 1-26 but not 10-35.
+			// First character must be A-Z or _.
+			// Subtract 9, resulting in 1-27 but not 10-36.
 			// This subtraction is required to maintain
 			// final number being <0x80000000.
 			i+=b1-'A'.charCodeAt(0)+1;
@@ -32,10 +33,58 @@ function name2int(name){
 		}
 		g_srcpos++;
 		b1=g_source.charCodeAt(g_srcpos);
-	} while ('0'.charCodeAt(0)<= b1 && b1<='9'.charCodeAt(0) || 'A'.charCodeAt(0)<=b1 && b1<='Z'.charCodeAt(0));
+	} while ('0'.charCodeAt(0)<= b1 && b1<='9'.charCodeAt(0) || b1=='_'.charCodeAt(0) ||
+		'A'.charCodeAt(0)<=b1 && b1<='Z'.charCodeAt(0));
 	return i+65536;
 }
 
+function int2name(s6){
+	var rem37_31=function(s6){
+		return s6 % 37;
+	};
+	var div37_31=function(s6){
+		return (s6-(s6 % 37))/37;
+	};
+	var str=new Array();
+	var i,res;
+	s6-=65536;
+	str[6]=0;
+	for(i=5;0<=i;i--){
+		if (s6<37) {
+			// First character must be A-Z or _, corresponding to 1-27 but not 10-36.
+			// See get_label() for the detail.
+			if (s6==27) str[i]='_'.charCodeAt(0);
+			else str[i]=s6-1+'A'.charCodeAt(0);
+			break;
+		} else {
+			// From second, 0-9 corresponds to 0-9 and A-Z corresponds to 10-36.
+			str[i]="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_".charCodeAt(rem37_31(s6));
+			s6=div37_31(s6);
+		}
+	}
+	//return (char*)(str+i);
+	for(res='';str[i];i++) {
+		res+=String.fromCharCode(str[i]);
+	}
+	return res;
+}
+
+// Show max number by this system.
+//WScript.Echo(name2int('______').toString(16));
+
+// Test functions for 10000 times with randomized var names
+for(i=0;i<10000;i++){
+	t="ABCDEFGHIJKLMNOPQRSTUVWXYZ_".charAt(Math.random()*27);
+	for(j=0;j<1+Math.random()*4;j++){
+		t+="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_".charAt(Math.random()*37);
+	}
+	j=name2int(t);
+	if (int2name(j)!=t || j<0 || 0x7fffffff<j) {
+		WScript.Echo('ERROR: '+t+' ('+j+'; 0x'+j.toString(16)+') '+i);
+		WScript.Quit();
+	}
+}
+
 var namearray=[
 	'ABS',
 	'ACOS',
@@ -168,14 +217,16 @@ var namearray=[
 	'I2C',
 ];
 var result='';
+var commented=0;
 for(key in namearray){
 	var nameint='0000'+name2int(namearray[key]).toString(16);
 	nameint=nameint.substr(nameint.length-8);
 	if (namearray[key].substr(0,2)=='//') {
 		// This is a comment
 		result+=namearray[key]+"\r\n";
+		commented=1;
 	} else {
-		result+="\t0x"+nameint+", /*"+namearray[key]+"*/\r\n";
+		result+="\t0x"+nameint+", /*"+namearray[key]+"*/"+(commented ? " \\\r\n" : "\r\n");
 	}
 }
 

--- a/mips/protozoa/statement.c
+++ b/mips/protozoa/statement.c
@@ -313,7 +313,7 @@ char* label_statement(){
 	char* err;
 	char b1;
 	b1=g_source[g_srcpos];
-	if (b1<'A' || 'Z'<b1) return ERR_SYNTAX; // Number is not allowed here.
+	if ('0'<=b1 && b1<='9') return ERR_SYNTAX; // Number is not allowed here.
 	err=get_label();
 	if (err) return err;
 	// Check existing label with the same name here.

--- a/mips/protozoa/varname.c
+++ b/mips/protozoa/varname.c
@@ -18,120 +18,120 @@
 */
 
 static const int reserved_var_names[]={
-	0x000106b8, /*ABS*/
-	0x0001f67c, /*ACOS*/
-	0x0002414c, /*ARGS*/
-	0x0001090c, /*ASC*/
-	0x0002469f, /*ASIN*/
-	0x00024a8f, /*ATAN*/
-	0x002f7c1e, /*ATAN2*/
-	0x0047c31c, /*BREAK*/
-	0x00035869, /*CALL*/
-	0x00575afe, /*CDATA*/
-	0x00036c3d, /*CEIL*/
-	0x000111af, /*CHR*/
-	0x0cb1b682, /*CIRCLE*/
-	0x005d1ea3, /*CLEAR*/
-	0x00011240, /*CLS*/
-	0x005f66cb, /*COLOR*/
-	0x000112ac, /*COS*/
-	0x0003a041, /*COSH*/
-	0x00616415, /*CREAD*/
-	0x0de593fb, /*CURSOR*/
-	0x00040fbe, /*DATA*/
-	0x00011644, /*DEC*/
-	0x0fe19c42, /*DELETE*/
-	0x000116de, /*DIM*/
-	0x000100a8, /*DO*/
-	0x0004fd8e, /*ELSE*/
-	0x1434a177, /*ELSEIF*/
-	0x00011c99, /*END*/
-	0x0091c927, /*ENDIF*/
-	0x00053854, /*EXEC*/
-	0x00011e0d, /*EXP*/
-	0x000579c8, /*FABS*/
-	0x16e3d4be, /*FCLOSE*/
-	0x00058fcf, /*FEOF*/
-	0x00059895, /*FGET*/
-	0x00a67500, /*FGETC*/
-	0x00a7e061, /*FIELD*/
-	0x0005a3a2, /*FILE*/
-	0x177f0ca5, /*FINPUT*/
-	0x0005b1df, /*FLEN*/
-	0x00aa3445, /*FLOAT*/
-	0x00aa363b, /*FLOOR*/
-	0x0005b84d, /*FMOD*/
-	0x00ac5c9f, /*FOPEN*/
-	0x000121db, /*FOR*/
-	0x18352839, /*FPRINT*/
-	0x0005c865, /*FPUT*/
-	0x00ad2e40, /*FPUTC*/
-	0x00aefdec, /*FSEEK*/
-	0x00063b90, /*GCLS*/
-	0x1a808bcb, /*GCOLOR*/
-	0x1ab733b3, /*GETDIR*/
-	0x00c60f03, /*GOSUB*/
-	0x0006796c, /*GOTO*/
-	0x1bcfcc39, /*GPRINT*/
-	0x00012a99, /*HEX*/
-	0x0007ad12, /*IDLE*/
-	0x00010153, /*IF*/
-	0x00f8701a, /*INKEY*/
-	0x00f88ba5, /*INPUT*/
-	0x000130e9, /*INT*/
-	0x00092084, /*KEYS*/
-	0x013be43d, /*LABEL*/
-	0x00013ecf, /*LEN*/
-	0x00013ed5, /*LET*/
-	0x0009e96a, /*LINE*/
-	0x00014030, /*LOG*/
-	0x0145f324, /*LOG10*/
-	0x000a07f9, /*LOOP*/
-	0x000abca3, /*MODF*/
-	0x016418d4, /*MUSIC*/
-	0x000b4321, /*NEXT*/
-	0x000148f8, /*NEW*/
-	0x00014a5d, /*NOT*/
-	0x38a658d7, /*OPTION*/
-	0x000152c0, /*PCG*/
-	0x000cacec, /*PEEK*/
-	0x3b1c6aea, /*PEEK16*/
-	0x3b1c6b2e, /*PEEK32*/
-	0x00010252, /*PI*/
-	0x01ac8479, /*POINT*/
-	0x000ce05e, /*POKE*/
-	0x3c20dc0a, /*POKE16*/
-	0x3c20dc4e, /*POKE32*/
-	0x00015480, /*POW*/
-	0x01aea739, /*PRINT*/
-	0x000cf3d5, /*PSET*/
-	0x3cb45fa4, /*PUBLIC*/
-	0x3cc0fe21, /*PUTBMP*/
-	0x000e18d5, /*READ*/
-	0x00015d2e, /*REM*/
-	0x425c9703, /*RETURN*/
-	0x00015e69, /*RND*/
-	0x45c26d49, /*SCROLL*/
-	0x45f6e3b3, /*SETDIR*/
-	0x00016287, /*SGN*/
-	0x000162cf, /*SIN*/
-	0x000ee52d, /*SINH*/
-	0x01f9a429, /*SOUND*/
-	0x000f0e49, /*SQRT*/
-	0x47f711de, /*SYSTEM*/
-	0x000166bf, /*TAN*/
-	0x000f72ed, /*TANH*/
-	0x020ed5f3, /*TIMER*/
-	0x02182fee, /*TVRAM*/
-	0x022c2a2d, /*UNTIL*/
-	0x4e8887d0, /*USEPCG*/
-	0x4e88a5f3, /*USEVAR*/
-	0x000170dd, /*VAL*/
-	0x000170e3, /*VAR*/
-	0x00119505, /*WAIT*/
-	0x0011a9e9, /*WEND*/
-	0x025aef62, /*WHILE*/
-	0x025b8d75, /*WIDTH*/
+	0x0001070c, /*ABS*/
+	0x0002099d, /*ACOS*/
+	0x000258ac, /*ARGS*/
+	0x00010971, /*ASC*/
+	0x00025e4a, /*ASIN*/
+	0x0002627b, /*ATAN*/
+	0x00343bc9, /*ATAN2*/
+	0x004f5c95, /*BREAK*/
+	0x00038a2f, /*CALL*/
+	0x006110c1, /*CDATA*/
+	0x00039f24, /*CEIL*/
+	0x0001129b, /*CHR*/
+	0x0e7f3303, /*CIRCLE*/
+	0x0067525f, /*CLEAR*/
+	0x00011330, /*CLS*/
+	0x0069cb6b, /*COLOR*/
+	0x0001139f, /*COS*/
+	0x0003d60c, /*COSH*/
+	0x006bf57f, /*CREAD*/
+	0x0fd6b45b, /*CURSOR*/
+	0x00045129, /*DATA*/
+	0x00011776, /*DEC*/
+	0x122a52c0, /*DELETE*/
+	0x00011814, /*DIM*/
+	0x000100ac, /*DO*/
+	0x000551b8, /*ELSE*/
+	0x171a03a1, /*ELSEIF*/
+	0x00011e1d, /*END*/
+	0x00a20bbe, /*ENDIF*/
+	0x00058fdc, /*EXEC*/
+	0x00011f9b, /*EXP*/
+	0x0005da5b, /*FABS*/
+	0x1a358bdd, /*FCLOSE*/
+	0x0005f193, /*FEOF*/
+	0x0005fae1, /*FGET*/
+	0x00b94291, /*FGETC*/
+	0x00bacd24, /*FIELD*/
+	0x00060687, /*FILE*/
+	0x1ae2b2ef, /*FINPUT*/
+	0x00061598, /*FLEN*/
+	0x00bd52ae, /*FLOAT*/
+	0x00bd54b2, /*FLOOR*/
+	0x00061c59, /*FMOD*/
+	0x00bfaa2c, /*FOPEN*/
+	0x000123a9, /*FOR*/
+	0x1badd288, /*FPRINT*/
+	0x00062d52, /*FPUT*/
+	0x00c08ce6, /*FPUTC*/
+	0x00c286ca, /*FSEEK*/
+	0x0006ac5c, /*GCLS*/
+	0x1e59e7b7, /*GCOLOR*/
+	0x1e96cb44, /*GETDIR*/
+	0x00dc556c, /*GOSUB*/
+	0x0006edac, /*GOTO*/
+	0x1fcfed5d, /*GPRINT*/
+	0x00012cef, /*HEX*/
+	0x00083d61, /*IDLE*/
+	0x0001015c, /*IF*/
+	0x01149470, /*INKEY*/
+	0x0114b178, /*INPUT*/
+	0x00013391, /*INT*/
+	0x0009d063, /*KEYS*/
+	0x016022dc, /*LABEL*/
+	0x00014249, /*LEN*/
+	0x0001424f, /*LET*/
+	0x000aa9ff, /*LINE*/
+	0x000143b4, /*LOG*/
+	0x016b0db9, /*LOG10*/
+	0x000aca45, /*LOOP*/
+	0x000b8e81, /*MODF*/
+	0x018c8c85, /*MUSIC*/
+	0x000c21d6, /*NEXT*/
+	0x00014d04, /*NEW*/
+	0x00014e73, /*NOT*/
+	0x40e24fde, /*OPTION*/
+	0x0001575c, /*PCG*/
+	0x000daac8, /*PEEK*/
+	0x43be47b3, /*PEEK16*/
+	0x43be47f9, /*PEEK32*/
+	0x00010262, /*PI*/
+	0x01dd7f7a, /*POINT*/
+	0x000de11a, /*POKE*/
+	0x44e0c435, /*POKE16*/
+	0x44e0c47b, /*POKE32*/
+	0x00015928, /*POW*/
+	0x01dfd111, /*PRINT*/
+	0x000df5af, /*PSET*/
+	0x45858d00, /*PUBLIC*/
+	0x459341b1, /*PUTBMP*/
+	0x000f35e7, /*READ*/
+	0x0001625e, /*REM*/
+	0x4c0e4e9d, /*RETURN*/
+	0x000163a2, /*RND*/
+	0x4ff58ae0, /*SCROLL*/
+	0x50300d40, /*SETDIR*/
+	0x00016802, /*SGN*/
+	0x0001684c, /*SIN*/
+	0x0010130d, /*SINH*/
+	0x02338a69, /*SOUND*/
+	0x00103e75, /*SQRT*/
+	0x526b8f2e, /*SYSTEM*/
+	0x00016c7d, /*TAN*/
+	0x0010ae22, /*TANH*/
+	0x024b5425, /*TIMER*/
+	0x02557a82, /*TVRAM*/
+	0x026bf064, /*UNTIL*/
+	0x59f94768, /*USEPCG*/
+	0x59f9673f, /*USEVAR*/
+	0x0001772d, /*VAL*/
+	0x00017733, /*VAR*/
+	0x0012ff0c, /*WAIT*/
+	0x00131519, /*WEND*/
+	0x02a044ad, /*WHILE*/
+	0x02a0f0f8, /*WIDTH*/
 	// Additional names follow
 	ADDITIONAL_RESERVED_VAR_NAMES
 };
@@ -150,16 +150,18 @@ int check_var_name(){
 	int prevpos=g_srcpos;
 	next_position();
 	b1=g_source[g_srcpos];
-	if (b1<'A' || 'Z'<b1) return -1;
+	// When changing here, see also get_label()
+	if ((b1<'A' || 'Z'<b1) && b1!='_') return -1;
 	do {
-		// First character must be A-Z
-		// From second, A-Z and 0-9 can be used.
-		i*=36;
+		// First character must be A-Z or _
+		// From second, A-Z, _, and 0-9 can be used.
+		i*=37;
+		if (b1=='_') b1='Z'+1;
 		if ('0'<=b1 && b1<='9') {
 			i+=b1-'0';
 		} else if (g_srcpos==prevpos) {
-			// First character must be A-Z.
-			// Subtract 9, resulting 1-26 but not 10-35.
+			// First character must be A-Z or _.
+			// Subtract 9, resulting 1-27 but not 10-36.
 			// This subtraction is required to maintain
 			// final number being <0x80000000.
 			i+=b1-'A'+1;
@@ -168,7 +170,7 @@ int check_var_name(){
 		}
 		g_srcpos++;
 		b1=g_source[g_srcpos];
-	} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z');
+	} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z' || b1=='_');
 	// Length of the label must be between 2 and 6.
 	if (g_srcpos-prevpos<2) {
 		// One letter var name, A-Z

--- a/mips/zoea/compiler.h
+++ b/mips/zoea/compiler.h
@@ -519,5 +519,9 @@ extern int g_int_vector[];
 #define div36_32(x) div32(x,0xe38e38e4,37)
 #define rem36_32(x) (x-36*div36_32(x))
 
+// Divide by 37 (valid for 31 bits)
+#define div37_31(x) div32(x,0xdd67c8a7,37)
+#define rem37_31(x) (x-37*div37_31(x))
+
 // Check if within RAM
 #define withinRAM(x) ((&RAM[0])<=((char*)(x)) && ((char*)(x))<(&RAM[RAMSIZE]))

--- a/mips/zoea/debug.c
+++ b/mips/zoea/debug.c
@@ -228,14 +228,11 @@ static const char initext[]=
 "#PRINT\n";
 
 static const char bastext[]=
-"I=1:WHILE I<=10\n"
-"I=I+1:WEND\n"
+"CLS\n"
+"LABEL TEST_:i=0/0\n"
+"\n"
 "\n"
-"I=1:DO\n"
-"I=I+1:LOOP UNTIL I=11\n"
 "\n"
-"FOR I=1 TO 10\n"
-"NEXT\n"
 "\n"
 "\n"
 "\n";

--- a/mips/zoea/error.c
+++ b/mips/zoea/error.c
@@ -62,15 +62,16 @@ char* resolve_label(int s6){
 		s6-=65536;
 		str[6]=0x00;
 		for(i=5;0<=i;i--){
-			if (s6<36) {
-				// First character must be A-Z, corresponding to 1-26 but not 10-35.
+			if (s6<37) {
+				// First character must be A-Z or _, corresponding to 1-27 but not 10-36.
 				// See get_label() for the detail.
-				str[i]=s6-1+'A';
+				if (s6==27) str[i]='_';
+				else str[i]=s6-1+'A';
 				break;
 			} else {
-				// From second, 0-9 corresponds to 0-9 and A-Z corresponds to 10-35.
-				str[i]="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"[rem36_32(s6)];
-				s6=div36_32(s6);
+				// From second, 0-9 corresponds to 0-9 and A-Z corresponds to 10-36.
+				str[i]="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_"[rem37_31(s6)];
+				s6=div37_31(s6);
 			}
 		}
 		return (char*)(str+i);

--- a/mips/zoea/linker.c
+++ b/mips/zoea/linker.c
@@ -44,17 +44,19 @@ char* get_label(void){
 			g_label=0;
 			return 0;
 		}
-	} else if ('A'<=b1 && b1<='Z') {
+	} else if ('A'<=b1 && b1<='Z' || b1=='_') {
 		// May be label
+		// When changing here, see also chech_var_name()
 		do {
-			// First character must be A-Z
-			// From second, A-Z and 0-9 can be used.
-			i*=36;
+			// First character must be A-Z or _
+			// From second, A-Z, _, and 0-9 can be used.
+			i*=37;
+			if (b1=='_') b1='Z'+1;
 			if ('0'<=b1 && b1<='9') {
 				i+=b1-'0';
 			} else if (g_srcpos==prevpos) {
-				// First character must be A-Z.
-				// Subtract 9, resulting 1-26 but not 10-35.
+				// First character must be A-Z or _.
+				// Subtract 9, resulting in 1-27 but not 10-36.
 				// This subtraction is required to maintain
 				// final number being <0x80000000.
 				i+=b1-'A'+1;
@@ -63,7 +65,7 @@ char* get_label(void){
 			}
 			g_srcpos++;
 			b1=g_source[g_srcpos];
-		} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z');
+		} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z' || b1=='_');
 		// Length of the label must be between 2 and 6.
 		if (g_srcpos-prevpos<2 || 6<g_srcpos-prevpos) {
 			g_srcpos=prevpos;

--- a/mips/zoea/reservednames.js
+++ b/mips/zoea/reservednames.js
@@ -16,14 +16,15 @@ function name2int(name){
 	var i=0;
 	var b1=g_source.charCodeAt(0);
 	do {
-		// First character must be A-Z
-		// From second, A-Z and 0-9 can be used.
-		i*=36;
+		// First character must be A-Z or _
+		// From second, A-Z, _, and 0-9 can be used.
+		i*=37;
+		if (b1=='_'.charCodeAt(0)) b1='Z'.charCodeAt(0)+1;
 		if ('0'.charCodeAt(0)<=b1 && b1<='9'.charCodeAt(0)) {
 			i+=b1-'0'.charCodeAt(0);
 		} else if (g_srcpos==prevpos) {
-			// First character must be A-Z.
-			// Subtract 9, resulting 1-26 but not 10-35.
+			// First character must be A-Z or _.
+			// Subtract 9, resulting in 1-27 but not 10-36.
 			// This subtraction is required to maintain
 			// final number being <0x80000000.
 			i+=b1-'A'.charCodeAt(0)+1;
@@ -32,10 +33,58 @@ function name2int(name){
 		}
 		g_srcpos++;
 		b1=g_source.charCodeAt(g_srcpos);
-	} while ('0'.charCodeAt(0)<= b1 && b1<='9'.charCodeAt(0) || 'A'.charCodeAt(0)<=b1 && b1<='Z'.charCodeAt(0));
+	} while ('0'.charCodeAt(0)<= b1 && b1<='9'.charCodeAt(0) || b1=='_'.charCodeAt(0) ||
+		'A'.charCodeAt(0)<=b1 && b1<='Z'.charCodeAt(0));
 	return i+65536;
 }
 
+function int2name(s6){
+	var rem37_31=function(s6){
+		return s6 % 37;
+	};
+	var div37_31=function(s6){
+		return (s6-(s6 % 37))/37;
+	};
+	var str=new Array();
+	var i,res;
+	s6-=65536;
+	str[6]=0;
+	for(i=5;0<=i;i--){
+		if (s6<37) {
+			// First character must be A-Z or _, corresponding to 1-27 but not 10-36.
+			// See get_label() for the detail.
+			if (s6==27) str[i]='_'.charCodeAt(0);
+			else str[i]=s6-1+'A'.charCodeAt(0);
+			break;
+		} else {
+			// From second, 0-9 corresponds to 0-9 and A-Z corresponds to 10-36.
+			str[i]="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_".charCodeAt(rem37_31(s6));
+			s6=div37_31(s6);
+		}
+	}
+	//return (char*)(str+i);
+	for(res='';str[i];i++) {
+		res+=String.fromCharCode(str[i]);
+	}
+	return res;
+}
+
+// Show max number by this system.
+//WScript.Echo(name2int('______').toString(16));
+
+// Test functions for 10000 times with randomized var names
+for(i=0;i<10000;i++){
+	t="ABCDEFGHIJKLMNOPQRSTUVWXYZ_".charAt(Math.random()*27);
+	for(j=0;j<1+Math.random()*4;j++){
+		t+="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_".charAt(Math.random()*37);
+	}
+	j=name2int(t);
+	if (int2name(j)!=t || j<0 || 0x7fffffff<j) {
+		WScript.Echo('ERROR: '+t+' ('+j+'; 0x'+j.toString(16)+') '+i);
+		WScript.Quit();
+	}
+}
+
 var namearray=[
 	'ABS',
 	'ACOS',
@@ -168,14 +217,16 @@ var namearray=[
 	'I2C',
 ];
 var result='';
+var commented=0;
 for(key in namearray){
 	var nameint='0000'+name2int(namearray[key]).toString(16);
 	nameint=nameint.substr(nameint.length-8);
 	if (namearray[key].substr(0,2)=='//') {
 		// This is a comment
 		result+=namearray[key]+"\r\n";
+		commented=1;
 	} else {
-		result+="\t0x"+nameint+", /*"+namearray[key]+"*/\r\n";
+		result+="\t0x"+nameint+", /*"+namearray[key]+"*/"+(commented ? " \\\r\n" : "\r\n");
 	}
 }
 

--- a/mips/zoea/statement.c
+++ b/mips/zoea/statement.c
@@ -313,7 +313,7 @@ char* label_statement(){
 	char* err;
 	char b1;
 	b1=g_source[g_srcpos];
-	if (b1<'A' || 'Z'<b1) return ERR_SYNTAX; // Number is not allowed here.
+	if ('0'<=b1 && b1<='9') return ERR_SYNTAX; // Number is not allowed here.
 	err=get_label();
 	if (err) return err;
 	// Check existing label with the same name here.

--- a/mips/zoea/varname.c
+++ b/mips/zoea/varname.c
@@ -18,120 +18,120 @@
 */
 
 static const int reserved_var_names[]={
-	0x000106b8, /*ABS*/
-	0x0001f67c, /*ACOS*/
-	0x0002414c, /*ARGS*/
-	0x0001090c, /*ASC*/
-	0x0002469f, /*ASIN*/
-	0x00024a8f, /*ATAN*/
-	0x002f7c1e, /*ATAN2*/
-	0x0047c31c, /*BREAK*/
-	0x00035869, /*CALL*/
-	0x00575afe, /*CDATA*/
-	0x00036c3d, /*CEIL*/
-	0x000111af, /*CHR*/
-	0x0cb1b682, /*CIRCLE*/
-	0x005d1ea3, /*CLEAR*/
-	0x00011240, /*CLS*/
-	0x005f66cb, /*COLOR*/
-	0x000112ac, /*COS*/
-	0x0003a041, /*COSH*/
-	0x00616415, /*CREAD*/
-	0x0de593fb, /*CURSOR*/
-	0x00040fbe, /*DATA*/
-	0x00011644, /*DEC*/
-	0x0fe19c42, /*DELETE*/
-	0x000116de, /*DIM*/
-	0x000100a8, /*DO*/
-	0x0004fd8e, /*ELSE*/
-	0x1434a177, /*ELSEIF*/
-	0x00011c99, /*END*/
-	0x0091c927, /*ENDIF*/
-	0x00053854, /*EXEC*/
-	0x00011e0d, /*EXP*/
-	0x000579c8, /*FABS*/
-	0x16e3d4be, /*FCLOSE*/
-	0x00058fcf, /*FEOF*/
-	0x00059895, /*FGET*/
-	0x00a67500, /*FGETC*/
-	0x00a7e061, /*FIELD*/
-	0x0005a3a2, /*FILE*/
-	0x177f0ca5, /*FINPUT*/
-	0x0005b1df, /*FLEN*/
-	0x00aa3445, /*FLOAT*/
-	0x00aa363b, /*FLOOR*/
-	0x0005b84d, /*FMOD*/
-	0x00ac5c9f, /*FOPEN*/
-	0x000121db, /*FOR*/
-	0x18352839, /*FPRINT*/
-	0x0005c865, /*FPUT*/
-	0x00ad2e40, /*FPUTC*/
-	0x00aefdec, /*FSEEK*/
-	0x00063b90, /*GCLS*/
-	0x1a808bcb, /*GCOLOR*/
-	0x1ab733b3, /*GETDIR*/
-	0x00c60f03, /*GOSUB*/
-	0x0006796c, /*GOTO*/
-	0x1bcfcc39, /*GPRINT*/
-	0x00012a99, /*HEX*/
-	0x0007ad12, /*IDLE*/
-	0x00010153, /*IF*/
-	0x00f8701a, /*INKEY*/
-	0x00f88ba5, /*INPUT*/
-	0x000130e9, /*INT*/
-	0x00092084, /*KEYS*/
-	0x013be43d, /*LABEL*/
-	0x00013ecf, /*LEN*/
-	0x00013ed5, /*LET*/
-	0x0009e96a, /*LINE*/
-	0x00014030, /*LOG*/
-	0x0145f324, /*LOG10*/
-	0x000a07f9, /*LOOP*/
-	0x000abca3, /*MODF*/
-	0x016418d4, /*MUSIC*/
-	0x000b4321, /*NEXT*/
-	0x000148f8, /*NEW*/
-	0x00014a5d, /*NOT*/
-	0x38a658d7, /*OPTION*/
-	0x000152c0, /*PCG*/
-	0x000cacec, /*PEEK*/
-	0x3b1c6aea, /*PEEK16*/
-	0x3b1c6b2e, /*PEEK32*/
-	0x00010252, /*PI*/
-	0x01ac8479, /*POINT*/
-	0x000ce05e, /*POKE*/
-	0x3c20dc0a, /*POKE16*/
-	0x3c20dc4e, /*POKE32*/
-	0x00015480, /*POW*/
-	0x01aea739, /*PRINT*/
-	0x000cf3d5, /*PSET*/
-	0x3cb45fa4, /*PUBLIC*/
-	0x3cc0fe21, /*PUTBMP*/
-	0x000e18d5, /*READ*/
-	0x00015d2e, /*REM*/
-	0x425c9703, /*RETURN*/
-	0x00015e69, /*RND*/
-	0x45c26d49, /*SCROLL*/
-	0x45f6e3b3, /*SETDIR*/
-	0x00016287, /*SGN*/
-	0x000162cf, /*SIN*/
-	0x000ee52d, /*SINH*/
-	0x01f9a429, /*SOUND*/
-	0x000f0e49, /*SQRT*/
-	0x47f711de, /*SYSTEM*/
-	0x000166bf, /*TAN*/
-	0x000f72ed, /*TANH*/
-	0x020ed5f3, /*TIMER*/
-	0x02182fee, /*TVRAM*/
-	0x022c2a2d, /*UNTIL*/
-	0x4e8887d0, /*USEPCG*/
-	0x4e88a5f3, /*USEVAR*/
-	0x000170dd, /*VAL*/
-	0x000170e3, /*VAR*/
-	0x00119505, /*WAIT*/
-	0x0011a9e9, /*WEND*/
-	0x025aef62, /*WHILE*/
-	0x025b8d75, /*WIDTH*/
+	0x0001070c, /*ABS*/
+	0x0002099d, /*ACOS*/
+	0x000258ac, /*ARGS*/
+	0x00010971, /*ASC*/
+	0x00025e4a, /*ASIN*/
+	0x0002627b, /*ATAN*/
+	0x00343bc9, /*ATAN2*/
+	0x004f5c95, /*BREAK*/
+	0x00038a2f, /*CALL*/
+	0x006110c1, /*CDATA*/
+	0x00039f24, /*CEIL*/
+	0x0001129b, /*CHR*/
+	0x0e7f3303, /*CIRCLE*/
+	0x0067525f, /*CLEAR*/
+	0x00011330, /*CLS*/
+	0x0069cb6b, /*COLOR*/
+	0x0001139f, /*COS*/
+	0x0003d60c, /*COSH*/
+	0x006bf57f, /*CREAD*/
+	0x0fd6b45b, /*CURSOR*/
+	0x00045129, /*DATA*/
+	0x00011776, /*DEC*/
+	0x122a52c0, /*DELETE*/
+	0x00011814, /*DIM*/
+	0x000100ac, /*DO*/
+	0x000551b8, /*ELSE*/
+	0x171a03a1, /*ELSEIF*/
+	0x00011e1d, /*END*/
+	0x00a20bbe, /*ENDIF*/
+	0x00058fdc, /*EXEC*/
+	0x00011f9b, /*EXP*/
+	0x0005da5b, /*FABS*/
+	0x1a358bdd, /*FCLOSE*/
+	0x0005f193, /*FEOF*/
+	0x0005fae1, /*FGET*/
+	0x00b94291, /*FGETC*/
+	0x00bacd24, /*FIELD*/
+	0x00060687, /*FILE*/
+	0x1ae2b2ef, /*FINPUT*/
+	0x00061598, /*FLEN*/
+	0x00bd52ae, /*FLOAT*/
+	0x00bd54b2, /*FLOOR*/
+	0x00061c59, /*FMOD*/
+	0x00bfaa2c, /*FOPEN*/
+	0x000123a9, /*FOR*/
+	0x1badd288, /*FPRINT*/
+	0x00062d52, /*FPUT*/
+	0x00c08ce6, /*FPUTC*/
+	0x00c286ca, /*FSEEK*/
+	0x0006ac5c, /*GCLS*/
+	0x1e59e7b7, /*GCOLOR*/
+	0x1e96cb44, /*GETDIR*/
+	0x00dc556c, /*GOSUB*/
+	0x0006edac, /*GOTO*/
+	0x1fcfed5d, /*GPRINT*/
+	0x00012cef, /*HEX*/
+	0x00083d61, /*IDLE*/
+	0x0001015c, /*IF*/
+	0x01149470, /*INKEY*/
+	0x0114b178, /*INPUT*/
+	0x00013391, /*INT*/
+	0x0009d063, /*KEYS*/
+	0x016022dc, /*LABEL*/
+	0x00014249, /*LEN*/
+	0x0001424f, /*LET*/
+	0x000aa9ff, /*LINE*/
+	0x000143b4, /*LOG*/
+	0x016b0db9, /*LOG10*/
+	0x000aca45, /*LOOP*/
+	0x000b8e81, /*MODF*/
+	0x018c8c85, /*MUSIC*/
+	0x000c21d6, /*NEXT*/
+	0x00014d04, /*NEW*/
+	0x00014e73, /*NOT*/
+	0x40e24fde, /*OPTION*/
+	0x0001575c, /*PCG*/
+	0x000daac8, /*PEEK*/
+	0x43be47b3, /*PEEK16*/
+	0x43be47f9, /*PEEK32*/
+	0x00010262, /*PI*/
+	0x01dd7f7a, /*POINT*/
+	0x000de11a, /*POKE*/
+	0x44e0c435, /*POKE16*/
+	0x44e0c47b, /*POKE32*/
+	0x00015928, /*POW*/
+	0x01dfd111, /*PRINT*/
+	0x000df5af, /*PSET*/
+	0x45858d00, /*PUBLIC*/
+	0x459341b1, /*PUTBMP*/
+	0x000f35e7, /*READ*/
+	0x0001625e, /*REM*/
+	0x4c0e4e9d, /*RETURN*/
+	0x000163a2, /*RND*/
+	0x4ff58ae0, /*SCROLL*/
+	0x50300d40, /*SETDIR*/
+	0x00016802, /*SGN*/
+	0x0001684c, /*SIN*/
+	0x0010130d, /*SINH*/
+	0x02338a69, /*SOUND*/
+	0x00103e75, /*SQRT*/
+	0x526b8f2e, /*SYSTEM*/
+	0x00016c7d, /*TAN*/
+	0x0010ae22, /*TANH*/
+	0x024b5425, /*TIMER*/
+	0x02557a82, /*TVRAM*/
+	0x026bf064, /*UNTIL*/
+	0x59f94768, /*USEPCG*/
+	0x59f9673f, /*USEVAR*/
+	0x0001772d, /*VAL*/
+	0x00017733, /*VAR*/
+	0x0012ff0c, /*WAIT*/
+	0x00131519, /*WEND*/
+	0x02a044ad, /*WHILE*/
+	0x02a0f0f8, /*WIDTH*/
 	// Additional names follow
 	ADDITIONAL_RESERVED_VAR_NAMES
 };
@@ -150,16 +150,18 @@ int check_var_name(){
 	int prevpos=g_srcpos;
 	next_position();
 	b1=g_source[g_srcpos];
-	if (b1<'A' || 'Z'<b1) return -1;
+	// When changing here, see also get_label()
+	if ((b1<'A' || 'Z'<b1) && b1!='_') return -1;
 	do {
-		// First character must be A-Z
-		// From second, A-Z and 0-9 can be used.
-		i*=36;
+		// First character must be A-Z or _
+		// From second, A-Z, _, and 0-9 can be used.
+		i*=37;
+		if (b1=='_') b1='Z'+1;
 		if ('0'<=b1 && b1<='9') {
 			i+=b1-'0';
 		} else if (g_srcpos==prevpos) {
-			// First character must be A-Z.
-			// Subtract 9, resulting 1-26 but not 10-35.
+			// First character must be A-Z or _.
+			// Subtract 9, resulting 1-27 but not 10-36.
 			// This subtraction is required to maintain
 			// final number being <0x80000000.
 			i+=b1-'A'+1;
@@ -168,7 +170,7 @@ int check_var_name(){
 		}
 		g_srcpos++;
 		b1=g_source[g_srcpos];
-	} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z');
+	} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z' || b1=='_');
 	// Length of the label must be between 2 and 6.
 	if (g_srcpos-prevpos<2) {
 		// One letter var name, A-Z