Commit: 84d223af7509730f6d3f4711bb8fea56a0bb31d9 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Revision: 84d223af7509730f6d3f4711bb8fea56a0bb31d9 (tree)
• Time: 2019-05-03 09:15:23
• Author: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Log Message

Megalopa: revise KEYS interrupt.

Change Summary

• modified: mips/megalopa/envspecific.h
• modified: mips/megalopa/help.txt
• modified: mips/megalopa/timer.c

Incremental Difference

--- a/mips/megalopa/envspecific.h
+++ b/mips/megalopa/envspecific.h
@@ -20,9 +20,6 @@ void pre_run(void);
 void post_run(void);
 void err_peri_not_init(void);
 
-// 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);
 

--- a/mips/megalopa/help.txt
+++ b/mips/megalopa/help.txt
@@ -865,6 +865,7 @@ ON GOTO分やON GOSUB文はサポートしていません。ただし、例え
 　・割り込み機能(INTERRUPTステートメント)を追加。
 　・オプション機能(OPTIONステートメント)を追加。
 　・アイドル機能(IDLEステートメント)を追加。
+　・READKEY()関数を追加。
 　・EXEC()関数を追加。
 　・変数名などで、英数字に加えてアンダースコアーが使用可能に。
 　・PRINTでカンマを使った時の表示不具合を修正。

--- a/mips/megalopa/timer.c
+++ b/mips/megalopa/timer.c
@@ -44,7 +44,6 @@ int g_int_vector[NUM_INTERRUPT_TYPES];
 
 // Current button status
 static int g_keys_interrupt;
-static unsigned short g_keys_mask;
 
 /*
 	Initialize and termination
@@ -346,13 +345,18 @@ void CS0Handler(void){
 		// Raise DRAWCOUNT interrupt flag
 		raise_interrupt_flag(INTERRUPT_DRAWCOUNT);
 		// Check buttons
-		keys=KEYPORT&KEYPORTMASK;
-		if (g_keys_mask==KEYPORTMASK && 0<=g_keys_interrupt && g_keys_interrupt!=keys) {
+		if (inPS2MODE()) {
+			keys=readbuttons();
+			ps2mode();
+		} else {
+			keys=readbuttons();
+		}
+		keys=keys  & (KEYUP|KEYDOWN|KEYLEFT|KEYRIGHT|KEYSTART|KEYFIRE);
+		if (0<=g_keys_interrupt && g_keys_interrupt!=keys) {
 			// Raise KEYS interrupt flag
 			raise_interrupt_flag(INTERRUPT_KEYS);
 		}
 		g_keys_interrupt=keys;
-		g_keys_mask=KEYPORTMASK;
 		// Check PS/2 keyboard input
 		if (g_int_vector[INTERRUPT_INKEY]) {
 			if (keycodeExists()) raise_interrupt_flag(INTERRUPT_INKEY);