Commit: ecd98af46c768fc708c2a7f059ed692bc57d95e5 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Revisión: ecd98af46c768fc708c2a7f059ed692bc57d95e5 (tree)
• Tiempo: 2019-05-03 07:17:04
• Autor: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Log Message

Revise KEYS/INKEY interruptions. Add READKEY() function. Debug using comma in PRINT statement. Revise help.txt

Cambiar Resumen

• modified: mips/megalopa/compiler.h
• modified: mips/megalopa/envspecific.c
• modified: mips/megalopa/envspecific.h
• modified: mips/megalopa/function.c
• modified: mips/megalopa/help.txt
• modified: mips/megalopa/interface/ps2keyboard.h
• modified: mips/megalopa/library.c
• modified: mips/megalopa/timer.c

Diferencia incremental

--- a/mips/megalopa/compiler.h
+++ b/mips/megalopa/compiler.h
@@ -125,6 +125,7 @@ enum libs{
 	LIB_SETDIR         =LIB_STEP*51,
 	LIB_SETDIRFUNC     =LIB_STEP*52,
 	LIB_GETDIR         =LIB_STEP*53,
+	LIB_READKEY        =LIB_STEP*54,
 	LIB_DEBUG          =LIB_STEP*127,
 };
 
@@ -516,6 +517,10 @@ extern int g_int_vector[];
 // Valid for 31 bits for all cases and 32 bits for some cases
 #define div32(x,y,z) ((((unsigned long long)((unsigned long)(x)))*((unsigned long long)((unsigned long)(y))))>>(z))
 
+// Divide by 8 (valid for 32 bits)
+#define div8_32(x) (((unsigned long)(x))>>3)
+#define rem8_32(x) ((x)&0x07)
+
 // Divide by 9 (valid for 32 bits)
 #define div9_32(x) div32(x,0xe38e38e4,35)
 #define rem9_32(x) ((x)-9*div9_32(x))

--- a/mips/megalopa/envspecific.c
+++ b/mips/megalopa/envspecific.c
@@ -11,6 +11,32 @@
 #include "api.h"
 
 /*
+	void printcomma();
+	30, 36, 40, 48, 64, 80 characters per line for Megalopa
+*/
+
+void printcomma(void){
+	switch(textmode){
+		case TMODE_STDTEXT: // 36
+			// Every 9 characters
+			printstr("         "+rem9_32((unsigned int)(cursor-TVRAM)));
+			break;
+		case TMODE_WIDETEXT: // 48
+		case TMODE_WIDETEXT6dot: // 64
+			// Every 8 characters
+			printstr("        "+rem8_32((unsigned int)(cursor-TVRAM)));
+			break;
+		case TMODE_T30: // 30
+		case TMODE_T40: // 40
+		case TMODE_MONOTEXT: // 80
+		default:
+			// Every 10 characters
+			printstr("          "+rem10_32((unsigned int)(cursor-TVRAM)));
+			break;
+	}
+}
+
+/*
 	int readbuttons();
 	Read the tact switches.
 	For Zoea, disable PS/2 keyboard and enable tact switches, then read.

--- a/mips/megalopa/envspecific.h
+++ b/mips/megalopa/envspecific.h
@@ -20,8 +20,11 @@ void pre_run(void);
 void post_run(void);
 void err_peri_not_init(void);
 
-// 30 or 40 characters per line for Zoea
-#define printcomma() printstr("          "+rem10_32((unsigned int)(cursor-TVRAM)))
+// KEYPORT mask for available button inputs
+#define KEYPORTMASK (KEYUP|KEYDOWN|KEYLEFT|KEYRIGHT|KEYSTART|KEYFIRE)
+
+// 30, 36, 40, 48, 64, 80 characters per line for Megalopa
+void printcomma(void);
 
 // Check break key or buttons when executing BASIC code.
 // In PS/2 mode, detect ctrl-break.

--- a/mips/megalopa/function.c
+++ b/mips/megalopa/function.c
@@ -395,6 +395,11 @@ char* exec_function(){
 	return exec_statement();
 }
 
+char* readkey_function(){
+	call_lib_code(LIB_READKEY);
+	return 0;
+}
+
 char* float_constant(float val){
 	volatile int i;
 	((float*)(&i))[0]=val;
@@ -603,6 +608,7 @@ static const void* int_func_list[]={
 	"TIMER(",timer_function,
 	"EXEC(",exec_function,
 	"CORETIMER(",coretimer_function,
+	"READKEY(",readkey_function,
 	// Additional functions follow
 	ADDITIONAL_INT_FUNCTIONS
 };

--- a/mips/megalopa/help.txt
+++ b/mips/megalopa/help.txt
@@ -227,6 +227,13 @@ PLAYWAVE([x])
 READ()
 	DATA文の後から、一つずつデーター（32ビット整数値）を読み出す。「CREAD()」
 	関数も参照。
+READKEY()
+	キーボードバッファーから一文字読み込み、返す。バッファーが空の時は０を返す。
+	戻り値は24ビット整数で、内容は以下の通り。
+		bits 0-7   : ASCII コード
+		bits 8-15  : 仮想キーコード
+		bits 16-23 : シフトキー押下状態。
+		             上位から<0><CAPSLK><NUMLK><SCRLK><Win><ALT><CTRL><SHIFT>。
 RND()
 	0から32767までの擬似乱数を返す。
 SGN(x)
@@ -561,7 +568,7 @@ INTERRUPT xxx,yyy[,z1[,z2 ... ]]
 		KEYS
 			ボタンの押下状態が変化した時。
 		INKEY
-			キーボード押下時。
+			キーボード押下時。READKEY()関数と組み合わせて使う。
 		MUSIC
 			音楽再生の時、最後の音の再生時に割り込み。
 		WAVE
@@ -860,6 +867,7 @@ ON GOTO分やON GOSUB文はサポートしていません。ただし、例え
 　・アイドル機能(IDLEステートメント)を追加。
 　・EXEC()関数を追加。
 　・変数名などで、英数字に加えてアンダースコアーが使用可能に。
+　・PRINTでカンマを使った時の表示不具合を修正。
 ・KM-1302 2019年3月公開。
 　・オブジェクト指向プログラミングに対応
 　・args(0)で引数の数を取得できるようにした

--- a/mips/megalopa/interface/ps2keyboard.h
+++ b/mips/megalopa/interface/ps2keyboard.h
@@ -168,7 +168,12 @@ unsigned char ps2readkey();
 // 上位8ビット：シフト状態（押下：1）、上位から<0><CAPSLK><NUMLK><SCRLK><Win><ALT><CTRL><SHIFT>
 // 英数・記号文字の場合、戻り値としてASCIIコード（それ以外は0を返す）
 
-// Macros for dummy functions
+// Macro(s) follows(s)
+extern unsigned short * volatile keycodebufp1; //キーコード書き込み先頭ポインタ
+extern unsigned short * volatile keycodebufp2; //キーコード読み出し先頭ポインタ
+#define keycodeExists() (keycodebufp1!=keycodebufp2)
+
+// Further macros for dummy functions
 #define ps2mode() (0)
 #define buttonmode() (0)
 #define inPS2MODE() (1)

--- a/mips/megalopa/library.c
+++ b/mips/megalopa/library.c
@@ -943,6 +943,11 @@ int lib_file(enum functions func, int a0, int a1, int v0){
 	return v0;
 }
 
+int lib_readkey(){
+	int ret=ps2readkey();
+	return ret|(vkey<<8);
+}
+
 int _call_library(int a0,int a1,int a2,enum libs a3);
 
 void call_library(void){
@@ -1011,6 +1016,8 @@ int _call_library(int a0,int a1,int v0,enum libs a3){
 			return lib_keys(v0);
 		case LIB_INKEY:
 			return (int)lib_inkey(v0);
+		case LIB_READKEY:
+			return lib_readkey();
 		case LIB_CURSOR:
 			setcursor(g_libparams[1],v0,cursorcolor);
 			return v0;

--- a/mips/megalopa/timer.c
+++ b/mips/megalopa/timer.c
@@ -42,6 +42,10 @@ int g_interrupt_flags;
 // Jump address when interrupt
 int g_int_vector[NUM_INTERRUPT_TYPES];
 
+// Current button status
+static int g_keys_interrupt;
+static unsigned short g_keys_mask;
+
 /*
 	Initialize and termination
 */
@@ -56,6 +60,7 @@ void init_timer(){
 	g_timer=0;
 	// Disable interrupt
 	IEC0bits.CS1IE=0;
+	IFS0bits.CS1IF=0;
 	for(i=0;i<NUM_INTERRUPT_TYPES;i++) g_int_vector[i]=0;
 	// CS0 interrupt every 1/60 sec (triggered by Timer2)
 	IPC0bits.CS0IP=3;
@@ -69,6 +74,8 @@ void init_timer(){
 	asm volatile("ins $t0,$zero,1,15");
 	asm volatile("mtc0 $t0,$12,0");
 	asm volatile("ei");
+	// The other initialization(s)
+	g_keys_interrupt=-1;
 }
 
 void stop_timer(){
@@ -330,9 +337,7 @@ const int* g_keystatus=(int*)&ps2keystatus[0];
 
 #pragma interrupt CS0Handler IPL3SOFT vector 1
 void CS0Handler(void){
-	static int s_keys=-1;
-	static char s_inkey=0;
-	int i;
+	int keys;
 	IFS0bits.CS0IF=0;
 	// Call music function
 	if (g_music_active) musicint();
@@ -341,21 +346,16 @@ void CS0Handler(void){
 		// Raise DRAWCOUNT interrupt flag
 		raise_interrupt_flag(INTERRUPT_DRAWCOUNT);
 		// Check buttons
-		if (0<=s_keys && s_keys!=(KEYPORT&(KEYUP|KEYDOWN|KEYLEFT|KEYRIGHT|KEYSTART|KEYFIRE))) {
+		keys=KEYPORT&KEYPORTMASK;
+		if (g_keys_mask==KEYPORTMASK && 0<=g_keys_interrupt && g_keys_interrupt!=keys) {
 			// Raise KEYS interrupt flag
 			raise_interrupt_flag(INTERRUPT_KEYS);
 		}
-		s_keys=KEYPORT&(KEYUP|KEYDOWN|KEYLEFT|KEYRIGHT|KEYSTART|KEYFIRE);
-		// Check PS/2 keyboard down
+		g_keys_interrupt=keys;
+		g_keys_mask=KEYPORTMASK;
+		// Check PS/2 keyboard input
 		if (g_int_vector[INTERRUPT_INKEY]) {
-			for(i=0;i<64;i++){
-				if (g_keystatus[i]) {
-					// Raise INKEY interrupt flag
-					if (!s_inkey) raise_interrupt_flag(INTERRUPT_INKEY);
-					break;
-				}
-			}
-			s_inkey=(i==64) ? 0:1;
+			if (keycodeExists()) raise_interrupt_flag(INTERRUPT_INKEY);
 		}
 	}
 }