Max/kichikuou_xsystem35-sdl2
1
0
Fork 0
mirror of https://github.com/kichikuou/xsystem35-sdl2.git synced 2026-09-27 01:00:24 +03:00
Code Issues Packages Projects Releases Wiki Activity
Files
c2f11ecfbe11bc0b07ec8a374de5394f7fbff3ea
kichikuou_xsystem35-sdl2/src/cmd_check.c
T
kichikuou d1befbd355 Add stub for SV command 
Used in Rance4 ver2.05.
2023-01-26 18:35:55 +09:00

1226 lines
22 KiB
C
Raw Blame History

/*
* cmd_check.c SYSTEM35のコマンド解析
*
* Copyright (C) 1997-1998 Masaki Chikama (Wren) <chikama@kasumi.ipl.mech.nagoya-u.ac.jp>
* 1998- <masaki-c@is.aist-nara.ac.jp>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
*/
/* $Id: cmd_check.c,v 1.35 2003/04/22 16:34:28 chikama Exp $ */
#include <stdio.h>
#include <stdlib.h>
#include "portab.h"
#include "cmd_check.h"
#include "debugger.h"
#include "scenario.h"
#include "xsystem35.h"
#include "selection.h"
#include "message.h"
#include "input.h"
static void undeferr();
static void commandsINC() {
int *var = getCaliVariable();
if (*var < 65535) (*var)++;
}
static void commandsDEC() {
int *var = getCaliVariable();
if (*var > 0) (*var)--;
}
/* 変数の代入 */
static void letVar(int type) {
int *varno = getVariable();
int val = getCaliValue();
if (varno == NULL) {
WARNING("varno is NULL");
return;
}
switch(type) {
case '!':
*varno = val; break;
case 0x10: /* += */
*varno = (uint16_t)(*varno + val); break;
case 0x11: /* -= */
*varno = max(0, *varno - val); break;
case 0x12: /* *= */
*varno = (uint16_t)(*varno * val); break;
case 0x13: /* /= */
if (val == 0) *varno = 0;
else *varno /= val;
break;
case 0x14: /* %= */
if (val == 0) *varno = 0;
else *varno %= val;
break;
case 0x15: /* &= */
*varno &= val; break;
case 0x16: /* |= */
*varno |= val; break;
case 0x17: /* ^= */
*varno ^= val; break;
}
// printf("letvar %p=%d\n",varno, val);
}
/* データテーブルの設定 */
static void getDataTableAdr() {
int index = sl_getaddr();
int offset = getCaliValue();
if (offset) {
index = sl_getdAt(index + 4 * (offset - 1));
}
if (NULL == (nact->datatbl_addr = sl_setDataTable(sl_getPage(), index))) {
WARNING("data table address set failed");
}
}
/* < ループ開始 */
static void loopStart() {
int p1 = sl_getc();
int exitadr, limit, direction, step;
int *var;
if (p1 == 0) {
sl_getc();
sl_getc();
} else if (p1 != 1) {
undeferr();
}
exitadr = sl_getaddr();
var = getCaliVariable();
limit = getCaliValue();
direction = getCaliValue();
step = getCaliValue();
if (direction == 0) {
/* dec */
if (p1 == 1) {
*var -= step;
}
if (*var < limit) {
if (p1 == 0) *var-= step;
sl_jmpNear(exitadr);
if (*var < 0) { *var = 0; }
return;
}
} else if (direction == 1) {
/* inc */
if (p1 == 1) {
*var += step;
}
if (*var > limit) {
// if (p1 == 0) *var+= step;
sl_jmpNear(exitadr);
if (*var > 65535) { *var = 65535; }
return;
}
} else {
undeferr();
}
return;
}
static void undeferr() {
SYSERROR("Undefined Command:@ %03d,%05x", sl_getPage(), sl_getIndex());
}
static void message(int c0) {
char buf[512];
char *p = buf;
while (c0 == 0x20 || c0 >= 0x80) {
if (nact->encoding == UTF8) {
*p++ = (char)c0;
} else if (c0 == 0x20) {
*p++ = (char)c0;
} else if (c0 >= 0xe0) {
*p++ = (char)c0; *p++ = (char)sl_getc();
} else if (c0 >= 0xa0) {
*p++ = (char)c0;
} else {
*p++ = (char)c0; *p++ = (char)sl_getc();
}
c0 = sl_getc();
}
sl_ungetc();
if (p != buf) {
*p = '\0';
sys_addMsg(buf);
}
}
void exec_command(void) {
DEBUG_MESSAGE("%d:%x\n", sl_getPage(), sl_getIndex());
int page, index;
int c0 = sl_getc();
if (c0 == BREAKPOINT)
c0 = dbg_handle_breakpoint(sl_getPage(), sl_getIndex() - 1);
if (c0 == 0x20 || c0 >= 0x80) {
message(c0);
return;
}
switch(c0) {
case 0:
/* メッセージのゴミ？ */
break;
case '!':
case 0x10:
case 0x11:
case 0x12:
case 0x13:
case 0x14:
case 0x15:
case 0x16:
case 0x17:
/* 変数代入 */
letVar(c0);
break;
case '#':
/* データテーブルアドレス指定 */
getDataTableAdr();
break;
case '$':
/* 選択肢の登録 */
if (nact->sel.in_setting) {
sel_fixElement();
nact->sel.in_setting = FALSE;
} else {
sel_addRetValue(sl_getaddr());
nact->sel.in_setting = TRUE;
}
break;
case '%':
/* ページコール */
page = getCaliValue();
if (page == 0) {
sl_retFar();
} else {
sl_callFar(page);
}
break;
case '&':
/* ページジャンプ */
sl_jmpFar(getCaliValue());
break;
case '@':
/* puts("ラベルジャンプ") */
sl_jmpNear(sl_getaddr());
break;
case '<':
/* for loop */
loopStart();
break;
case '>':
/* loop end */
sl_jmpNear(sl_getaddr());
break;
case '/':
/* 小文字コマンド */
switch(sl_getc()) {
case 0x00:
commands2F00(); break;
case 0x01:
commands2F01(); break;
case 0x02:
commands2F02(); break;
case 0x03:
commands2F03(); break;
case 0x04:
commands2F04(); break;
case 0x05:
commands2F05(); break;
case 0x06:
commandsINC(); break;
case 0x07:
commandsDEC(); break;
case 0x08:
commands2F08(); break;
case 0x09:
commands2F09(); break;
case 0x0a:
commands2F0A(); break;
case 0x0b:
commands2F0B(); break;
case 0x0c:
commands2F0C(); break;
case 0x0d:
commands2F0D(); break;
case 0x0e:
commands2F0E(); break;
case 0x0f:
commands2F0F(); break;
case 0x10:
commands2F10(); break;
case 0x11:
commands2F11(); break;
case 0x12:
commands2F12(); break;
case 0x13:
commands2F13(); break;
case 0x14:
commands2F14(); break;
case 0x15:
commands2F15(); break;
case 0x16:
commands2F16(); break;
case 0x17:
commands2F17(); break;
case 0x18:
commands2F18(); break;
case 0x19:
commands2F19(); break;
case 0x1a:
commands2F1A(); break;
case 0x1b:
commands2F1B(); break;
case 0x1c:
commands2F1C(); break;
case 0x1d:
commands2F1D(); break;
case 0x1e:
commands2F1E(); break;
case 0x1f:
commands2F1F(); break;
case 0x20:
commands2F20(); break;
case 0x21:
commands2F21(); break;
case 0x22:
commandHH(); break;
case 0x23:
commands2F23(); break;
case 0x24:
commands2F24(); break;
case 0x25:
commands2F25(); break;
case 0x26:
commands2F26(); break;
case 0x27:
commands2F27(); break;
case 0x28:
commands2F28(); break;
case 0x29:
commands2F29(); break;
case 0x2a:
commands2F2A(); break;
case 0x2b:
commands2F2B(); break;
case 0x2c:
commandF(); break;
case 0x2d:
commands2F2D(); break;
case 0x2e:
commands2F2E(); break;
case 0x2f:
commands2F2F(); break;
case 0x30:
commands2F30(); break;
case 0x31:
commands2F31(); break;
case 0x32:
commands2F32(); break;
case 0x33:
commands2F33(); break;
case 0x34:
commands2F34(); break;
case 0x35:
commands2F35(); break;
case 0x36:
commands2F36(); break;
case 0x37:
commands2F37(); break;
case 0x38:
commands2F38(); break;
case 0x39:
commands2F39(); break;
case 0x3a:
commands2F3A(); break;
case 0x3b:
commands2F3B(); break;
case 0x3c:
commands2F3C(); break;
case 0x3d:
commands2F3D(); break;
case 0x3e:
commands2F3E(); break;
case 0x3f:
commands2F3F(); break;
case 0x40:
commands2F40(); break;
case 0x41:
commands2F41(); break;
case 0x42:
commands2F42(); break;
case 0x43:
commands2F43(); break;
case 0x44:
commands2F44(); break;
case 0x45:
commands2F45(); break;
case 0x46:
commands2F46(); break;
case 0x47:
commands2F47(); break;
case 0x48:
commands2F48(); break;
case 0x49:
commands2F49(); break;
case 0x4a:
commands2F4A(); break;
case 0x4b:
commands2F4B(); break;
case 0x4c:
commands2F4C(); break;
case 0x4d:
commands2F4D(); break;
case 0x4e:
commands2F4E(); break;
case 0x4f:
commands2F4F(); break;
case 0x50:
commands2F50(); break;
case 0x51:
commands2F51(); break;
case 0x52:
commands2F52(); break;
case 0x53:
commands2F53(); break;
case 0x54:
commands2F54(); break;
case 0x55:
commands2F55(); break;
case 0x56:
commands2F56(); break;
case 0x57:
commands2F57(); break;
case 0x58:
commands2F58(); break;
case 0x59:
commands2F59(); break;
case 0x5a:
commands2F5A(); break;
case 0x5b:
commands2F5B(); break;
case 0x5c:
commands2F5C(); break;
case 0x5d:
commands2F5D(); break;
case 0x5e:
commands2F5E(); break;
case 0x5f:
commands2F5F(); break;
case 0x60:
commands2F60(); break;
case 0x61:
commands2F61(); break;
case 0x62:
commands2F62(); break;
case 0x63:
commands2F63(); break;
case 0x64:
commands2F64(); break;
case 0x65:
commands2F65(); break;
case 0x66:
commands2F66(); break;
case 0x67:
commands2F67(); break;
case 0x68:
commands2F68(); break;
case 0x69:
commands2F69(); break;
case 0x6a:
commands2F6A(); break;
case 0x6b:
commands2F6B(); break;
case 0x6c:
commands2F6C(); break;
case 0x6d:
commands2F6D(); break;
case 0x6e:
commands2F6E(); break;
case 0x6f:
commands2F6F(); break;
case 0x70:
commands2F70(); break;
case 0x71:
commands2F71(); break;
case 0x72:
commands2F72(); break;
case 0x73:
commands2F73(); break;
case 0x74:
commands2F74(); break;
case 0x75:
commands2F75(); break;
case 0x76:
commands2F76(); break;
case 0x77:
commands2F77(); break;
case 0x78:
commands2F78(); break;
case 0x79:
commands2F79(); break;
case 0x7A:
commands2F7A(); break;
case 0x7B:
commands2F7B(); break;
case 0x7C:
commands2F7C(); break;
case 0x7D:
commands2F7D(); break;
case 0x7E:
commands2F7E(); break;
case 0x7F:
commands2F7F(); break;
case 0x80:
commands2F80(); break;
case 0x81:
commands2F81(); break;
case 0x82:
commands2F82(); break;
case 0x83:
commands2F83(); break;
case 0x84:
commands2F84(); break;
case 0x85:
commands2F85(); break;
case 0x86:
commands2F86(); break;
case 0x87:
commands2F87(); break;
case 0x88:
commands2F88(); break;
case 0x89:
commands2F89(); break;
case 0x8A:
commands2F8A(); break;
case 0x8B:
commands2F8B(); break;
case 0x8C:
commands2F8C(); break;
default:
undeferr();
}
break;
case 'A':
/* hit Any Key */
sys_hit_any_key();
msg_nextPage(TRUE);
DEBUG_COMMAND("A");
break;
case 'B':
switch(sl_getc()) {
case 0:
commandB0(); break;
case 1:
commandB1(); break;
case 2:
commandB2(); break;
case 3:
commandB3(); break;
case 4:
commandB4(); break;
case 10:
commandB10(); break;
case 11:
commandB11(); break;
case 12:
commandB12(); break;
case 13:
commandB13(); break;
case 14:
commandB14(); break;
case 21:
commandB21(); break;
case 22:
commandB22(); break;
case 23:
commandB23(); break;
case 24:
commandB24(); break;
case 31:
commandB31(); break;
case 32:
commandB32(); break;
case 33:
commandB33(); break;
case 34:
commandB34(); break;
default:
undeferr();
}
break;
case 'C':
switch(sl_getc()) {
case 'B':
commandCB(); break;
case 'C':
commandCC(); break;
case 'D':
commandCD(); break;
case 'E':
commandCE(); break;
case 'F':
commandCF(); break;
case 'K':
commandCK(); break;
case 'L':
commandCL(); break;
case 'M':
commandCM(); break;
case 'P':
commandCP(); break;
case 'S':
commandCS(); break;
case 'T':
commandCT(); break;
case 'U':
commandCU(); break;
case 'V':
commandCV(); break;
case 'X':
commandCX(); break;
case 'Y':
commandCY(); break;
case 'Z':
commandCZ(); break;
default:
undeferr();
}
break;
case 'D':
switch(sl_getc()) {
case 'C':
commandDC(); break;
case 'I':
commandDI(); break;
case 'S':
commandDS(); break;
case 'R':
commandDR(); break;
case 'F':
commandDF(); break;
default:
undeferr();
}
break;
case 'E':
switch(sl_getc()) {
case 'S':
commandES(); break;
case 'C':
commandEC(); break;
case 'G':
commandEG(); break;
case 'M':
commandEM(); break;
case 'N':
commandEN(); break;
default:
undeferr();
}
break;
case 'F':
commandF(); break;
case 'G':
switch(sl_getc()) {
case 0:
commandG0(); break;
case 1:
commandG1(); break;
case 'S':
commandGS(); break;
case 'X':
commandGX(); break;
default:
undeferr();
}
break;
case 'H':
commandH(); break;
case 'I':
switch(sl_getc()) {
case 'K':
commandIK(); break;
case 'M':
commandIM(); break;
case 'C':
commandIC(); break;
case 'Z':
commandIZ(); break;
case 'X':
commandIX(); break;
case 'Y':
commandIY(); break;
case 'G':
commandIG(); break;
case 'E':
commandIE(); break;
default:
undeferr();
}
break;
case 'J':
switch(sl_getc()) {
case 0:
commandJ0(); break;
case 1:
commandJ1(); break;
case 2:
commandJ2(); break;
case 3:
commandJ3(); break;
case 4:
commandJ4(); break;
default:
undeferr();
}
break;
case 'K':
switch(sl_getc()) {
case 'I':
commandKI(); break;
case 'K':
commandKK(); break;
case 'N':
commandKN(); break;
case 'P':
commandKP(); break;
case 'Q':
commandKQ(); break;
case 'R':
commandKR(); break;
case 'W':
commandKW(); break;
default:
undeferr();
}
break;
case 'L':
switch(sl_getc()) {
case 'C':
commandLC(); break;
case 'D':
commandLD(); break;
case 'P':
commandLP(); break;
case 'T':
commandLT(); break;
case 'E':
commandLE(); break;
case 'L':
commandLL(); break;
case 'H':
switch(sl_getc()) {
case 'D':
commandLHD(); break;
case 'G':
commandLHG(); break;
case 'M':
commandLHM(); break;
case 'S':
commandLHS(); break;
case 'W':
commandLHW(); break;
default:
undeferr();
}
break;
case 'X':
switch(sl_getc()) {
case 'G':
commandLXG(); break;
case 'O':
commandLXO(); break;
case 'C':
commandLXC(); break;
case 'L':
commandLXL(); break;
case 'S':
commandLXS(); break;
case 'P':
commandLXP(); break;
case 'R':
commandLXR(); break;
case 'W':
commandLXW(); break;
case 'X':
commandLXX(); break;
default:
undeferr();
}
break;
default:
undeferr();
}
break;
case 'M':
switch(sl_getc()) {
case 'A':
commandMA(); break;
case 'C':
commandMC(); break;
case 'D':
commandMD(); break;
case 'E':
commandME(); break;
case 'F':
commandMF(); break;
case 'G':
commandMG(); break;
case 'H':
commandMH(); break;
case 'I':
commandMI(); break;
case 'J':
commandMJ(); break;
case 'L':
commandML(); break;
case 'M':
commandMM(); break;
case 'N':
commandMN(); break;
case 'P':
commandMP(); break;
case 'S':
commandMS(); break;
case 'T':
commandMT(); break;
case 'V':
commandMV(); break;
case 'Z':
switch(sl_getc()) {
case 0:
commandMZ0(); break;
default:
undeferr();
}
break;
default:
undeferr();
}
break;
case 'N':
switch(sl_getc()) {
case '+':
commandN_ADD(); break;
case '-':
commandN_SUB(); break;
case '*':
commandN_MUL(); break;
case '/':
commandN_DIV(); break;
case '>':
commandN_GT(); break;
case '<':
commandN_LT(); break;
case '=':
commandN_EQ(); break;
case '\\':
commandN_NE(); break;
case '&':
commandN_AND(); break;
case '|':
commandN_OR(); break;
case '^':
commandN_XOR(); break;
case '~':
commandN_NOT(); break;
case 'B':
commandNB(); break;
case 'C':
commandNC(); break;
case 'I':
commandNI(); break;
case 'P':
commandNP(); break;
case 'R':
commandNR(); break;
case 'O':
commandNO(); break;
case 'T':
commandNT(); break;
case 'D':
switch(sl_getc()) {
case 'C':
commandNDC(); break;
case 'D':
commandNDD(); break;
case 'M':
commandNDM(); break;
case 'A':
commandNDA(); break;
case 'H':
commandNDH(); break;
case '+':
commandND_ADD(); break;
case '-':
commandND_SUB(); break;
case '*':
commandND_MUL(); break;
case '/':
commandND_DIV(); break;
default:
undeferr();
}
break;
default:
undeferr();
}
break;
case 'O':
commandO(); break;
case 'P':
switch(sl_getc()) {
case 'C':
commandPC(); break;
case 'D':
commandPD(); break;
case 'F':
commandPF(); break;
case 'G':
commandPG(); break;
case 'N':
commandPN(); break;
case 'P':
commandPP(); break;
case 'S':
commandPS(); break;
case 'W':
commandPW(); break;
case 'T':
switch(sl_getc()) {
case 0:
commandPT0(); break;
case 1:
commandPT1(); break;
case 2:
commandPT2(); break;
default:
undeferr();
}
break;
default:
undeferr();
}
break;
case 'Q':
switch(sl_getc()) {
case 'C':
commandQC(); break;
case 'D':
commandQD(); break;
case 'E':
commandQE(); break;
case 'P':
commandQP(); break;
default:
undeferr();
}
break;
case 'R':
/* 改行 */
DEBUG_MESSAGE("\n");
msg_nextLine();
break;
case 'S':
switch(sl_getc()) {
case 'C':
commandSC(); break;
case 'G':
commandSG(); break;
case 'L':
commandSL(); break;
case 'M':
commandSM(); break;
case 'O':
commandSO(); break;
case 'P':
commandSP(); break;
case 'Q':
commandSQ(); break;
case 'R':
commandSR(); break;
case 'S':
commandSS(); break;
case 'T':
commandST(); break;
case 'U':
commandSU(); break;
case 'V':
commandSV(); break;
case 'W':
commandSW(); break;
case 'X':
commandSX(); break;
case 'I':
commandSI(); break;
default:
undeferr();
}
break;
case 'T':
commandT(); break;
case 'U':
switch(sl_getc()) {
case 'C':
commandUC(); break;
case 'D':
commandUD(); break;
case 'R':
commandUR(); break;
case 'S':
commandUS(); break;
case 'G':
commandUG(); break;
case 'P':
switch(sl_getc()) {
case 0:
commandUP0(); break;
case 1:
commandUP1(); break;
case 2:
case 3:
commandUP3(); break;
default:
undeferr();
}
break;
default:
undeferr();
}
break;
case 'V':
switch(sl_getc()) {
case 'C':
commandVC(); break;
case 'P':
commandVP(); break;
case 'S':
commandVS(); break;
case 'G':
commandVG(); break;
case 'H':
commandVH(); break;
case 'F':
commandVF(); break;
case 'V':
commandVV(); break;
case 'R':
commandVR(); break;
case 'W':
commandVW(); break;
case 'E':
commandVE(); break;
case 'Z':
commandVZ(); break;
case 'X':
commandVX(); break;
case 'T':
commandVT(); break;
case 'B':
commandVB(); break;
case 'I':
switch(sl_getc()) {
case 'C':
commandVIC(); break;
case 'P':
commandVIP(); break;
default:
undeferr();
}
break;
case 'A':
commandVA(); break;
case 'J':
commandVJ(); break;
default:
undeferr();
}
break;
case 'W':
switch(sl_getc()) {
case 'W':
commandWW(); break;
case 'V':
commandWV(); break;
case 'X':
commandWX(); break;
case 'Z':
commandWZ(); break;
default:
undeferr();
}
break;
case 'X':
{
int num=getCaliValue();
sys_addMsg(svar_get(num));
DEBUG_COMMAND("X %d:", num);
}
break;
case 'Y':
commandY(); break;
case 'Z':
switch(sl_getc()) {
case 'C':
commandZC(); break;
case 'M':
commandZM(); break;
case 'S':
commandZS(); break;
case 'B':
commandZB(); break;
case 'H':
commandZH(); break;
case 'W':
commandZW(); break;
case 'L':
commandZL(); break;
case 'E':
commandZE(); break;
case 'F':
commandZF(); break;
case 'D':
commandZD(); break;
case 'T':
switch(sl_getc()) {
case 0:
commandZT0(); break;
case 1:
commandZT1(); break;
case 2:
commandZT2(); break;
case 3:
commandZT3(); break;
case 4:
commandZT4(); break;
case 5:
commandZT5(); break;
case 10:
commandZT10(); break;
case 11:
commandZT11(); break;
case 20:
commandZT20(); break;
case 21:
commandZT21(); break;
default:
undeferr();
}
break;
case 'U':
commandZU(); break;
case 'Z':
switch(sl_getc()) {
case 0:
commandZZ0(); break;
case 1:
commandZZ1(); break;
case 2:
commandZZ2(); break;
case 3:
commandZZ3(); break;
case 4:
commandZZ4(); break;
case 5:
commandZZ5(); break;
case 7:
commandZZ7(); break;
case 8:
commandZZ8(); break;
case 9:
commandZZ9(); break;
case 10:
commandZZ10(); break;
case 13:
commandZZ13(); break;
case 14:
commandZZ14(); break;
default:
undeferr();
}
break;
case 'G':
commandZG(); break;
case 'I':
commandZI(); break;
case 'A':
commandZA(); break;
case 'K':
commandZK(); break;
case 'R':
commandZR(); break;
default:
undeferr();
}
break;
case '\\':
/* label call */
index = sl_getaddr();
if (index == 0) {
sl_retNear();
} else {
sl_callNear(index);
}
break;
case ']':
/* puts("選択"); */
sel_select();
break;
case '{': // conditional statement
{
int cond = getCaliValue();
index = sl_getaddr();
if (!cond)
sl_jmpNear(index);
}
break;
case '~':
/* label far call */
page = sl_getw();
if (page == 0x0000) {
// puts("~ cali:");
nact->fnc_return_value = getCaliValue();
sl_retFar();
} else if (page == 0xffff) {
// puts("~~ cali:");
*getCaliVariable() = nact->fnc_return_value;
} else {
sl_callFar2(page - 1, sl_getaddr());
}
break;
default:
undeferr();
}
}
Reference in New Issue View Git Blame Copy Permalink