Commit: 144 - kmbasic (svn)

BASIC compiler/interpreter for PIC32MX/MZ-80K (suspended)

Commit MetaInfo

• Revision: 144 (tree)
• Time: 2016-07-31 11:59:17
• Author: kmorimatsu

Log Message

1) ver: KM-1200 2) "USEGRAPHIC 0" feature modification 3) Shift current point after GPRINT statement

Change Summary

• modified: mips/branches/zoea/help.txt
• modified: mips/branches/zoea/main.h
• modified: mips/branches/zoea/library.c

Incremental Difference

--- mips/branches/zoea/help.txt	(revision 143)
+++ mips/branches/zoea/help.txt	(revision 144)
@@ -137,9 +137,10 @@
 	様々なシステム値の設定を行なう。＜SYSTEM＞の項を参照。
 USEGRAPHIC [x]
 	グラフィックディスプレイを使用、もしくは使用停止する。x=0で使用停止、
-	x=1で使用、x=2でキャラクターをリセットして使用、x=3でグラフィック領域
-	を確保するが表示はキャラクターディスプレイのまま。xを省略した場合は、
-	x=1と同じ。
+	x=1で使用、x=2で画面とパレットをクリアーして使用、x=3でグラフィック領
+	域を確保するが表示はキャラクターディスプレイのまま。ただし、グラフィッ
+	クディスプレイ未使用の状態でx=0の場合は、領域を確保する。xを省略した場
+	合は、x=1と同じ。
 USEPCG [x]
 	PCGを使用、もしくは使用停止する。x=0で使用停止、x=1で使用、x=2で
 	キャラクターをリセットして使用。xを省略した場合は、x=1と同じ。
@@ -475,7 +476,7 @@
 SYSTEM$(1)
 	MachiKania バージョン文字列、"1.0"等を返す。
 SYSTEM$(2)
-	BASIC バージョン文字列、"KM-1130"等を返す。
+	BASIC バージョン文字列、"KM-1200"等を返す。
 SYSTEM$(3)
 	現在実行中のHEXファイル名、"ZOEA.HEX"等を返す。
 SYSTEM(20)
@@ -541,7 +542,7 @@
 てみて下さい。
 
 ＜バージョン履歴＞
-・KM-1130 2016年公開。
+・KM-1200 2016年8月公開。
 　１．グラフィックディスプレイ機能および、関連のステートメント群を追加。
 　２．浮動小数点演算機能、及び、算術演算関数群を追加。
 　３．VAR, BREAK, SYSTEMステートメントを追加。

--- mips/branches/zoea/main.h	(revision 143)
+++ mips/branches/zoea/main.h	(revision 144)
@@ -7,7 +7,7 @@
 
 #define SYSVER1 "Zoea"
 #define SYSVER2 "0.5"
-#define BASVER "KM-1130"
+#define BASVER "KM-1200"
 
 #define FILENAME_FLASH_ADDRESS 0x9D005800
 #define PIC32MX_RAMSIZE 0x10000

--- mips/branches/zoea/library.c	(revision 143)
+++ mips/branches/zoea/library.c	(revision 144)
@@ -501,14 +501,28 @@
 	}
 }
 
+void allocate_graphic_area(){
+	if (!g_graphic_area) {
+		// Use this pointer like unsigned short GVRAM[G_H_WORD*G_Y_RES] __attribute__ ((aligned (4)));
+		g_graphic_area=(unsigned short*)alloc_memory(G_H_WORD*G_Y_RES/2,ALLOC_GRAPHIC_BLOCK);
+		// Start graphic and clear screen
+		init_graphic(g_graphic_area);
+		// Move current point to (0,0)
+		g_prev_x=g_prev_y=0;
+	}
+}
+
 void lib_usegraphic(int mode){
 	// Modes; 0: stop GRAPHIC, 1: use GRAPHIC, 2: reset GRAPHIC and use it
 	switch(mode){
 		case 0:
-			// Stop GRAPHIC
 			if (g_use_graphic){
+				// Stop GRAPHIC if used
 				set_graphmode(0);
 				g_use_graphic=0;
+			} else {
+				// Prepare GRAPHIC area if not used and not allcated.
+				allocate_graphic_area();
 			}
 			break;
 		case 2:
@@ -519,12 +533,8 @@
 		case 3:
 		default:
 			// Use GRAPHIC
-			if (!g_graphic_area) {
-				// Use this pointer like unsigned short GVRAM[G_H_WORD*G_Y_RES] __attribute__ ((aligned (4)));
-				g_graphic_area=(unsigned short*)alloc_memory(G_H_WORD*G_Y_RES/2,ALLOC_GRAPHIC_BLOCK);
-				// Start graphic and clear screen
-				init_graphic(g_graphic_area);
-			}
+			allocate_graphic_area();
+			// Start showing GRAPHIC with mode 1, but not with mode 3
 			if (mode !=3 && !g_use_graphic){
 				set_graphmode(1);
 				g_use_graphic=1;
@@ -534,6 +544,7 @@
 }
 
 int lib_graphic(int a0, int a1, int v0){
+	unsigned char b;
 	enum functions func=(enum functions)(a0>>24);
 	int x1=(a0>>12)&0x0FFF;
 	int y1=a0&0x0FFF;
@@ -586,6 +597,16 @@
 			break;
 		case FUNC_GPRINT:// X1,Y1,C,BC,S$
 			g_printstr(x1,y1,x2,y2,(unsigned char*)v0);
+			// Move current X,Y according to the string
+			while(b=((unsigned char*)v0)[0]){
+				v0++;
+				if (b==0x0d) {
+					x1=0;
+					y1+=8;
+				} else {
+					x1+=8;
+				}
+			}
 			g_prev_x=x1;
 			g_prev_y=y1;
 			break;
@@ -928,6 +949,7 @@
 			return v0;
 		case LIB_GCLS:
 			if (g_graphic_area) g_clearscreen();
+			g_prev_x=g_prev_y=0;
 			return v0;
 		case LIB_COLOR:
 			setcursorcolor(v0);